Index: DOM/PM/Maatwerk/Lade/LadeUtils/impl/TAORLadeUtils.cls.xml
===================================================================
diff -u -r29301 -r29302
--- DOM/PM/Maatwerk/Lade/LadeUtils/impl/TAORLadeUtils.cls.xml	(.../TAORLadeUtils.cls.xml)	(revision 29301)
+++ DOM/PM/Maatwerk/Lade/LadeUtils/impl/TAORLadeUtils.cls.xml	(.../TAORLadeUtils.cls.xml)	(revision 29302)
@@ -7,20 +7,20 @@
 <FormalSpec>LadeHoogte:DOM.PM.enu.TAORLadeHoogte</FormalSpec>
 <ReturnType>%Double</ReturnType>
 <Implementation><![CDATA[
-	set NettoZijkantHoogteBepaler = ##class(DOM.PM.Maatwerk.Lade.LadeUtils.impl.TAORLadeUtils.NettoZijkantHoogteBepaler).%New()
-	quit NettoZijkantHoogteBepaler.GeefZijkantHoogte(LadeHoogte)
+	#Dim NettoZijkantHoogteBepaler As DOM.PM.Maatwerk.Lade.LadeUtils.impl.TAORLadeUtils.NettoZijkantHoogteBepaler = ##class(DOM.PM.Maatwerk.Lade.LadeUtils.impl.TAORLadeUtils.NettoZijkantHoogteBepaler).%New()
+	
+	Quit NettoZijkantHoogteBepaler.GeefZijkantHoogte(LadeHoogte)
 ]]></Implementation>
 </Method>
 
 <Method name="GeefFysiekeLadeHoogteMM">
 <FormalSpec>LadeHoogte:DOM.PM.enu.TAORLadeHoogte,IsBinnenlade:%Boolean</FormalSpec>
 <ReturnType>%Integer</ReturnType>
 <Implementation><![CDATA[
-	#dim Hoogte as %Integer = $Case(LadeHoogte,"N":70,"M":90,"K":140,"C":180,"F":245)
-	If IsBinnenlade
-	{
-		Set Hoogte=Hoogte + 30
-	}
+	#Dim Hoogte as %Integer = $Case(LadeHoogte,"N":70,"M":90,"K":140,"C":180,"F":245)
+	
+	Set:(IsBinnenlade) Hoogte = Hoogte + 30
+	
 	Quit Hoogte
 ]]></Implementation>
 </Method>
@@ -29,11 +29,10 @@
 <FormalSpec>InterneBreedte:%Integer,IsBinnenlade:%Boolean</FormalSpec>
 <ReturnType>%Integer</ReturnType>
 <Implementation><![CDATA[
-	#dim Breedte As %Integer = InterneBreedte - 6
-	If IsBinnenlade
-	{
-		Set Breedte=Breedte+4
-	}
+	#Dim Breedte As %Integer = InterneBreedte - 6
+	
+	Set:(IsBinnenlade) Breedte = Breedte + 4
+	
 	Quit Breedte
 ]]></Implementation>
 </Method>
Index: vhUnitTest/APPS/Halux/PPS/TAORVerpakking/TestDoos.cls.xml
===================================================================
diff -u -r29301 -r29302
--- vhUnitTest/APPS/Halux/PPS/TAORVerpakking/TestDoos.cls.xml	(.../TestDoos.cls.xml)	(revision 29301)
+++ vhUnitTest/APPS/Halux/PPS/TAORVerpakking/TestDoos.cls.xml	(.../TestDoos.cls.xml)	(revision 29302)
@@ -33,7 +33,8 @@
 
 <Method name="TestZonderOnderdelen">
 <Implementation><![CDATA[
-	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken=..MaakLadeM563op500()
+	#Dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ..MaakLadeM563op500()
+	
 	Do IngegevenKenmerken.NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).Glijder())
 	Do IngegevenKenmerken.NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).Koppeling())
 	Do IngegevenKenmerken.NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).BodemOndersteuning())
@@ -42,92 +43,91 @@
 	Do IngegevenKenmerken.NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).Zijstabilisering())
 	Do IngegevenKenmerken.NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).FrontBevestiging())
 	
