Index: vhUnitTest/APPS/Halux/PPS/TAORVerpakking/TestDoos.cls.xml
===================================================================
diff -u -r30499 -r30500
--- vhUnitTest/APPS/Halux/PPS/TAORVerpakking/TestDoos.cls.xml	(.../TestDoos.cls.xml)	(revision 30499)
+++ vhUnitTest/APPS/Halux/PPS/TAORVerpakking/TestDoos.cls.xml	(.../TestDoos.cls.xml)	(revision 30500)
@@ -17,15 +17,15 @@
 
 <Method name="OnBeforeAllTests">
 <Implementation><![CDATA[
-	Do ##super()
-	Set ..Variant = ##class(DOM.PM.enu.LadeVariant).TAOR()
+	do ##super()
+	set ..Variant = ##class(DOM.PM.enu.LadeVariant).TAOR()
 ]]></Implementation>
 </Method>
 
 <Method name="OnBeforeOneTest">
 <FormalSpec>aTestName:%String</FormalSpec>
 <Implementation><![CDATA[
- 	 do ##super(aTestName)
+ 	do ##super(aTestName)
  	
  	set ..TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardLade()
  	set ..TAORKenmerken.LadeHoogte = ..Enum.LadeHoogte.M
@@ -39,205 +39,205 @@
 
 <Method name="TestLadeZonderOnderdelen">
 <Implementation><![CDATA[
-	Do ..TAORKenmerken.NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).Glijder())
-	Do ..TAORKenmerken.NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).Koppeling())
-	Do ..TAORKenmerken.NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).BodemOndersteuning())
-	Do ..TAORKenmerken.NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).DiepteVerstelling())
-	Do ..TAORKenmerken.NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).Opvullijst())
-	Do ..TAORKenmerken.NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).Zijstabilisering())
-	Do ..TAORKenmerken.NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).FrontBevestiging())
+	do ..TAORKenmerken.NietMeeleveren.Insert(..Enum.Rol.Glijder)
+	do ..TAORKenmerken.NietMeeleveren.Insert(..Enum.Rol.Koppeling)
+	do ..TAORKenmerken.NietMeeleveren.Insert(..Enum.Rol.BodemOndersteuning)
+	do ..TAORKenmerken.NietMeeleveren.Insert(..Enum.Rol.DiepteVerstelling)
+	do ..TAORKenmerken.NietMeeleveren.Insert(..Enum.Rol.Opvullijst)
+	do ..TAORKenmerken.NietMeeleveren.Insert(..Enum.Rol.Zijstabilisering)
+	do ..TAORKenmerken.NietMeeleveren.Insert(..Enum.Rol.FrontBevestiging)
 	
-	#Dim DoosBerekenaar As APPS.Halux.PPS.TAORVerpakking.impl.DoosBerekenaar = ..GeefDoosBerekenaar(..TAORKenmerken)
+	#dim DoosBerekenaar As APPS.Halux.PPS.TAORVerpakking.impl.DoosBerekenaar = ..GeefDoosBerekenaar(..TAORKenmerken)
 	
-	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, ..TAORKenmerken.LadeDiepte - 10)
+	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, ..TAORKenmerken.LadeDiepte - 10)
 ]]></Implementation>
 </Method>
 
 <Method name="TestBinnenladeZonderOnderdelen">
 <Implementation><![CDATA[
-	Set ..TAORKenmerken.IsBinnenlade = $$$True
+	set ..TAORKenmerken.IsBinnenlade = $$$True
 	
-	Do ..TAORKenmerken.NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).Glijder())
-	Do ..TAORKenmerken.NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).Koppeling())
-	Do ..TAORKenmerken.NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).BodemOndersteuning())
-	Do ..TAORKenmerken.NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).DiepteVerstelling())
-	Do ..TAORKenmerken.NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).Opvullijst())
-	Do ..TAORKenmerken.NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).Zijstabilisering())
-	Do ..TAORKenmerken.NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).FrontBevestiging())
+	do ..TAORKenmerken.NietMeeleveren.Insert(..Enum.Rol.Glijder)
+	do ..TAORKenmerken.NietMeeleveren.Insert(..Enum.Rol.Koppeling)
+	do ..TAORKenmerken.NietMeeleveren.Insert(..Enum.Rol.BodemOndersteuning)
+	do ..TAORKenmerken.NietMeeleveren.Insert(..Enum.Rol.DiepteVerstelling)
+	do ..TAORKenmerken.NietMeeleveren.Insert(..Enum.Rol.Opvullijst)
+	do ..TAORKenmerken.NietMeeleveren.Insert(..Enum.Rol.Zijstabilisering)
+	do ..TAORKenmerken.NietMeeleveren.Insert(..Enum.Rol.FrontBevestiging)
 	
