FishEye: Tag 29169 refers to a dead (removed) revision in file `zTryout/PBO/TAXBOG/impl/DoosBerekenaar/Bodem.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: zTryout/PBO/TAXBOG/impl/DoosBerekenaarInput.cls.xml
===================================================================
diff -u
--- zTryout/PBO/TAXBOG/impl/DoosBerekenaarInput.cls.xml	(revision 0)
+++ zTryout/PBO/TAXBOG/impl/DoosBerekenaarInput.cls.xml	(revision 29169)
@@ -0,0 +1,37 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.PBO.TAXBOG.impl.DoosBerekenaarInput">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="LadeOnderdeel">
+<Type>DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel</Type>
+<Required>1</Required>
+</Property>
+
+<Property name="AantalOnderdelen">
+<Type>%Integer</Type>
+<Required>1</Required>
+</Property>
+
+<Property name="BenamingVerpakking">
+<Type>APPS.Halux.PPS.Verpakking.enu.BenamingVerpakkingsOnderdeel</Type>
+<Required>1</Required>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>LadeOnderdeel:DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel,AantalOnderdelen:%Integer,BenamingVerpakking:APPS.Halux.PPS.Verpakking.enu.BenamingVerpakkingsOnderdeel</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	set ..LadeOnderdeel = LadeOnderdeel
+	set ..AantalOnderdelen = AantalOnderdelen
+	set ..BenamingVerpakking = BenamingVerpakking
+	quit $$$OK
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFVerpakkingv001.cls.xml
===================================================================
diff -u -r29167 -r29169
--- DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFVerpakkingv001.cls.xml	(.../HFVerpakkingv001.cls.xml)	(revision 29167)
+++ DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFVerpakkingv001.cls.xml	(.../HFVerpakkingv001.cls.xml)	(revision 29169)
@@ -70,49 +70,49 @@
 <Method name="VerwerkBulkPerOnderdeelGegroepeerd">
 <Private>1</Private>
 <Implementation><![CDATA[
-	Set DoosBerekenaarBodem = ##class(zTryout.PBO.TAXBOG.impl.DoosBerekenaar.Bodem).%New()
+	#dim Lade As DOM.PM.Maatwerk.LadeInfo.Lade = ##class(DOM.DomeinContext).Instance().GeefMaatwerkCalcAPI().GeefLadeInfo(..HalffabItemsBoom, ..IngegevenKenmerken)
 	
-	Set Input = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001BulkPerOnderdeelGegroepeerdInput).%New("Bodem",38)
-	Do Input.ZetVerpakkingen(DoosBerekenaarBodem.GeefVerpakkingen(..HalffabItemsBoom, ..IngegevenKenmerken, ..BenamingVerpakkingen.Bodem))
-	;Do Input.VoegToe(##class(DOM.PM.Maatwerk.Calc.HF.impl.HFBulkPerOnderdeelGegroepeerdVerpakkingKartonSpecificatie).%New(..BenamingVerpakkingen.Bodem, (174.5*2)+(148*2), 542+(148*2), 5), 8)
-	;Do Input.VoegToe(##class(DOM.PM.Maatwerk.Calc.HF.impl.HFBulkPerOnderdeelGegroepeerdVerpakkingKartonSpecificatie).%New(..BenamingVerpakkingen.Bodem, (174.5*2)+(148*2), 542+(148*2), 3), 1)
-	Do ..Builders.Insert(##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001BulkPerOnderdeelGegroepeerd).%New(##this, Input))
+	Set DoosBerekenaarBodem = ##class(zTryout.PBO.TAXBOG.impl.DoosBerekenaar).%New()
+	Set BuilderInput = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001BulkPerOnderdeelGegroepeerdInput).%New("Bodem",38)
 
-	Set Input = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001BulkPerOnderdeelGegroepeerdInput).%New("Bodem",38)
-	Do Input.ZetVerpakkingen(DoosBerekenaarBodem.GeefVerpakkingen(..HalffabItemsBoom, ..IngegevenKenmerken, ..BenamingVerpakkingen.Deksel))
-	;Do Input.VoegToe(##class(DOM.PM.Maatwerk.Calc.HF.impl.HFBulkPerOnderdeelGegroepeerdVerpakkingKartonSpecificatie).%New(..BenamingVerpakkingen.Deksel, (174.5*2)+(148*2), 542+(148*2), 5), 8)
-	;Do Input.VoegToe(##class(DOM.PM.Maatwerk.Calc.HF.impl.HFBulkPerOnderdeelGegroepeerdVerpakkingKartonSpecificatie).%New(..BenamingVerpakkingen.Deksel, (174.5*2)+(148*2), 542+(148*2), 3), 1)
-	Do ..Builders.Insert(##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001BulkPerOnderdeelGegroepeerd).%New(##this, Input))
+	Set DoosBerekenaarBodemInput = ##class(zTryout.PBO.TAXBOG.impl.DoosBerekenaarInput).%New(Lade.GeefBodems().GetAt(1),38,..BenamingVerpakkingen.Bodem)
+	Do BuilderInput.ZetVerpakkingen(DoosBerekenaarBodem.GeefVerpakkingen(DoosBerekenaarBodemInput))
+	Do ..Builders.Insert(##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001BulkPerOnderdeelGegroepeerd).%New(##this, BuilderInput))
 	
-	Set Input = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001BulkPerOnderdeelGegroepeerdInput).%New("Rug",38)
-	Do Input.VoegToe(##class(DOM.PM.Maatwerk.Calc.HF.impl.HFBulkPerOnderdeelGegroepeerdVerpakkingKartonSpecificatie).%New(..BenamingVerpakkingen.Bodem, (174.5*2)+(148*2), 542+(148*2), 5), 8)
-	Do Input.VoegToe(##class(DOM.PM.Maatwerk.Calc.HF.impl.HFBulkPerOnderdeelGegroepeerdVerpakkingKartonSpecificatie).%New(..BenamingVerpakkingen.Bodem, (174.5*2)+(148*2), 542+(148*2), 3), 1)
-	Do ..Builders.Insert(##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001BulkPerOnderdeelGegroepeerd).%New(##this, Input))
+	Set BuilderInput = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001BulkPerOnderdeelGegroepeerdInput).%New("Bodem",38)
+	Set DoosBerekenaarBodemInput = ##class(zTryout.PBO.TAXBOG.impl.DoosBerekenaarInput).%New(Lade.GeefBodems().GetAt(1),38,..BenamingVerpakkingen.Deksel)
+	Do BuilderInput.ZetVerpakkingen(DoosBerekenaarBodem.GeefVerpakkingen(DoosBerekenaarBodemInput))
+	Do ..Builders.Insert(##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001BulkPerOnderdeelGegroepeerd).%New(##this, BuilderInput))
+	
+	Set BuilderInput = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001BulkPerOnderdeelGegroepeerdInput).%New("Rug",38)
+	Do BuilderInput.VoegToe(##class(DOM.PM.Maatwerk.Calc.HF.impl.HFBulkPerOnderdeelGegroepeerdVerpakkingKartonSpecificatie).%New(..BenamingVerpakkingen.Bodem, (174.5*2)+(148*2), 542+(148*2), 5), 8)
+	Do BuilderInput.VoegToe(##class(DOM.PM.Maatwerk.Calc.HF.impl.HFBulkPerOnderdeelGegroepeerdVerpakkingKartonSpecificatie).%New(..BenamingVerpakkingen.Bodem, (174.5*2)+(148*2), 542+(148*2), 3), 1)
+	Do ..Builders.Insert(##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001BulkPerOnderdeelGegroepeerd).%New(##this, BuilderInput))
 
-	Set Input = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001BulkPerOnderdeelGegroepeerdInput).%New("Rug",38)
-	Do Input.VoegToe(##class(DOM.PM.Maatwerk.Calc.HF.impl.HFBulkPerOnderdeelGegroepeerdVerpakkingKartonSpecificatie).%New(..BenamingVerpakkingen.Deksel, (174.5*2)+(148*2), 542+(148*2), 5), 8)
-	Do Input.VoegToe(##class(DOM.PM.Maatwerk.Calc.HF.impl.HFBulkPerOnderdeelGegroepeerdVerpakkingKartonSpecificatie).%New(..BenamingVerpakkingen.Deksel, (174.5*2)+(148*2), 542+(148*2), 3), 1)
-	Do ..Builders.Insert(##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001BulkPerOnderdeelGegroepeerd).%New(##this, Input))
+	Set BuilderInput = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001BulkPerOnderdeelGegroepeerdInput).%New("Rug",38)
+	Do BuilderInput.VoegToe(##class(DOM.PM.Maatwerk.Calc.HF.impl.HFBulkPerOnderdeelGegroepeerdVerpakkingKartonSpecificatie).%New(..BenamingVerpakkingen.Deksel, (174.5*2)+(148*2), 542+(148*2), 5), 8)
+	Do BuilderInput.VoegToe(##class(DOM.PM.Maatwerk.Calc.HF.impl.HFBulkPerOnderdeelGegroepeerdVerpakkingKartonSpecificatie).%New(..BenamingVerpakkingen.Deksel, (174.5*2)+(148*2), 542+(148*2), 3), 1)
+	Do ..Builders.Insert(##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001BulkPerOnderdeelGegroepeerd).%New(##this, BuilderInput))
 	
-	Set Input = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001BulkPerOnderdeelGegroepeerdInput).%New("Zijkant",38)
-	Do Input.VoegToe(##class(DOM.PM.Maatwerk.Calc.HF.impl.HFBulkPerOnderdeelGegroepeerdVerpakkingKartonSpecificatie).%New(..BenamingVerpakkingen.Bodem, (174.5*2)+(148*2), 542+(148*2), 5), 8)
-	Do Input.VoegToe(##class(DOM.PM.Maatwerk.Calc.HF.impl.HFBulkPerOnderdeelGegroepeerdVerpakkingKartonSpecificatie).%New(..BenamingVerpakkingen.Bodem, (174.5*2)+(148*2), 542+(148*2), 3), 1)
-	Do ..Builders.Insert(##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001BulkPerOnderdeelGegroepeerd).%New(##this, Input))
+	Set BuilderInput = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001BulkPerOnderdeelGegroepeerdInput).%New("Zijkant",38)
+	Do BuilderInput.VoegToe(##class(DOM.PM.Maatwerk.Calc.HF.impl.HFBulkPerOnderdeelGegroepeerdVerpakkingKartonSpecificatie).%New(..BenamingVerpakkingen.Bodem, (174.5*2)+(148*2), 542+(148*2), 5), 8)
+	Do BuilderInput.VoegToe(##class(DOM.PM.Maatwerk.Calc.HF.impl.HFBulkPerOnderdeelGegroepeerdVerpakkingKartonSpecificatie).%New(..BenamingVerpakkingen.Bodem, (174.5*2)+(148*2), 542+(148*2), 3), 1)
+	Do ..Builders.Insert(##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001BulkPerOnderdeelGegroepeerd).%New(##this, BuilderInput))
 
-	Set Input = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001BulkPerOnderdeelGegroepeerdInput).%New("Zijkant",38)
-	Do Input.VoegToe(##class(DOM.PM.Maatwerk.Calc.HF.impl.HFBulkPerOnderdeelGegroepeerdVerpakkingKartonSpecificatie).%New(..BenamingVerpakkingen.Deksel, (174.5*2)+(148*2), 542+(148*2), 5), 8)
-	Do Input.VoegToe(##class(DOM.PM.Maatwerk.Calc.HF.impl.HFBulkPerOnderdeelGegroepeerdVerpakkingKartonSpecificatie).%New(..BenamingVerpakkingen.Deksel, (174.5*2)+(148*2), 542+(148*2), 3), 1)
-	Do ..Builders.Insert(##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001BulkPerOnderdeelGegroepeerd).%New(##this, Input))
+	Set BuilderInput = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001BulkPerOnderdeelGegroepeerdInput).%New("Zijkant",38)
+	Do BuilderInput.VoegToe(##class(DOM.PM.Maatwerk.Calc.HF.impl.HFBulkPerOnderdeelGegroepeerdVerpakkingKartonSpecificatie).%New(..BenamingVerpakkingen.Deksel, (174.5*2)+(148*2), 542+(148*2), 5), 8)
+	Do BuilderInput.VoegToe(##class(DOM.PM.Maatwerk.Calc.HF.impl.HFBulkPerOnderdeelGegroepeerdVerpakkingKartonSpecificatie).%New(..BenamingVerpakkingen.Deksel, (174.5*2)+(148*2), 542+(148*2), 3), 1)
+	Do ..Builders.Insert(##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001BulkPerOnderdeelGegroepeerd).%New(##this, BuilderInput))
 	
-	Set Input = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001BulkPerOnderdeelGegroepeerdInput).%New("Front",38)
-	Do Input.VoegToe(##class(DOM.PM.Maatwerk.Calc.HF.impl.HFBulkPerOnderdeelGegroepeerdVerpakkingKartonSpecificatie).%New(..BenamingVerpakkingen.Bodem, (174.5*2)+(148*2), 542+(148*2), 5), 8)
-	Do Input.VoegToe(##class(DOM.PM.Maatwerk.Calc.HF.impl.HFBulkPerOnderdeelGegroepeerdVerpakkingKartonSpecificatie).%New(..BenamingVerpakkingen.Bodem, (174.5*2)+(148*2), 542+(148*2), 3), 1)
-	Do ..Builders.Insert(##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001BulkPerOnderdeelGegroepeerd).%New(##this, Input))
+	Set BuilderInput = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001BulkPerOnderdeelGegroepeerdInput).%New("Front",38)
+	Do BuilderInput.VoegToe(##class(DOM.PM.Maatwerk.Calc.HF.impl.HFBulkPerOnderdeelGegroepeerdVerpakkingKartonSpecificatie).%New(..BenamingVerpakkingen.Bodem, (174.5*2)+(148*2), 542+(148*2), 5), 8)
+	Do BuilderInput.VoegToe(##class(DOM.PM.Maatwerk.Calc.HF.impl.HFBulkPerOnderdeelGegroepeerdVerpakkingKartonSpecificatie).%New(..BenamingVerpakkingen.Bodem, (174.5*2)+(148*2), 542+(148*2), 3), 1)
+	Do ..Builders.Insert(##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001BulkPerOnderdeelGegroepeerd).%New(##this, BuilderInput))
 
-	Set Input = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001BulkPerOnderdeelGegroepeerdInput).%New("Front",38)
-	Do Input.VoegToe(##class(DOM.PM.Maatwerk.Calc.HF.impl.HFBulkPerOnderdeelGegroepeerdVerpakkingKartonSpecificatie).%New(..BenamingVerpakkingen.Deksel, (174.5*2)+(148*2), 542+(148*2), 5), 8)
-	Do Input.VoegToe(##class(DOM.PM.Maatwerk.Calc.HF.impl.HFBulkPerOnderdeelGegroepeerdVerpakkingKartonSpecificatie).%New(..BenamingVerpakkingen.Deksel, (174.5*2)+(148*2), 542+(148*2), 3), 1)
-	Do ..Builders.Insert(##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001BulkPerOnderdeelGegroepeerd).%New(##this, Input))
+	Set BuilderInput = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001BulkPerOnderdeelGegroepeerdInput).%New("Front",38)
+	Do BuilderInput.VoegToe(##class(DOM.PM.Maatwerk.Calc.HF.impl.HFBulkPerOnderdeelGegroepeerdVerpakkingKartonSpecificatie).%New(..BenamingVerpakkingen.Deksel, (174.5*2)+(148*2), 542+(148*2), 5), 8)
+	Do BuilderInput.VoegToe(##class(DOM.PM.Maatwerk.Calc.HF.impl.HFBulkPerOnderdeelGegroepeerdVerpakkingKartonSpecificatie).%New(..BenamingVerpakkingen.Deksel, (174.5*2)+(148*2), 542+(148*2), 3), 1)
+	Do ..Builders.Insert(##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001BulkPerOnderdeelGegroepeerd).%New(##this, BuilderInput))
 ]]></Implementation>
 </Method>
 
Index: zTryout/PBO/TAXBOG/impl/DoosAfmetingenBodemBepaler.cls.xml
===================================================================
diff -u -r29149 -r29169
--- zTryout/PBO/TAXBOG/impl/DoosAfmetingenBodemBepaler.cls.xml	(.../DoosAfmetingenBodemBepaler.cls.xml)	(revision 29149)
+++ zTryout/PBO/TAXBOG/impl/DoosAfmetingenBodemBepaler.cls.xml	(.../DoosAfmetingenBodemBepaler.cls.xml)	(revision 29169)
@@ -9,10 +9,9 @@
 </Parameter>
 
 <Method name="GeefAfmetingen">
-<FormalSpec>HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</FormalSpec>
+<FormalSpec>Bodem:DOM.PM.Maatwerk.LadeInfo.Bodem</FormalSpec>
 <ReturnType>APPS.Halux.PPS.Verpakking.Volume</ReturnType>
 <Implementation><![CDATA[
-	#dim Bodem As DOM.PM.Maatwerk.LadeInfo.Bodem = ..LadeInfoAPI.GeefLade(HalffabItemsBoom, IngegevenKenmerken).GeefBodems().GetAt(1)
 	Set Volume = ##class(APPS.Halux.PPS.Verpakking.Volume).%New()
 	Set Volume.Breedte = Bodem.GeefDiepteInMM()
 	Set Volume.Diepte = Bodem.GeefBreedteInMM()
Index: zTryout/PBO/TAXBOG/impl/DoosBerekenaar.cls.xml
===================================================================
diff -u -r29155 -r29169
--- zTryout/PBO/TAXBOG/impl/DoosBerekenaar.cls.xml	(.../DoosBerekenaar.cls.xml)	(revision 29155)
+++ zTryout/PBO/TAXBOG/impl/DoosBerekenaar.cls.xml	(.../DoosBerekenaar.cls.xml)	(revision 29169)
@@ -1,7 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="zTryout.PBO.TAXBOG.impl.DoosBerekenaar">
-<Abstract>1</Abstract>
 <Super>TECH.RegisteredObject,APPS.Halux.PPS.Verpakking.enu.BenamingVerpakkingsOnderdeel.Verwerker</Super>
 
 <Property name="Verpakkingen">
@@ -15,25 +14,37 @@
 <Private>1</Private>
 </Property>
 
+<Property name="LadeOnderdeel">
+<Type>DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="AantalOnderdelen">
+<Type>%Integer</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="GeefVerpakkingen">
 <Final>1</Final>
-<FormalSpec>HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken,BenamingVerpakking:APPS.Halux.PPS.Verpakking.enu.BenamingVerpakkingsOnderdeel</FormalSpec>
+<FormalSpec>Input:zTryout.PBO.TAXBOG.impl.DoosBerekenaar</FormalSpec>
 <ReturnType>DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001BulkPerOnderdeelGegroepeerdInput.Verpakking</ReturnType>
 <Implementation><![CDATA[
-	Do ..BerekenDoos(HalffabItemsBoom, IngegevenKenmerken)
-	Set ..Verpakkingen = ##class(%ListOfObjects).%New()
-	Do ..Verwerk(BenamingVerpakking)
+	set ..LadeOnderdeel = Input.LadeOnderdeel
+	set ..AantalOnderdelen = Input.AantalOnderdelen
+	
+	Do ..BerekenDoos()
+	set ..Verpakkingen = ##class(%ListOfObjects).%New()
+	Do ..Verwerk(Input.BenamingVerpakking)
 	Quit ..Verpakkingen
 ]]></Implementation>
 </Method>
 
 <Method name="BerekenDoos">
 <Final>1</Final>
-<FormalSpec>HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</FormalSpec>
 <Private>1</Private>
 <ReturnType>zTryout.PBO.TAXBOG.impl.Doos</ReturnType>
 <Implementation><![CDATA[
-	#dim DoosAfmetingen As APPS.Halux.PPS.Verpakking.Volume = ..GeefDoosAfmetingBepaler().GeefAfmetingen(HalffabItemsBoom, IngegevenKenmerken)
+	#dim DoosAfmetingen As APPS.Halux.PPS.Verpakking.Volume = ..GeefDoosAfmetingBepaler().GeefAfmetingen(..LadeOnderdeel)
 	Set ..Doos = ##class(zTryout.PBO.TAXBOG.impl.Doos).%New()
 	Set ..Doos.Diepte = DoosAfmetingen.Diepte
 	Set ..Doos.Breedte = DoosAfmetingen.Breedte
@@ -42,9 +53,10 @@
 </Method>
 
 <Method name="GeefDoosAfmetingBepaler">
-<Abstract>1</Abstract>
 <Private>1</Private>
 <ReturnType>zTryout.PBO.TAXBOG.impl.DoosAfmetingenBepaler</ReturnType>
+<Implementation><![CDATA[	quit $classmethod("zTryout.PBO.TAXBOG.impl.DoosAfmetingen"_..LadeOnderdeel.GeefRol()_"Bepaler","%New")
+]]></Implementation>
 </Method>
 
 <Method name="VoegToe">
Index: zTryout/PBO/TAXBOG/impl/DoosAfmetingenBepaler.cls.xml
===================================================================
diff -u -r29149 -r29169
--- zTryout/PBO/TAXBOG/impl/DoosAfmetingenBepaler.cls.xml	(.../DoosAfmetingenBepaler.cls.xml)	(revision 29149)
+++ zTryout/PBO/TAXBOG/impl/DoosAfmetingenBepaler.cls.xml	(.../DoosAfmetingenBepaler.cls.xml)	(revision 29169)
@@ -1,32 +1,17 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="zTryout.PBO.TAXBOG.impl.DoosAfmetingenBepaler">
+<Abstract>1</Abstract>
 <Super>TECH.RegisteredObject</Super>
 
-<Property name="LadeInfoAPI">
-<Type>DOM.PM.Maatwerk.LadeInfoAPI</Type>
-<Private>1</Private>
-</Property>
-
 <Parameter name="MassaDichtheid">
 <Type>%Numeric</Type>
 <Default>875</Default>
 </Parameter>
 
-<Method name="%OnNew">
-<FormalSpec>LadeInfoAPI:DOM.PM.Maatwerk.LadeInfoAPI</FormalSpec>
-<Private>1</Private>
-<ProcedureBlock>1</ProcedureBlock>
-<ReturnType>%Status</ReturnType>
-<ServerOnly>1</ServerOnly>
-<Implementation><![CDATA[
-	Set ..LadeInfoAPI = $$$Implementation(LadeInfoAPI,##class(DOM.PM.Maatwerk.impl.LadeInfoAPI).%New())
-	Quit $$$OK
-]]></Implementation>
-</Method>
-
 <Method name="GeefAfmetingen">
-<FormalSpec>HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</FormalSpec>
+<Abstract>1</Abstract>
+<FormalSpec>LadeOnderdeel:DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel</FormalSpec>
 <ReturnType>APPS.Halux.PPS.Verpakking.Volume</ReturnType>
 </Method>
 
Index: vhUnitTest/zTryout/PBO/TAXBOG/impl/DoosAfmetingenBodemBepaler/GeefAfmetingen/Test.cls.xml
===================================================================
diff -u -r29149 -r29169
--- vhUnitTest/zTryout/PBO/TAXBOG/impl/DoosAfmetingenBodemBepaler/GeefAfmetingen/Test.cls.xml	(.../Test.cls.xml)	(revision 29149)
+++ vhUnitTest/zTryout/PBO/TAXBOG/impl/DoosAfmetingenBodemBepaler/GeefAfmetingen/Test.cls.xml	(.../Test.cls.xml)	(revision 29169)
@@ -3,114 +3,64 @@
 <Class name="vhUnitTest.zTryout.PBO.TAXBOG.impl.DoosAfmetingenBodemBepaler.GeefAfmetingen.Test">
 <Super>vhUnitTest.TestCase</Super>
 
-<Property name="HalffabItemsBoom">
-<Type>DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom</Type>
+<Property name="LadeOnderdeel">
+<Type>vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel</Type>
 <Private>1</Private>
 </Property>
 
-<Property name="IngegevenKenmerken">
-<Type>DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</Type>
-<Private>1</Private>
-</Property>
-
-<Property name="LadeInfoAPIStub">
-<Type>vhTest.Mock.DOM.PM.Maatwerk.LadeInfoAPI</Type>
-<Private>1</Private>
-</Property>
-
-<Parameter name="DikteTussenLaag">
-<Type>%Integer</Type>
-<Default>2</Default>
-</Parameter>
-
-<Method name="TestBreedte">
+<Method name="TestGeefMaximaalAantalOnderdelenKleineLadeOnderdeel">
 <Implementation><![CDATA[
-	Do ..MockBodem(148.5)
-	Do ..AssertAfmetingen(148.5)
+	Do ..InitBodem(200,200,10)
+	Do ..AssertAfmetingen(200,200,118)
+	Do ..AssertMaximaalAantal(10)
 ]]></Implementation>
 </Method>
 
-<Method name="TestLengte">
+<Method name="TestGeefMaximaalAantalOnderdelenMiddelgroteLadeOnderdeel">
 <Implementation><![CDATA[
-	Do ..MockBodem(,542)
-	Do ..AssertAfmetingen(,542)
+	Do ..InitBodem(320,1200,10)
+	Do ..AssertAfmetingen(320,1200,58)
+	Do ..AssertMaximaalAantal(5)
 ]]></Implementation>
 </Method>
 
-<Method name="TestHoogtePer10Verpakt">
+<Method name="TestGeefMaximaalAantalOnderdelenGroteLadeOnderdeel">
 <Implementation><![CDATA[
-	#dim DikteZijkant As TECH.Numeric = 10
-	#dim AantalBodemsInDoos As TECH.Integer = 10
-	Do ..MockBodem(200,200,10)
-	Do ..AssertAfmetingen(,,(AantalBodemsInDoos*DikteZijkant)+((AantalBodemsInDoos-1)*..#DikteTussenLaag))
+	Do ..InitBodem(700,1200,10)
+	Do ..AssertAfmetingen(700,1200,34)
+	Do ..AssertMaximaalAantal(3)
 ]]></Implementation>
 </Method>
 
-<Method name="TestGeefMaximaalAantalOnderdelenKleineBodem">
-<Implementation><![CDATA[
-	#dim BodemStub As DOM.PM.Maatwerk.LadeInfo.Bodem = ..GeefBodemLadeInfoMock(200,200,10)
-	Do $$$AssertEquals(..GeefDoosAfmetingenBodemBepaler().GeefMaximaalAantalOnderdelen(BodemStub),10)
-]]></Implementation>
-</Method>
-
-<Method name="TestGeefMaximaalAantalOnderdelenMiddelgroteBodem">
-<Implementation><![CDATA[
-	#dim BodemStub As DOM.PM.Maatwerk.LadeInfo.Bodem = ..GeefBodemLadeInfoMock(320,1200,10)
-	Do $$$AssertEquals(..GeefDoosAfmetingenBodemBepaler().GeefMaximaalAantalOnderdelen(BodemStub),5)
-]]></Implementation>
-</Method>
-
-<Method name="TestGeefMaximaalAantalOnderdelenGroteBodem">
-<Implementation><![CDATA[
-	#dim BodemStub As DOM.PM.Maatwerk.LadeInfo.Bodem = ..GeefBodemLadeInfoMock(700,1200,10)
-	Do $$$AssertEquals(..GeefDoosAfmetingenBodemBepaler().GeefMaximaalAantalOnderdelen(BodemStub),3)
-]]></Implementation>
-</Method>
-
 <Method name="AssertAfmetingen">
-<FormalSpec>VerwachteBreedte:TECH.Integer="",VerwachteDiepte:TECH.Integer="",VerwachteHoogte:TECH.Integer=""</FormalSpec>
+<FormalSpec>VerwachteBreedte:TECH.Integer,VerwachteDiepte:TECH.Integer,VerwachteHoogte:TECH.Integer</FormalSpec>
+<Private>1</Private>
 <Implementation><![CDATA[
-	#dim Volume As APPS.Halux.PPS.Verpakking.Volume = ..GeefDoosAfmetingenBodemBepaler().GeefAfmetingen(..HalffabItemsBoom, ..IngegevenKenmerken)
-	Do:(VerwachteBreedte'="") $$$AssertEquals(Volume.Breedte,VerwachteBreedte)
-	Do:(VerwachteDiepte'="") $$$AssertEquals(Volume.Diepte,VerwachteDiepte)
-	Do:(VerwachteHoogte'="") $$$AssertEquals(Volume.Hoogte,VerwachteHoogte)
+	#dim Volume As APPS.Halux.PPS.Verpakking.Volume = ##class(zTryout.PBO.TAXBOG.impl.DoosAfmetingenBodemBepaler).%New().GeefAfmetingen(..LadeOnderdeel)
+	Do $$$AssertEquals(Volume.Breedte,VerwachteBreedte)
+	Do $$$AssertEquals(Volume.Diepte,VerwachteDiepte)
+	Do $$$AssertEquals(Volume.Hoogte,VerwachteHoogte)
 ]]></Implementation>
 </Method>
 
-<Method name="GeefDoosAfmetingenBodemBepaler">
-<ReturnType>zTryout.PBO.TAXBOG.impl.DoosAfmetingenBodemBepaler</ReturnType>
-<Implementation><![CDATA[	Quit ##class(zTryout.PBO.TAXBOG.impl.DoosAfmetingenBodemBepaler).%New(..LadeInfoAPIStub)
+<Method name="AssertMaximaalAantal">
+<FormalSpec>VerwachtAantal:TECH.Integer</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[	do $$$AssertEquals(##class(zTryout.PBO.TAXBOG.impl.DoosAfmetingenBodemBepaler).%New().GeefMaximaalAantalOnderdelen(..LadeOnderdeel),VerwachtAantal)
 ]]></Implementation>
 </Method>
 
-<Method name="OnBeforeOneTest">
-<FormalSpec>aTestName:%String</FormalSpec>
+<Method name="InitBodem">
+<FormalSpec>LadeOnderdeelDiepte:TECH.Numeric=0,LadeOnderdeelBreedte:TECH.Numeric=0,LadeOnderdeelDikte:TECH.Numeric=0</FormalSpec>
+<Private>1</Private>
 <Implementation><![CDATA[
-	Set ..IngegevenKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).%New()
-	Set ..HalffabItemsBoom = ##class(vhTest.Fake.DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom).%New()
+	Set ..LadeOnderdeel = ##class(vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.Bodem).%New()
+	Do ..LadeOnderdeel.IndienMethodCall("GeefDiepteInMM").DanReturn(LadeOnderdeelDiepte)
+	Do ..LadeOnderdeel.IndienMethodCall("GeefBreedteInMM").DanReturn(LadeOnderdeelBreedte)
+	Do ..LadeOnderdeel.IndienMethodCall("GeefDikteInMM").DanReturn(LadeOnderdeelDikte)
+	Quit ..LadeOnderdeel
 ]]></Implementation>
 </Method>
-
-<Method name="MockBodem">
-<FormalSpec>BodemDiepte:TECH.Numeric=0,BodemBreedte:TECH.Numeric=0,BodemDikte:TECH.Numeric=0</FormalSpec>
-<Implementation><![CDATA[
-	Set ..LadeInfoAPIStub = ##class(vhTest.Mock.DOM.PM.Maatwerk.LadeInfoAPI).%New()
-		Set LadeStub = ##class(vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.Lade).%New()
-		Do LadeStub.IndienMethodCall("GeefBodems").DanReturn(##class(TECH.ListUtils).CreateListOfObjects(..GeefBodemLadeInfoMock(BodemDiepte, BodemBreedte, BodemDikte)))
-	Do ..LadeInfoAPIStub.IndienMethodCall("GeefLade", ..HalffabItemsBoom, ..IngegevenKenmerken).DanReturn(LadeStub)
-]]></Implementation>
-</Method>
-
-<Method name="GeefBodemLadeInfoMock">
-<FormalSpec>BodemDiepte:TECH.Numeric=0,BodemBreedte:TECH.Numeric=0,BodemDikte:TECH.Numeric=0</FormalSpec>
-<Implementation><![CDATA[
-	Set BodemStub = ##class(vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.Bodem).%New()
-	Do BodemStub.IndienMethodCall("GeefDiepteInMM").DanReturn(BodemDiepte)
-	Do BodemStub.IndienMethodCall("GeefBreedteInMM").DanReturn(BodemBreedte)
-	Do BodemStub.IndienMethodCall("GeefDikteInMM").DanReturn(BodemDikte)
-	Quit BodemStub
-]]></Implementation>
-</Method>
 </Class>