Index: vhUnitTest/APPS/Halux/PPS/TAORVerpakking/TestDoos.cls.xml
===================================================================
diff -u -r29326 -r29334
--- vhUnitTest/APPS/Halux/PPS/TAORVerpakking/TestDoos.cls.xml	(.../TestDoos.cls.xml)	(revision 29326)
+++ vhUnitTest/APPS/Halux/PPS/TAORVerpakking/TestDoos.cls.xml	(.../TestDoos.cls.xml)	(revision 29334)
@@ -1,306 +1,284 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="vhUnitTest.APPS.Halux.PPS.TAORVerpakking.TestDoos">
-<Description>
- d ##class(vhUnitTest.Manager).RunTest("/display=all/debug","APPS.Halux.PPS.TAORVerpakking")</Description>
 <ClassType/>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>vhUnitTest.TestCase</Super>
 
 <Property name="Familie">
 <Type>DOM.PM.enu.Familie</Type>
+<Private>1</Private>
 </Property>
 
 <Property name="Variant">
 <Type>DOM.PM.enu.LadeVariant</Type>
+<Private>1</Private>
 </Property>
 
 <Property name="KlantID">
 <Type>%String</Type>
+<Private>1</Private>
 </Property>
 
 <Property name="Personality">
 <Type>DOM.common.VanHoeckePersonality</Type>
+<Private>1</Private>
 </Property>
 
 <Property name="BerekeningsSpecificatie">
 <Type>DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie</Type>
+<Private>1</Private>
 </Property>
 
 <Property name="Context">
 <Type>DOM.PM.Maatwerk.Calc.HF.HalffabContext</Type>
+<Private>1</Private>
 </Property>
 
-<Method name="TestZonderOnderdelen">
+<Property name="TAORKenmerken">
+<Type>DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeAllTests">
+<ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	#Dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ..MaakLadeM563op500()
+	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)
 	
-	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())
-	Do IngegevenKenmerken.NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).DiepteVerstelling())
-	Do IngegevenKenmerken.NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).Opvullijst())
-	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())
+ 	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+ 	Do ##super(aTestName)
+ 	
+ 	Set ..TAORKenmerken = ..GeefTAORKenmerken(##class(DOM.PM.enu.TAORLadeHoogte).M(), ##class(DOM.PM.enu.TAORLadeDiepte).LadeDiepte500(), 563)
+]]></Implementation>
+</Method>
+
+<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())
 	
-	#Dim DoosBerekenaar as APPS.Halux.PPS.TAORVerpakking.impl.DoosBerekenaar = ..GeefDoosBerekenaar(IngegevenKenmerken)
+	#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, IngegevenKenmerken.LadeDiepte)
+	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="TestLadeZonderCP">
+<Method name="TestLadeZonderGlijder">
 <Implementation><![CDATA[
-	#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)
+	Do ..TAORKenmerken.NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).Glijder())
 
-	Do $$$AssertEquals(DoosBerekenaar.GeefKartonSpecificaties().Kinderen.Count(),2) ; er moeten 2 kartonspecificaties zijn een voor DoosMetDeksel en een ander voor LODoos
+	#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
 	
-	#Dim DoosLosseOnderdelen as APPS.Halux.PPS.TAORVerpakking.impl.DoosLosseOnderdelen = DoosBerekenaar.GeefDoosLosseOnderdelen()
-	Do $$$AssertEquals(DoosLosseOnderdelen.BreedteCorpusProfiel,10)
+	#Dim DoosLosseOnderdelen As APPS.Halux.PPS.TAORVerpakking.impl.DoosLosseOnderdelen = DoosBerekenaar.GeefDoosLosseOnderdelen()
+
+	Do $$$AssertEquals(DoosLosseOnderdelen.BreedteCorpusProfiel, 10)
 ]]></Implementation>
 </Method>
 
-<Method name="TestBinnenladeZonderCP">
+<Method name="TestBinnenladeZonderGlijder">
 <Implementation><![CDATA[
-	#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())
+	Set ..TAORKenmerken.IsBinnenlade = $$$True
 	
-	#Dim DoosBerekenaar as APPS.Halux.PPS.TAORVerpakking.impl.DoosBerekenaar = ..GeefDoosBerekenaar(IngegevenKenmerken)
+	Do ..TAORKenmerken.NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).Glijder())
+	
+	#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()
-	Do $$$AssertEquals(DoosBerekenaar.GeefDoosLade().DoosType,##class(APPS.Halux.PPS.Verpakking.enu.DoosTypes).DoosMetDeksel())
-	Do $$$AssertFalse($IsObject(DoosBerekenaar.GeefDoosLosseOnderdelen()),"Alleen DoosMetDeksel geen losse onderdelen")
+	#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">
+<Method name="TestLadeMetOpvullijst">
 <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 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 IngegevenKenmerkenOpvul As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken=..MaakLadeM563op500()
-	Set IngegevenKenmerkenOpvul.HeeftOpvullijstLinks = 1
-	Set IngegevenKenmerkenOpvul.HeeftOpvullijstRechts = 1
+	Set TAORKenmerkenMetOpvullijsten.HeeftOpvullijstLinks = $$$True
+	Set TAORKenmerkenMetOpvullijsten.HeeftOpvullijstRechts = $$$True
 	
-	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()
-	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
+	Set DoosBerekenaar = ..GeefDoosBerekenaar(TAORKenmerkenMetOpvullijsten)
+	
+	#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
 ]]></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()
