Index: vhUnitTest/DOM/PM/Verpakking/impl/DoosBerekenaar/TestDoos.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/PM/Verpakking/impl/DoosBerekenaar/TestDoos.cls.xml	(revision 0)
+++ vhUnitTest/DOM/PM/Verpakking/impl/DoosBerekenaar/TestDoos.cls.xml	(revision 29454)
@@ -0,0 +1,50 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.DOM.PM.Verpakking.impl.DoosBerekenaar.TestDoos">
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhUnitTest.TestCase</Super>
+
+<Parameter name="KartonDikte">
+<Type>%Numeric</Type>
+<Default>4.2</Default>
+</Parameter>
+
+<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>
+
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+	Do ##super()
+	Set ..Familie = ##class(DOM.PM.enu.Familie).Lade()
+	Set ..KlantID = "K||7587"
+	Set ..Personality = ##class(DOM.common.VanHoeckePersonality).Instance()
+	Set ..BerekeningsSpecificatie = ##class(DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie).%New(1, ..KlantID, ..Personality)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/Halux/PPS/TAORVerpakking/TestDoos.cls.xml
===================================================================
diff -u -r29335 -r29454
--- vhUnitTest/APPS/Halux/PPS/TAORVerpakking/TestDoos.cls.xml	(.../TestDoos.cls.xml)	(revision 29335)
+++ vhUnitTest/APPS/Halux/PPS/TAORVerpakking/TestDoos.cls.xml	(.../TestDoos.cls.xml)	(revision 29454)
@@ -3,33 +3,8 @@
 <Class name="vhUnitTest.APPS.Halux.PPS.TAORVerpakking.TestDoos">
 <ClassType/>
 <ProcedureBlock>1</ProcedureBlock>
-<Super>vhUnitTest.TestCase</Super>
+<Super>vhUnitTest.DOM.PM.Verpakking.impl.DoosBerekenaar.TestDoos</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>
@@ -41,15 +16,9 @@
 </Property>
 
 <Method name="OnBeforeAllTests">
-<ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	Set ..Familie = ##class(DOM.PM.enu.Familie).Lade()
+	Do ##super()
 	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
 ]]></Implementation>
 </Method>
 
@@ -245,11 +214,11 @@
 	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.Breedte, 65 + 40 + (4 * ..#KartonDikte) - (2 * ..#KartonDikte))
 	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.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)
 	
Index: vhUnitTest/APPS/Halux/PPS/LBXVerpakking/TestDoos.cls.xml
===================================================================
diff -u -r29326 -r29454
--- vhUnitTest/APPS/Halux/PPS/LBXVerpakking/TestDoos.cls.xml	(.../TestDoos.cls.xml)	(revision 29326)
+++ vhUnitTest/APPS/Halux/PPS/LBXVerpakking/TestDoos.cls.xml	(.../TestDoos.cls.xml)	(revision 29454)
@@ -5,32 +5,19 @@
  d ##class(vhUnitTest.Manager).RunTest("/display=all/debug","APPS.Halux.PPS.LBXVerpakking")</Description>
 <ClassType/>
 <ProcedureBlock>1</ProcedureBlock>
-<Super>vhUnitTest.TestCase</Super>
+<Super>vhUnitTest.DOM.PM.Verpakking.impl.DoosBerekenaar.TestDoos</Super>
 
