Index: APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/KartonSnijdenDataAanvuller.cls.xml
===================================================================
diff -u -r30241 -r30553
--- APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/KartonSnijdenDataAanvuller.cls.xml	(.../KartonSnijdenDataAanvuller.cls.xml)	(revision 30241)
+++ APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/KartonSnijdenDataAanvuller.cls.xml	(.../KartonSnijdenDataAanvuller.cls.xml)	(revision 30553)
@@ -24,26 +24,25 @@
 <FormalSpec><![CDATA[&UitvoeringInfo:APPS.Halux.PPS.Activiteit.impl.common.dto.KartonSnijdenUitvoeringInfo,WerklijstItemMakerInput:APPS.Halux.PPS.Activiteit.impl.common.WerklijstItemMakerInput]]></FormalSpec>
 <Implementation><![CDATA[
 	#define AantalZijkantPlaten 2
-	;w !,"**"_..KartonVerpakking_" "_..KartonVerpakking.GeefRol()
 	Set UitvoeringInfo.KartonSnijdenData.Breedte = ..KartonVerpakking.Volume.Breedte
 	Set UitvoeringInfo.KartonSnijdenData.Hoogte = ..KartonVerpakking.Volume.Hoogte
 	Set UitvoeringInfo.KartonSnijdenData.Diepte = ..KartonVerpakking.Volume.Diepte
 	
-	;Do ..VulInUitvoeringInfo(UitvoeringInfo,"V1 Doos met deksel")
+	Do ..VulInUitvoeringInfo(UitvoeringInfo,"V1 Doos met deksel")
 ]]></Implementation>
 </Method>
 
 <Method name="VulInUitvoeringInfo">
 <FormalSpec>UitvoeringInfo:APPS.Halux.PPS.Activiteit.impl.common.dto.KartonSnijdenUitvoeringInfo,DoosNaam:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	Set UitvoeringInfo.DoosGroep = "TAORBOX"
-	Set UitvoeringInfo.DoosNaam = DoosNaam
-	Set UitvoeringInfo.MachineID = ##class(BL.Prod.OptiBox.enu.SnijMachine).Taor()			// Default machine ID, wordt ingevuld afhankelijk van ladepers of werkpost
-	Set UitvoeringInfo.SnijPrioriteit = 4
-	Set UitvoeringInfo.AantalDozen = 1
-	Set UitvoeringInfo.SnijStatus = ##class(APPS.Halux.PPS.Verpakking.enu.KartonMachineStatus).Wachtend()
-	Set UitvoeringInfo.WerklijstItemID = 0
+	Set UitvoeringInfo.KartonSnijdenData.DoosGroep = "TAORBOX"
+	Set UitvoeringInfo.KartonSnijdenData.DoosNaam = DoosNaam
+	Set UitvoeringInfo.KartonSnijdenData.MachineID = ##class(APPS.Halux.PPS.Verpakking.enu.KartonMachineID).TAOR()
+	;Set UitvoeringInfo.KartonSnijdenData.SnijPrioriteit = 4
+	Set UitvoeringInfo.KartonSnijdenData.AantalDozen = ..KartonVerpakking.GeefAantalVerpakkingen()
+	Set UitvoeringInfo.KartonSnijdenData.SnijStatus = ##class(APPS.Halux.PPS.Verpakking.enu.KartonMachineStatus).Wachtend()
+	;Set UitvoeringInfo.WerklijstItemID = 0
 ]]></Implementation>
 </Method>
 </Class>
Index: vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/WerklijstItemsMaker/MaakWerklijstItems/TestLosseComponenten.cls.xml
===================================================================
diff -u -r30247 -r30553
--- vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/WerklijstItemsMaker/MaakWerklijstItems/TestLosseComponenten.cls.xml	(.../TestLosseComponenten.cls.xml)	(revision 30247)
+++ vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/WerklijstItemsMaker/MaakWerklijstItems/TestLosseComponenten.cls.xml	(.../TestLosseComponenten.cls.xml)	(revision 30553)
@@ -23,7 +23,6 @@
 	#dim WerklijstItems As APPS.Halux.PPS.Activiteit.dto.ProductieSequentieWerklijstItemList= WerklijstItemsMaker.MaakWerklijstItems(WerklijstItemMakerInput)
 	
 	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))
@@ -32,9 +31,24 @@
 	Do ..AssertKartonRug(WerklijstItems.GetAt(3).UitvoeringInfo)
 	Do ..AssertKartonZijkant(WerklijstItems.GetAt(4).UitvoeringInfo, "Zijkant Links")
 	Do ..AssertKartonZijkant(WerklijstItems.GetAt(5).UitvoeringInfo, "Zijkant Rechts")
+	
+	Do ..AssertInformatieIDs(WerklijstItems)
 ]]></Implementation>
 </Method>
 
+<Method name="AssertInformatieIDs">
+<FormalSpec>WerklijstItems:APPS.Halux.PPS.Activiteit.dto.ProductieSequentieWerklijstItemList</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set Iterator = ##class(TECH.ListIterator).%New(WerklijstItems)
+	While (Iterator.HasNext()) {
+		#dim WerklijstItem As APPS.Halux.PPS.Activiteit.dto.ProductieSequentieWerklijstItem = Iterator.Next()
+		Do $$$AssertEquals(WerklijstItem.InformatieID,"TAOR.Verpakking.KartonSnijden")
+		Do $$$AssertEquals(WerklijstItem.Volgnummer,"")
+	}
+]]></Implementation>
+</Method>
+
 <Method name="AssertKartonBodem">
 <FormalSpec>KartonUI:APPS.Halux.PPS.Activiteit.impl.common.dto.KartonSnijdenUitvoeringInfo</FormalSpec>
 <Private>1</Private>
@@ -59,22 +73,33 @@
 <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><![CDATA[	Do ..AssertKartonUI(KartonUI,495,174.5,148, 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>
 <Private>1</Private>
 <Implementation><![CDATA[
-	;d $system.OBJ.Dump()
-	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)
+	#dim VerwachteAantalDozen As %Integer = 1
+	#dim VerwachteMachineID As %String = ##class(APPS.Halux.PPS.Verpakking.enu.KartonMachineID).TAOR()
+	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.Breedte, VerwachteBreedte, AssertOmschrijving)
+			Do $$$AssertEquals(KartonSnijdenData.Diepte, VerwachteDiepte, AssertOmschrijving)
+			Do $$$AssertEquals(KartonSnijdenData.Hoogte, VerwachteHoogte, AssertOmschrijving)
+
+			Do $$$AssertEquals(KartonSnijdenData.AantalDozen, VerwachteAantalDozen, AssertOmschrijving)
+			Do $$$AssertEquals(KartonSnijdenData.DoosGroep, "TAORBOX", AssertOmschrijving)
+			Do $$$AssertEquals(KartonSnijdenData.DoosNaam, "", AssertOmschrijving)
+			Do $$$AssertEquals(KartonSnijdenData.MachineID, VerwachteMachineID,AssertOmschrijving)
+
+			;Do $$$AssertEquals(KartonUI.KartonSnijdenData.OmschrijvingInWerkpostApplicatie, "KORTTEKST COMPONENTTYPE", AssertOmschrijving)
+			;Do $$$AssertEquals(KartonUI.KartonSnijdenData.BoxSelect, "BOTTOM LID...", AssertOmschrijving)
+		}
+	}
 ]]></Implementation>
 </Method>