+	Set ..TAORKenmerken.LadeHoogte = ##class(DOM.PM.enu.TAORLadeHoogte).C()
 	
-	#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()
-	Do $$$AssertEquals((DoosLadeStd.Breedte+4),DoosLadeBin.Breedte)
-	Do $$$AssertEquals((DoosLadeStd.Hoogte+30),DoosLadeBin.Hoogte)
+	#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 DoosBerekenaar = ..GeefDoosBerekenaar(TAORKenmerkenMetBinnenlade)
+	
+	#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)
 ]]></Implementation>
 </Method>
 
 <Method name="TestLageLadeMetStandaardOnderdelenHuls">
 <Implementation><![CDATA[
-	#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)
+	Set ..TAORKenmerken.LadeDiepte = ##class(DOM.PM.enu.TAORLadeDiepte).LadeDiepte550()
+	
+	Do ..AssertStandaardHuls(..TAORKenmerken, 90, 678.8)
 ]]></Implementation>
 </Method>
 
 <Method name="TestHogeLadeMetStandaardOnderdelenHuls">
 <Implementation><![CDATA[
-	#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)
-]]></Implementation>
-</Method>
-
-<Method name="StandaardHulsTest">
-<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()
+	Set ..TAORKenmerken.LadeHoogte = ##class(DOM.PM.enu.TAORLadeHoogte).F()
+	Set ..TAORKenmerken.LadeDiepte = ##class(DOM.PM.enu.TAORLadeDiepte).LadeDiepte550()
 	
-	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*4.2) - (2 * 4.2))
-	Do $$$AssertEquals(DoosLosseOnderdelen.Diepte, 550)
-	Do $$$AssertEquals(DoosLosseOnderdelen.GeefExterneHoogte(), 80 + (2 * 4.2))
-	Do $$$AssertEquals(DoosLosseOnderdelen.GeefExterneBreedte(), 65+40+(4*4.2))
-	Do $$$AssertEquals(DoosLosseOnderdelen.GeefExterneDiepte(), 550 + (2 * 4.2))
-	Do $$$AssertEquals(DoosLosseOnderdelen.BreedteCorpusProfiel, 65)
-	Do $$$AssertEquals(DoosLosseOnderdelen.BreedteAndere, 40)
-	Set ^||DezeVariabeleBevatTijdelijkOfHetDeJuisteBatchIDIs = $$$False
+	Do ..AssertStandaardHuls(..TAORKenmerken, 245, 645.4)
 ]]></Implementation>
 </Method>
 
-<Method name="TestKartonSpecs">
+<Method name="TestKartonSpecificaties">
 <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 KartonSpecs as APPS.Halux.PPS.Verpakking.dto.KartonSpecificaties = DoosBerekenaar.GeefKartonSpecificaties()
-	#Dim Iterator As TECH.Iterator = KartonSpecs.GeefIterator()
-	#Dim AantalSpecs 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 KartonSpec as APPS.Halux.PPS.Verpakking.dto.KartonSpecificatie = Iterator.Next()
-		Set AantalSpecs = AantalSpecs + 1
+		#Dim KartonSpecificatie As APPS.Halux.PPS.Verpakking.dto.KartonSpecificatie = Iterator.Next()
+		Set AantalSpecificaties = AantalSpecificaties + 1
 		
