Index: vhTest/Mock/AXimpl/Dynamics/InventoryOut/Converter/SpaceTowerService.cls.xml
===================================================================
diff -u
--- vhTest/Mock/AXimpl/Dynamics/InventoryOut/Converter/SpaceTowerService.cls.xml	(revision 0)
+++ vhTest/Mock/AXimpl/Dynamics/InventoryOut/Converter/SpaceTowerService.cls.xml	(revision 55267)
@@ -0,0 +1,27 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.AXimpl.Dynamics.InventoryOut.Converter.SpaceTowerService">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>AXimpl.Dynamics.InventoryOut.Converter.SpaceTowerService,Tools.Mock.MockClassBase</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="%OnNew">
+<FormalSpec>BouwsteenIteratorFactory:AXimpl.Dynamics.InventoryOut.Converter.BouwsteenIteratorFactory,ProductApi:DOM.PM.ProductAPI=""</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefSpaceTowerBouwsteenIterator">
+<FormalSpec>ProductId:%String</FormalSpec>
+<ReturnType>AXimpl.Admin.DOM.PM.BouwsteenIterator</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefSpaceTowerBouwsteenIterator",ProductId)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AXimpl/Dynamics/InventoryOut/Converter/ReceptieAfmeldenConverter.cls.xml
===================================================================
diff -u -r55265 -r55267
--- AXimpl/Dynamics/InventoryOut/Converter/ReceptieAfmeldenConverter.cls.xml	(.../ReceptieAfmeldenConverter.cls.xml)	(revision 55265)
+++ AXimpl/Dynamics/InventoryOut/Converter/ReceptieAfmeldenConverter.cls.xml	(.../ReceptieAfmeldenConverter.cls.xml)	(revision 55267)
@@ -23,27 +23,27 @@
 <Private>1</Private>
 </Property>
 
-<Property name="ProductApi">
-<Type>DOM.PM.ProductAPI</Type>
+<Property name="ProductTypeApi">
+<Type>DOM.PM.ProductTypeAPI</Type>
 <Private>1</Private>
 </Property>
 
