Index: vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/WerklijstItemsMaker/MaakWerklijstItems/TestLosseComponenten.cls.xml
===================================================================
diff -u -r30242 -r30247
--- vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/WerklijstItemsMaker/MaakWerklijstItems/TestLosseComponenten.cls.xml	(.../TestLosseComponenten.cls.xml)	(revision 30242)
+++ vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/WerklijstItemsMaker/MaakWerklijstItems/TestLosseComponenten.cls.xml	(.../TestLosseComponenten.cls.xml)	(revision 30247)
@@ -15,29 +15,71 @@
 <Implementation><![CDATA[
 	Set WerklijstItemsMaker = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.WerklijstItemsMaker).%New()
 	#dim Verpakking As DOM.PM.enu.TAORVerpakkingType = ..Enum.VerpakkingType.BulkPerOnderdeelGegroepeerd   ; LosseComponentenInBulk
-	#dim Aantal As %Integer = 50
+	#dim Aantal As %Integer = 10
 	#dim WerklijstItemMakerInput As APPS.Halux.PPS.Activiteit.impl.common.WerklijstItemMakerInput = ..GeefWerklijstItemMakerInput(Verpakking,Aantal)
 	
 	Do ..InitMocks()
 
 	#dim WerklijstItems As APPS.Halux.PPS.Activiteit.dto.ProductieSequentieWerklijstItemList= WerklijstItemsMaker.MaakWerklijstItems(WerklijstItemMakerInput)
 	
-	Do $$$AssertEquals(WerklijstItems.Count(),20,"Totaal van 43 karton + 20 etiketten")
+	Do $$$AssertEquals(WerklijstItems.Count(),5,"Totaal van 43 karton + 20 etiketten")
 	;Do assert 1 tem 5 D b h
 		
 	;write !, WerklijstItems.GetAt(1),!
 	;d $system.OBJ.Dump(WerklijstItems.GetAt(1))
-	#dim KartonUI As APPS.Halux.PPS.Activiteit.impl.common.dto.KartonSnijdenUitvoeringInfo = WerklijstItems.GetAt(1).UitvoeringInfo
+	Do ..AssertKartonBodem(WerklijstItems.GetAt(1).UitvoeringInfo)
+	Do ..AssertKartonFront(WerklijstItems.GetAt(2).UitvoeringInfo)
+	Do ..AssertKartonRug(WerklijstItems.GetAt(3).UitvoeringInfo)
+	Do ..AssertKartonZijkant(WerklijstItems.GetAt(4).UitvoeringInfo, "Zijkant Links")
+	Do ..AssertKartonZijkant(WerklijstItems.GetAt(5).UitvoeringInfo, "Zijkant Rechts")
+]]></Implementation>
+</Method>
+
+<Method name="AssertKartonBodem">
+<FormalSpec>KartonUI:APPS.Halux.PPS.Activiteit.impl.common.dto.KartonSnijdenUitvoeringInfo</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[	Do ..AssertKartonUI(KartonUI,480,569,83, "Bodem")
+]]></Implementation>
+</Method>
+
+<Method name="AssertKartonFront">
+<FormalSpec>KartonUI:APPS.Halux.PPS.Activiteit.impl.common.dto.KartonSnijdenUitvoeringInfo</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[	Do ..AssertKartonUI(KartonUI,590,490,195.5, "Front")
+]]></Implementation>
+</Method>
+
+<Method name="AssertKartonRug">
+<FormalSpec>KartonUI:APPS.Halux.PPS.Activiteit.impl.common.dto.KartonSnijdenUitvoeringInfo</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[	Do ..AssertKartonUI(KartonUI,569,334,81, "Rug")
+]]></Implementation>
+</Method>
+
+<Method name="AssertKartonZijkant">
+<FormalSpec>KartonUI:APPS.Halux.PPS.Activiteit.impl.common.dto.KartonSnijdenUitvoeringInfo,AssertOmschrijving:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do ..AssertKartonUI(KartonUI,495,174.5,148, AssertOmschrijving)
+	;Do $$$AssertEquals(KartonUI.KartonSnijdenData.DoosNaam,"?")
+]]></Implementation>
+</Method>
+
+<Method name="AssertKartonUI">
+<FormalSpec>KartonUI:APPS.Halux.PPS.Activiteit.impl.common.dto.KartonSnijdenUitvoeringInfo,VerwachteBreedte:%Numeric,VerwachteDiepte:%Numeric,VerwachteHoogte:%Numeric,AssertOmschrijving:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
 	;d $system.OBJ.Dump()
-	Do $$$AssertEquals(KartonUI.KartonSnijdenData.Breedte, "480")
-	Do $$$AssertEquals(KartonUI.KartonSnijdenData.Diepte, "569")
-	Do $$$AssertEquals(KartonUI.KartonSnijdenData.Hoogte, "83")
-	;Do $$$AssertEquals(KartonUI.KartonSnijdenData.OmschrijvingInWerkpostApplicatie, "KORTTEKST COMPONENTTYPE")
-	;Do $$$AssertEquals(KartonUI.KartonSnijdenData.BoxSelect, "BOTTOM LID...")
+	Do $$$AssertEquals(KartonUI.KartonSnijdenData.Breedte, VerwachteBreedte, AssertOmschrijving)
+	Do $$$AssertEquals(KartonUI.KartonSnijdenData.Diepte, VerwachteDiepte, AssertOmschrijving)
+	Do $$$AssertEquals(KartonUI.KartonSnijdenData.Hoogte, VerwachteHoogte, AssertOmschrijving)
+	;Do $$$AssertEquals(KartonUI.KartonSnijdenData.OmschrijvingInWerkpostApplicatie, "KORTTEKST COMPONENTTYPE", AssertOmschrijving)
+	;Do $$$AssertEquals(KartonUI.KartonSnijdenData.BoxSelect, "BOTTOM LID...", AssertOmschrijving)
 ]]></Implementation>
 </Method>
 
 <Method name="InitMocks">
+<Private>1</Private>
 <Implementation><![CDATA[
 	#dim ProductTypeAPIStub As vhTest.Mock.DOM.PM.ProductTypeAPI = ##class(vhTest.Mock.DOM.PM.ProductTypeAPI).MockInstance()
 		Set ProductStub = ##class(vhTest.Mock.DOM.PM.MaatwerkProduct).%New()
@@ -60,7 +102,7 @@
 <Private>1</Private>
 <ReturnType>APPS.Halux.PPS.Activiteit.impl.common.WerklijstItemMakerInput</ReturnType>
 <Implementation><![CDATA[
-	#dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardLadeVerpaktIn(Verpakking)
+	#dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardBinnenladeVerpaktIn(Verpakking)
 	#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = ..GeefHalffabItemsBoom(TAORKenmerken, Aantal)
 
 	Set Activiteit = ##class(vhTest.Dummy.APPS.Halux.PPS.Activiteit.Activiteit).%New()