Index: zTryout/PBO/TAXBOG/impl/DoosAfmetingenBepaler.cls.xml
===================================================================
diff -u -r29318 -r31073
--- zTryout/PBO/TAXBOG/impl/DoosAfmetingenBepaler.cls.xml	(.../DoosAfmetingenBepaler.cls.xml)	(revision 29318)
+++ zTryout/PBO/TAXBOG/impl/DoosAfmetingenBepaler.cls.xml	(.../DoosAfmetingenBepaler.cls.xml)	(revision 31073)
@@ -14,6 +14,10 @@
 <Default>5</Default>
 </Parameter>
 
+<Parameter name="DikteTussenLaagInMM">
+<Type>%Numeric</Type>
+</Parameter>
+
 <Method name="GeefAfmetingen">
 <Abstract>1</Abstract>
 <FormalSpec>LadeOnderdeel:DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel</FormalSpec>
@@ -49,6 +53,14 @@
 <Implementation><![CDATA[]]></Implementation>
 </Method>
 
+<Method name="GeefDikteVoorHorizontaalTussenschotten">
+<FormalSpec>AantalTussenLagen:TECH.String</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.Integer</ReturnType>
+<Implementation><![CDATA[	Quit ##class(TECH.Math).Ceil(AantalTussenLagen*..#DikteTussenLaagInMM)
+]]></Implementation>
+</Method>
+
 <Method name="GeefGewichtVoorOnderdeel">
 <Abstract>1</Abstract>
 <FormalSpec>LadeOnderdeel:DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel</FormalSpec>
Index: zTryout/PBO/TAXBOG/impl/DoosAfmetingenBodemBepaler.cls.xml
===================================================================
diff -u -r30133 -r31073
--- zTryout/PBO/TAXBOG/impl/DoosAfmetingenBodemBepaler.cls.xml	(.../DoosAfmetingenBodemBepaler.cls.xml)	(revision 30133)
+++ zTryout/PBO/TAXBOG/impl/DoosAfmetingenBodemBepaler.cls.xml	(.../DoosAfmetingenBodemBepaler.cls.xml)	(revision 31073)
@@ -3,8 +3,10 @@
 <Class name="zTryout.PBO.TAXBOG.impl.DoosAfmetingenBodemBepaler">
 <Super>zTryout.PBO.TAXBOG.impl.DoosAfmetingenBepaler</Super>
 
-<Parameter name="DikteTussenLaag">
-<Type>%Integer</Type>
+<Parameter name="DikteTussenLaagInMM">
+<Description>
+2.2</Description>
+<Type>%Numeric</Type>
 <Default>2</Default>
 </Parameter>
 
@@ -16,7 +18,7 @@
 	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)
+	Set Volume.Hoogte = (Aantal*Bodem.GeefDikteInMM()) + ..GeefDikteVoorHorizontaalTussenschotten(Aantal-1)
 	Quit Volume
 ]]></Implementation>
 </Method>
Index: zTryout/PBO/TAXBOG/impl/DoosAfmetingenZijkantBepaler.cls.xml
===================================================================
diff -u -r29318 -r31073
--- zTryout/PBO/TAXBOG/impl/DoosAfmetingenZijkantBepaler.cls.xml	(.../DoosAfmetingenZijkantBepaler.cls.xml)	(revision 29318)
+++ zTryout/PBO/TAXBOG/impl/DoosAfmetingenZijkantBepaler.cls.xml	(.../DoosAfmetingenZijkantBepaler.cls.xml)	(revision 31073)
@@ -3,8 +3,10 @@
 <Class name="zTryout.PBO.TAXBOG.impl.DoosAfmetingenZijkantBepaler">
 <Super>zTryout.PBO.TAXBOG.impl.DoosAfmetingenBepaler</Super>
 
-<Parameter name="DikteTussenLaag">
-<Type>%Integer</Type>
+<Parameter name="DikteTussenLaagInMM">
+<Description>
+2.2</Description>
+<Type>%Numeric</Type>
 <Default>2</Default>
 </Parameter>
 
