Index: vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/WerklijstItemsMaker/MaakWerklijstItems/TestLosseComponentenInBulk.cls.xml
===================================================================
diff -u -r31139 -r37970
--- vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/WerklijstItemsMaker/MaakWerklijstItems/TestLosseComponentenInBulk.cls.xml	(.../TestLosseComponentenInBulk.cls.xml)	(revision 31139)
+++ vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/WerklijstItemsMaker/MaakWerklijstItems/TestLosseComponentenInBulk.cls.xml	(.../TestLosseComponentenInBulk.cls.xml)	(revision 37970)
@@ -5,18 +5,19 @@
 
 <Method name="TestTussenschotAanwezigInBoomMaarNietInWerklijstItemsVoorKartonSnijdenData">
 <Implementation><![CDATA[
-	Set WerklijstItemsMaker = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.WerklijstItemsMaker).%New()
 	#dim Aantal As %Integer = 10
+	#dim WerklijstItemsMaker As APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.WerklijstItemsMaker = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.WerklijstItemsMaker).%New()
 	
-	#dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ..MaakLosseComponentIngegevenKenmerken(..Enum.ProductieWijze.ZijkantLinks)
-	#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = ..GeefHalffabItemsBoom(TAORKenmerken, Aantal)
-	#dim WerklijstItemMakerInput As APPS.Halux.PPS.Activiteit.impl.common.WerklijstItemMakerInput = ..MaakWerklijstItemMakerInput(TAORKenmerken,HalffabItemsBoom)
+	Set ..Kenmerken.ProductieWijze = ..Enum.ProductieWijze.ZijkantLinks
+	Set ..HalffabItemsBoom = ..GeefHalffabItemsBoom(..Kenmerken, Aantal)
 	
+	#dim WerklijstItemMakerInput As APPS.Halux.PPS.Activiteit.impl.common.WerklijstItemMakerInput = ..MaakWerklijstItemMakerInput()
+	
 	Do ..InitMocks()
 
 	#dim WerklijstItems As APPS.Halux.PPS.Activiteit.dto.ProductieSequentieWerklijstItemList= WerklijstItemsMaker.MaakWerklijstItems(WerklijstItemMakerInput)
 
-	Do ..AssertTussenschotAanwezigInBoom(HalffabItemsBoom)
+	Do ..AssertTussenschotAanwezigInBoom(..HalffabItemsBoom)
 	Do ..AssertTussenschotNietInWerklijstItems(WerklijstItems)
 ]]></Implementation>
 </Method>
@@ -68,11 +69,18 @@
 <Private>1</Private>
 <ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</ReturnType>
 <Implementation><![CDATA[
-	#dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ..MaakIngegevenKenmerken(..Enum.VerpakkingType.LosseComponentenInBulk)
+	#dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ..Kenmerken // ..MaakIngegevenKenmerken(..Enum.VerpakkingType.LosseComponentenInBulk)
 	Set TAORKenmerken.ProductieWijze = ProductieWijze
 	Quit TAORKenmerken
 ]]></Implementation>
 </Method>
