Index: AXimpl/Dynamics/InventoryOut/EventHandler/ReceptieAfmelden.cls.xml
===================================================================
diff -u -r54898 -r55026
--- AXimpl/Dynamics/InventoryOut/EventHandler/ReceptieAfmelden.cls.xml	(.../ReceptieAfmelden.cls.xml)	(revision 54898)
+++ AXimpl/Dynamics/InventoryOut/EventHandler/ReceptieAfmelden.cls.xml	(.../ReceptieAfmelden.cls.xml)	(revision 55026)
@@ -23,26 +23,49 @@
 <FormalSpec>ProductToelevLijnEvent:TECH.PubSub.Event</FormalSpec>
 <Implementation><![CDATA[
 	If ##class(TECH.Config.ConfigMgr).Instance().GetBoolean("AX2A_903_ReceptieAfmelden") {
-		Set Generator = ##class(AXimpl.Generator).%New()
 		
 		If (ProductToelevLijnEvent.%IsA("DOM.AKP.event.ProductToelevLijnGesplitst") || ProductToelevLijnEvent.%IsA("DOM.AKP.event.ProductToelevLijnVerwijderd") || ProductToelevLijnEvent.%IsA("DOM.AKP.event.Cache05GeproduceerdEvent") ) {
-		
+			#dim SpaceTowerAfhandelaar As AXimpl.Dynamics.InventoryOut.EventHandler.ReceptieAfmelden.SpaceTowerAfhandelaar = ##class(AXimpl.Dynamics.InventoryOut.EventHandler.ReceptieAfmelden.SpaceTowerAfhandelaar).%New()
+			#dim Generator As AXimpl.Generator = ##class(AXimpl.Generator).%New()
+			#dim MagRequestGenereren As %Boolean = $$$True
+			
 			If ((ProductToelevLijnEvent.Data.GeefLeverancierID() = ##class(DOM.AKP.enu.Leverancier).Halux()) || ProductToelevLijnEvent.%IsA("DOM.AKP.event.Cache05GeproduceerdEvent") ) {
+				#dim Aantal As %Integer = ProductToelevLijnEvent.Data.GeefAantal()
+				#dim AxInventTransId As %String = ProductToelevLijnEvent.Data.GeefAxInventTransId()
+				#dim ProductId As %String = ProductToelevLijnEvent.Data.GeefProductID()
+				#dim OrderId As %String = ProductToelevLijnEvent.Data.GeefOrderId()
+				#dim OrderLijnId As %String = ProductToelevLijnEvent.Data.GeefOrderLijnId()
+				
 				Set ReceptieAfmeldenInputDto = ##class(AXimpl.Dynamics.InventoryOut.Converter.dto.ReceptieAfmeldenInput).%New()
-				Set ReceptieAfmeldenInputDto.Aantal = ProductToelevLijnEvent.Data.GeefAantal()
+				Set ReceptieAfmeldenInputDto.Aantal = Aantal
 				Set ReceptieAfmeldenInputDto.AxConfigId = ProductToelevLijnEvent.Data.GeefAxConfigId()
-				Set ReceptieAfmeldenInputDto.AxInventTransId = ProductToelevLijnEvent.Data.GeefAxInventTransId()
+				Set ReceptieAfmeldenInputDto.AxInventTransId = AxInventTransId
 				Set ReceptieAfmeldenInputDto.AxMaatwerkGenerischItemId = ProductToelevLijnEvent.Data.GeefAxMaatwerkGenerischItemId()
-				Set ReceptieAfmeldenInputDto.ProductID = ProductToelevLijnEvent.Data.GeefProductID()
+				Set ReceptieAfmeldenInputDto.ProductID = ProductId
 				Set ReceptieAfmeldenInputDto.ReceptieTijdstip = ProductToelevLijnEvent.Data.GeefReceptieTijdstip()
 				Set ReceptieAfmeldenInputDto.ToeleveringID = ProductToelevLijnEvent.Data.GeefToeleveringID()
 				Set ReceptieAfmeldenInputDto.ToeleveringLijnCode = ProductToelevLijnEvent.Data.GeefToeleveringLijnCode()
 				Set Request = ##class(AXimpl.Request).%New("Inventory/ReceptieAfmelden",ProductToelevLijnEvent.Data.GeefToeleveringID()_"_"_ProductToelevLijnEvent.Data.GeefToeleveringLijnCode(), ReceptieAfmeldenInputDto)
+				
+				If SpaceTowerAfhandelaar.IsLadeVanSpaceTowerProduct(ProductId) {
+					Do SpaceTowerAfhandelaar.VerwerkSpaceTowerKindProduct(ProductId, AxInventTransId, OrderId, OrderLijnId, Aantal)
+					
+					If SpaceTowerAfhandelaar.IsSpaceTowerCompleet(AxInventTransId, OrderId, OrderLijnId) {
+						Set ReceptieAfmeldenInputDto.ProductID = SpaceTowerAfhandelaar.GeefProductIdVanSpaceTower(OrderId, OrderLijnId)
+						Set ReceptieAfmeldenInputDto.Aantal = 1
+						Do SpaceTowerAfhandelaar.KillDataVanCompleteSpaceTower(AxInventTransId, OrderId, OrderLijnId)
+					} Else {
+						Set MagRequestGenereren = $$$False
+					}
+				}
+				
 			} Else {
 				Set Request = ##class(AXimpl.Request).%New("Inventory/Update",ProductToelevLijnEvent.Data.GeefProductID())
 			}
 			
-			Do Generator.Generate(Request)
+			If MagRequestGenereren {
+				Do Generator.Generate(Request)
+			}
 			
 			try {
 				Do ZEND^EWPR(ProductToelevLijnEvent.Data.GeefProductID(),1)
Index: AXimpl/Dynamics/InventoryOut/EventHandler/ReceptieAfmelden/SpaceTowerAfhandelaar.cls.xml
===================================================================
diff -u
--- AXimpl/Dynamics/InventoryOut/EventHandler/ReceptieAfmelden/SpaceTowerAfhandelaar.cls.xml	(revision 0)
+++ AXimpl/Dynamics/InventoryOut/EventHandler/ReceptieAfmelden/SpaceTowerAfhandelaar.cls.xml	(revision 55026)
@@ -0,0 +1,121 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AXimpl.Dynamics.InventoryOut.EventHandler.ReceptieAfmelden.SpaceTowerAfhandelaar">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="OrderApi">
+<Type>DOM.VKP.OrderAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ProductApi">
+<Type>DOM.PM.ProductAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ProductTypeApi">
+<Type>DOM.PM.ProductTypeAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>OrderApi:DOM.VKP.OrderAPI="",ProductApi:DOM.PM.ProductAPI="",ProductTypeApi:DOM.PM.impl.ProductTypeAPIimpl=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..OrderApi = $$$Inject(OrderApi, ##class(DOM.VKP.impl.DataM.DataMOrderAPI).%New())
+	Set ..ProductApi = $$$Inject(ProductApi, ##class(DOM.PM.impl.ProductAPI).%New())
+	Set ..ProductTypeApi = $$$Inject(ProductTypeApi, ##class(DOM.PM.impl.ProductTypeAPIimpl).%New())
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="IsLadeVanSpaceTowerProduct">
+<FormalSpec>ProductId:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ..ProductTypeApi.IsLadeVanSpaceTowerProduct(ProductId)
+]]></Implementation>
+</Method>
+
+<Method name="IsSpaceTowerCompleet">
+<FormalSpec>AxInventTransId:%String,OrderId:%String,OrderLijnId:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit (($Data(^SpaceTowerRecAfm(AxInventTransId,OrderId,OrderLijnId))=1) || ($Data(^SpaceTowerRecAfm(AxInventTransId,OrderId,OrderLijnId))=11))
+]]></Implementation>
+</Method>
+
+<Method name="KillDataVanCompleteSpaceTower">
+<FormalSpec>AxInventTransId:%String,OrderId:%String,OrderLijnId:%String</FormalSpec>
+<Implementation><![CDATA[	Kill ^SpaceTowerRecAfm(AxInventTransId,OrderId,OrderLijnId)
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkSpaceTowerKindProduct">
+<FormalSpec>ProductId:%String,AxInventTransId:%String,OrderId:%String,OrderLijnId:%String,Aantal:%Integer</FormalSpec>
+<Implementation><![CDATA[
+	Set ^SpaceTowerRecAfm(AxInventTransId,OrderId,OrderLijnId,ProductId) = Aantal
+	
+	#dim ProductIdSpaceTower As %String = ..GeefProductIdVanSpaceTower(OrderId, OrderLijnId)
+	#dim BenodigdeKindProductIdsEnAantallenLijst As %ListOfDataTypes = ..GeefBenodigdeKindProductIdsEnAantallenLijst(ProductIdSpaceTower)
+	#dim ReedsVerwerkteKindProductIdsEnAantallenLijst As %ListOfDataTypes = ..GeefReedsVerwerkteKindProductIdsEnAantallenLijst(AxInventTransId, OrderId, OrderLijnId)
+	
+	If (##class(TECH.ListUtils).ListHasEqualValues(BenodigdeKindProductIdsEnAantallenLijst, ReedsVerwerkteKindProductIdsEnAantallenLijst)) {
+		Set ^SpaceTowerRecAfm(AxInventTransId,OrderId,OrderLijnId) = "OK"
+	}
+]]></Implementation>
+</Method>
+
+<Method name="GeefProductIdVanSpaceTower">
+<FormalSpec>OrderId:%String,OrderLijnId:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim Order As DOM.VKP.Order = ..OrderApi.GeefOrder(OrderId)
+	#dim OrderLijn  As DOM.VKP.Orderlijn = Order.GeefOrderLijnViaVolgnummer(OrderLijnId)
+	
+	Quit OrderLijn.GeefProductID()
+]]></Implementation>
+</Method>
+
+<Method name="GeefBenodigdeKindProductIdsEnAantallenLijst">
+<FormalSpec>ProductIdSpaceTower:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	#dim BenodigdeKindProductIdsEnAantallenLijst As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	#dim SpaceTower As DOM.PM.Product = ..ProductApi.GeefProduct(ProductIdSpaceTower)
+	#dim SpaceTowerKindProductenIterator As TECH.Iterator = SpaceTower.GeefKindBouwstenenIterator()
+	#dim BouwsteenKind As DOM.PM.Bouwstenen.BouwsteenKind
+	
+	While SpaceTowerKindProductenIterator.HasNext() {
+		Set BouwsteenKind = SpaceTowerKindProductenIterator.Next()
+		If BouwsteenKind.Type = "K" {
+			Do BenodigdeKindProductIdsEnAantallenLijst.Insert(BouwsteenKind.KindProduct.GeefID()_"||"_BouwsteenKind.Aantal)
+		}
+	}
+	
+	Quit BenodigdeKindProductIdsEnAantallenLijst
+]]></Implementation>
+</Method>
+
+<Method name="GeefReedsVerwerkteKindProductIdsEnAantallenLijst">
+<FormalSpec>AxInventTransId:%String,OrderId:%String,OrderLijnId:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	#dim ReedsVerwerkteKindProductIdsEnAantallenLijst As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	#dim Node As %String = ""
+	
+	For { Set Node = $Order(^SpaceTowerRecAfm(AxInventTransId,OrderId,OrderLijnId,Node)) Quit:Node=""
+		Do ReedsVerwerkteKindProductIdsEnAantallenLijst.Insert(Node_"||"_^SpaceTowerRecAfm(AxInventTransId,OrderId,OrderLijnId,Node))
+	}
+	
+	Quit ReedsVerwerkteKindProductIdsEnAantallenLijst
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/AXimpl/Dynamics/InventoryOut/EventHandler/ReceptieAfmelden/SpaceTowerAfhandelaar/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/AXimpl/Dynamics/InventoryOut/EventHandler/ReceptieAfmelden/SpaceTowerAfhandelaar/Test.cls.xml	(revision 0)
+++ vhUnitTest/AXimpl/Dynamics/InventoryOut/EventHandler/ReceptieAfmelden/SpaceTowerAfhandelaar/Test.cls.xml	(revision 55026)
@@ -0,0 +1,242 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.AXimpl.Dynamics.InventoryOut.EventHandler.ReceptieAfmelden.SpaceTowerAfhandelaar.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Parameter name="AxInventTransId">
+<Type>%String</Type>
+<Default>9999999</Default>
+</Parameter>
+
+<Parameter name="OrderId">
+<Type>%String</Type>
+<Default>123456</Default>
+</Parameter>
+
+<Parameter name="OrderLijnId1">
+<Type>%String</Type>
+<Default>101</Default>
+</Parameter>
+
+<Parameter name="OrderLijnId2">
+<Type>%String</Type>
+<Default>102</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>
+
+<Parameter name="SpaceTowerProductId">
+<Type>%String</Type>
+<Default>55555</Default>
+</Parameter>
+
+<Property name="OrderApi">
+<Type>DOM.VKP.OrderAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ProductApi">
+<Type>DOM.PM.ProductAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="SpaceTowerAfhandelaar">
+<Type>AXimpl.Dynamics.InventoryOut.EventHandler.ReceptieAfmelden.SpaceTowerAfhandelaar</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+	Do ##super()
+	Set ..OrderApi = ##class(vhTest.Mock.DOM.VKP.OrderAPI).%New()
+	Set ..ProductApi = ##class(vhTest.Mock.DOM.PM.ProductAPI).%New()
+	
+	Do ##class(vhTest.Utils.DOM.PM.Product).VerwijderProducten(..#ProductId1, ..#ProductId3)
+ 	Do ##class(vhTest.Utils.DOM.PM.Product).CreeerProducten(..#ProductId1, ..#ProductId3)
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ..VerwijderTestData()
+	Do ##super(aTestName)
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterAllTests">
+<Implementation><![CDATA[
+	Do ##class(vhTest.Utils.DOM.PM.Product).VerwijderProducten(..#ProductId1, ..#ProductId3)
+ 	Do ..VerwijderTestData()
+ 	Do ##super()
+]]></Implementation>
+</Method>
+
+<Method name="Test: VerwerkSpaceTowerKindProduct zet de Subscript op met het Aantal als data en IsSpaceTowerCompleet geeft false tot true">
+<Implementation><![CDATA[
+	#dim AantalSpaceTowers As %Integer = 1
+	#dim OrderApiStub As DOM.VKP.OrderAPI = ##class(vhTest.Mock.DOM.VKP.OrderAPI).%New()
+	Do OrderApiStub.IndienMethodCall("GeefOrder", ..#OrderId).DanReturn(..GeefOrder(AantalSpaceTowers))
+	
+	#dim ProductApiStub As DOM.PM.ProductAPI = ##class(vhTest.Mock.DOM.PM.ProductAPI).%New()
+	Do ProductApiStub.IndienMethodCall("GeefProduct", ..#SpaceTowerProductId).DanReturn(..GeefSpaceTower())
+	
+	Set ..OrderApi = OrderApiStub
+	Set ..ProductApi = ProductApiStub
+	
+	Do ..GeefSpaceTowerAfhandelaar().VerwerkSpaceTowerKindProduct(..#ProductId1, ..#AxInventTransId, ..#OrderId, ..#OrderLijnId1, 2)
+	Do $$$AssertEquals(^SpaceTowerRecAfm(..#AxInventTransId,..#OrderId,..#OrderLijnId1,..#ProductId1), "2")
+	Do $$$AssertFalse(..GeefSpaceTowerAfhandelaar().IsSpaceTowerCompleet(..#AxInventTransId,..#OrderId,..#OrderLijnId1))
+	
+	Do ..GeefSpaceTowerAfhandelaar().VerwerkSpaceTowerKindProduct(..#ProductId2, ..#AxInventTransId, ..#OrderId, ..#OrderLijnId1, 2)
+	Do $$$AssertEquals(^SpaceTowerRecAfm(..#AxInventTransId,..#OrderId,..#OrderLijnId1,..#ProductId2), "2")
+	Do $$$AssertFalse(..GeefSpaceTowerAfhandelaar().IsSpaceTowerCompleet(..#AxInventTransId,..#OrderId,..#OrderLijnId1))
+	
+	Do ..GeefSpaceTowerAfhandelaar().VerwerkSpaceTowerKindProduct(..#ProductId3, ..#AxInventTransId, ..#OrderId, ..#OrderLijnId1, 1)
+	Do $$$AssertEquals(^SpaceTowerRecAfm(..#AxInventTransId,..#OrderId,..#OrderLijnId1,..#ProductId3), "1")
+	Do $$$AssertTrue(..GeefSpaceTowerAfhandelaar().IsSpaceTowerCompleet(..#AxInventTransId,..#OrderId,..#OrderLijnId1))
+]]></Implementation>
+</Method>
+
+<Method name="Test: Order met 2 SpaceTowers =&gt; VerwerkSpaceTowerKindProduct verwerkt in juiste Subscript en IsSpaceTowerCompleet werkt volgens juist Subscript">
+<Implementation><![CDATA[
+	#dim AantalSpaceTowers As %Integer = 2
+	#dim OrderApiStub As DOM.VKP.OrderAPI = ##class(vhTest.Mock.DOM.VKP.OrderAPI).%New()
+	Do OrderApiStub.IndienMethodCall("GeefOrder", ..#OrderId).DanReturn(..GeefOrder(AantalSpaceTowers))
+	
+	#dim ProductApiStub As DOM.PM.ProductAPI = ##class(vhTest.Mock.DOM.PM.ProductAPI).%New()
+	Do ProductApiStub.IndienMethodCall("GeefProduct", ..#SpaceTowerProductId).DanReturn(..GeefSpaceTower())
+	
+	Set ..OrderApi = OrderApiStub
+	Set ..ProductApi = ProductApiStub
+	
+	// 1e kind van 1e OrderLijn wordt verwerkt: Subscript opgezet voor 1e kind van 1e OrderLijn, Subscript voor 2e OrderLijn bestaat niet, geen SpaceTower is compleet:
+	Do ..GeefSpaceTowerAfhandelaar().VerwerkSpaceTowerKindProduct(..#ProductId1, ..#AxInventTransId, ..#OrderId, ..#OrderLijnId1, 2)
+	Do $$$AssertEquals(^SpaceTowerRecAfm(..#AxInventTransId,..#OrderId,..#OrderLijnId1,..#ProductId1), "2")
+	Do $$$AssertFalse($Data(^SpaceTowerRecAfm(..#AxInventTransId,..#OrderId,..#OrderLijnId2,..#ProductId1)))
+	Do $$$AssertFalse(..GeefSpaceTowerAfhandelaar().IsSpaceTowerCompleet(..#AxInventTransId,..#OrderId,..#OrderLijnId1))
+	Do $$$AssertFalse(..GeefSpaceTowerAfhandelaar().IsSpaceTowerCompleet(..#AxInventTransId,..#OrderId,..#OrderLijnId2))
+	
+	// 1e kind van 2e OrderLijn wordt verwerkt: Subscript opgezet voor 1e kind van 2e OrderLijn, geen SpaceTower is compleet:
+	Do ..GeefSpaceTowerAfhandelaar().VerwerkSpaceTowerKindProduct(..#ProductId1, ..#AxInventTransId, ..#OrderId, ..#OrderLijnId2, 2)
+	Do $$$AssertEquals(^SpaceTowerRecAfm(..#AxInventTransId,..#OrderId,..#OrderLijnId2,..#ProductId1), "2")
+	Do $$$AssertFalse(..GeefSpaceTowerAfhandelaar().IsSpaceTowerCompleet(..#AxInventTransId,..#OrderId,..#OrderLijnId1))
+	Do $$$AssertFalse(..GeefSpaceTowerAfhandelaar().IsSpaceTowerCompleet(..#AxInventTransId,..#OrderId,..#OrderLijnId2))
+	
+	// 2e kind van 1e OrderLijn wordt verwerkt: Subscript opgezet voor 2e kind van 1e OrderLijn, Subscript voor 2e OrderLijn bestaat niet, geen SpaceTower is compleet:
+	Do ..GeefSpaceTowerAfhandelaar().VerwerkSpaceTowerKindProduct(..#ProductId2, ..#AxInventTransId, ..#OrderId, ..#OrderLijnId1, 2)
+	Do $$$AssertEquals(^SpaceTowerRecAfm(..#AxInventTransId,..#OrderId,..#OrderLijnId1,..#ProductId2), "2")
+	Do $$$AssertFalse($Data(^SpaceTowerRecAfm(..#AxInventTransId,..#OrderId,..#OrderLijnId2,..#ProductId2)))
+	Do $$$AssertFalse(..GeefSpaceTowerAfhandelaar().IsSpaceTowerCompleet(..#AxInventTransId,..#OrderId,..#OrderLijnId1))
+	Do $$$AssertFalse(..GeefSpaceTowerAfhandelaar().IsSpaceTowerCompleet(..#AxInventTransId,..#OrderId,..#OrderLijnId2))
+	
+	// 2e kind van 2e OrderLijn wordt verwerkt: Subscript opgezet voor 2e kind van 2e OrderLijn, geen SpaceTower is compleet:
+	Do ..GeefSpaceTowerAfhandelaar().VerwerkSpaceTowerKindProduct(..#ProductId2, ..#AxInventTransId, ..#OrderId, ..#OrderLijnId2, 2)
+	Do $$$AssertEquals(^SpaceTowerRecAfm(..#AxInventTransId,..#OrderId,..#OrderLijnId2,..#ProductId2), "2")
+	Do $$$AssertFalse(..GeefSpaceTowerAfhandelaar().IsSpaceTowerCompleet(..#AxInventTransId,..#OrderId,..#OrderLijnId1))
+	Do $$$AssertFalse(..GeefSpaceTowerAfhandelaar().IsSpaceTowerCompleet(..#AxInventTransId,..#OrderId,..#OrderLijnId2))
+	
+	// 3e kind van 1e OrderLijn wordt verwerkt: Subscript opgezet voor 3e kind van 1e OrderLijn, Subscript voor 2e OrderLijn bestaat niet, 1e SpaceTower is compleet, andere niet:
+	Do ..GeefSpaceTowerAfhandelaar().VerwerkSpaceTowerKindProduct(..#ProductId3, ..#AxInventTransId, ..#OrderId, ..#OrderLijnId1, 1)
+	Do $$$AssertEquals(^SpaceTowerRecAfm(..#AxInventTransId,..#OrderId,..#OrderLijnId1,..#ProductId3), "1")
+	Do $$$AssertFalse($Data(^SpaceTowerRecAfm(..#AxInventTransId,..#OrderId,..#OrderLijnId2,..#ProductId3)))
+	Do $$$AssertTrue(..GeefSpaceTowerAfhandelaar().IsSpaceTowerCompleet(..#AxInventTransId,..#OrderId,..#OrderLijnId1))
+	Do $$$AssertFalse(..GeefSpaceTowerAfhandelaar().IsSpaceTowerCompleet(..#AxInventTransId,..#OrderId,..#OrderLijnId2))
+	
+	// 3e kind van 2e OrderLijn wordt verwerkt: Subscript opgezet voor 3e kind van 2e OrderLijn, 2e SpaceTower is compleet:
+	Do ..GeefSpaceTowerAfhandelaar().VerwerkSpaceTowerKindProduct(..#ProductId3, ..#AxInventTransId, ..#OrderId, ..#OrderLijnId2, 1)
+	Do $$$AssertEquals(^SpaceTowerRecAfm(..#AxInventTransId,..#OrderId,..#OrderLijnId2,..#ProductId3), "1")
+	Do $$$AssertTrue(..GeefSpaceTowerAfhandelaar().IsSpaceTowerCompleet(..#AxInventTransId,..#OrderId,..#OrderLijnId2))
+]]></Implementation>
+</Method>
+
+<Method name="GeefSpaceTowerAfhandelaar">
+<Private>1</Private>
+<ReturnType>AXimpl.Dynamics.InventoryOut.EventHandler.ReceptieAfmelden.SpaceTowerAfhandelaar</ReturnType>
+<Implementation><![CDATA[	Quit ##class(AXimpl.Dynamics.InventoryOut.EventHandler.ReceptieAfmelden.SpaceTowerAfhandelaar).%New(..OrderApi, ..ProductApi, "")
+]]></Implementation>
+</Method>
+
+<Method name="GeefOrder">
+<FormalSpec>AantalSpaceTowers:%Integer</FormalSpec>
+<Private>1</Private>
+<ReturnType>DOM.VKP.Order</ReturnType>
+<Implementation><![CDATA[
+	#dim OrderStub As DOM.VKP.Order = ##class(vhTest.Mock.DOM.VKP.Order).%New()
+	#dim OrderLijnStub As DOM.VKP.Orderlijn
+	#dim ProductId As %String
+	
+	For ProductId=1:1:AantalSpaceTowers {
+		Set OrderLijnStub = ##class(vhTest.Mock.DOM.VKP.ProductOrderlijn).%New()
+		Do OrderLijnStub.IndienMethodCall("GeefProductID").DanReturn(..#SpaceTowerProductId)
+		
+		Do OrderStub.IndienMethodCall("GeefOrderLijnViaVolgnummer", "10"_ProductId).DanReturn(OrderLijnStub)
+	}
+	
+	Quit OrderStub
+]]></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(..#SpaceTowerProductId)
+	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>
+
+<Method name="VerwijderTestData">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do ..GeefSpaceTowerAfhandelaar().KillDataVanCompleteSpaceTower(..#AxInventTransId, ..#OrderId, ..#OrderLijnId1)
+	Do ..GeefSpaceTowerAfhandelaar().KillDataVanCompleteSpaceTower(..#AxInventTransId, ..#OrderId, ..#OrderLijnId2)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>