-	#Dim DoosBerekenaar As APPS.Halux.PPS.TAORVerpakking.impl.DoosBerekenaar = ..GeefDoosBerekenaar(..TAORKenmerken)
+	#dim DoosBerekenaar As APPS.Halux.PPS.TAORVerpakking.impl.DoosBerekenaar = ..GeefDoosBerekenaar(..TAORKenmerken)
 	
-	Do $$$AssertEquals(DoosBerekenaar.GeefDoosLade().Diepte, ..TAORKenmerken.LadeDiepte)
+	do $$$AssertEquals(DoosBerekenaar.GeefDoosLade().Diepte, ..TAORKenmerken.LadeDiepte)
 ]]></Implementation>
 </Method>
 
 <Method name="TestLadeZonderGlijder">
 <Implementation><![CDATA[
-	Do ..TAORKenmerken.NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).Glijder())
+	do ..TAORKenmerken.NietMeeleveren.Insert(..Enum.Rol.Glijder)
 
-	#Dim DoosBerekenaar As APPS.Halux.PPS.TAORVerpakking.impl.DoosBerekenaar = ..GeefDoosBerekenaar(..TAORKenmerken)
+	#dim DoosBerekenaar As APPS.Halux.PPS.TAORVerpakking.impl.DoosBerekenaar = ..GeefDoosBerekenaar(..TAORKenmerken)
 
-	Do $$$AssertEquals(DoosBerekenaar.GeefKartonSpecificaties().Kinderen.Count(), 2) ; er moeten 2 kartonspecificaties zijn een voor DoosMetDeksel en een ander voor LODoos
+	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)
+	do $$$AssertEquals(DoosLosseOnderdelen.BreedteCorpusProfiel, 10)
 ]]></Implementation>
 </Method>
 
 <Method name="TestBinnenladeZonderGlijder">
 <Implementation><![CDATA[
-	Set ..TAORKenmerken.IsBinnenlade = $$$True
+	set ..TAORKenmerken.IsBinnenlade = $$$True
 	
-	Do ..TAORKenmerken.NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).Glijder())
+	do ..TAORKenmerken.NietMeeleveren.Insert(..Enum.Rol.Glijder)
 	
-	#Dim DoosBerekenaar As APPS.Halux.PPS.TAORVerpakking.impl.DoosBerekenaar = ..GeefDoosBerekenaar(..TAORKenmerken)
+	#dim DoosBerekenaar As APPS.Halux.PPS.TAORVerpakking.impl.DoosBerekenaar = ..GeefDoosBerekenaar(..TAORKenmerken)
 