-<Property name="Familie">
-<Type>DOM.PM.enu.Familie</Type>
-</Property>
-
-<Property name="Variant">
-<Type>DOM.PM.enu.LadeVariant</Type>
-</Property>
-
-<Property name="KlantID">
-<Type>%String</Type>
-</Property>
-
-<Property name="Personality">
-<Type>DOM.common.VanHoeckePersonality</Type>
-</Property>
-
-<Property name="BerekeningsSpecificatie">
-<Type>DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie</Type>
-</Property>
-
 <Property name="Context">
 <Type>DOM.PM.Maatwerk.Calc.HF.HalffabContext</Type>
 </Property>
 
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+	Do ##super()
+	Set ..Variant=##class(DOM.PM.enu.LadeVariant).LBXPure()
+]]></Implementation>
+</Method>
+
 <Method name="TestZonderOnderdelenGeenLODoos">
 <Implementation><![CDATA[
 	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..MaakLadeMSmalEnOndiep()
@@ -154,7 +141,7 @@
 	#dim DoosLosseOnderdelen as DOM.PM.Verpakking.DoosLosseOnderdelen = DoosBerekenaar.GeefDoosLosseOnderdelen()
 	Do $$$AssertEquals(DoosLade.Breedte, 346.8)
 	Do $$$AssertEquals(DoosLade.Hoogte, 90)
-	Do $$$AssertEquals(DoosLade.Diepte, 270 + (2 * 4.2))
+	Do $$$AssertEquals(DoosLade.Diepte, 270 + (2 * ..#KartonDikte))
 	Do $$$AssertEquals(DoosLosseOnderdelen.Hoogte, 81.6)
 	Do $$$AssertEquals(DoosLosseOnderdelen.Breedte, 88.4)
 	Do $$$AssertEquals(DoosLosseOnderdelen.Diepte, 270)
@@ -177,15 +164,15 @@
 
 	Do $$$AssertEquals(DoosLade.Breedte, 1224.4)
 	Do $$$AssertEquals(DoosLade.Hoogte, 200)
-	Do $$$AssertEquals(DoosLade.Diepte, 600 + (2 * 4.2))
+	Do $$$AssertEquals(DoosLade.Diepte, 600 + (2 * ..#KartonDikte))
 	Do $$$AssertEquals(DoosLosseOnderdelen.Hoogte, 60)
-	Do $$$AssertEquals(DoosLosseOnderdelen.Breedte, (DoosLade.Hoogte - 5) - (2 * 4.2))
+	Do $$$AssertEquals(DoosLosseOnderdelen.Breedte, (DoosLade.Hoogte - 5) - (2 * ..#KartonDikte))
 	Do $$$AssertEquals(DoosLosseOnderdelen.Diepte, 600)
-	Do $$$AssertEquals(DoosLosseOnderdelen.GeefExterneHoogte(), 60 + (2 * 4.2))			// LO doos is plat en breed
+	Do $$$AssertEquals(DoosLosseOnderdelen.GeefExterneHoogte(), 60 + (2 * ..#KartonDikte))			// LO doos is plat en breed
 	Do $$$AssertEquals(DoosLosseOnderdelen.GeefExterneBreedte(), DoosLade.Hoogte - 5)	// Verbreed tot ladehoogte - 5mm
-	Do $$$AssertEquals(DoosLosseOnderdelen.GeefExterneDiepte(), 600 + (2 * 4.2))
+	Do $$$AssertEquals(DoosLosseOnderdelen.GeefExterneDiepte(), 600 + (2 * ..#KartonDikte))
 	Do $$$AssertEquals(DoosLosseOnderdelen.BreedteCorpusProfiel, 67)
-	Do $$$AssertEquals(DoosLosseOnderdelen.BreedteAndere, DoosLosseOnderdelen.Breedte - 67 - (2 * 4.2))
+	Do $$$AssertEquals(DoosLosseOnderdelen.BreedteAndere, DoosLosseOnderdelen.Breedte - 67 - (2 * ..#KartonDikte))
 ]]></Implementation>
 </Method>
 
@@ -218,11 +205,11 @@
 	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.Breedte, 65+40+(4*..#KartonDikte) - (2 * ..#KartonDikte))
 	Do $$$AssertEquals(DoosLosseOnderdelen.Diepte, 550)
-	Do $$$AssertEquals(DoosLosseOnderdelen.GeefExterneHoogte(), 80 + (2 * 4.2))			// LO doos is plat en breed
-	Do $$$AssertEquals(DoosLosseOnderdelen.GeefExterneBreedte(), 65+40+(4*4.2))	// Verbreed tot ladehoogte - 5mm
-	Do $$$AssertEquals(DoosLosseOnderdelen.GeefExterneDiepte(), 550 + (2 * 4.2))
+	Do $$$AssertEquals(DoosLosseOnderdelen.GeefExterneHoogte(), 80 + (2 * ..#KartonDikte))			// LO doos is plat en breed
+	Do $$$AssertEquals(DoosLosseOnderdelen.GeefExterneBreedte(), 65+40+(4*..#KartonDikte))	// Verbreed tot ladehoogte - 5mm
+	Do $$$AssertEquals(DoosLosseOnderdelen.GeefExterneDiepte(), 550 + (2 * ..#KartonDikte))
 	Do $$$AssertEquals(DoosLosseOnderdelen.BreedteCorpusProfiel, 65)
 	Do $$$AssertEquals(DoosLosseOnderdelen.BreedteAndere, 40)
 	Set ^||DezeVariabeleBevatTijdelijkOfHetDeJuisteBatchIDIs = $$$False
@@ -283,16 +270,16 @@
 	
 	Do $$$AssertEquals(DoosLade.Breedte, IngegevenKenmerken.InterneBreedte - 14 + DoosLosseOnderdelen.GeefExterneHoogte())
 	Do $$$AssertEquals(DoosLade.Hoogte, DoosLosseOnderdelen.GeefExterneBreedte() + 5)
-	Do $$$AssertEquals(DoosLade.Diepte, 270 + (2 * 4.2))
+	Do $$$AssertEquals(DoosLade.Diepte, 270 + (2 * ..#KartonDikte))
 
 	Do $$$AssertEquals(DoosLosseOnderdelen.Breedte,150.4)
 	Do $$$AssertEquals(DoosLosseOnderdelen.BreedteCorpusProfiel,67)
 	Do $$$AssertEquals(DoosLosseOnderdelen.BreedteAndere,75)
 	Do $$$AssertEquals(DoosLosseOnderdelen.Diepte, 270)
 	Do $$$AssertEquals(DoosLosseOnderdelen.Hoogte, 60)
-	Do $$$AssertEquals(DoosLosseOnderdelen.GeefExterneHoogte(), 60 + (2 * 4.2))
-	Do $$$AssertEquals(DoosLosseOnderdelen.GeefExterneDiepte(), 270 + (2 * 4.2))
-	Do $$$AssertEquals(DoosLosseOnderdelen.GeefExterneBreedte(), 150.4 + (2 * 4.2))
+	Do $$$AssertEquals(DoosLosseOnderdelen.GeefExterneHoogte(), 60 + (2 * ..#KartonDikte))
+	Do $$$AssertEquals(DoosLosseOnderdelen.GeefExterneDiepte(), 270 + (2 * ..#KartonDikte))
+	Do $$$AssertEquals(DoosLosseOnderdelen.GeefExterneBreedte(), 150.4 + (2 * ..#KartonDikte))
 ]]></Implementation>
 </Method>
 
@@ -418,19 +405,6 @@
 ]]></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).LBXPure()
-	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
-]]></Implementation>
-</Method>
-
 <Method name="GeefDoosBerekenaar">
 <FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken</FormalSpec>
 <Private>1</Private>