+
+<Method name="GeefVerpakkingType">
+<Private>1</Private>
+<ReturnType>DOM.PM.enu.TAORVerpakkingType</ReturnType>
+<Implementation><![CDATA[	Quit ..Enum.VerpakkingType.LosseComponentenInBulk
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/WerklijstItemsMaker/MaakWerklijstItems/TestV1.cls.xml
===================================================================
diff -u -r32642 -r37970
--- vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/WerklijstItemsMaker/MaakWerklijstItems/TestV1.cls.xml	(.../TestV1.cls.xml)	(revision 32642)
+++ vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/WerklijstItemsMaker/MaakWerklijstItems/TestV1.cls.xml	(.../TestV1.cls.xml)	(revision 37970)
@@ -6,10 +6,7 @@
 <Method name="Test: WerklijstItems bevatten 1 klantetiket voor VerpakkingType V1">
 <Implementation><![CDATA[
 	#dim WerklijstItemsMaker As APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.WerklijstItemsMaker = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.WerklijstItemsMaker).%New()
-	#dim Verpakking As DOM.PM.enu.TAORVerpakkingType = ..Enum.VerpakkingType.V1 
-	#dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ..MaakIngegevenKenmerken(Verpakking)
-	#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = ..GeefHalffabItemsBoom(TAORKenmerken, 1)
-	#dim WerklijstItemMakerInput As APPS.Halux.PPS.Activiteit.impl.common.WerklijstItemMakerInput = ..MaakWerklijstItemMakerInput(TAORKenmerken, HalffabItemsBoom)
+	#dim WerklijstItemMakerInput As APPS.Halux.PPS.Activiteit.impl.common.WerklijstItemMakerInput = ..MaakWerklijstItemMakerInput()
 	
 	Do ..InitMocks()
 	
@@ -22,6 +19,13 @@
 	Do $$$AssertEquals(WerklijstItem.InformatieID, "TAOR.KlantEtiket")
 ]]></Implementation>
 </Method>
+
+<Method name="GeefVerpakkingType">
+<Private>1</Private>
+<ReturnType>DOM.PM.enu.TAORVerpakkingType</ReturnType>
+<Implementation><![CDATA[	Quit ..Enum.VerpakkingType.V1
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/WerklijstItemsMaker/MaakWerklijstItems/TestBulkPOG.cls.xml
===================================================================
diff -u -r33418 -r37970
--- vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/WerklijstItemsMaker/MaakWerklijstItems/TestBulkPOG.cls.xml	(.../TestBulkPOG.cls.xml)	(revision 33418)
+++ vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/WerklijstItemsMaker/MaakWerklijstItems/TestBulkPOG.cls.xml	(.../TestBulkPOG.cls.xml)	(revision 37970)
@@ -6,14 +6,11 @@
 <Method name="TestWerklijstItemsVoorKartonSnijdenData">
 <Implementation><![CDATA[
 	#dim WerklijstItemsMaker As APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.WerklijstItemsMaker = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.WerklijstItemsMaker).%New()
-	#dim Verpakking As DOM.PM.enu.TAORVerpakkingType = ..Enum.VerpakkingType.BulkPerOnderdeelGegroepeerd
-	#dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ..MaakIngegevenKenmerken(Verpakking)
-	#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = ..GeefHalffabItemsBoom(TAORKenmerken, 1)
-	#dim WerklijstItemMakerInput As APPS.Halux.PPS.Activiteit.impl.common.WerklijstItemMakerInput = ..MaakWerklijstItemMakerInput(TAORKenmerken, HalffabItemsBoom)
+	#dim WerklijstItemMakerInput As APPS.Halux.PPS.Activiteit.impl.common.WerklijstItemMakerInput = ..MaakWerklijstItemMakerInput()
 	
 	// Assert dat Onderdelendoos(dozen) aanwezig zijn.  Hiervoor worden geen KartonSnijden-items aangemaakt 
-	Do $$$AssertFalse(HalffabItemsBoom.BevatRol("Verpakking->Onderdelendoos - Bodem"))
-	Do $$$AssertFalse(HalffabItemsBoom.BevatRol("Verpakking->Onderdelendoos - Deksel"))
+	Do $$$AssertFalse(..HalffabItemsBoom.BevatRol("Verpakking->Onderdelendoos - Bodem"))
+	Do $$$AssertFalse(..HalffabItemsBoom.BevatRol("Verpakking->Onderdelendoos - Deksel"))
 	
 	Do ..InitMocks()
 	
@@ -147,6 +144,13 @@
 	Quit KartonSpecificatie
 ]]></Implementation>
 </Method>
+
+<Method name="GeefVerpakkingType">
+<Private>1</Private>
+<ReturnType>DOM.PM.enu.TAORVerpakkingType</ReturnType>
+<Implementation><![CDATA[	Quit ..Enum.VerpakkingType.BulkPerOnderdeelGegroepeerd
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/WerklijstItemsMaker/MaakWerklijstItems/TestFlatpackV1.cls.xml
===================================================================
diff -u -r32726 -r37970
--- vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/WerklijstItemsMaker/MaakWerklijstItems/TestFlatpackV1.cls.xml	(.../TestFlatpackV1.cls.xml)	(revision 32726)
+++ vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/WerklijstItemsMaker/MaakWerklijstItems/TestFlatpackV1.cls.xml	(.../TestFlatpackV1.cls.xml)	(revision 37970)
@@ -6,10 +6,7 @@
 <Method name="Test: WerklijstItems bevatten 1 klantetiket voor VerpakkingType FlatpackV1">
 <Implementation><![CDATA[
 	#dim WerklijstItemsMaker As APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.WerklijstItemsMaker = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.WerklijstItemsMaker).%New()
-	#dim Verpakking As DOM.PM.enu.TAORVerpakkingType = ..Enum.VerpakkingType.FlatpackV1 
-	#dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ..MaakIngegevenKenmerken(Verpakking)
-	#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = ..GeefHalffabItemsBoom(TAORKenmerken, 1)
-	#dim WerklijstItemMakerInput As APPS.Halux.PPS.Activiteit.impl.common.WerklijstItemMakerInput = ..MaakWerklijstItemMakerInput(TAORKenmerken, HalffabItemsBoom)
+	#dim WerklijstItemMakerInput As APPS.Halux.PPS.Activiteit.impl.common.WerklijstItemMakerInput = ..MaakWerklijstItemMakerInput()
 	
 	Do ..InitMocks()
 	
@@ -22,6 +19,13 @@
 	Do $$$AssertEquals(WerklijstItem.InformatieID, "TAOR.KlantEtiket")
 ]]></Implementation>
 </Method>
+
+<Method name="GeefVerpakkingType">
+<Private>1</Private>
+<ReturnType>DOM.PM.enu.TAORVerpakkingType</ReturnType>
+<Implementation><![CDATA[	Quit ..Enum.VerpakkingType.FlatpackV1
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/WerklijstItemsMaker/MaakWerklijstItems/TestProbox.cls.xml
===================================================================
diff -u -r32774 -r37970
--- vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/WerklijstItemsMaker/MaakWerklijstItems/TestProbox.cls.xml	(.../TestProbox.cls.xml)	(revision 32774)
+++ vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/WerklijstItemsMaker/MaakWerklijstItems/TestProbox.cls.xml	(.../TestProbox.cls.xml)	(revision 37970)
@@ -6,10 +6,7 @@
 <Method name="Test: WerklijstItems bevatten 1 klantetiket voor VerpakkingType Probox">
 <Implementation><![CDATA[
 	#dim WerklijstItemsMaker As APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.WerklijstItemsMaker = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.WerklijstItemsMaker).%New()
-	#dim Verpakking As DOM.PM.enu.TAORVerpakkingType = ..Enum.VerpakkingType.Probox 
-	#dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ..MaakIngegevenKenmerken(Verpakking)
-	#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = ..GeefHalffabItemsBoom(TAORKenmerken, 1)
-	#dim WerklijstItemMakerInput As APPS.Halux.PPS.Activiteit.impl.common.WerklijstItemMakerInput = ..MaakWerklijstItemMakerInput(TAORKenmerken, HalffabItemsBoom)
+	#dim WerklijstItemMakerInput As APPS.Halux.PPS.Activiteit.impl.common.WerklijstItemMakerInput = ..MaakWerklijstItemMakerInput()
 	
 	Do ..InitMocks()
 	
@@ -22,6 +19,13 @@
 	Do $$$AssertEquals(WerklijstItem.InformatieID, "TAOR.KlantEtiket")
 ]]></Implementation>
 </Method>
+
+<Method name="GeefVerpakkingType">
+<Private>1</Private>
+<ReturnType>DOM.PM.enu.TAORVerpakkingType</ReturnType>
+<Implementation><![CDATA[	Quit ..Enum.VerpakkingType.Probox
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/WerklijstItemsMaker/MaakWerklijstItems/Base.cls.xml
===================================================================
diff -u -r32787 -r37970
--- vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/WerklijstItemsMaker/MaakWerklijstItems/Base.cls.xml	(.../Base.cls.xml)	(revision 32787)
+++ vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/WerklijstItemsMaker/MaakWerklijstItems/Base.cls.xml	(.../Base.cls.xml)	(revision 37970)
@@ -24,6 +24,11 @@
 <Default>UT_Orderlijn</Default>
 </Parameter>
 
+<Parameter name="DummyBatchId">
+<Type>%String</Type>
+<Default>DummyBatchId</Default>
+</Parameter>
+
 <Parameter name="PartijID">
 <Type>%String</Type>
 <Default>K||1000</Default>
@@ -38,11 +43,32 @@
 <Private>1</Private>
 </Property>
 
+<Property name="Kenmerken">
+<Type>DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="HalffabItemsBoom">
+<Type>DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="OnBeforeOneTest">
 <FormalSpec>aTestName:%String</FormalSpec>
 <Implementation><![CDATA[
 	Do ##super(aTestName)
+	
+	Set ..Kenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardBinnenladeVerpaktIn(..GeefVerpakkingType())
+	Set ..HalffabItemsBoom = ..GeefHalffabItemsBoom(..Kenmerken)
 	Set ..ProductStub = ##class(vhTest.Mock.DOM.PM.MaatwerkProduct).%New()
+	
+	Do ..ProductStub.IndienMethodCall("GeefIngegevenKenmerken").DanReturn(..Kenmerken)
+	Do ..ProductStub.IndienMethodCall("GeefHalffabItemsBoom", "").DanReturn(..HalffabItemsBoom)
+	Do ..ProductStub.IndienMethodCall("GeefID").DanReturn(..#DummyProductID)
+	Do ..ProductStub.IndienMethodCall("GeefIdentNr").DanReturn($$$DummyString)
+	Do ..ProductStub.IndienMethodCall("GeefGewichtInGram").DanReturn($$$DummyInteger)
+	Do ..ProductStub.IndienMethodCall("GeefDossierCode").DanReturn($$$DummyString)
+	
 	Do ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.KlantEtiketIoCContainer).Instance().Register("HoutCertificaatService",##class(vhTest.Fake.DOM.PM.HoutCertificaatService).%New())
 ]]></Implementation>
 </Method>
@@ -58,78 +84,68 @@
 <Method name="InitMocks">
 <Private>1</Private>
 <Implementation><![CDATA[
-	#dim ProductTypeAPIStub As vhTest.Mock.DOM.PM.ProductTypeAPI = ##class(vhTest.Mock.DOM.PM.ProductTypeAPI).MockInstance()
-		Do ..ProductStub.IndienMethodCall("GeefDossierCode").DanReturn("Dummy-DOSSIER-Code")
-	Do ProductTypeAPIStub.IndienMethodCall("GeefMaatwerkProduct", ..#DummyProductID).DanReturn(..ProductStub)
+	#dim OrderStub As vhTest.Mock.DOM.VKP.Order = ##class(vhTest.Mock.DOM.VKP.Order).%New()
+	Do OrderStub.IndienMethodCall("GeefOrderLijnViaVolgnummer", ..#DummyOrderlijnVolgnummer).DanReturn(..#DummyToeleveringLijnID)
+	Do OrderStub.IndienMethodCall("GeefVerzendingWijze").DanReturn($$$DummyString)
+	Do OrderStub.IndienMethodCall("GeefOorsprong").DanReturn($$$DummyString)
 	
-	#dim ToeleveringAPIStub As vhTest.Mock.DOM.AKP.ToeleveringAPI = ##class(vhTest.Mock.DOM.AKP.ToeleveringAPI).MockInstance()
-		#dim ToeleveringLijnMock As DOM.AKP.ProductToeleveringLijn = ##class(vhTest.Mock.DOM.AKP.ProductToeleveringLijn).%New()
-		Do ToeleveringLijnMock.IndienMethodCall("GeefLeverdag").DanReturn(##class(vhTest.Fake.TECH.DateTime.DateTimeAPI).%New().CurrentDate())
-		Do ToeleveringLijnMock.IndienMethodCall("GeefAantal").DanReturn(1)
-		Do ToeleveringLijnMock.IndienMethodCall("GeefOrderID").DanReturn(..#DummyOrderID)
-		Do ToeleveringLijnMock.IndienMethodCall("GeefOrderLijnVolgnummer").DanReturn(..#DummyOrderlijnVolgnummer)
-	Do ToeleveringAPIStub.IndienMethodCall("GeefToeleveringLijn",..#DummyToeleveringID,..#DummyToeleveringLijnID).DanReturn(ToeleveringLijnMock)
-		Set ToeleveringMock = ##class(vhTest.Mock.DOM.AKP.Toelevering).%New()
-		Do ToeleveringMock.IndienMethodCall("GeefOrderID").DanReturn(..#DummyOrderID)
-	Do ToeleveringAPIStub.IndienMethodCall("GeefToelevering", ..#DummyToeleveringID).DanReturn(ToeleveringMock)
+	#dim OrderApiStub As vhTest.Mock.DOM.VKP.OrderAPI = ##class(vhTest.Mock.DOM.VKP.OrderAPI).MockInstance()
+	Do OrderApiStub.IndienMethodCall("GeefOrder",..#DummyOrderID).DanReturn(OrderStub)
 	
+	#dim ToeleveringStub As vhTest.Mock.DOM.AKP.Toelevering= ##class(vhTest.Mock.DOM.AKP.Toelevering).%New()
+	Do ToeleveringStub.IndienMethodCall("GeefOrderID").DanReturn(..#DummyOrderID)
 	
-	#dim ProductAPIStub As vhTest.Mock.DOM.PM.ProductTypeAPI = ##class(vhTest.Mock.DOM.PM.ProductAPI).MockInstance()
+	#dim ToeleveringLijnStub As vhTest.Mock.DOM.AKP.ProductToeleveringLijn = ##class(vhTest.Mock.DOM.AKP.ProductToeleveringLijn).%New()
+	Do ToeleveringLijnStub.IndienMethodCall("GeefLeverdag").DanReturn($$$DummyDate)
+	Do ToeleveringLijnStub.IndienMethodCall("GeefOrderID").DanReturn(..#DummyOrderID)
+	Do ToeleveringLijnStub.IndienMethodCall("GeefOrderLijnVolgnummer").DanReturn(..#DummyOrderlijnVolgnummer)
 	
-	#dim ProductieAPIStub As vhTest.Mock.APPS.Halux.ProductieAPI = ##class(vhTest.Mock.APPS.Halux.ProductieAPI).MockInstance()
-		Set BatchServiceStub = ##class(vhTest.Fake.APPS.Halux.common.BatchService).%New()
-	Do ProductieAPIStub.IndienMethodCall("GeefBatchService").DanReturn(BatchServiceStub)
-	Do ProductieAPIStub.IndienMethodCall("GeefUitvoeringInfoInvuller").DanReturn(##class(APPS.Halux.PPS.impl.UitvoeringInfoInvuller).%New())
+	#dim ToeleveringApiStub As vhTest.Mock.DOM.AKP.ToeleveringAPI = ##class(vhTest.Mock.DOM.AKP.ToeleveringAPI).MockInstance()
+	Do ToeleveringApiStub.IndienMethodCall("GeefToeleveringLijn", ..#DummyToeleveringID, ..#DummyToeleveringLijnID).DanReturn(ToeleveringLijnStub)
+	Do ToeleveringApiStub.IndienMethodCall("GeefToelevering", ..#DummyToeleveringID).DanReturn(ToeleveringStub)
 	
-	#dim OrderAPIStub As vhTest.Mock.DOM.VKP.OrderAPI = ##class(vhTest.Mock.DOM.VKP.OrderAPI).MockInstance()
-		Set OrderMock = ##class(vhTest.Mock.DOM.VKP.Order).%New()
-		Do OrderMock.IndienMethodCall("GeefOrderLijnViaVolgnummer", ..#DummyOrderlijnVolgnummer).DanReturn(..#DummyToeleveringLijnID)
-		Do OrderMock.IndienMethodCall("GeefVerzendingWijze").DanReturn("DI")
-		Do OrderMock.IndienMethodCall("GeefOorsprong").DanReturn($$$DummyString)
-	Do OrderAPIStub.IndienMethodCall("GeefOrder",..#DummyOrderID).DanReturn(OrderMock)
+	#dim ProductTypeApiStub As vhTest.Mock.DOM.PM.ProductTypeAPI = ##class(vhTest.Mock.DOM.PM.ProductTypeAPI).MockInstance()
+	Do ProductTypeApiStub.IndienMethodCall("GeefMaatwerkProduct", ..#DummyProductID).DanReturn(..ProductStub)
+	
+	#dim BatchStub As vhTest.Mock.APPS.Halux.common.TaorboxBatch = ##class(vhTest.Mock.APPS.Halux.common.TaorboxBatch).%New()
+	Do BatchStub.IndienMethodCall("GeefVroegsteDueOut").DanReturn($$$DummyDate)
+	
+	#dim BatchServiceStub As vhTest.Mock.APPS.Halux.common.BatchService = ##class(vhTest.Mock.APPS.Halux.common.BatchService).%New()
+	Do BatchServiceStub.IndienMethodCall("GeefBatch", ..#DummyBatchId).DanReturn(BatchStub)
+	
+	#dim LadeDummy As DOM.PM.Maatwerk.LadeInfo.Lade = ##class(DOM.PM.Maatwerk.LadeInfo.impl.TAX.Lade).%New(..HalffabItemsBoom, ..Kenmerken)
+	#dim ProductieAansturingServiceStub As vhTest.Mock.APPS.Halux.common.impl.ProductieAansturingService = ##class(vhTest.Mock.APPS.Halux.common.impl.ProductieAansturingService).%New()
+	Do ProductieAansturingServiceStub.IndienMethodCall("GeefLade", ..#DummyBatchId, ..#DummyProductID).DanReturn(LadeDummy)
+	
+	#dim ProductieApiStub As vhTest.Mock.APPS.Halux.ProductieAPI = ##class(vhTest.Mock.APPS.Halux.ProductieAPI).MockInstance()
+	Do ProductieApiStub.IndienMethodCall("GeefBatchService").DanReturn(BatchServiceStub)
+	Do ProductieApiStub.IndienMethodCall("GeefProductieAansturingService").DanReturn(ProductieAansturingServiceStub)
 ]]></Implementation>
 </Method>
 
-<Method name="GeefWerklijstItemMakerInput">
-<FormalSpec>Verpakking:DOM.PM.enu.TAORVerpakkingType,Aantal:%String=1</FormalSpec>
+<Method name="GeefVerpakkingType">
+<Abstract>1</Abstract>
 <Private>1</Private>
-<ReturnType>APPS.Halux.PPS.Activiteit.impl.common.WerklijstItemMakerInput</ReturnType>
-<Implementation><![CDATA[
-	#dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ..MaakIngegevenKenmerken(Verpakking)
-	#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = ..GeefHalffabItemsBoom(TAORKenmerken, Aantal)
-	Quit ..MaakWerklijstItemMakerInput(TAORKenmerken,HalffabItemsBoom)
-]]></Implementation>
+<ReturnType>DOM.PM.enu.TAORVerpakkingType</ReturnType>
 </Method>
 
-<Method name="MaakIngegevenKenmerken">
-<FormalSpec>Verpakking:DOM.PM.enu.TAORVerpakkingType</FormalSpec>
-<Private>1</Private>
-<ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</ReturnType>
-<Implementation><![CDATA[
-	#dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardBinnenladeVerpaktIn(Verpakking)
-	Do ..ProductStub.IndienMethodCall("GeefIngegevenKenmerken").DanReturn(TAORKenmerken)
-	Do ..ProductStub.IndienMethodCall("GeefHalffabItemsBoom", "").DanReturn(..GeefHalffabItemsBoom(TAORKenmerken))
-	Do ..ProductStub.IndienMethodCall("GeefID").DanReturn(..#DummyProductID)
-	Do ..ProductStub.IndienMethodCall("GeefIdentNr").DanReturn($$$DummyString)
-	Quit TAORKenmerken
-]]></Implementation>
-</Method>
-
 <Method name="MaakWerklijstItemMakerInput">
-<FormalSpec>TAORKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom</FormalSpec>
 <Private>1</Private>
 <ReturnType>APPS.Halux.PPS.Activiteit.impl.common.WerklijstItemMakerInput</ReturnType>
 <Implementation><![CDATA[
-	Set Activiteit = ##class(vhTest.Dummy.APPS.Halux.PPS.Activiteit.Activiteit).%New()
-	Set ProductieSequentieItem = ##class(vhTest.Mock.APPS.Halux.common.ProductieSequentieItem).%New()
+	#dim ActiviteitDummy As APPS.Halux.PPS.Activiteit.Activiteit = ##class(vhTest.Dummy.APPS.Halux.PPS.Activiteit.Activiteit).%New()
+	#dim ProductieSequentieItem As vhTest.Mock.APPS.Halux.common.ProductieSequentieItem = ##class(vhTest.Mock.APPS.Halux.common.ProductieSequentieItem).%New()
+	
 	Set ProductieSequentieItem.ProductID = ..#DummyProductID
 	Set ProductieSequentieItem.ToeleveringID = ..#DummyToeleveringID
 	Set ProductieSequentieItem.PartijID = ..#PartijID
-	Do ProductieSequentieItem.IndienMethodCall("GeefIngegevenKenmerken").DanReturn(TAORKenmerken)
-	Do ProductieSequentieItem.IndienMethodCall("GeefHalffabItemsBoom").DanReturn(HalffabItemsBoom)
+	Set ProductieSequentieItem.BatchID = ..#DummyBatchId
+	
+	Do ProductieSequentieItem.IndienMethodCall("GeefIngegevenKenmerken").DanReturn(..Kenmerken)
+	Do ProductieSequentieItem.IndienMethodCall("GeefHalffabItemsBoom").DanReturn(..HalffabItemsBoom)
 	Do ProductieSequentieItem.IndienMethodCall("GeefProductieLijn").DanReturn(##class(APPS.Halux.common.enu.ProductieLijn).Een())
-	Set WerklijstItemMakerInput = ##class(APPS.Halux.PPS.Activiteit.impl.common.WerklijstItemMakerInput).%New(Activiteit,ProductieSequentieItem)
-	Quit WerklijstItemMakerInput
+	
+	Quit ##class(APPS.Halux.PPS.Activiteit.impl.common.WerklijstItemMakerInput).%New(ActiviteitDummy, ProductieSequentieItem)
 ]]></Implementation>
 </Method>
 </Class>