Index: vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/WerklijstItemsMaker/MaakWerklijstItems/TestBulkPOG.cls.xml
===================================================================
diff -u -r30932 -r30933
--- vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/WerklijstItemsMaker/MaakWerklijstItems/TestBulkPOG.cls.xml	(.../TestBulkPOG.cls.xml)	(revision 30932)
+++ vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/WerklijstItemsMaker/MaakWerklijstItems/TestBulkPOG.cls.xml	(.../TestBulkPOG.cls.xml)	(revision 30933)
@@ -7,7 +7,6 @@
 <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, 1)
@@ -21,8 +20,7 @@
 
 	#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")
-		
+	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)
@@ -73,30 +71,23 @@
 <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>