Index: vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/WerklijstItemsMaker/MaakWerklijstItems/TestLosseComponenten.cls.xml
===================================================================
diff -u -r30646 -r30647
--- vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/WerklijstItemsMaker/MaakWerklijstItems/TestLosseComponenten.cls.xml	(.../TestLosseComponenten.cls.xml)	(revision 30646)
+++ vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/WerklijstItemsMaker/MaakWerklijstItems/TestLosseComponenten.cls.xml	(.../TestLosseComponenten.cls.xml)	(revision 30647)
@@ -44,33 +44,41 @@
 <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><![CDATA[
+	#dim VerwachteKartonSpecificatie As DOM.PM.Verpakking.dto.KartonSpecificatieBase = ..MaakBodemDoosKartonSpecificatie(480,569,83)
+	Do ..AssertKartonUI(KartonUI,VerwachteKartonSpecificatie, "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><![CDATA[
+	#dim VerwachteKartonSpecificatie As DOM.PM.Verpakking.dto.KartonSpecificatieBase = ..MaakBodemDoosKartonSpecificatie(590,490,195.5)
+	Do ..AssertKartonUI(KartonUI,VerwachteKartonSpecificatie, "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><![CDATA[
+	#dim VerwachteKartonSpecificatie As DOM.PM.Verpakking.dto.KartonSpecificatieBase = ..MaakBodemDoosKartonSpecificatie(569,334,81)
+	Do ..AssertKartonUI(KartonUI,VerwachteKartonSpecificatie, "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)
+<Implementation><![CDATA[
+	#dim VerwachteKartonSpecificatie As DOM.PM.Verpakking.dto.KartonSpecificatieBase = ..MaakBodemDoosKartonSpecificatie(495,174.5,148)
+	Do ..AssertKartonUI(KartonUI,VerwachteKartonSpecificatie, AssertOmschrijving)
 ]]></Implementation>
 </Method>
 
 <Method name="AssertKartonUI">
-<FormalSpec>KartonUI:APPS.Halux.PPS.Activiteit.impl.common.dto.KartonSnijdenUitvoeringInfo,VerwachteBreedte:%Numeric,VerwachteDiepte:%Numeric,VerwachteHoogte:%Numeric,AssertOmschrijving:%String</FormalSpec>
+<FormalSpec>KartonUI:APPS.Halux.PPS.Activiteit.impl.common.dto.KartonSnijdenUitvoeringInfo,VerwachteKartonSpecificatie:DOM.PM.Verpakking.dto.KartonSpecificatieBase,AssertOmschrijving:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	#dim VerwachteAantalDozen As %Integer = 1
@@ -83,11 +91,8 @@
 	If $$$AssertTrue(KartonUI.%Extends(##class(APPS.Halux.PPS.Activiteit.impl.common.dto.KartonSnijdenUitvoeringInfo).%ClassName($$$True))) {
 		#dim KartonSnijdenData As APPS.Halux.PPS.Activiteit.impl.common.dto.KartonSnijdenData = KartonUI.KartonSnijdenData
 		If $$$AssertTrue($IsObject(KartonSnijdenData)) {
-			;d $system.OBJ.Dump(KartonSnijdenData)
-			Do $$$AssertEquals(KartonSnijdenData.KartonSpecificatie.Volume.Breedte, VerwachteBreedte, AssertOmschrijving)
-			Do $$$AssertEquals(KartonSnijdenData.KartonSpecificatie.Volume.Diepte, VerwachteDiepte, AssertOmschrijving)
-			Do $$$AssertEquals(KartonSnijdenData.KartonSpecificatie.Volume.Hoogte, VerwachteHoogte, AssertOmschrijving)
 
+			Do ..AssertKartonSpecificatie(KartonSnijdenData.KartonSpecificatie, VerwachteKartonSpecificatie, AssertOmschrijving)
 			Do $$$AssertEquals(KartonSnijdenData.ProductID, VerwachteProductID,AssertOmschrijving)
 			Do $$$AssertEquals(KartonSnijdenData.ToeleveringID, VerwachteToeleveringID,AssertOmschrijving)
 			
@@ -104,6 +109,18 @@
 ]]></Implementation>
 </Method>
 
+<Method name="AssertKartonSpecificatie">
+<FormalSpec>ResultKartonSpecificatie:DOM.PM.Verpakking.dto.KartonSpecificatieBase,VerwachteKartonSpecificatie:DOM.PM.Verpakking.dto.KartonSpecificatieBase,AssertOmschrijving:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do $$$AssertEquals(ResultKartonSpecificatie.BenamingVerpakkingsOnderdeel,  VerwachteKartonSpecificatie.BenamingVerpakkingsOnderdeel, AssertOmschrijving)
+	Do $$$AssertEquals(ResultKartonSpecificatie.KartonSamenstelling, VerwachteKartonSpecificatie.KartonSamenstelling, AssertOmschrijving)
+	Do $$$AssertObject(ResultKartonSpecificatie.Volume, VerwachteKartonSpecificatie.Volume)
+	Do $$$AssertEquals(ResultKartonSpecificatie.NodigeLengte,"", AssertOmschrijving)
+	Do $$$AssertEquals(ResultKartonSpecificatie.NodigeBreedte,"", AssertOmschrijving)
+]]></Implementation>
+</Method>
+
 <Method name="AssertInformatieIDs">
 <FormalSpec>WerklijstItems:APPS.Halux.PPS.Activiteit.dto.ProductieSequentieWerklijstItemList</FormalSpec>
 <Private>1</Private>
@@ -117,6 +134,26 @@
 ]]></Implementation>
 </Method>
 
+<Method name="MaakBodemDoosKartonSpecificatie">
+<FormalSpec>Breedte:%Numeric,Diepte:%Numeric,Hoogte:%Numeric</FormalSpec>
+<Private>1</Private>
+<ReturnType>DOM.PM.Verpakking.dto.KartonSpecificatieBase</ReturnType>
+<Implementation><![CDATA[
+	#dim BenamingVerpakkingsOnderdeel As DOM.PM.Verpakking.enu.BenamingVerpakkingsOnderdeel = ##class(DOM.PM.Verpakking.enu.BenamingVerpakkingsOnderdeel).Bodem()
+	#dim KartonSamenstelling As DOM.PM.Verpakking.enu.KartonSamenstelling = ##class(DOM.PM.Verpakking.enu.KartonSamenstelling).Dun()
+	
+	Set KartonSpecificatie = ##class(DOM.PM.Verpakking.dto.KartonSpecificatieSerial).%New()
+	Set KartonSpecificatie.BenamingVerpakkingsOnderdeel = BenamingVerpakkingsOnderdeel
+	Set KartonSpecificatie.KartonSamenstelling = KartonSamenstelling
+	Set KartonSpecificatie.Volume.Breedte = Breedte
+	Set KartonSpecificatie.Volume.Diepte = Diepte
+	Set KartonSpecificatie.Volume.Hoogte = Hoogte
+	Set KartonSpecificatie.NodigeLengte=""    ; Niet van toepassing 
+	Set KartonSpecificatie.NodigeBreedte=""   ; Niet van toepassing 
+	Quit KartonSpecificatie
+]]></Implementation>
+</Method>
+
 <Method name="InitMocks">
 <Private>1</Private>
 <Implementation><![CDATA[