Index: zTryout/PBO/TAXBOG/impl/DoosAfmetingenFrontBepaler.cls.xml
===================================================================
diff -u -r39015 -r39031
--- zTryout/PBO/TAXBOG/impl/DoosAfmetingenFrontBepaler.cls.xml	(.../DoosAfmetingenFrontBepaler.cls.xml)	(revision 39015)
+++ zTryout/PBO/TAXBOG/impl/DoosAfmetingenFrontBepaler.cls.xml	(.../DoosAfmetingenFrontBepaler.cls.xml)	(revision 39031)
@@ -15,30 +15,16 @@
 	Set Volume = ##class(DOM.PM.Verpakking.Volume).%New()
 	Set Volume.Breedte = Front.GeefBreedteInMM()
 	#dim Aantal As TECH.Integer = ..GeefMaximaalAantalOnderdelen(Front)
-	#dim AantalStapels As TECH.Integer = ..GeefAantalStapels(Front, Aantal)
-	If AantalStapels = 1 {
-		Set Volume.Diepte = Front.GeefHoogteInMM()
-		Set Volume.Hoogte = (Aantal*Front.GeefDikteInMM()) + ..GeefDikteVoorHorizontaalTussenschotten(Aantal-1)
-	} ElseIf AantalStapels = 2 {
-		Set Volume.Diepte = Front.GeefHoogteInMM()*2+..#DikteVerticaalTussenschot
-		Set Volume.Hoogte = ((Aantal/2)*Front.GeefDikteInMM()) + ..GeefDikteVoorHorizontaalTussenschotten((Aantal/2)-1)
+	If Aantal = 10 {
+		Set Volume.Diepte = 490
+	} ElseIf Aantal = 5 {
+		Set Volume.Diepte = 255
 	}
+	Set Volume.Hoogte = Front.GeefHoogteInMM() + ..#ExtraHoogteDoorKantelenBijFront
 	Quit Volume
 ]]></Implementation>
 </Method>
 
-<Method name="GeefAantalStapels">
-<FormalSpec>Front:DOM.PM.Maatwerk.LadeInfo.Zijkant,AantalOnderdelen:TECH.String</FormalSpec>
-<ReturnType>TECH.Integer</ReturnType>
-<Implementation><![CDATA[
-	#dim AantalStapels As TECH.Integer = 1
-	If Front.GeefHoogteInMM()<((Front.GeefDikteInMM()*AantalOnderdelen)+(..GeefDikteVoorHorizontaalTussenschotten(AantalOnderdelen-1))) {
-		Set AantalStapels = 2
-	}
-	Quit AantalStapels
-]]></Implementation>
-</Method>
-
 <Method name="GeefGewichtVoorOnderdeel">
 <FormalSpec>Front:DOM.PM.Maatwerk.LadeInfo.Front</FormalSpec>
 <Private>1</Private>
Index: zTryout/PBO/TAXBOG/impl/DoosBerekenaarPAS.cls.xml
===================================================================
diff -u
--- zTryout/PBO/TAXBOG/impl/DoosBerekenaarPAS.cls.xml	(revision 0)
+++ zTryout/PBO/TAXBOG/impl/DoosBerekenaarPAS.cls.xml	(revision 39031)
@@ -0,0 +1,18 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.PBO.TAXBOG.impl.DoosBerekenaarPAS">
+<Super>zTryout.PBO.TAXBOG.impl.DoosBerekenaar</Super>
+
+<Method name="GeefDoosAfmetingBepaler">
+<Private>1</Private>
+<ReturnType>zTryout.PBO.TAXBOG.impl.DoosAfmetingenBepaler</ReturnType>
+<Implementation><![CDATA[
+	if ..LadeOnderdeel.GeefRol()="Front" quit $classmethod("zTryout.PBO.TAXBOG.impl.DoosAfmetingen"_..LadeOnderdeel.GeefRol()_"BepalerPAS","%New")
+	
+	quit $classmethod("zTryout.PBO.TAXBOG.impl.DoosAfmetingen"_..LadeOnderdeel.GeefRol()_"Bepaler","%New")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: zTryout/PBO/TAXBOG/impl/DoosAfmetingenFrontBepalerPAS.cls.xml
===================================================================
diff -u
--- zTryout/PBO/TAXBOG/impl/DoosAfmetingenFrontBepalerPAS.cls.xml	(revision 0)
+++ zTryout/PBO/TAXBOG/impl/DoosAfmetingenFrontBepalerPAS.cls.xml	(revision 39031)
@@ -0,0 +1,39 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.PBO.TAXBOG.impl.DoosAfmetingenFrontBepalerPAS">
+<Super>zTryout.PBO.TAXBOG.impl.DoosAfmetingenFrontBepaler</Super>
+
+<Method name="GeefAfmetingen">
+<FormalSpec>Front:DOM.PM.Maatwerk.LadeInfo.Front</FormalSpec>
+<ReturnType>DOM.PM.Verpakking.Volume</ReturnType>
+<Implementation><![CDATA[
+	Set Volume = ##class(DOM.PM.Verpakking.Volume).%New()
+	Set Volume.Breedte = Front.GeefBreedteInMM()
+	#dim Aantal As TECH.Integer = ..GeefMaximaalAantalOnderdelen(Front)
+	#dim AantalStapels As TECH.Integer = ..GeefAantalStapels(Front, Aantal)
+	If AantalStapels = 1 {
+		Set Volume.Diepte = Front.GeefHoogteInMM()
+		Set Volume.Hoogte = (Aantal*Front.GeefDikteInMM()) + ..GeefDikteVoorHorizontaalTussenschotten(Aantal-1)
+	} ElseIf AantalStapels = 2 {
+		Set Volume.Diepte = Front.GeefHoogteInMM()*2+..#DikteVerticaalTussenschot
+		Set Volume.Hoogte = ((Aantal/2)*Front.GeefDikteInMM()) + ..GeefDikteVoorHorizontaalTussenschotten((Aantal/2)-1)
+	}
+	Quit Volume
+]]></Implementation>
+</Method>
+
+<Method name="GeefAantalStapels">
+<FormalSpec>Front:DOM.PM.Maatwerk.LadeInfo.Zijkant,AantalOnderdelen:TECH.String</FormalSpec>
+<ReturnType>TECH.Integer</ReturnType>
+<Implementation><![CDATA[
+	#dim AantalStapels As TECH.Integer = 1
+	If Front.GeefHoogteInMM()<((Front.GeefDikteInMM()*AantalOnderdelen)+(..GeefDikteVoorHorizontaalTussenschotten(AantalOnderdelen-1))) {
+		Set AantalStapels = 2
+	}
+	Quit AantalStapels
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>