@@ -18,10 +20,10 @@
 	#dim AantalStapels As TECH.Integer = ..GeefAantalStapels(Zijkant, Aantal)
 	If AantalStapels = 1 {
 		Set Volume.Diepte = Zijkant.GeefHoogteInMM()
-		Set Volume.Hoogte = (Aantal*Zijkant.GeefDikteInMM()) + ((Aantal-1)*..#DikteTussenLaag)
+		Set Volume.Hoogte = (Aantal*Zijkant.GeefDikteInMM()) + ..GeefDikteVoorHorizontaalTussenschotten(Aantal-1)
 	} ElseIf AantalStapels = 2 {
 		Set Volume.Diepte = Zijkant.GeefHoogteInMM()*2+..#DikteVerticaalTussenschot
-		Set Volume.Hoogte = ((Aantal/2)*Zijkant.GeefDikteInMM()) + (((Aantal/2)-1)*..#DikteTussenLaag)
+		Set Volume.Hoogte = ((Aantal/2)*Zijkant.GeefDikteInMM()) + ..GeefDikteVoorHorizontaalTussenschotten((Aantal/2)-1)
 	}
 	Quit Volume
 ]]></Implementation>
@@ -32,7 +34,7 @@
 <ReturnType>TECH.Integer</ReturnType>
 <Implementation><![CDATA[
 	#dim AantalStapels As TECH.Integer = 1
-	If Zijkant.GeefHoogteInMM()<((Zijkant.GeefDikteInMM()*AantalOnderdelen)+((AantalOnderdelen-1)*..#DikteTussenLaag)) {
+	If Zijkant.GeefHoogteInMM()<((Zijkant.GeefDikteInMM()*AantalOnderdelen)+(..GeefDikteVoorHorizontaalTussenschotten(AantalOnderdelen-1))) {
 		Set AantalStapels = 2
 	}
 	Quit AantalStapels
Index: zTryout/PBO/TAXBOG/impl/DoosAfmetingenRugBepaler.cls.xml
===================================================================
diff -u -r29318 -r31073
--- zTryout/PBO/TAXBOG/impl/DoosAfmetingenRugBepaler.cls.xml	(.../DoosAfmetingenRugBepaler.cls.xml)	(revision 29318)
+++ zTryout/PBO/TAXBOG/impl/DoosAfmetingenRugBepaler.cls.xml	(.../DoosAfmetingenRugBepaler.cls.xml)	(revision 31073)
@@ -3,8 +3,10 @@
 <Class name="zTryout.PBO.TAXBOG.impl.DoosAfmetingenRugBepaler">
 <Super>zTryout.PBO.TAXBOG.impl.DoosAfmetingenBepaler</Super>
 
-<Parameter name="DikteTussenLaag">
-<Type>%Integer</Type>
+<Parameter name="DikteTussenLaagInMM">
+<Description>
+3.6</Description>
+<Type>%Numeric</Type>
 <Default>4</Default>
 </Parameter>
 
@@ -18,10 +20,10 @@
 	#dim AantalStapels As TECH.Integer = ..GeefAantalStapels(Rug, Aantal)
 	If AantalStapels = 1 {
 		Set Volume.Diepte = Rug.GeefHoogteInMM()
-		Set Volume.Hoogte = (Aantal*Rug.GeefDikteInMM()) + ((Aantal-1)*..#DikteTussenLaag)
+		Set Volume.Hoogte = (Aantal*Rug.GeefDikteInMM()) + ..GeefDikteVoorHorizontaalTussenschotten(Aantal-1)
 	} ElseIf AantalStapels = 2 {
 		Set Volume.Diepte = Rug.GeefHoogteInMM()*2+..#DikteVerticaalTussenschot
-		Set Volume.Hoogte = ((Aantal/2)*Rug.GeefDikteInMM()) + (((Aantal/2)-1)*..#DikteTussenLaag)
+		Set Volume.Hoogte = ((Aantal/2)*Rug.GeefDikteInMM()) + ..GeefDikteVoorHorizontaalTussenschotten((Aantal/2)-1)
 	}
 	Quit Volume
 ]]></Implementation>
@@ -32,7 +34,7 @@
 <ReturnType>TECH.Integer</ReturnType>
 <Implementation><![CDATA[
 	#dim AantalStapels As TECH.Integer = 1
-	If Rug.GeefHoogteInMM()<((Rug.GeefDikteInMM()*AantalOnderdelen)+((AantalOnderdelen-1)*..#DikteTussenLaag)) {
+	If Rug.GeefHoogteInMM() < ((Rug.GeefDikteInMM()*AantalOnderdelen)+..GeefDikteVoorHorizontaalTussenschotten(AantalOnderdelen-1)) {
 		Set AantalStapels = 2
 	}
 	Quit AantalStapels