-		If (KartonSpec.BenamingVerpakkingsOnderdeel = ##class(DOM.PM.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(DOM.PM.Verpakking.enu.KartonSamenstelling).Dun(), "Kartonsamenstelling = EB")
-		} ElseIf (KartonSpec.BenamingVerpakkingsOnderdeel = ##class(DOM.PM.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(DOM.PM.Verpakking.enu.KartonSamenstelling).Dun(), "Kartonsamenstelling = EB")
+		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(AantalSpecs, 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 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 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(+$J(OptiBoxStub.Params("BREEDTE"),0,0),681,"Lade")
-	Do $$$AssertEquals(+$J(OptiBoxStub.Params("DIEPTE"),0,0),513,"Lade")
-	Do $$$AssertEquals(+$J(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(+$J(OptiBoxStub.Params("BREEDTE"),0,0),115,"Losse onderdelen")
-	Do $$$AssertEquals(+$J(OptiBoxStub.Params("DIEPTE"),0,0),505,"Losse onderdelen")
-	Do $$$AssertEquals(+$J(OptiBoxStub.Params("HOOGTE"),0,0),82,"Losse onderdelen")
-	Do $$$AssertEquals(+$J(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="MaakLadeM563op500">
+<Method name="AssertStandaardHuls">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken,VerwachteHoogte:TECH.Numeric,VerwachteBreedte:TECH.Numeric</FormalSpec>
 <Private>1</Private>
-<ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</ReturnType>
 <Implementation><![CDATA[
-	#Dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).%New()
+	Set ^||DezeVariabeleBevatTijdelijkOfHetDeJuisteBatchIDIs = $$$True
 	
-	Set IngegevenKenmerken.LadeDiepte = 500
-	Set IngegevenKenmerken.LadeKleur = ##class(DOM.PM.enu.TAORLadeKleur).NatuurNotenhout()
-	Set IngegevenKenmerken.LadeHoogte = ##class(DOM.PM.enu.TAORLadeHoogte).M()
-	Set IngegevenKenmerken.IsBinnenlade = 0
-	Set IngegevenKenmerken.Draagkracht = 40
-	Set IngegevenKenmerken.CorpusBinnenbreedte = 563
-	Set IngegevenKenmerken.GlijderType = ##class(DOM.PM.enu.TAORGlijderType).Movento()
-	Set IngegevenKenmerken.HeeftDiepteVerstelling = 0
-	Set IngegevenKenmerken.HeeftOpvullijstLinks = 0
-	Set IngegevenKenmerken.HeeftOpvullijstRechts = 0
-	Set IngegevenKenmerken.HeeftTipon = 0
-	Set IngegevenKenmerken.HeeftZijstabilisering = 0
-	Set IngegevenKenmerken.FrontBevestiging = ##class(DOM.PM.enu.TAORFrontBevestiging).Expando()
-	Set IngegevenKenmerken.VerpakkingType=##class(DOM.PM.enu.TAORVerpakkingType).V1()
-	Set IngegevenKenmerken.OpvullijstKleur=##class(DOM.PM.enu.TAOROpvullijstKleur).Lichtgrijs()
-	Set IngegevenKenmerken.BodemKleur = ##class(DOM.PM.enu.TAORLadeKleur).NatuurNotenhout()
-	Set IngegevenKenmerken.AfdekkapBovenKleur = ##class(DOM.PM.enu.TAORAfdekkapBovenKleur).AluminiumLook()
-	Set IngegevenKenmerken.KoppelingType = ##class(DOM.PM.enu.TAORKoppelingType).Schroef()
+	#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()
 	
-	Quit IngegevenKenmerken
-]]></Implementation>
-</Method>
-
-<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()
+	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 * 4.2) - (2 * 4.2))
+	Do $$$AssertEquals(DoosLosseOnderdelen.Diepte, 550)
+	Do $$$AssertEquals(DoosLosseOnderdelen.GeefExterneHoogte(), 80 + (2 * 4.2))
+	Do $$$AssertEquals(DoosLosseOnderdelen.GeefExterneBreedte(), 65 + 40 + (4 * 4.2))
+	Do $$$AssertEquals(DoosLosseOnderdelen.GeefExterneDiepte(), 550 + (2 * 4.2))
+	Do $$$AssertEquals(DoosLosseOnderdelen.BreedteCorpusProfiel, 65)
+	Do $$$AssertEquals(DoosLosseOnderdelen.BreedteAndere, 40)
 	
-	Set IngegevenKenmerken.LadeDiepte = 500
-	Set IngegevenKenmerken.LadeKleur = ##class(DOM.PM.enu.TAORLadeKleur).NatuurNotenhout()
-	Set IngegevenKenmerken.BodemKleur = ##class(DOM.PM.enu.TAORLadeKleur).NatuurNotenhout()
-	Set IngegevenKenmerken.LadeHoogte = ##class(DOM.PM.enu.TAORLadeHoogte).C()
-	Set IngegevenKenmerken.IsBinnenlade = 0
-	Set IngegevenKenmerken.Draagkracht = 40
-	Set IngegevenKenmerken.CorpusBinnenbreedte = 563
-	Set IngegevenKenmerken.GlijderType = ##class(DOM.PM.enu.TAORGlijderType).Movento()
-	Set IngegevenKenmerken.HeeftDiepteVerstelling = 0
-	Set IngegevenKenmerken.HeeftOpvullijstLinks = 0
-	Set IngegevenKenmerken.HeeftOpvullijstRechts = 0
-	Set IngegevenKenmerken.HeeftTipon = 0
-	Set IngegevenKenmerken.HeeftZijstabilisering = 0
-	Set IngegevenKenmerken.FrontBevestiging = ##class(DOM.PM.enu.TAORFrontBevestiging).Expando()
-	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
+	Set ^||DezeVariabeleBevatTijdelijkOfHetDeJuisteBatchIDIs = $$$False
 ]]></Implementation>
 </Method>
 
-<Method name="MaakBinnenLadeC1400op750">
+<Method name="GeefDoosBerekenaar">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</FormalSpec>
 <Private>1</Private>
+<ReturnType>APPS.Halux.PPS.TAORVerpakking.impl.DoosBerekenaar</ReturnType>
 <Implementation><![CDATA[
-	#Dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken=..MaakLadeC1400op750()
+	Set ..Context = ##class(DOM.PM.Maatwerk.Calc.HF.HalffabContext).%New(..Familie, ..Variant, ..BerekeningsSpecificatie)
 	
-	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>
+	Do ..Context.GeefHalffabSpec().BerekenHalffabDetails(..Context, IngegevenKenmerken)
 
-<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 ..KlantID = "K||7587"
-	Set ..Personality = ##class(DOM.common.VanHoeckePersonality).Instance()
-	Set ..BerekeningsSpecificatie = ##class(DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie).%New(1, ..KlantID, ..Personality)
-	
- 	Quit $$$OK
+	Quit ##class(APPS.Halux.PPS.TAORVerpakking.impl.DoosBerekenaar).%New(..Context.HalffabItemsBoom, IngegevenKenmerken)
 ]]></Implementation>
 </Method>
 
-<Method name="GeefDoosBerekenaar">
-<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</FormalSpec>
+<Method name="GeefTAORKenmerken">
+<FormalSpec>LadeHoogte:DOM.PM.enu.TAORLadeHoogte,LadeDiepte:DOM.PM.enu.TAORLadeDiepte,CorpusBinnenBreedte:%Integer</FormalSpec>
 <Private>1</Private>
-<ReturnType>APPS.Halux.PPS.TAORVerpakking.impl.DoosBerekenaar</ReturnType>
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</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
+	#Dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).%New()
 	
-	Quit ##class(APPS.Halux.PPS.TAORVerpakking.impl.DoosBerekenaar).%New(HalffabItemsBoom, IngegevenKenmerken)
+	Set TAORKenmerken.LadeHoogte = LadeHoogte
+	Set TAORKenmerken.LadeDiepte = LadeDiepte
+	Set TAORKenmerken.CorpusBinnenbreedte = CorpusBinnenBreedte
+	Set TAORKenmerken.LadeKleur = ##class(DOM.PM.enu.TAORLadeKleur).NatuurNotenhout()
+	Set TAORKenmerken.BodemKleur = ##class(DOM.PM.enu.TAORLadeKleur).NatuurNotenhout()
+	Set TAORKenmerken.IsBinnenlade = $$$False
+	Set TAORKenmerken.Draagkracht = ##class(DOM.PM.enu.TAORDraagkracht).Draagkracht40()
+	Set TAORKenmerken.GlijderType = ##class(DOM.PM.enu.TAORGlijderType).Movento()
+	Set TAORKenmerken.HeeftDiepteVerstelling = $$$False
+	Set TAORKenmerken.HeeftOpvullijstLinks = $$$False
+	Set TAORKenmerken.HeeftOpvullijstRechts = $$$False
+	Set TAORKenmerken.HeeftTipon = $$$False
+	Set TAORKenmerken.HeeftZijstabilisering = $$$False
+	Set TAORKenmerken.FrontBevestiging = ##class(DOM.PM.enu.TAORFrontBevestiging).Expando()
+	Set TAORKenmerken.VerpakkingType = ##class(DOM.PM.enu.TAORVerpakkingType).V1()
+	Set TAORKenmerken.OpvullijstKleur = ##class(DOM.PM.enu.TAOROpvullijstKleur).Lichtgrijs()
+	Set TAORKenmerken.FrontEindkapKleur = ##class(DOM.PM.enu.TAORFrontEindkapKleur).AluminiumLook()
+	Set TAORKenmerken.AfdekkapBovenKleur = ##class(DOM.PM.enu.TAORAfdekkapBovenKleur).AluminiumLook()
+	Set TAORKenmerken.KoppelingType = ##class(DOM.PM.enu.TAORKoppelingType).Schroef()
+	
+	Quit TAORKenmerken
 ]]></Implementation>
 </Method>
 </Class>