-	Do $$$AssertEquals(DoosBerekenaar.GeefKartonSpecificaties().Kinderen.Count(), 1) ; er moet 1 kartonspecificatie zijn, nl. een voor DoosMetDeksel
+	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")
+	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="TestLadeMetOpvullijst">
 <Implementation><![CDATA[
-	#Dim DoosBerekenaar As APPS.Halux.PPS.TAORVerpakking.impl.DoosBerekenaar = ..GeefDoosBerekenaar(..TAORKenmerken)
-	#Dim DoosLade As APPS.Halux.PPS.TAORVerpakking.impl.DoosLade = DoosBerekenaar.GeefDoosLade()
-	#Dim TAORKenmerkenMetOpvullijsten As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ..TAORKenmerken.%ConstructClone()
+	#dim DoosBerekenaar As APPS.Halux.PPS.TAORVerpakking.impl.DoosBerekenaar = ..GeefDoosBerekenaar(..TAORKenmerken)
+	#dim DoosLade As APPS.Halux.PPS.TAORVerpakking.impl.DoosLade = DoosBerekenaar.GeefDoosLade()
+	#dim TAORKenmerkenMetOpvullijsten As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ..TAORKenmerken.%ConstructClone()
 	
-	Set TAORKenmerkenMetOpvullijsten.HeeftOpvullijstLinks = $$$True
-	Set TAORKenmerkenMetOpvullijsten.HeeftOpvullijstRechts = $$$True
+	set TAORKenmerkenMetOpvullijsten.HeeftOpvullijstLinks = $$$True
+	set TAORKenmerkenMetOpvullijsten.HeeftOpvullijstRechts = $$$True
 	
-	Set DoosBerekenaar = ..GeefDoosBerekenaar(TAORKenmerkenMetOpvullijsten)
+	set DoosBerekenaar = ..GeefDoosBerekenaar(TAORKenmerkenMetOpvullijsten)
 	
-	#Dim DoosLadeOpvullijst As APPS.Halux.PPS.TAORVerpakking.impl.DoosLade = DoosBerekenaar.GeefDoosLade()
+	#dim DoosLadeOpvullijst As APPS.Halux.PPS.TAORVerpakking.impl.DoosLade = DoosBerekenaar.GeefDoosLade()
 
-	Do $$$AssertEquals((DoosLade.Breedte + 25 - 50), DoosLadeOpvullijst.Breedte) ; er komt 25mm bij voor de plaats van de opvullijst in de verpakking maar de lade wordt 50mm smallen
+	do $$$AssertEquals((DoosLade.Breedte + 25 - 50), DoosLadeOpvullijst.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[
-	Set ..TAORKenmerken.LadeHoogte = ##class(DOM.PM.enu.TAORLadeHoogte).C()
+	set ..TAORKenmerken.LadeHoogte = ..Enum.LadeHoogte.C
 	
-	#Dim DoosBerekenaar As APPS.Halux.PPS.TAORVerpakking.impl.DoosBerekenaar = ..GeefDoosBerekenaar(..TAORKenmerken)
-	#Dim DoosLade As APPS.Halux.PPS.TAORVerpakking.impl.DoosLade = DoosBerekenaar.GeefDoosLade()
-	#Dim TAORKenmerkenMetBinnenlade As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ..TAORKenmerken.%ConstructClone()
+	#dim DoosBerekenaar As APPS.Halux.PPS.TAORVerpakking.impl.DoosBerekenaar = ..GeefDoosBerekenaar(..TAORKenmerken)
+	#dim DoosLade As APPS.Halux.PPS.TAORVerpakking.impl.DoosLade = DoosBerekenaar.GeefDoosLade()
+	#dim TAORKenmerkenMetBinnenlade As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ..TAORKenmerken.%ConstructClone()
 	
-	Set TAORKenmerkenMetBinnenlade.IsBinnenlade = $$$True
+	set TAORKenmerkenMetBinnenlade.IsBinnenlade = $$$True
 	
-	Set DoosBerekenaar = ..GeefDoosBerekenaar(TAORKenmerkenMetBinnenlade)
+	set DoosBerekenaar = ..GeefDoosBerekenaar(TAORKenmerkenMetBinnenlade)
 	
-	#Dim DoosLadeBinnenlade As APPS.Halux.PPS.TAORVerpakking.impl.DoosLade = DoosBerekenaar.GeefDoosLade()
+	#dim DoosLadeBinnenlade As APPS.Halux.PPS.TAORVerpakking.impl.DoosLade = DoosBerekenaar.GeefDoosLade()
 	
-	Do $$$AssertEquals((DoosLade.Breedte + 4), DoosLadeBinnenlade.Breedte)
-	Do $$$AssertEquals((DoosLade.Hoogte + 30), DoosLadeBinnenlade.Hoogte)
+	do $$$AssertEquals((DoosLade.Breedte + 4), DoosLadeBinnenlade.Breedte)
+	do $$$AssertEquals((DoosLade.Hoogte + 30), DoosLadeBinnenlade.Hoogte)
 ]]></Implementation>
 </Method>
 
 <Method name="TestLageLadeMetStandaardOnderdelenHuls">
 <Implementation><![CDATA[
-	Set ..TAORKenmerken.LadeDiepte = ##class(DOM.PM.enu.TAORLadeDiepte).LadeDiepte550()
+	set ..TAORKenmerken.LadeDiepte = ..Enum.LadeDiepte.LadeDiepte550
 	
-	Do ..AssertStandaardHuls(..TAORKenmerken, 90, 678.8)
+	do ..AssertStandaardHuls(..TAORKenmerken, 90, 678.8)
 ]]></Implementation>
 </Method>
 
 <Method name="TestNLadeMetStandaardOnderdelenHuls">
 <Implementation><![CDATA[
-	Set ..TAORKenmerken.LadeDiepte = ##class(DOM.PM.enu.TAORLadeDiepte).LadeDiepte550()
-	Set ..TAORKenmerken.LadeHoogte = ##class(DOM.PM.enu.TAORLadeHoogte).N()
+	set ..TAORKenmerken.LadeDiepte = ..Enum.LadeDiepte.LadeDiepte550
+	set ..TAORKenmerken.LadeHoogte = ..Enum.LadeHoogte.N
 	
-	Do ..AssertStandaardHuls(..TAORKenmerken, 88.4, 678.8)
+	do ..AssertStandaardHuls(..TAORKenmerken, 88.4, 678.8)
 ]]></Implementation>
 </Method>
 
 <Method name="TestHogeLadeMetStandaardOnderdelenHuls">
 <Implementation><![CDATA[
-	Set ..TAORKenmerken.LadeHoogte = ##class(DOM.PM.enu.TAORLadeHoogte).F()
-	Set ..TAORKenmerken.LadeDiepte = ##class(DOM.PM.enu.TAORLadeDiepte).LadeDiepte550()
+	set ..TAORKenmerken.LadeHoogte = ..Enum.LadeHoogte.F
+	set ..TAORKenmerken.LadeDiepte = ..Enum.LadeDiepte.LadeDiepte550
 	
-	Do ..AssertStandaardHuls(..TAORKenmerken, 245, 645.4)
+	do ..AssertStandaardHuls(..TAORKenmerken, 245, 645.4)
 ]]></Implementation>
 </Method>
 
 <Method name="TestKartonSpecificaties">
 <Implementation><![CDATA[
-	#Dim DoosBerekenaar As APPS.Halux.PPS.TAORVerpakking.impl.DoosBerekenaar = ..GeefDoosBerekenaar(..TAORKenmerken)
-	#Dim KartonSpecificaties As APPS.Halux.PPS.Verpakking.dto.KartonSpecificaties = DoosBerekenaar.GeefKartonSpecificaties()
-	#Dim Iterator As TECH.Iterator = KartonSpecificaties.GeefIterator()
-	#Dim AantalSpecificaties As %Integer = 0
+	#dim DoosBerekenaar As APPS.Halux.PPS.TAORVerpakking.impl.DoosBerekenaar = ..GeefDoosBerekenaar(..TAORKenmerken)
+	#dim KartonSpecificaties As APPS.Halux.PPS.Verpakking.dto.KartonSpecificaties = DoosBerekenaar.GeefKartonSpecificaties()
+	#dim Iterator As TECH.Iterator = KartonSpecificaties.GeefIterator()
+	#dim AantalSpecificaties As %Integer = 0
 	
-	While (Iterator.HasNext()) {
-		#Dim KartonSpecificatie As APPS.Halux.PPS.Verpakking.dto.KartonSpecificatie = Iterator.Next()
-		Set AantalSpecificaties = AantalSpecificaties + 1
+	while (Iterator.HasNext()) {
+		#dim KartonSpecificatie As APPS.Halux.PPS.Verpakking.dto.KartonSpecificatie = Iterator.Next()
+		set AantalSpecificaties = AantalSpecificaties + 1
 		
-		If (KartonSpecificatie.BenamingVerpakkingsOnderdeel = ##class(DOM.PM.Verpakking.enu.BenamingVerpakkingsOnderdeel).DoosMetDeksel()) {
-			Do $$$AssertEquals(+$Justify(KartonSpecificatie.NodigeBreedte, 0, 0), 1311, "Breedte van DoosMetDeksel")
-			Do $$$AssertEquals(+$Justify(KartonSpecificatie.NodigeLengte, 0, 0), 1058, "Lengte van DoosMetDeksel")
-			Do $$$AssertEquals(KartonSpecificatie.KartonSamenstelling, ##class(DOM.PM.Verpakking.enu.KartonSamenstelling).Dun(), "Kartonsamenstelling = EB")
-		} ElseIf (KartonSpecificatie.BenamingVerpakkingsOnderdeel = ##class(DOM.PM.Verpakking.enu.BenamingVerpakkingsOnderdeel).DoosLosseOnderdelen()) {
-			Do $$$AssertEquals(+$Justify(KartonSpecificatie.NodigeBreedte, 0, 0), 768, "Breedte van DoosLosseOnderdelen")
-			Do $$$AssertEquals(+$Justify(KartonSpecificatie.NodigeLengte, 0, 0), 476, "Lengte van DoosLosseOnderdelen")
-			Do $$$AssertEquals(KartonSpecificatie.KartonSamenstelling, ##class(DOM.PM.Verpakking.enu.KartonSamenstelling).Dun(), "Kartonsamenstelling = EB")
-		} Else {
-			Do $$$AssertTrue(0, "Allen DoosMetDeksel en Losse onderdelen zijn mogelijk")
+		if (KartonSpecificatie.BenamingVerpakkingsOnderdeel = ##class(DOM.PM.Verpakking.enu.BenamingVerpakkingsOnderdeel).DoosMetDeksel()) {
+			do $$$AssertEquals(+$Justify(KartonSpecificatie.NodigeBreedte, 0, 0), 1311, "Breedte van DoosMetDeksel")
+			do $$$AssertEquals(+$Justify(KartonSpecificatie.NodigeLengte, 0, 0), 1058, "Lengte van DoosMetDeksel")
+			do $$$AssertEquals(KartonSpecificatie.KartonSamenstelling, ##class(DOM.PM.Verpakking.enu.KartonSamenstelling).Dun(), "Kartonsamenstelling = EB")
+		} elseif (KartonSpecificatie.BenamingVerpakkingsOnderdeel = ##class(DOM.PM.Verpakking.enu.BenamingVerpakkingsOnderdeel).DoosLosseOnderdelen()) {
+			do $$$AssertEquals(+$Justify(KartonSpecificatie.NodigeBreedte, 0, 0), 768, "Breedte van DoosLosseOnderdelen")
+			do $$$AssertEquals(+$Justify(KartonSpecificatie.NodigeLengte, 0, 0), 476, "Lengte van DoosLosseOnderdelen")
+			do $$$AssertEquals(KartonSpecificatie.KartonSamenstelling, ##class(DOM.PM.Verpakking.enu.KartonSamenstelling).Dun(), "Kartonsamenstelling = EB")
+		} else {
+			do $$$AssertTrue(0, "Allen DoosMetDeksel en Losse onderdelen zijn mogelijk")
 		}	
 	}
 	
-	Do $$$AssertEquals(AantalSpecificaties, 2) ; er moeten 2 kartonspecificaties zijn een voor DoosMetDeksel en een ander voor LODoos
+	do $$$AssertEquals(AantalSpecificaties, 2) ; er moeten 2 kartonspecificaties zijn een voor DoosMetDeksel en een ander voor LODoos
 ]]></Implementation>
 </Method>
 
 <Method name="TestSnijden">
 <Implementation><![CDATA[
-	#Dim SnijService As vhUnitTest.APPS.Halux.PPS.TAORVerpakking.KartonSnijService = ##class(vhUnitTest.APPS.Halux.PPS.TAORVerpakking.KartonSnijService).%New(1000, ..GeefDoosBerekenaar(..TAORKenmerken))
-	#Dim OptiBoxStub As vhUnitTest.APPS.Halux.PPS.TAORVerpakking.OptiBoxStub = SnijService.GeefOptibox()
+	#dim SnijService As vhUnitTest.APPS.Halux.PPS.TAORVerpakking.KartonSnijService = ##class(vhUnitTest.APPS.Halux.PPS.TAORVerpakking.KartonSnijService).%New(1000, ..GeefDoosBerekenaar(..TAORKenmerken))
+	#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")
-	Do $$$AssertEquals(+$Justify(OptiBoxStub.Params("BREEDTE"), 0, 0), 681, "Lade")
-	Do $$$AssertEquals(+$Justify(OptiBoxStub.Params("DIEPTE"), 0, 0), 513, "Lade")
-	Do $$$AssertEquals(+$Justify(OptiBoxStub.Params("HOOGTE"), 0, 0), 90, "Lade")
+	do SnijService.SnijVoorLade("TEST.DO", "", 1, ##class(BL.Prod.OptiBox.enu.SnijMachine).Halux(), 1)
+	do $$$AssertEquals(OptiBoxStub.BasisRef, "TEST.DO")
+	do $$$AssertEquals(+$Justify(OptiBoxStub.Params("BREEDTE"), 0, 0), 681, "Lade")
+	do $$$AssertEquals(+$Justify(OptiBoxStub.Params("DIEPTE"), 0, 0), 513, "Lade")
+	do $$$AssertEquals(+$Justify(OptiBoxStub.Params("HOOGTE"), 0, 0), 90, "Lade")
 	
-	Do SnijService.SnijVoorLosseOnderdelen("TEST.LO", "", 1, ##class(BL.Prod.OptiBox.enu.SnijMachine).Halux(), 1)
-	Do $$$AssertEquals(OptiBoxStub.BasisRef, "TEST.LO")
-	Do $$$AssertEquals(+$Justify(OptiBoxStub.Params("BREEDTE"), 0, 0), 115, "Losse onderdelen")
-	Do $$$AssertEquals(+$Justify(OptiBoxStub.Params("DIEPTE"), 0, 0), 505, "Losse onderdelen")
-	Do $$$AssertEquals(+$Justify(OptiBoxStub.Params("HOOGTE"), 0, 0), 82, "Losse onderdelen")
-	Do $$$AssertEquals(+$Justify(OptiBoxStub.Params("BREEDTECP"), 0, 0), 57, "Losse onderdelen")
+	do SnijService.SnijVoorLosseOnderdelen("TEST.LO", "", 1, ##class(BL.Prod.OptiBox.enu.SnijMachine).Halux(), 1)
+	do $$$AssertEquals(OptiBoxStub.BasisRef, "TEST.LO")
+	do $$$AssertEquals(+$Justify(OptiBoxStub.Params("BREEDTE"), 0, 0), 115, "Losse onderdelen")
+	do $$$AssertEquals(+$Justify(OptiBoxStub.Params("DIEPTE"), 0, 0), 505, "Losse onderdelen")
+	do $$$AssertEquals(+$Justify(OptiBoxStub.Params("HOOGTE"), 0, 0), 82, "Losse onderdelen")
+	do $$$AssertEquals(+$Justify(OptiBoxStub.Params("BREEDTECP"), 0, 0), 57, "Losse onderdelen")
 ]]></Implementation>
 </Method>
 
 <Method name="AssertStandaardHuls">
 <FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken,VerwachteHoogte:TECH.Numeric,VerwachteBreedte:TECH.Numeric</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	Set ^zStandaardHuls(1000000) = 1
+	set ^zStandaardHuls(1000000) = 1
 	
-	#Dim DoosBerekenaar As APPS.Halux.PPS.TAORVerpakking.impl.DoosBerekenaar = ..GeefDoosBerekenaar(IngegevenKenmerken, 1000000)
-	#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, 1000000)
+	#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)
-	Do $$$AssertEquals(DoosLade.Diepte, 558.4)
-	Do $$$AssertEquals(DoosLosseOnderdelen.Hoogte, 80)
-	Do $$$AssertEquals(DoosLosseOnderdelen.Breedte, 65 + 40 + (4 * ..#KartonDikte) - (2 * ..#KartonDikte))
-	Do $$$AssertEquals(DoosLosseOnderdelen.Diepte, 550)
-	Do $$$AssertEquals(DoosLosseOnderdelen.GeefExterneHoogte(), 80 + (2 * ..#KartonDikte))
-	Do $$$AssertEquals(DoosLosseOnderdelen.GeefExterneBreedte(), 65 + 40 + (4 * ..#KartonDikte))
-	Do $$$AssertEquals(DoosLosseOnderdelen.GeefExterneDiepte(), 550 + (2 * ..#KartonDikte))
-	Do $$$AssertEquals(DoosLosseOnderdelen.BreedteCorpusProfiel, 65)
-	Do $$$AssertEquals(DoosLosseOnderdelen.BreedteAndere, 40)
+	do $$$AssertEquals(DoosLade.Breedte, VerwachteBreedte)
+	do $$$AssertEquals(DoosLade.Hoogte, VerwachteHoogte)
+	do $$$AssertEquals(DoosLade.Diepte, 558.4)
+	do $$$AssertEquals(DoosLosseOnderdelen.Hoogte, 80)
+	do $$$AssertEquals(DoosLosseOnderdelen.Breedte, 65 + 40 + (4 * ..#KartonDikte) - (2 * ..#KartonDikte))
+	do $$$AssertEquals(DoosLosseOnderdelen.Diepte, 550)
+	do $$$AssertEquals(DoosLosseOnderdelen.GeefExterneHoogte(), 80 + (2 * ..#KartonDikte))
+	do $$$AssertEquals(DoosLosseOnderdelen.GeefExterneBreedte(), 65 + 40 + (4 * ..#KartonDikte))
+	do $$$AssertEquals(DoosLosseOnderdelen.GeefExterneDiepte(), 550 + (2 * ..#KartonDikte))
+	do $$$AssertEquals(DoosLosseOnderdelen.BreedteCorpusProfiel, 65)
+	do $$$AssertEquals(DoosLosseOnderdelen.BreedteAndere, 40)
 	
-	Kill ^zStandaardHuls(1000000)
+	kill ^zStandaardHuls(1000000)
 ]]></Implementation>
 </Method>
 
@@ -246,11 +246,11 @@
 <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)
+	set ..Context = ##class(DOM.PM.Maatwerk.Calc.HF.HalffabContext).%New(..Familie, ..Variant, ..BerekeningsSpecificatie)
 	
-	Do ..Context.GeefHalffabSpec().BerekenHalffabDetails(..Context, IngegevenKenmerken)
+	do ..Context.GeefHalffabSpec().BerekenHalffabDetails(..Context, IngegevenKenmerken)
 
-	Quit ##class(APPS.Halux.PPS.TAORVerpakking.impl.DoosBerekenaar).%New(..Context.HalffabItemsBoom, IngegevenKenmerken,ProductID)
+	quit ##class(APPS.Halux.PPS.TAORVerpakking.impl.DoosBerekenaar).%New(..Context.HalffabItemsBoom, IngegevenKenmerken, ProductID)
 ]]></Implementation>
 </Method>
 </Class>