Index: zTryout/PBO/TAXBOG/impl/DoosBerekenaar/Bodem.cls.xml
===================================================================
diff -u
--- zTryout/PBO/TAXBOG/impl/DoosBerekenaar/Bodem.cls.xml	(revision 0)
+++ zTryout/PBO/TAXBOG/impl/DoosBerekenaar/Bodem.cls.xml	(revision 29149)
@@ -0,0 +1,27 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.PBO.TAXBOG.impl.DoosBerekenaar.Bodem">
+<Super>zTryout.PBO.TAXBOG.impl.DoosBerekenaar</Super>
+
+<UDLText name="T">
+<Content><![CDATA[
+/*Method BerekenDoos(HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom, IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken) As zTryout.PBO.TAXBOG.impl.Doos [ Private ]
+{
+	Do ##super(HalffabItemsBoom, IngegevenKenmerken)
+	Set ..Doos.Diepte = 542
+	Set ..Doos.Breedte = 174.5
+	Set ..Doos.Hoogte = 148
+}*/
+]]></Content>
+</UDLText>
+
+<Method name="GeefDoosAfmetingBepaler">
+<Private>1</Private>
+<ReturnType>zTryout.PBO.TAXBOG.impl.DoosAfmetingenBepaler</ReturnType>
+<Implementation><![CDATA[	Quit ##class(zTryout.PBO.TAXBOG.impl.DoosAfmetingenBodemBepaler).%New()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: zTryout/PBO/TAXBOG/impl/DoosBerekenaar.cls.xml
===================================================================
diff -u
--- zTryout/PBO/TAXBOG/impl/DoosBerekenaar.cls.xml	(revision 0)
+++ zTryout/PBO/TAXBOG/impl/DoosBerekenaar.cls.xml	(revision 29149)
@@ -0,0 +1,103 @@
+<?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="KartonSpecsMetAantal">
+<Type>DOM.PM.Maatwerk.Calc.HF.impl.HFBulkPerOnderdeelGegroepeerdVerpakkingInput.KartonSpecMetAantal</Type>
+<Collection>list</Collection>
+<Private>1</Private>
+</Property>
+
+<Property name="Doos">
+<Type>zTryout.PBO.TAXBOG.impl.Doos</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="GeefKartonSpecificaties">
+<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>
+<ReturnType>DOM.PM.Maatwerk.Calc.HF.impl.HFBulkPerOnderdeelGegroepeerdVerpakkingInput.KartonSpecMetAantal</ReturnType>
+<Implementation><![CDATA[
+	Do ..BerekenDoos(HalffabItemsBoom, IngegevenKenmerken)
+	Set ..KartonSpecsMetAantal = ##class(%ListOfObjects).%New()
+	Do ..Verwerk(BenamingVerpakking)
+	Quit ..KartonSpecsMetAantal
+]]></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)
+	Set ..Doos = ##class(zTryout.PBO.TAXBOG.impl.Doos).%New()
+	Set ..Doos.Diepte = DoosAfmetingen.Diepte
+	Set ..Doos.Breedte = DoosAfmetingen.Breedte
+	Set ..Doos.Hoogte = DoosAfmetingen.Hoogte
+]]></Implementation>
+</Method>
+
+<Method name="GeefDoosAfmetingBepaler">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<ReturnType>zTryout.PBO.TAXBOG.impl.DoosAfmetingenBepaler</ReturnType>
+</Method>
+
+<Method name="VoegToe">
+<Final>1</Final>
+<FormalSpec>KartonSpecificatie:DOM.PM.Maatwerk.Calc.HF.impl.HFBulkPerOnderdeelGegroepeerdVerpakkingKartonSpecificatie,AantalDozen:TECH.Integer</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[	Do ..KartonSpecsMetAantal.Insert(##class(DOM.PM.Maatwerk.Calc.HF.impl.HFBulkPerOnderdeelGegroepeerdVerpakkingInput.KartonSpecMetAantal).%New(KartonSpecificatie,AantalDozen))
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkBodem">
+<Final>1</Final>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do ..VoegToe(..Doos.GeefKartonSpecificatieBodem(5),7)
+	Do ..VoegToe(..Doos.GeefKartonSpecificatieBodem(3),1)
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkDeksel">
+<Final>1</Final>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do ..VoegToe(..Doos.GeefKartonSpecificatieDeksel(5),7)
+	Do ..VoegToe(..Doos.GeefKartonSpecificatieDeksel(3),1)
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkDoosLosseOnderdelen">
+<Final>1</Final>
+<Private>1</Private>
+</Method>
+
+<Method name="VerwerkDoosMetDeksel">
+<Final>1</Final>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do ..VoegToe(..Doos.GeefKartonSpecificatieDoosMetDeksel(5),7)
+	Do ..VoegToe(..Doos.GeefKartonSpecificatieDoosMetDeksel(3),1)
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkVlak">
+<Final>1</Final>
+<Private>1</Private>
+</Method>
+
+<Method name="VerwerkWikkel">
+<Final>1</Final>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: zTryout/PBO/TAXBOG/impl/KartonSpecificatiesBepaler.cls.xml
===================================================================
diff -u
--- zTryout/PBO/TAXBOG/impl/KartonSpecificatiesBepaler.cls.xml	(revision 0)
+++ zTryout/PBO/TAXBOG/impl/KartonSpecificatiesBepaler.cls.xml	(revision 29149)
@@ -0,0 +1,94 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.PBO.TAXBOG.impl.KartonSpecificatiesBepaler">
+<Super>TECH.RegisteredObject,APPS.Halux.PPS.Verpakking.enu.BenamingVerpakkingsOnderdeel.Verwerker</Super>
+
+<Property name="KartonSpecsMetAantal">
+<Type>DOM.PM.Maatwerk.Calc.HF.impl.HFBulkPerOnderdeelGegroepeerdVerpakkingInput.KartonSpecMetAantal</Type>
+<Collection>list</Collection>
+<Private>1</Private>
+</Property>
+
+<Property name="Doos">
+<Type>zTryout.PBO.TAXBOG.impl.Doos</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="GeefKartonSpecificaties">
+<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>
+<ReturnType>DOM.PM.Maatwerk.Calc.HF.impl.HFBulkPerOnderdeelGegroepeerdVerpakkingInput.KartonSpecMetAantal</ReturnType>
+<Implementation><![CDATA[
+	Do ..BerekenDoos(HalffabItemsBoom, IngegevenKenmerken)
+	Set ..KartonSpecsMetAantal = ##class(%ListOfObjects).%New()
+	Do ..Verwerk(BenamingVerpakking)
+	Quit ..KartonSpecsMetAantal
+]]></Implementation>
+</Method>
+
+<Method name="BerekenDoos">
+<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[
+	Set ..Doos = ##class(zTryout.PBO.TAXBOG.impl.Doos).%New()
+	Set ..Doos.Diepte = 542
+	Set ..Doos.Breedte = 174.5
+	Set ..Doos.Hoogte = 148
+]]></Implementation>
+</Method>
+
+<Method name="VoegToe">
+<Final>1</Final>
+<FormalSpec>KartonSpecificatie:DOM.PM.Maatwerk.Calc.HF.impl.HFBulkPerOnderdeelGegroepeerdVerpakkingKartonSpecificatie,AantalDozen:TECH.Integer</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[	Do ..KartonSpecsMetAantal.Insert(##class(DOM.PM.Maatwerk.Calc.HF.impl.HFBulkPerOnderdeelGegroepeerdVerpakkingInput.KartonSpecMetAantal).%New(KartonSpecificatie,AantalDozen))
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkBodem">
+<Final>1</Final>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do ..VoegToe(..Doos.GeefKartonSpecificatieBodem(5),7)
+	Do ..VoegToe(..Doos.GeefKartonSpecificatieBodem(3),1)
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkDeksel">
+<Final>1</Final>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do ..VoegToe(..Doos.GeefKartonSpecificatieDeksel(5),7)
+	Do ..VoegToe(..Doos.GeefKartonSpecificatieDeksel(3),1)
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkDoosLosseOnderdelen">
+<Final>1</Final>
+<Private>1</Private>
+</Method>
+
+<Method name="VerwerkDoosMetDeksel">
+<Final>1</Final>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do ..VoegToe(..Doos.GeefKartonSpecificatieDoosMetDeksel(5),7)
+	Do ..VoegToe(..Doos.GeefKartonSpecificatieDoosMetDeksel(3),1)
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkVlak">
+<Final>1</Final>
+<Private>1</Private>
+</Method>
+
+<Method name="VerwerkWikkel">
+<Final>1</Final>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: zTryout/PBO/TAXBOG/impl/DoosAfmetingenBodemBepaler.cls.xml
===================================================================
diff -u
--- zTryout/PBO/TAXBOG/impl/DoosAfmetingenBodemBepaler.cls.xml	(revision 0)
+++ zTryout/PBO/TAXBOG/impl/DoosAfmetingenBodemBepaler.cls.xml	(revision 29149)
@@ -0,0 +1,41 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.PBO.TAXBOG.impl.DoosAfmetingenBodemBepaler">
+<Super>zTryout.PBO.TAXBOG.impl.DoosAfmetingenBepaler</Super>
+
+<Parameter name="DikteTussenLaag">
+<Type>%Integer</Type>
+<Default>2</Default>
+</Parameter>
+
+<Method name="GeefAfmetingen">
+<FormalSpec>HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</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()
+	#dim Aantal As TECH.Integer = ..GeefMaximaalAantalOnderdelen(Bodem)
+	Set Volume.Hoogte = (Aantal*Bodem.GeefDikteInMM()) + ((Aantal-1)*..#DikteTussenLaag)
+	Quit Volume
+]]></Implementation>
+</Method>
+
+<Method name="GeefGewichtVoorOnderdeel">
+<FormalSpec>Bodem:DOM.PM.Maatwerk.LadeInfo.Bodem</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.Numeric</ReturnType>
+<Implementation><![CDATA[	Quit ( ..#MassaDichtheid * Bodem.GeefDiepteInMM() * Bodem.GeefDikteInMM() * Bodem.GeefBreedteInMM() ) / 1000000000
+]]></Implementation>
+</Method>
+
+<Method name="GeefAantalInVerpakkingMogelijkheden">
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[	Quit ##class(TECH.ListUtils).CreateListOfDataTypes(10, 5, 3)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: zTryout/PBO/TAXBOG/impl/DoosAfmetingenBepaler/Bodem.cls.xml
===================================================================
diff -u
--- zTryout/PBO/TAXBOG/impl/DoosAfmetingenBepaler/Bodem.cls.xml	(revision 0)
+++ zTryout/PBO/TAXBOG/impl/DoosAfmetingenBepaler/Bodem.cls.xml	(revision 29149)
@@ -0,0 +1,8 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.PBO.TAXBOG.impl.DoosAfmetingenBepaler.Bodem">
+<Super>TECH.RegisteredObject</Super>
+</Class>
+
+
+</Export>
Index: zTryout/PBO/TAXBOG/impl/Doos.cls.xml
===================================================================
diff -u
--- zTryout/PBO/TAXBOG/impl/Doos.cls.xml	(revision 0)
+++ zTryout/PBO/TAXBOG/impl/Doos.cls.xml	(revision 29149)
@@ -0,0 +1,56 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.PBO.TAXBOG.impl.Doos">
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.Halux.PPS.Verpakking.Volume</Super>
+
+<Parameter name="OptiGroep">
+<Default>TAORBOX</Default>
+</Parameter>
+
+<Parameter name="KartonDikte">
+<Type>%Integer</Type>
+<Default>4.2</Default>
+</Parameter>
+
+<Property name="DoosType">
+<Type>APPS.Halux.PPS.Verpakking.enu.DoosTypes</Type>
+</Property>
+
+<Method name="GeefKartonSpecificatieBodem">
+<FormalSpec>MaxInVerpakking:TECH.Integer</FormalSpec>
+<ReturnType>DOM.PM.Maatwerk.Calc.HF.impl.HFBulkPerOnderdeelGegroepeerdVerpakkingKartonSpecificatie</ReturnType>
+<Implementation><![CDATA[
+	#dim Lengte As TECH.Numeric=(..Hoogte*4)+(..Breedte)+(..#KartonDikte*4)
+	#dim Breedte As TECH.Numeric=(..Hoogte*2)+(..Diepte)
+	Set KartonSpecificatie=##class(DOM.PM.Maatwerk.Calc.HF.impl.HFBulkPerOnderdeelGegroepeerdVerpakkingKartonSpecificatie).%New(##class(APPS.Halux.PPS.Verpakking.enu.BenamingVerpakkingsOnderdeel).Bodem(),Lengte,Breedte,MaxInVerpakking)
+	Quit KartonSpecificatie
+]]></Implementation>
+</Method>
+
+<Method name="GeefKartonSpecificatieDeksel">
+<FormalSpec>MaxInVerpakking:TECH.Integer</FormalSpec>
+<ReturnType>DOM.PM.Maatwerk.Calc.HF.impl.HFBulkPerOnderdeelGegroepeerdVerpakkingKartonSpecificatie</ReturnType>
+<Implementation><![CDATA[
+	#dim Lengte As TECH.Numeric=(..Hoogte*2)+(..Breedte)
+	#dim Breedte As TECH.Numeric=(..Hoogte*4)+(..Diepte)+(..#KartonDikte*4)
+	Set KartonSpecificatie=##class(DOM.PM.Maatwerk.Calc.HF.impl.HFBulkPerOnderdeelGegroepeerdVerpakkingKartonSpecificatie).%New(##class(APPS.Halux.PPS.Verpakking.enu.BenamingVerpakkingsOnderdeel).Deksel(),Lengte,Breedte,MaxInVerpakking)
+	Quit KartonSpecificatie
+]]></Implementation>
+</Method>
+
+<Method name="GeefKartonSpecificatieDoosMetDeksel">
+<FormalSpec>MaxInVerpakking:TECH.Integer</FormalSpec>
+<ReturnType>DOM.PM.Maatwerk.Calc.HF.impl.HFBulkPerOnderdeelGegroepeerdVerpakkingKartonSpecificatie</ReturnType>
+<Implementation><![CDATA[
+	#dim Lengte As TECH.Numeric=(..Hoogte*4)+(..Breedte)+(..#KartonDikte*4)
+	#dim Breedte As TECH.Numeric=(..Hoogte*2)+(..Diepte*2)+..#KartonDikte+(100)
+	Set KartonSpecificatie=##class(DOM.PM.Maatwerk.Calc.HF.impl.HFBulkPerOnderdeelGegroepeerdVerpakkingKartonSpecificatie).%New(##class(APPS.Halux.PPS.Verpakking.enu.BenamingVerpakkingsOnderdeel).DoosMetDeksel(),Lengte,Breedte,MaxInVerpakking)
+	Quit KartonSpecificatie
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/zTryout/PBO/TAXBOG/impl/DoosAfmetingenBodemBepaler/GeefAfmetingen/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/zTryout/PBO/TAXBOG/impl/DoosAfmetingenBodemBepaler/GeefAfmetingen/Test.cls.xml	(revision 0)
+++ vhUnitTest/zTryout/PBO/TAXBOG/impl/DoosAfmetingenBodemBepaler/GeefAfmetingen/Test.cls.xml	(revision 29149)
@@ -0,0 +1,117 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<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>
+<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">
+<Implementation><![CDATA[
+	Do ..MockBodem(148.5)
+	Do ..AssertAfmetingen(148.5)
+]]></Implementation>
+</Method>
+
+<Method name="TestLengte">
+<Implementation><![CDATA[
+	Do ..MockBodem(,542)
+	Do ..AssertAfmetingen(,542)
+]]></Implementation>
+</Method>
+
+<Method name="TestHoogtePer10Verpakt">
+<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))
+]]></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>
+<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)
+]]></Implementation>
+</Method>
+
+<Method name="GeefDoosAfmetingenBodemBepaler">
+<ReturnType>zTryout.PBO.TAXBOG.impl.DoosAfmetingenBodemBepaler</ReturnType>
+<Implementation><![CDATA[	Quit ##class(zTryout.PBO.TAXBOG.impl.DoosAfmetingenBodemBepaler).%New(..LadeInfoAPIStub)
+]]></Implementation>
+</Method>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<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()
+]]></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>
+
+
+</Export>
Index: zTryout/PBO/TAXBOG/impl/DoosAfmetingenBepaler.cls.xml
===================================================================
diff -u
--- zTryout/PBO/TAXBOG/impl/DoosAfmetingenBepaler.cls.xml	(revision 0)
+++ zTryout/PBO/TAXBOG/impl/DoosAfmetingenBepaler.cls.xml	(revision 29149)
@@ -0,0 +1,63 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.PBO.TAXBOG.impl.DoosAfmetingenBepaler">
+<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>
+<ReturnType>APPS.Halux.PPS.Verpakking.Volume</ReturnType>
+</Method>
+
+<Method name="GeefMaximaalAantalOnderdelen">
+<FormalSpec>LadeOnderdeel:DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel</FormalSpec>
+<ReturnType>TECH.Integer</ReturnType>
+<Implementation><![CDATA[
+	Set AantalInVerpakkingIterator = ##class(TECH.ListIterator).%New(..GeefAantalInVerpakkingMogelijkheden())
+	#dim Aantal As TECH.Integer = 0
+	#dim IsAantalGevonden As %Boolean = $$$False
+	While AantalInVerpakkingIterator.HasNext() && ('IsAantalGevonden) {
+		Set Aantal = AantalInVerpakkingIterator.Next()
+		Set IsAantalGevonden = (..GeefGewichtVoorOnderdeel(LadeOnderdeel)*Aantal) < 19
+	}
+	Quit Aantal
+]]></Implementation>
+</Method>
+
+<Method name="GeefAantalInVerpakkingMogelijkheden">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<ReturnType>%ListOfDataTypes</ReturnType>
+</Method>
+
+<Method name="GeefGewichtVoorOnderdeel">
+<Abstract>1</Abstract>
+<FormalSpec>LadeOnderdeel:DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.Numeric</ReturnType>
+</Method>
+</Class>
+
+
+</Export>