Index: vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/WerklijstItemsMaker/MaakWerklijstItems/TestBulkPOG.cls.xml
===================================================================
diff -u -r31148 -r33418
--- vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/WerklijstItemsMaker/MaakWerklijstItems/TestBulkPOG.cls.xml	(.../TestBulkPOG.cls.xml)	(revision 31148)
+++ vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/WerklijstItemsMaker/MaakWerklijstItems/TestBulkPOG.cls.xml	(.../TestBulkPOG.cls.xml)	(revision 33418)
@@ -5,22 +5,21 @@
 
 <Method name="TestWerklijstItemsVoorKartonSnijdenData">
 <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 WerklijstItemsMaker As APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.WerklijstItemsMaker = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.WerklijstItemsMaker).%New()
+	#dim Verpakking As DOM.PM.enu.TAORVerpakkingType = ..Enum.VerpakkingType.BulkPerOnderdeelGegroepeerd
 	#dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ..MaakIngegevenKenmerken(Verpakking)
 	#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)
+	#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 $$$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)
 	
-	if $$$AssertEquals(WerklijstItems.Count(),15,"5x KartonSnijden , 5xPalletInhoudblad ,5x klantetiketten")  {
+	#dim WerklijstItems As APPS.Halux.PPS.Activiteit.dto.ProductieSequentieWerklijstItemList = WerklijstItemsMaker.MaakWerklijstItems(WerklijstItemMakerInput)
+	
+	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)
@@ -35,7 +34,7 @@
 <FormalSpec>KartonUI:APPS.Halux.PPS.Activiteit.impl.common.dto.KartonSnijdenUitvoeringInfo</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	#dim VerwachteKartonSpecificatie As DOM.PM.Verpakking.dto.KartonSpecificatieBase = ..MaakBodemDoosKartonSpecificatie(480,569,83)
+	#dim VerwachteKartonSpecificatie As DOM.PM.Verpakking.dto.KartonSpecificatieBase = ..MaakBodemDoosKartonSpecificatie(480, 569, 83)
 	Do ..AssertKartonUI(KartonUI,VerwachteKartonSpecificatie, "Bodem")
 ]]></Implementation>
 </Method>
@@ -44,7 +43,7 @@
 <FormalSpec>KartonUI:APPS.Halux.PPS.Activiteit.impl.common.dto.KartonSnijdenUitvoeringInfo</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	#dim VerwachteKartonSpecificatie As DOM.PM.Verpakking.dto.KartonSpecificatieBase = ..MaakBodemDoosKartonSpecificatie(590,490,195.5)
+	#dim VerwachteKartonSpecificatie As DOM.PM.Verpakking.dto.KartonSpecificatieBase = ..MaakBodemDoosKartonSpecificatie(590, 490, 195.5)
 	Do ..AssertKartonUI(KartonUI,VerwachteKartonSpecificatie, "Front")
 ]]></Implementation>
 </Method>
@@ -53,7 +52,7 @@
 <FormalSpec>KartonUI:APPS.Halux.PPS.Activiteit.impl.common.dto.KartonSnijdenUitvoeringInfo</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	#dim VerwachteKartonSpecificatie As DOM.PM.Verpakking.dto.KartonSpecificatieBase = ..MaakBodemDoosKartonSpecificatie(569,334,81)
+	#dim VerwachteKartonSpecificatie As DOM.PM.Verpakking.dto.KartonSpecificatieBase = ..MaakBodemDoosKartonSpecificatie(569, 334, 81)
 	Do ..AssertKartonUI(KartonUI,VerwachteKartonSpecificatie, "Rug")
 ]]></Implementation>
 </Method>
@@ -62,7 +61,7 @@
 <FormalSpec>KartonUI:APPS.Halux.PPS.Activiteit.impl.common.dto.KartonSnijdenUitvoeringInfo,AssertOmschrijving:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	#dim VerwachteKartonSpecificatie As DOM.PM.Verpakking.dto.KartonSpecificatieBase = ..MaakBodemDoosKartonSpecificatie(495,174.5,148)
+	#dim VerwachteKartonSpecificatie As DOM.PM.Verpakking.dto.KartonSpecificatieBase = ..MaakBodemDoosKartonSpecificatie(495, 174.5, 148)
 	Do ..AssertKartonUI(KartonUI,VerwachteKartonSpecificatie, AssertOmschrijving)
 ]]></Implementation>
 </Method>
@@ -73,21 +72,22 @@
 <Implementation><![CDATA[
 	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, Omschrijving)
-			Do $$$AssertEquals(KartonSnijdenData.ProductID, ..#DummyProductID,Omschrijving)
-			Do $$$AssertEquals(KartonSnijdenData.ToeleveringID, ..#DummyToeleveringID,Omschrijving)
+			Do $$$AssertEquals(KartonSnijdenData.ProductID, ..#DummyProductID, Omschrijving)
+			Do $$$AssertEquals(KartonSnijdenData.ToeleveringID, ..#DummyToeleveringID, Omschrijving)
 			
 			Do $$$AssertEquals(KartonSnijdenData.AantalDozen, 1, Omschrijving)
 			Do $$$AssertEquals(KartonSnijdenData.DoosGroep, "TAORBOX", Omschrijving)
 			Do $$$AssertEquals(KartonSnijdenData.DoosNaam, ##class(BL.Prod.OptiBox.enu.SnijDoosNaam).TaorboxBodemDekselDoos(), Omschrijving)
-			Do $$$AssertEquals(KartonSnijdenData.MachineID, ##class(APPS.Halux.PPS.Verpakking.enu.KartonMachineID).TAOR(),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,"",Omschrijving)   ; 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>
@@ -108,18 +108,21 @@
 <FormalSpec>WerklijstItems:APPS.Halux.PPS.Activiteit.dto.ProductieSequentieWerklijstItemList</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	Set Iterator = ##class(TECH.ListIterator).%New(WerklijstItems)
+	#dim Iterator As TECH.Iterator = ##class(TECH.ListIterator).%New(WerklijstItems)
 	#dim Counter As TECH.Integer = 0
+	
 	While (Iterator.HasNext()) {
 		#dim WerklijstItem As APPS.Halux.PPS.Activiteit.dto.ProductieSequentieWerklijstItem = Iterator.Next()
-		If $Increment(Counter)<=5 {
-			Do $$$AssertEquals(WerklijstItem.InformatieID,"TAOR.Verpakking.KartonSnijden")
+	
+		If ($Increment(Counter) <= 5) {
+			Do $$$AssertEquals(WerklijstItem.InformatieID, "TAOR.Verpakking.KartonSnijden")
 		} ElseIf Counter <=10 {
-			Do $$$AssertEquals(WerklijstItem.InformatieID,"TAOR.PalletInhoud")
+			Do $$$AssertEquals(WerklijstItem.InformatieID, "TAOR.PalletInhoud")
 		} Else {
-			Do $$$AssertEquals(WerklijstItem.InformatieID,"TAOR.KlantEtiket")
+			Do $$$AssertEquals(WerklijstItem.InformatieID, "TAOR.KlantEtiket")
 		}
-		Do $$$AssertEquals(WerklijstItem.Volgnummer,"")
+		
+		Do $$$AssertEquals(WerklijstItem.Volgnummer, "")
 	}
 ]]></Implementation>
 </Method>
@@ -138,8 +141,9 @@
 	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 
+	Set KartonSpecificatie.NodigeLengte = "" ; Niet van toepassing 
+	Set KartonSpecificatie.NodigeBreedte = "" ; Niet van toepassing 
+	
 	Quit KartonSpecificatie
 ]]></Implementation>
 </Method>