-	#dim DoosBerekenaar as APPS.Halux.PPS.TAORVerpakking.impl.DoosBerekenaar = ..GeefDoosBerekenaar(IngegevenKenmerken)
+	#Dim DoosBerekenaar as APPS.Halux.PPS.TAORVerpakking.impl.DoosBerekenaar = ..GeefDoosBerekenaar(IngegevenKenmerken)
 	
-	Do $$$AssertEquals(DoosBerekenaar.GeefKartonSpecificaties().Kinderen.Count(),1)
+	Do $$$AssertEquals(DoosBerekenaar.GeefKartonSpecificaties().Kinderen.Count(), 1)
 	Do $$$AssertEquals(DoosBerekenaar.GeefDoosLade().DoosType,##class(APPS.Halux.PPS.Verpakking.enu.DoosTypes).DoosMetDeksel())
 	Do $$$AssertFalse($IsObject(DoosBerekenaar.GeefDoosLosseOnderdelen()),"Alleen DoosMetDeksel geen losse onderdelen")
-	
 	Do $$$AssertEquals(DoosBerekenaar.GeefDoosLade().Diepte, IngegevenKenmerken.LadeDiepte)
 ]]></Implementation>
 </Method>
 
 <Method name="TestLadeZonderCP">
 <Implementation><![CDATA[
-	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken=..MaakLadeM563op500()
+	#Dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken=..MaakLadeM563op500()
 	Do IngegevenKenmerken.NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).Glijder())
 	
-	#dim DoosBerekenaar as APPS.Halux.PPS.TAORVerpakking.impl.DoosBerekenaar = ..GeefDoosBerekenaar(IngegevenKenmerken)
+	#Dim DoosBerekenaar as APPS.Halux.PPS.TAORVerpakking.impl.DoosBerekenaar = ..GeefDoosBerekenaar(IngegevenKenmerken)
 
 	Do $$$AssertEquals(DoosBerekenaar.GeefKartonSpecificaties().Kinderen.Count(),2) ; er moeten 2 kartonspecificaties zijn een voor DoosMetDeksel en een ander voor LODoos
 	
-	#dim DoosLosseOnderdelen as APPS.Halux.PPS.TAORVerpakking.impl.DoosLosseOnderdelen = DoosBerekenaar.GeefDoosLosseOnderdelen()
+	#Dim DoosLosseOnderdelen as APPS.Halux.PPS.TAORVerpakking.impl.DoosLosseOnderdelen = DoosBerekenaar.GeefDoosLosseOnderdelen()
 	Do $$$AssertEquals(DoosLosseOnderdelen.BreedteCorpusProfiel,10)
 ]]></Implementation>
 </Method>
 
 <Method name="TestBinnenladeZonderCP">
 <Implementation><![CDATA[
-	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken=..MaakLadeM563op500()
+	#Dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken=..MaakLadeM563op500()
 	Set IngegevenKenmerken.IsBinnenlade = 1
 	Set IngegevenKenmerken.FrontEindkapKleur = ##class(DOM.PM.enu.TAORFrontEindkapKleur).AluminiumLook()
 	Do IngegevenKenmerken.NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).Glijder())
 	
-	#dim DoosBerekenaar as APPS.Halux.PPS.TAORVerpakking.impl.DoosBerekenaar = ..GeefDoosBerekenaar(IngegevenKenmerken)
+	#Dim DoosBerekenaar as APPS.Halux.PPS.TAORVerpakking.impl.DoosBerekenaar = ..GeefDoosBerekenaar(IngegevenKenmerken)
 
 	Do $$$AssertEquals(DoosBerekenaar.GeefKartonSpecificaties().Kinderen.Count(),1) ; er moet 1 kartonspecificatie zijn, nl. een voor DoosMetDeksel
 	