-<Property name="ProductTypeApi">
-<Type>DOM.PM.ProductTypeAPI</Type>
+<Property name="SpaceTowerService">
+<Type>AXimpl.Dynamics.InventoryOut.Converter.SpaceTowerService</Type>
 <Private>1</Private>
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>InventoryOutConverter:AXimpl.Dynamics.InventoryOut.Converter.InventoryOutConverter,BouwsteenIteratorFactory:AXimpl.Dynamics.InventoryOut.Converter.BouwsteenIteratorFactory,ProductApi:DOM.PM.ProductAPI="",ProductTypeApi:DOM.PM.impl.ProductTypeAPIimpl=""</FormalSpec>
+<FormalSpec>InventoryOutConverter:AXimpl.Dynamics.InventoryOut.Converter.InventoryOutConverter,BouwsteenIteratorFactory:AXimpl.Dynamics.InventoryOut.Converter.BouwsteenIteratorFactory,ProductTypeApi:DOM.PM.impl.ProductTypeAPIimpl="",SpaceTowerService:AXimpl.Dynamics.InventoryOut.Converter.SpaceTowerService=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..InventoryOutConverter = $$$Inject(InventoryOutConverter, ##class(AXimpl.Dynamics.InventoryOut.Converter.InventoryOutConverter).%New())
 	Set ..BouwsteenIteratorFactory = $$$Inject(BouwsteenIteratorFactory, ##class(AXimpl.Dynamics.InventoryOut.Converter.BouwsteenIteratorFactory).%New())
-	Set ..ProductApi = $$$Inject(ProductApi, ##class(DOM.PM.impl.ProductAPI).%New())
 	Set ..ProductTypeApi = $$$Inject(ProductTypeApi, ##class(DOM.PM.impl.ProductTypeAPIimpl).%New())
+	Set ..SpaceTowerService = $$$Inject(SpaceTowerService, ##class(AXimpl.Dynamics.InventoryOut.Converter.SpaceTowerService).%New())
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -84,7 +84,7 @@
 	Do ..AxdEntityHeader.ProdRAF.Insert(ProdRaf)
 	
 	If ..ProductTypeApi.IsSpaceTowerProduct(Request.Message.ProductID) {
-		Set ..BouwsteenIterator = ..GeefSpaceTowerBouwsteenIterator(Request.Message.ProductID)
+		Set ..BouwsteenIterator = ..SpaceTowerService.GeefSpaceTowerBouwsteenIterator(Request.Message.ProductID)
 	} Else {
 		Set ..BouwsteenIterator = ..BouwsteenIteratorFactory.Maak(Request.Message.ProductID)
 	}
@@ -117,41 +117,6 @@
 	Quit MessageParts
 ]]></Implementation>
 </Method>
-
-<Method name="GeefSpaceTowerBouwsteenIterator">
-<FormalSpec>ProductId:%String</FormalSpec>
-<Private>1</Private>
-<ReturnType>AXimpl.Admin.DOM.PM.BouwsteenIterator</ReturnType>
-<Implementation><![CDATA[
-	#dim SpaceTower As DOM.PM.Product = ..ProductApi.GeefProduct(ProductId)
-	#dim SpaceTowerKindIterator As TECH.Iterator = SpaceTower.GeefKindBouwstenenIterator()
-	#dim BouwsteenKind As DOM.PM.Bouwstenen.BouwsteenKind
-	#dim BouwsteenKindIteratorLijst As %ListOfObjects = ##class(%ListOfObjects).%New()
-	#dim BouwsteenKindIterator1 As TECH.Iterator
-	#dim BouwsteenKindIterator2 As TECH.Iterator
-	#dim BouwsteenKindIterator3 As TECH.Iterator
-	#dim BouwsteenKindIterator4 As TECH.Iterator
-	#dim BouwsteenKindIterator5 As TECH.Iterator
-	
-	While SpaceTowerKindIterator.HasNext() {
-		Set BouwsteenKind = SpaceTowerKindIterator.Next()
-		If BouwsteenKind.Type = "K" {
-			Do BouwsteenKindIteratorLijst.Insert(..BouwsteenIteratorFactory.Maak(BouwsteenKind.KindProduct.GeefID()))
-		}
-	}
-	// OPGELET: Voorlopig voorzien voor SpaceTowers met maximaal 5 VERSCHILLENDE ProductGroep-BouwsteenKinderen (P.s.: Aantallen doen er niet toe voor de InventSync)
-	Set BouwsteenKindIterator1 = $select($$$HasLength(BouwsteenKindIteratorLijst.GetAt(1)):BouwsteenKindIteratorLijst.GetAt(1),1:##class(TECH.ListbuildIterator).%New( "" ))
-	Set BouwsteenKindIterator2 = $select($$$HasLength(BouwsteenKindIteratorLijst.GetAt(2)):BouwsteenKindIteratorLijst.GetAt(2),1:##class(TECH.ListbuildIterator).%New( "" ))
-	Set BouwsteenKindIterator3 = $select($$$HasLength(BouwsteenKindIteratorLijst.GetAt(3)):BouwsteenKindIteratorLijst.GetAt(3),1:##class(TECH.ListbuildIterator).%New( "" ))
-	Set BouwsteenKindIterator4 = $select($$$HasLength(BouwsteenKindIteratorLijst.GetAt(4)):BouwsteenKindIteratorLijst.GetAt(4),1:##class(TECH.ListbuildIterator).%New( "" ))
-	Set BouwsteenKindIterator5 = $select($$$HasLength(BouwsteenKindIteratorLijst.GetAt(5)):BouwsteenKindIteratorLijst.GetAt(5),1:##class(TECH.ListbuildIterator).%New( "" ))
-	
-	#dim IteratorOfIterators As TECH.IteratorOfIterators = ##class(TECH.IteratorOfIterators).%New()
-	Do IteratorOfIterators.SetIterators(BouwsteenKindIterator1, BouwsteenKindIterator2, BouwsteenKindIterator3, BouwsteenKindIterator4, BouwsteenKindIterator5)
-	
-	Quit IteratorOfIterators
-]]></Implementation>
-</Method>
 </Class>
 
 
Index: vhUnitTest/AXimpl/Dynamics/InventoryOut/Converter/ReceptieAfmeldenConverter/Convert/Test.cls.xml
===================================================================
diff -u -r55058 -r55267
--- vhUnitTest/AXimpl/Dynamics/InventoryOut/Converter/ReceptieAfmeldenConverter/Convert/Test.cls.xml	(.../Test.cls.xml)	(revision 55058)
+++ vhUnitTest/AXimpl/Dynamics/InventoryOut/Converter/ReceptieAfmeldenConverter/Convert/Test.cls.xml	(.../Test.cls.xml)	(revision 55267)
@@ -8,21 +8,6 @@
 <Default>1000</Default>
 </Parameter>
 
-<Parameter name="ProductId1">
-<Type>%String</Type>
-<Default>1001</Default>
-</Parameter>
-
-<Parameter name="ProductId2">
-<Type>%String</Type>
-<Default>1002</Default>
-</Parameter>
-
-<Parameter name="ProductId3">
-<Type>%String</Type>
-<Default>1003</Default>
-</Parameter>
-
 <Property name="UitleveringId">
 <Type>%String</Type>
 <Private>1</Private>
@@ -58,13 +43,13 @@
 <Private>1</Private>
 </Property>
 
-<Property name="ProductApi">
-<Type>DOM.PM.ProductAPI</Type>
+<Property name="ProductTypeApi">
+<Type>DOM.PM.ProductTypeAPI</Type>
 <Private>1</Private>
 </Property>
 
-<Property name="ProductTypeApi">
-<Type>DOM.PM.ProductTypeAPI</Type>
+<Property name="SpaceTowerServiceStub">
+<Type>AXimpl.Dynamics.InventoryOut.Converter.SpaceTowerService</Type>
 <Private>1</Private>
 </Property>
 
@@ -81,8 +66,6 @@
 	Set ..GUID = "{7E53DAF1-A44A-49C7-B0D2-4534E9158C9A}"
 	Set ..Request = ##class(AXimpl.Request).%New("Inventory/ReceptieAfgemeld", ..UitleveringId, ReceptieAfmeldenInputDto)
 	Set ..RequestInventoryOut = ##class(AXimpl.Request).%New("Inventory/Update", ..#ProductId)
-	Do ##class(vhTest.Utils.DOM.PM.Product).VerwijderProducten(..#ProductId1, ..#ProductId3)
- 	Do ##class(vhTest.Utils.DOM.PM.Product).CreeerProducten(..#ProductId1, ..#ProductId3)
 ]]></Implementation>
 </Method>
 
@@ -94,25 +77,18 @@
 	Do ##class(vhTest.Fake.TECH.DateTime.DateTimeAPI).Activeer("01.05.2016")
 	
 	Set ..InventoryOutConverterStub = ##class(vhTest.Mock.AXimpl.Dynamics.InventoryOut.Converter.InventoryOutConverter).%New()
-	Set ..ProductApi = ##class(vhTest.Mock.DOM.PM.ProductAPI).%New()
 	Set ..ProductTypeApi = ##class(vhTest.Mock.DOM.PM.ProductTypeAPI).%New()
+	Set ..SpaceTowerServiceStub = ##class(vhTest.Mock.AXimpl.Dynamics.InventoryOut.Converter.SpaceTowerService).%New()
 	Set ..Request.Message.AxInventTransId = "AxInventTransId"
 ]]></Implementation>
 </Method>
 
-<Method name="OnAfterAllTests">
-<Implementation><![CDATA[
-	Do ##class(vhTest.Utils.DOM.PM.Product).VerwijderProducten(..#ProductId1, ..#ProductId3)
- 	Do ##super()
-]]></Implementation>
-</Method>
-
 <Method name="Test: Standaardgedrag met 1 InventSync van 1 productlijn">
 <Implementation><![CDATA[
 	Do ..ProductTypeApi.IndienMethodCall("IsSpaceTowerProduct", ..#ProductId).DanReturn($$$False)
 	Do ..InventoryOutConverterStub.IndienMethodCall("Convert", $$$ElkeWaarde).DanReturn(..MaakInventSyncAntwoord(1))
 	
-	Set Converter = ##class(AXimpl.Dynamics.InventoryOut.Converter.ReceptieAfmeldenConverter).%New(..InventoryOutConverterStub, ..MaakBouwsteenIteratorFactory(1), ..ProductApi, ..ProductTypeApi)
+	Set Converter = ##class(AXimpl.Dynamics.InventoryOut.Converter.ReceptieAfmeldenConverter).%New(..InventoryOutConverterStub, ..MaakBouwsteenIteratorFactory(1), ..ProductTypeApi, ..SpaceTowerServiceStub)
 	
 	#dim Response As AXif.Dynamics.Inventory.MessageParts = Converter.Convert(..Request, ..GUID)
 	
@@ -127,7 +103,7 @@
 	Do ..ProductTypeApi.IndienMethodCall("IsSpaceTowerProduct", ..#ProductId).DanReturn($$$False)
 	Do ..InventoryOutConverterStub.IndienMethodCall("Convert", $$$ElkeWaarde).DanReturn(..MaakInventSyncAntwoord(2))
 	
-	Set Converter = ##class(AXimpl.Dynamics.InventoryOut.Converter.ReceptieAfmeldenConverter).%New(..InventoryOutConverterStub, ..MaakBouwsteenIteratorFactory(1), ..ProductApi, ..ProductTypeApi)
+	Set Converter = ##class(AXimpl.Dynamics.InventoryOut.Converter.ReceptieAfmeldenConverter).%New(..InventoryOutConverterStub, ..MaakBouwsteenIteratorFactory(1), ..ProductTypeApi, ..SpaceTowerServiceStub)
 	
 	#dim Response As AXif.Dynamics.Inventory.MessageParts = Converter.Convert(..Request, ..GUID)
 	
@@ -141,7 +117,7 @@
 	Do ..ProductTypeApi.IndienMethodCall("IsSpaceTowerProduct", ..#ProductId).DanReturn($$$False)
 	Do ..InventoryOutConverterStub.IndienMethodCall("Convert", $$$ElkeWaarde).DanException($$$DummyException)
 	
-	Set Converter = ##class(AXimpl.Dynamics.InventoryOut.Converter.ReceptieAfmeldenConverter).%New(..InventoryOutConverterStub, ..MaakBouwsteenIteratorFactory(1), ..ProductApi, ..ProductTypeApi)
+	Set Converter = ##class(AXimpl.Dynamics.InventoryOut.Converter.ReceptieAfmeldenConverter).%New(..InventoryOutConverterStub, ..MaakBouwsteenIteratorFactory(1), ..ProductTypeApi, ..SpaceTowerServiceStub)
 	
 	#dim Response As AXif.Dynamics.Inventory.MessageParts = Converter.Convert(..Request, ..GUID)
 	
@@ -154,7 +130,7 @@
 <Implementation><![CDATA[
 	Set ..Request.Message.AxInventTransId = ""
 	
-	Set Converter = ##class(AXimpl.Dynamics.InventoryOut.Converter.ReceptieAfmeldenConverter).%New(..InventoryOutConverterStub, ..MaakBouwsteenIteratorFactory(1))
+	Set Converter = ##class(AXimpl.Dynamics.InventoryOut.Converter.ReceptieAfmeldenConverter).%New(..InventoryOutConverterStub, ..MaakBouwsteenIteratorFactory(1), ..ProductTypeApi, ..SpaceTowerServiceStub)
 
 	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Geen conversie nodig voor converter 'AXimpl.Dynamics.InventoryOut.Converter.ReceptieAfmeldenConverter.Convert' en Id '100_100'")
 	do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("AXimpl.NoConversionNeededException",Substrings))
@@ -163,14 +139,13 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: SpaceTower met 3 verschillende Kinderen">
+<Method name="Test: SpaceTower antwoord met 6 InventSync van 1 productlijn">
 <Implementation><![CDATA[
 	Do ..ProductTypeApi.IndienMethodCall("IsSpaceTowerProduct", ..#ProductId).DanReturn($$$True)
-	Do ..ProductApi.IndienMethodCall("GeefProduct", ..#ProductId).DanReturn(..GeefSpaceTower())
-	
+	Do ..SpaceTowerServiceStub.IndienMethodCall("GeefSpaceTowerBouwsteenIterator", ..#ProductId).DanReturn(..GeefSpaceTowerBouwsteenIterator())
 	Do ..InventoryOutConverterStub.IndienMethodCall("Convert", $$$ElkeWaarde).DanReturn(..MaakInventSyncAntwoord(6))
 	
-	Set Converter = ##class(AXimpl.Dynamics.InventoryOut.Converter.ReceptieAfmeldenConverter).%New(..InventoryOutConverterStub, ..MaakBouwsteenIteratorFactory(3, 1), ..ProductApi, ..ProductTypeApi)
+	Set Converter = ##class(AXimpl.Dynamics.InventoryOut.Converter.ReceptieAfmeldenConverter).%New(..InventoryOutConverterStub, ..MaakBouwsteenIteratorFactory(1), ..ProductTypeApi, ..SpaceTowerServiceStub)
 	
 	#dim Response As AXif.Dynamics.Inventory.MessageParts = Converter.Convert(..Request, ..GUID)
 	
@@ -202,7 +177,7 @@
 </Method>
 
 <Method name="MaakBouwsteenIteratorFactory">
-<FormalSpec>AantalBouwstenenIterators:%Integer,IsCorrectieNodigVanwegeKindBouwstenen:%Integer=0</FormalSpec>
+<FormalSpec>AantalBouwstenenIterators:%Integer</FormalSpec>
 <Private>1</Private>
 <ReturnType>vhTest.Mock.AXimpl.Dynamics.InventoryOut.Converter.BouwsteenIteratorFactory</ReturnType>
 <Implementation><![CDATA[
@@ -212,7 +187,7 @@
 	#dim ii As %Integer
 	For ii=0:1:AantalBouwstenenIterators-1 {
 		Set BouwsteenDummy = ##class(AXimpl.Admin.DOM.PM.Bouwsteen).%New()
-		Set ProductId = 100_ii + IsCorrectieNodigVanwegeKindBouwstenen
+		Set ProductId = 100_ii
 		Set BouwsteenDummy.ProductId = ProductId
 		Set Bouwstenen = ##class(%ListOfDataTypes).%New()
 		Do Bouwstenen.Insert(BouwsteenDummy)
@@ -224,6 +199,25 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefSpaceTowerBouwsteenIterator">
+<Private>1</Private>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[
+	#dim BouwsteenKind1 As AXimpl.Admin.DOM.PM.Bouwsteen = ##class(AXimpl.Admin.DOM.PM.Bouwsteen).%New()
+	#dim BouwsteenKind2 As AXimpl.Admin.DOM.PM.Bouwsteen = ##class(AXimpl.Admin.DOM.PM.Bouwsteen).%New()
+	#dim BouwsteenKind3 As AXimpl.Admin.DOM.PM.Bouwsteen = ##class(AXimpl.Admin.DOM.PM.Bouwsteen).%New()
+	
+	#dim BouwsteenLijst As %ListOfObjects = ##class(%ListOfObjects).%New()
+	Do BouwsteenLijst.Insert(BouwsteenKind1)
+	Do BouwsteenLijst.Insert(BouwsteenKind2)
+	Do BouwsteenLijst.Insert(BouwsteenKind3)
+	
+	#dim SpaceTowerBouwsteenIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(BouwsteenLijst)
+	
+	Quit SpaceTowerBouwsteenIterator
+]]></Implementation>
+</Method>
+
 <Method name="MaakProductApiStub">
 <FormalSpec>AantalProducten:%Integer</FormalSpec>
 <Private>1</Private>
@@ -240,45 +234,6 @@
 	Quit ProductApiStub
 ]]></Implementation>
 </Method>
-
-<Method name="GeefSpaceTower">
-<Private>1</Private>
-<ReturnType>DOM.PM.Product</ReturnType>
-<Implementation><![CDATA[
-	#dim SpaceTower As DOM.PM.Product = ##class(vhTest.Mock.DOM.PM.Product).%New(..#ProductId)
-	Do SpaceTower.IndienMethodCall("GeefKindBouwstenenIterator").DanReturn(..GeefKindBouwstenenIteratorVanSpaceTower())
-	
-	Quit SpaceTower
-]]></Implementation>
-</Method>
-
-<Method name="GeefKindBouwstenenIteratorVanSpaceTower">
-<Private>1</Private>
-<ReturnType>TECH.Iterator</ReturnType>
-<Implementation><![CDATA[
-	#dim BouwsteenKind1 As DOM.PM.Bouwstenen.BouwsteenKind = ##class(DOM.PM.Bouwstenen.BouwsteenKind).%New()
-	Set BouwsteenKind1.Type = "K"
-	Do BouwsteenKind1.KindProductSetObjectId(..#ProductId1)
-	Set BouwsteenKind1.Aantal = 2
-	#dim BouwsteenKind2 As DOM.PM.Bouwstenen.BouwsteenKind = ##class(DOM.PM.Bouwstenen.BouwsteenKind).%New()
-	Set BouwsteenKind2.Type = "K"
-	Do BouwsteenKind2.KindProductSetObjectId(..#ProductId2)
-	Set BouwsteenKind2.Aantal = 2
-	#dim BouwsteenKind3 As DOM.PM.Bouwstenen.BouwsteenKind = ##class(DOM.PM.Bouwstenen.BouwsteenKind).%New()
-	Set BouwsteenKind3.Type = "K"
-	Do BouwsteenKind3.KindProductSetObjectId(..#ProductId3)
-	Set BouwsteenKind3.Aantal = 1
-	
-	#dim BouwsteenLijst As %ListOfObjects = ##class(%ListOfObjects).%New()
-	Do BouwsteenLijst.Insert(BouwsteenKind1)
-	Do BouwsteenLijst.Insert(BouwsteenKind2)
-	Do BouwsteenLijst.Insert(BouwsteenKind3)
-	
-	#dim KindBouwstenenIteratorVanSpaceTower As TECH.Iterator = ##class(TECH.ListIterator).%New(BouwsteenLijst)
-	
-	Quit KindBouwstenenIteratorVanSpaceTower
-]]></Implementation>
-</Method>
 </Class>
 
 
Index: vhTest/Fake/AXimpl/Dynamics/InventoryOut/Converter/SpaceTowerService.cls.xml
===================================================================
diff -u
--- vhTest/Fake/AXimpl/Dynamics/InventoryOut/Converter/SpaceTowerService.cls.xml	(revision 0)
+++ vhTest/Fake/AXimpl/Dynamics/InventoryOut/Converter/SpaceTowerService.cls.xml	(revision 55267)
@@ -0,0 +1,19 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.AXimpl.Dynamics.InventoryOut.Converter.SpaceTowerService">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden, nieuwe methodes worden automatisch bijgevoegd, bestaande blijven zoals ze zijn.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>AXimpl.Dynamics.InventoryOut.Converter.SpaceTowerService</Super>
+
+<Method name="GeefSpaceTowerBouwsteenIterator">
+<FormalSpec>ProductId:%String</FormalSpec>
+<ReturnType>AXimpl.Admin.DOM.PM.BouwsteenIterator</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AXimpl/Dynamics/InventoryOut/Converter/SpaceTowerService.cls.xml
===================================================================
diff -u
--- AXimpl/Dynamics/InventoryOut/Converter/SpaceTowerService.cls.xml	(revision 0)
+++ AXimpl/Dynamics/InventoryOut/Converter/SpaceTowerService.cls.xml	(revision 55267)
@@ -0,0 +1,66 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AXimpl.Dynamics.InventoryOut.Converter.SpaceTowerService">
+<Super>TECH.Mockable</Super>
+
+<Property name="BouwsteenIteratorFactory">
+<Type>AXimpl.Dynamics.InventoryOut.Converter.BouwsteenIteratorFactory</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ProductApi">
+<Type>DOM.PM.ProductAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>BouwsteenIteratorFactory:AXimpl.Dynamics.InventoryOut.Converter.BouwsteenIteratorFactory,ProductApi:DOM.PM.ProductAPI=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..BouwsteenIteratorFactory = $$$Inject(BouwsteenIteratorFactory, ##class(AXimpl.Dynamics.InventoryOut.Converter.BouwsteenIteratorFactory).%New())
+	Set ..ProductApi = $$$Inject(ProductApi, ##class(DOM.PM.impl.ProductAPI).%New())
+
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefSpaceTowerBouwsteenIterator">
+<FormalSpec>ProductId:%String</FormalSpec>
+<ReturnType>AXimpl.Admin.DOM.PM.BouwsteenIterator</ReturnType>
+<Implementation><![CDATA[
+	#dim SpaceTower As DOM.PM.Product = ..ProductApi.GeefProduct(ProductId)
+	#dim SpaceTowerKindIterator As TECH.Iterator = SpaceTower.GeefKindBouwstenenIterator()
+	#dim BouwsteenKind As DOM.PM.Bouwstenen.BouwsteenKind
+	#dim BouwsteenKindIteratorLijst As %ListOfObjects = ##class(%ListOfObjects).%New()
+	#dim BouwsteenKindIterator1 As TECH.Iterator
+	#dim BouwsteenKindIterator2 As TECH.Iterator
+	#dim BouwsteenKindIterator3 As TECH.Iterator
+	#dim BouwsteenKindIterator4 As TECH.Iterator
+	#dim BouwsteenKindIterator5 As TECH.Iterator
+	
+	While SpaceTowerKindIterator.HasNext() {
+		Set BouwsteenKind = SpaceTowerKindIterator.Next()
+		If BouwsteenKind.Type = "K" {
+			Do BouwsteenKindIteratorLijst.Insert(..BouwsteenIteratorFactory.Maak(BouwsteenKind.KindProduct.GeefID()))
+		}
+	}
+	// OPGELET: Voorlopig voorzien voor SpaceTowers met maximaal 5 VERSCHILLENDE ProductGroep-BouwsteenKinderen (P.s.: Aantallen doen er niet toe voor de InventSync)
+	Set BouwsteenKindIterator1 = $select($$$HasLength(BouwsteenKindIteratorLijst.GetAt(1)):BouwsteenKindIteratorLijst.GetAt(1),1:##class(TECH.ListbuildIterator).%New( "" ))
+	Set BouwsteenKindIterator2 = $select($$$HasLength(BouwsteenKindIteratorLijst.GetAt(2)):BouwsteenKindIteratorLijst.GetAt(2),1:##class(TECH.ListbuildIterator).%New( "" ))
+	Set BouwsteenKindIterator3 = $select($$$HasLength(BouwsteenKindIteratorLijst.GetAt(3)):BouwsteenKindIteratorLijst.GetAt(3),1:##class(TECH.ListbuildIterator).%New( "" ))
+	Set BouwsteenKindIterator4 = $select($$$HasLength(BouwsteenKindIteratorLijst.GetAt(4)):BouwsteenKindIteratorLijst.GetAt(4),1:##class(TECH.ListbuildIterator).%New( "" ))
+	Set BouwsteenKindIterator5 = $select($$$HasLength(BouwsteenKindIteratorLijst.GetAt(5)):BouwsteenKindIteratorLijst.GetAt(5),1:##class(TECH.ListbuildIterator).%New( "" ))
+	
+	#dim IteratorOfIterators As TECH.IteratorOfIterators = ##class(TECH.IteratorOfIterators).%New()
+	Do IteratorOfIterators.SetIterators(BouwsteenKindIterator1, BouwsteenKindIterator2, BouwsteenKindIterator3, BouwsteenKindIterator4, BouwsteenKindIterator5)
+	
+	Quit IteratorOfIterators
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>