Index: zTryout/PBO/TAXBOG/impl/DoosAfmetingenBodemBepaler.cls.xml =================================================================== diff -u -r31073 -r39382 --- zTryout/PBO/TAXBOG/impl/DoosAfmetingenBodemBepaler.cls.xml (.../DoosAfmetingenBodemBepaler.cls.xml) (revision 31073) +++ zTryout/PBO/TAXBOG/impl/DoosAfmetingenBodemBepaler.cls.xml (.../DoosAfmetingenBodemBepaler.cls.xml) (revision 39382) @@ -19,6 +19,8 @@ Set Volume.Diepte = Bodem.GeefBreedteInMM() #dim Aantal As TECH.Integer = ..GeefMaximaalAantalOnderdelen(Bodem) Set Volume.Hoogte = (Aantal*Bodem.GeefDikteInMM()) + ..GeefDikteVoorHorizontaalTussenschotten(Aantal-1) + + if Volume.Hoogte < 52 set Volume.Hoogte = Volume.Hoogte + 3 Quit Volume ]]>