-	#dim DoosLosseOnderdelen as APPS.Halux.PPS.TAORVerpakking.impl.DoosLosseOnderdelen = DoosBerekenaar.GeefDoosLosseOnderdelen()
+	#Dim DoosLosseOnderdelen as APPS.Halux.PPS.TAORVerpakking.impl.DoosLosseOnderdelen = DoosBerekenaar.GeefDoosLosseOnderdelen()
 	Do $$$AssertEquals(DoosBerekenaar.GeefDoosLade().DoosType,##class(APPS.Halux.PPS.Verpakking.enu.DoosTypes).DoosMetDeksel())
 	Do $$$AssertFalse($IsObject(DoosBerekenaar.GeefDoosLosseOnderdelen()),"Alleen DoosMetDeksel geen losse onderdelen")
 ]]></Implementation>
 </Method>
 
 <Method name="TestMetOpvullijst">
 <Implementation><![CDATA[
-	#dim IngegevenKenmerkenStd As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken=..MaakLadeM563op500()
-	#dim DoosBerekenaar as APPS.Halux.PPS.TAORVerpakking.impl.DoosBerekenaar = ..GeefDoosBerekenaar(IngegevenKenmerkenStd)
-	#dim DoosLadeStd as APPS.Halux.PPS.TAORVerpakking.impl.DoosLade=DoosBerekenaar.GeefDoosLade()
-	#dim DoosLosseOnderdelenStd as APPS.Halux.PPS.TAORVerpakking.impl.DoosLosseOnderdelen = DoosBerekenaar.GeefDoosLosseOnderdelen()
+	#Dim IngegevenKenmerkenStd As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken=..MaakLadeM563op500()
+	#Dim DoosBerekenaar as APPS.Halux.PPS.TAORVerpakking.impl.DoosBerekenaar = ..GeefDoosBerekenaar(IngegevenKenmerkenStd)
+	#Dim DoosLadeStd as APPS.Halux.PPS.TAORVerpakking.impl.DoosLade=DoosBerekenaar.GeefDoosLade()
+	#Dim DoosLosseOnderdelenStd as APPS.Halux.PPS.TAORVerpakking.impl.DoosLosseOnderdelen = DoosBerekenaar.GeefDoosLosseOnderdelen()
 	
-	#dim IngegevenKenmerkenOpvul As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken=..MaakLadeM563op500()
+	#Dim IngegevenKenmerkenOpvul As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken=..MaakLadeM563op500()
 	Set IngegevenKenmerkenOpvul.HeeftOpvullijstLinks = 1
 	Set IngegevenKenmerkenOpvul.HeeftOpvullijstRechts = 1
 	
 	Set DoosBerekenaar = ..GeefDoosBerekenaar(IngegevenKenmerkenOpvul)
-	#dim DoosLadeOpvul as APPS.Halux.PPS.TAORVerpakking.impl.DoosLade=DoosBerekenaar.GeefDoosLade()
-	#dim DoosLosseOnderdelenOpVul as APPS.Halux.PPS.TAORVerpakking.impl.DoosLosseOnderdelen = DoosBerekenaar.GeefDoosLosseOnderdelen()
+	#Dim DoosLadeOpvul as APPS.Halux.PPS.TAORVerpakking.impl.DoosLade=DoosBerekenaar.GeefDoosLade()
+	#Dim DoosLosseOnderdelenOpVul as APPS.Halux.PPS.TAORVerpakking.impl.DoosLosseOnderdelen = DoosBerekenaar.GeefDoosLosseOnderdelen()
 	Do $$$AssertEquals((DoosLadeStd.Breedte+25-50),DoosLadeOpvul.Breedte) ; er komt 25mm bij voor de plaats van de opvullijst in de verpakking maar de lade wordt 50mm smallen
 ]]></Implementation>
 </Method>
 
 <Method name="TestBinnenlade">
 <Implementation><![CDATA[
-	#dim IngegevenKenmerkenStd As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken=..MaakLadeC1400op750()
-	#dim DoosBerekenaar as APPS.Halux.PPS.TAORVerpakking.impl.DoosBerekenaar = ..GeefDoosBerekenaar(IngegevenKenmerkenStd)
-	#dim DoosLadeStd as APPS.Halux.PPS.TAORVerpakking.impl.DoosLade=DoosBerekenaar.GeefDoosLade()
-	#dim DoosLosseOnderdelenStd as APPS.Halux.PPS.TAORVerpakking.impl.DoosLosseOnderdelen = DoosBerekenaar.GeefDoosLosseOnderdelen()
+	#Dim IngegevenKenmerkenStd As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken=..MaakLadeC1400op750()
+	#Dim DoosBerekenaar as APPS.Halux.PPS.TAORVerpakking.impl.DoosBerekenaar = ..GeefDoosBerekenaar(IngegevenKenmerkenStd)
+	#Dim DoosLadeStd as APPS.Halux.PPS.TAORVerpakking.impl.DoosLade=DoosBerekenaar.GeefDoosLade()
+	#Dim DoosLosseOnderdelenStd as APPS.Halux.PPS.TAORVerpakking.impl.DoosLosseOnderdelen = DoosBerekenaar.GeefDoosLosseOnderdelen()
 	
-	#dim IngegevenKenmerkenBin As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken=..MaakBinnenLadeC1400op750()
+	#Dim IngegevenKenmerkenBin As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken=..MaakBinnenLadeC1400op750()
 	Set DoosBerekenaar = ..GeefDoosBerekenaar(IngegevenKenmerkenBin)
-	#dim DoosLadeBin as APPS.Halux.PPS.TAORVerpakking.impl.DoosLade=DoosBerekenaar.GeefDoosLade()
-	#dim DoosLosseOnderdelenBin as APPS.Halux.PPS.TAORVerpakking.impl.DoosLosseOnderdelen = DoosBerekenaar.GeefDoosLosseOnderdelen()
+	#Dim DoosLadeBin as APPS.Halux.PPS.TAORVerpakking.impl.DoosLade=DoosBerekenaar.GeefDoosLade()
+	#Dim DoosLosseOnderdelenBin as APPS.Halux.PPS.TAORVerpakking.impl.DoosLosseOnderdelen = DoosBerekenaar.GeefDoosLosseOnderdelen()
 	Do $$$AssertEquals((DoosLadeStd.Breedte+4),DoosLadeBin.Breedte)
 	Do $$$AssertEquals((DoosLadeStd.Hoogte+30),DoosLadeBin.Hoogte)
 ]]></Implementation>
 </Method>
 
 <Method name="TestLageLadeMetStandaardOnderdelenHuls">
 <Implementation><![CDATA[
-	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken=..MaakLadeM563op500()
+	#Dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken=..MaakLadeM563op500()
 	Set IngegevenKenmerken.LadeDiepte = ##class(DOM.PM.enu.TAORLadeDiepte).LadeDiepte550()
 	Do ..StandaardHulsTest(IngegevenKenmerken, 90, 678.8)
 ]]></Implementation>
 </Method>
 
 <Method name="TestHogeLadeMetStandaardOnderdelenHuls">
 <Implementation><![CDATA[
-	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken=..MaakLadeM563op500()
+	#Dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken=..MaakLadeM563op500()
 	Set IngegevenKenmerken.LadeHoogte = ##class(DOM.PM.enu.TAORLadeHoogte).F()
 	Set IngegevenKenmerken.LadeDiepte = ##class(DOM.PM.enu.TAORLadeDiepte).LadeDiepte550()
 	Do ..StandaardHulsTest(IngegevenKenmerken, 245, 645.4)
@@ -138,9 +138,9 @@
 <FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken,VerwachteHoogte:TECH.Numeric,VerwachteBreedte:TECH.Numeric</FormalSpec>
 <Implementation><![CDATA[
 	Set ^||DezeVariabeleBevatTijdelijkOfHetDeJuisteBatchIDIs = $$$True
-	#dim DoosBerekenaar as APPS.Halux.PPS.TAORVerpakking.impl.DoosBerekenaar = ..GeefDoosBerekenaar(IngegevenKenmerken)
-	#dim DoosLade as APPS.Halux.PPS.TAORVerpakking.impl.DoosLade=DoosBerekenaar.GeefDoosLade()
-	#dim DoosLosseOnderdelen as APPS.Halux.PPS.TAORVerpakking.impl.DoosLosseOnderdelen = DoosBerekenaar.GeefDoosLosseOnderdelen()
+	#Dim DoosBerekenaar as APPS.Halux.PPS.TAORVerpakking.impl.DoosBerekenaar = ..GeefDoosBerekenaar(IngegevenKenmerken)
+	#Dim DoosLade as APPS.Halux.PPS.TAORVerpakking.impl.DoosLade=DoosBerekenaar.GeefDoosLade()
+	#Dim DoosLosseOnderdelen as APPS.Halux.PPS.TAORVerpakking.impl.DoosLosseOnderdelen = DoosBerekenaar.GeefDoosLosseOnderdelen()
 	
 	Do $$$AssertEquals(DoosLade.Breedte, VerwachteBreedte)
 	Do $$$AssertEquals(DoosLade.Hoogte, VerwachteHoogte)
@@ -159,44 +159,40 @@
 
 <Method name="TestKartonSpecs">
 <Implementation><![CDATA[
-	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken=..MaakLadeM563op500()
-	#dim DoosBerekenaar as APPS.Halux.PPS.TAORVerpakking.impl.DoosBerekenaar = ..GeefDoosBerekenaar(IngegevenKenmerken)
+	#Dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken=..MaakLadeM563op500()
+	#Dim DoosBerekenaar as APPS.Halux.PPS.TAORVerpakking.impl.DoosBerekenaar = ..GeefDoosBerekenaar(IngegevenKenmerken)
 
-	#dim KartonSpecs as APPS.Halux.PPS.Verpakking.dto.KartonSpecificaties = DoosBerekenaar.GeefKartonSpecificaties()
-	Set it=KartonSpecs.GeefIterator()
-	Set AantalSpecs=0
-	while it.HasNext()
-	{
-		#dim KartonSpec as APPS.Halux.PPS.Verpakking.dto.KartonSpecificatie = it.Next()
-		Set AantalSpecs=AantalSpecs+1
-		If KartonSpec.BenamingVerpakkingsOnderdeel=##class(APPS.Halux.PPS.Verpakking.enu.BenamingVerpakkingsOnderdeel).DoosMetDeksel()
-		{
-			Do $$$AssertEquals(+$J(KartonSpec.NodigeBreedte,0,0),1311,"Breedte van DoosMetDeksel")
-			Do $$$AssertEquals(+$J(KartonSpec.NodigeLengte,0,0),1058,"Lengte van DoosMetDeksel")
-			Do $$$AssertEquals(KartonSpec.KartonSamenstelling,##class(APPS.Halux.PPS.Verpakking.enu.KartonSamenstelling).Dun(),"Kartonsamenstelling = EB")
-
-		}
-		ElseIf KartonSpec.BenamingVerpakkingsOnderdeel=##class(APPS.Halux.PPS.Verpakking.enu.BenamingVerpakkingsOnderdeel).DoosLosseOnderdelen()
-		{
-			Do $$$AssertEquals(+$J(KartonSpec.NodigeBreedte,0,0),768,"Breedte van DoosLosseOnderdelen")
-			Do $$$AssertEquals(+$J(KartonSpec.NodigeLengte,0,0),476,"Lengte van DoosLosseOnderdelen")
-			Do $$$AssertEquals(KartonSpec.KartonSamenstelling,##class(APPS.Halux.PPS.Verpakking.enu.KartonSamenstelling).Dun(),"Kartonsamenstelling = EB")
-		}
-		Else
-		{
-			do $$$AssertTrue(0,"Allen DoosMetDeksel en Losse onderdelen zijn mogelijk")
+	#Dim KartonSpecs as APPS.Halux.PPS.Verpakking.dto.KartonSpecificaties = DoosBerekenaar.GeefKartonSpecificaties()
+	#Dim Iterator As TECH.Iterator = KartonSpecs.GeefIterator()
+	#Dim AantalSpecs As %Integer = 0
+	
+	While (Iterator.HasNext()) {
+		#Dim KartonSpec as APPS.Halux.PPS.Verpakking.dto.KartonSpecificatie = Iterator.Next()
+		Set AantalSpecs = AantalSpecs + 1
+		
+		If (KartonSpec.BenamingVerpakkingsOnderdeel = ##class(APPS.Halux.PPS.Verpakking.enu.BenamingVerpakkingsOnderdeel).DoosMetDeksel()) {
+			Do $$$AssertEquals(+$J(KartonSpec.NodigeBreedte, 0, 0), 1311, "Breedte van DoosMetDeksel")
+			Do $$$AssertEquals(+$J(KartonSpec.NodigeLengte, 0, 0), 1058, "Lengte van DoosMetDeksel")
+			Do $$$AssertEquals(KartonSpec.KartonSamenstelling, ##class(APPS.Halux.PPS.Verpakking.enu.KartonSamenstelling).Dun(), "Kartonsamenstelling = EB")
+		} ElseIf (KartonSpec.BenamingVerpakkingsOnderdeel = ##class(APPS.Halux.PPS.Verpakking.enu.BenamingVerpakkingsOnderdeel).DoosLosseOnderdelen()) {
+			Do $$$AssertEquals(+$J(KartonSpec.NodigeBreedte, 0, 0), 768, "Breedte van DoosLosseOnderdelen")
+			Do $$$AssertEquals(+$J(KartonSpec.NodigeLengte, 0, 0), 476, "Lengte van DoosLosseOnderdelen")
+			Do $$$AssertEquals(KartonSpec.KartonSamenstelling, ##class(APPS.Halux.PPS.Verpakking.enu.KartonSamenstelling).Dun(), "Kartonsamenstelling = EB")
+		} Else {
+			Do $$$AssertTrue(0, "Allen DoosMetDeksel en Losse onderdelen zijn mogelijk")
 		}	
 	}
-	Do $$$AssertEquals(AantalSpecs,2) ; er moeten 2 kartonspecificaties zijn een voor DoosMetDeksel en een ander voor LODoos
+	
+	Do $$$AssertEquals(AantalSpecs, 2) ; er moeten 2 kartonspecificaties zijn een voor DoosMetDeksel en een ander voor LODoos
 ]]></Implementation>
 </Method>
 
 <Method name="TestSnijden">
 <Implementation><![CDATA[
-	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken=..MaakLadeM563op500()
-	#dim SnijService as vhUnitTest.APPS.Halux.PPS.TAORVerpakking.KartonSnijService = ##class(vhUnitTest.APPS.Halux.PPS.TAORVerpakking.KartonSnijService).%New(1000, ..GeefDoosBerekenaar(IngegevenKenmerken))
+	#Dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken=..MaakLadeM563op500()
+	#Dim SnijService as vhUnitTest.APPS.Halux.PPS.TAORVerpakking.KartonSnijService = ##class(vhUnitTest.APPS.Halux.PPS.TAORVerpakking.KartonSnijService).%New(1000, ..GeefDoosBerekenaar(IngegevenKenmerken))
 	
-	#dim OptiBoxStub As vhUnitTest.APPS.Halux.PPS.TAORVerpakking.OptiBoxStub = SnijService.GeefOptibox()
+	#Dim OptiBoxStub As vhUnitTest.APPS.Halux.PPS.TAORVerpakking.OptiBoxStub = SnijService.GeefOptibox()
 	
 	Do SnijService.SnijVoorLade("TEST.DO","",1,##class(BL.Prod.OptiBox.enu.SnijMachine).Halux(),1)
 	Do $$$AssertEquals(OptiBoxStub.BasisRef,"TEST.DO")
@@ -217,7 +213,8 @@
 <Private>1</Private>
 <ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</ReturnType>
 <Implementation><![CDATA[
-	Set IngegevenKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).%New()
+	#Dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).%New()
+	
 	Set IngegevenKenmerken.LadeDiepte = 500
 	Set IngegevenKenmerken.LadeKleur = ##class(DOM.PM.enu.TAORLadeKleur).NatuurNotenhout()
 	Set IngegevenKenmerken.LadeHoogte = ##class(DOM.PM.enu.TAORLadeHoogte).M()
@@ -244,7 +241,8 @@
 <Method name="MaakLadeC1400op750">
 <Private>1</Private>
 <Implementation><![CDATA[
-	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).%New()
+	#Dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).%New()
+	
 	Set IngegevenKenmerken.LadeDiepte = 500
 	Set IngegevenKenmerken.LadeKleur = ##class(DOM.PM.enu.TAORLadeKleur).NatuurNotenhout()
 	Set IngegevenKenmerken.BodemKleur = ##class(DOM.PM.enu.TAORLadeKleur).NatuurNotenhout()
@@ -262,29 +260,32 @@
 	Set IngegevenKenmerken.VerpakkingType=##class(DOM.PM.enu.TAORVerpakkingType).V1()
 	Set IngegevenKenmerken.AfdekkapBovenKleur = ##class(DOM.PM.enu.TAORAfdekkapBovenKleur).AluminiumLook()
 	Set IngegevenKenmerken.KoppelingType = ##class(DOM.PM.enu.TAORKoppelingType).Schroef()
+	
 	Quit IngegevenKenmerken
 ]]></Implementation>
 </Method>
 
 <Method name="MaakBinnenLadeC1400op750">
 <Private>1</Private>
 <Implementation><![CDATA[
-	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken=..MaakLadeC1400op750()
-	Set IngegevenKenmerken.IsBinnenlade=1
+	#Dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken=..MaakLadeC1400op750()
+	
+	Set IngegevenKenmerken.IsBinnenlade = 1
 	Set IngegevenKenmerken.FrontEindkapKleur = ##class(DOM.PM.enu.TAORFrontEindkapKleur).AluminiumLook()
 	Set IngegevenKenmerken.KoppelingType = ##class(DOM.PM.enu.TAORKoppelingType).Schroef()
+	
 	Quit IngegevenKenmerken
 ]]></Implementation>
 </Method>
 
 <Method name="OnBeforeAllTests">
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	Set ..Familie=##class(DOM.PM.enu.Familie).Lade()
-	Set ..Variant=##class(DOM.PM.enu.LadeVariant).TAOR()
+	Set ..Familie = ##class(DOM.PM.enu.Familie).Lade()
+	Set ..Variant = ##class(DOM.PM.enu.LadeVariant).TAOR()
 	Set ..KlantID = "K||7587"
 	Set ..Personality = ##class(DOM.common.VanHoeckePersonality).Instance()
-	Set ..BerekeningsSpecificatie = ##class(DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie).%New(1,..KlantID,..Personality)
+	Set ..BerekeningsSpecificatie = ##class(DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie).%New(1, ..KlantID, ..Personality)
 	
  	Quit $$$OK
 ]]></Implementation>
@@ -295,9 +296,9 @@
 <Private>1</Private>
 <ReturnType>APPS.Halux.PPS.TAORVerpakking.impl.DoosBerekenaar</ReturnType>
 <Implementation><![CDATA[
-	Set ..Context=##class(DOM.PM.Maatwerk.Calc.HF.HalffabContext).%New(..Familie,..Variant,..BerekeningsSpecificatie)
-	Do ..Context.GeefHalffabSpec().BerekenHalffabDetails(..Context,IngegevenKenmerken)
-	#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = ..Context.HalffabItemsBoom
+	Set ..Context = ##class(DOM.PM.Maatwerk.Calc.HF.HalffabContext).%New(..Familie, ..Variant, ..BerekeningsSpecificatie)
+	Do ..Context.GeefHalffabSpec().BerekenHalffabDetails(..Context, IngegevenKenmerken)
+	#Dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = ..Context.HalffabItemsBoom
 	
 	Quit ##class(APPS.Halux.PPS.TAORVerpakking.impl.DoosBerekenaar).%New(HalffabItemsBoom, IngegevenKenmerken)
 ]]></Implementation>
Index: APPS/Halux/PPS/TAORVerpakking/impl/DoosBerekenaar.cls.xml
===================================================================
diff -u -r29059 -r29302
--- APPS/Halux/PPS/TAORVerpakking/impl/DoosBerekenaar.cls.xml	(.../DoosBerekenaar.cls.xml)	(revision 29059)
+++ APPS/Halux/PPS/TAORVerpakking/impl/DoosBerekenaar.cls.xml	(.../DoosBerekenaar.cls.xml)	(revision 29302)
@@ -250,9 +250,8 @@
 <Implementation><![CDATA[
 	#Dim DoosLade As APPS.Halux.PPS.TAORVerpakking.impl.DoosLade = ..GeefDoosLade()
 	#Dim DoosLosseOnderdelen As APPS.Halux.PPS.TAORVerpakking.impl.DoosLosseOnderdelen = ..GeefDoosLosseOnderdelen()
+	#Dim KartonSpecificaties As APPS.Halux.PPS.Verpakking.dto.KartonSpecificaties = ##class(APPS.Halux.PPS.Verpakking.dto.KartonSpecificaties).%New()
 	
-	Set KartonSpecificaties = ##class(APPS.Halux.PPS.Verpakking.dto.KartonSpecificaties).%New()
-	
 	If ($ISOBJECT(DoosLade)) {
 		Do DoosLade.VoegToeKartonSpecificaties(KartonSpecificaties)
 	}