Index: vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/WerklijstItemsMaker/MaakWerklijstItems/TestBulkPOG.cls.xml
===================================================================
diff -u -r30920 -r30921
--- vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/WerklijstItemsMaker/MaakWerklijstItems/TestBulkPOG.cls.xml	(.../TestBulkPOG.cls.xml)	(revision 30920)
+++ vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/WerklijstItemsMaker/MaakWerklijstItems/TestBulkPOG.cls.xml	(.../TestBulkPOG.cls.xml)	(revision 30921)
@@ -7,29 +7,27 @@
 <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 = 10
 	
 	#dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ..MaakIngegevenKenmerken(Verpakking)
-	#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = ..GeefHalffabItemsBoom(TAORKenmerken, Aantal)
+	#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)
 	
 	// Assert dat Onderdelendoos(dozen) aanwezig zijn.  Hiervoor worden geen KartonSnijden-items aangemaakt 
-	Do $$$AssertTrue(HalffabItemsBoom.BevatRol("Verpakking->Onderdelendoos - Bodem"))
-	Do $$$AssertTrue(HalffabItemsBoom.BevatRol("Verpakking->Onderdelendoos - Deksel"))
+	Do $$$AssertFalse(HalffabItemsBoom.BevatRol("Verpakking->Onderdelendoos - Bodem"))
+	Do $$$AssertFalse(HalffabItemsBoom.BevatRol("Verpakking->Onderdelendoos - Deksel"))
 	
 	Do ..InitMocks()
 
 	#dim WerklijstItems As APPS.Halux.PPS.Activiteit.dto.ProductieSequentieWerklijstItemList= WerklijstItemsMaker.MaakWerklijstItems(WerklijstItemMakerInput)
 	
-	Do $$$AssertEquals(WerklijstItems.Count(),15,"(Totaal van 43 karton + 20 etiketten) en 1 keer voor KartonSnijden, PalletInhoudblad en voor de klantetiketten")
-		
-	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")
-	
-	Do ..AssertInformatieIDs(WerklijstItems)
+	if $$$AssertEquals(WerklijstItems.Count(),15,"5x KartonSnijden , 5xPalletInhoudblad ,5x klantetiketten")  {
+		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")
+		Do ..AssertInformatieIDs(WerklijstItems)
+	}
 ]]></Implementation>
 </Method>
 
@@ -70,33 +68,26 @@
 </Method>
 
 <Method name="AssertKartonUI">
-<FormalSpec>KartonUI:APPS.Halux.PPS.Activiteit.impl.common.dto.KartonSnijdenUitvoeringInfo,VerwachteKartonSpecificatie:DOM.PM.Verpakking.dto.KartonSpecificatieBase,AssertOmschrijving:%String</FormalSpec>
+<FormalSpec>KartonUI:APPS.Halux.PPS.Activiteit.impl.common.dto.KartonSnijdenUitvoeringInfo,VerwachteKartonSpecificatie:DOM.PM.Verpakking.dto.KartonSpecificatieBase,Omschrijving:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	#dim VerwachteAantalDozen As %Integer = 1
-	#dim VerwachteDoosGroep As %String = "TAORBOX"
-	#dim VerwachteDoosNaam As %String = "V1 Bodem en deksel"
-	#dim VerwachteMachineID As %String = ##class(APPS.Halux.PPS.Verpakking.enu.KartonMachineID).TAOR()
-	#dim VerwachteProductID As %String = ..#DummyProductID
-	#dim VerwachteToeleveringID As %String = ..#DummyToeleveringID
-	
 	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)) {
 
-			Do ..AssertKartonSpecificatie(KartonSnijdenData.KartonSpecificatie, VerwachteKartonSpecificatie, AssertOmschrijving)
-			Do $$$AssertEquals(KartonSnijdenData.ProductID, VerwachteProductID,AssertOmschrijving)
-			Do $$$AssertEquals(KartonSnijdenData.ToeleveringID, VerwachteToeleveringID,AssertOmschrijving)
+			Do ..AssertKartonSpecificatie(KartonSnijdenData.KartonSpecificatie, VerwachteKartonSpecificatie, Omschrijving)
+			Do $$$AssertEquals(KartonSnijdenData.ProductID, ..#DummyProductID,Omschrijving)
+			Do $$$AssertEquals(KartonSnijdenData.ToeleveringID, ..#DummyToeleveringID,Omschrijving)
 			
-			Do $$$AssertEquals(KartonSnijdenData.AantalDozen, VerwachteAantalDozen, AssertOmschrijving)
-			Do $$$AssertEquals(KartonSnijdenData.DoosGroep, VerwachteDoosGroep, AssertOmschrijving)
-			Do $$$AssertEquals(KartonSnijdenData.DoosNaam, VerwachteDoosNaam, AssertOmschrijving)
-			Do $$$AssertEquals(KartonSnijdenData.MachineID, VerwachteMachineID,AssertOmschrijving)
+			Do $$$AssertEquals(KartonSnijdenData.AantalDozen, 1, Omschrijving)
+			Do $$$AssertEquals(KartonSnijdenData.DoosGroep, "TAORBOX", Omschrijving)
+			Do $$$AssertEquals(KartonSnijdenData.DoosNaam, "V1 Bodem en deksel", Omschrijving)
+			Do $$$AssertEquals(KartonSnijdenData.MachineID, ##class(APPS.Halux.PPS.Verpakking.enu.KartonMachineID).TAOR(),Omschrijving)
 			
 			;Do $$$AssertEquals(KartonSnijdenData.OmschrijvingInWerkpostApplicatie, "KORTTEKST COMPONENTTYPE", AssertOmschrijving)
 			;Do $$$AssertEquals(KartonSnijdenData.BoxSelect, "BOTTOM LID...", AssertOmschrijving)
 		}
-		Do $$$AssertEquals(KartonUI.WerklijstItemID,"",AssertOmschrijving)   ; Wordt niet ingevuld door de WerklijstItemsMaker, maar wel nadat WerklijstItem bewaard is, d.i. in de method PostProcessWerklijstItem()
+		Do $$$AssertEquals(KartonUI.WerklijstItemID,"",Omschrijving)   ; Wordt niet ingevuld door de WerklijstItemsMaker, maar wel nadat WerklijstItem bewaard is, d.i. in de method PostProcessWerklijstItem()
 	}
 ]]></Implementation>
 </Method>