Index: APPS/Halux/PPS/TAORVerpakking/impl/DoosBerekenaar.cls.xml
===================================================================
diff -u -r30446 -r31240
--- APPS/Halux/PPS/TAORVerpakking/impl/DoosBerekenaar.cls.xml	(.../DoosBerekenaar.cls.xml)	(revision 30446)
+++ APPS/Halux/PPS/TAORVerpakking/impl/DoosBerekenaar.cls.xml	(.../DoosBerekenaar.cls.xml)	(revision 31240)
@@ -35,29 +35,15 @@
 ]]></Implementation>
 </Method>
 
-<Method name="BerekenDozen">
+<Method name="GeefExtraDiepteVoorDikteFront">
 <Private>1</Private>
-<Implementation><![CDATA[
-	#Dim DoosLade As APPS.Halux.PPS.TAORVerpakking.impl.DoosLade = ""
-	#Dim DoosLosseOnderdelen As APPS.Halux.PPS.TAORVerpakking.impl.DoosLosseOnderdelen = ""
-	
-	If (..HeeftLadeIndividueleKartonverpakking())	{
-		Set DoosLade = ..BerekenDoosLade()
-		Set DoosLosseOnderdelen = ..BerekenDoosLosseOnderdelen()
-		
-		If ($ISOBJECT(DoosLosseOnderdelen)) {
-			Do ..VergrootDoosLadeMetLosseOnderdelenDoos(DoosLade, DoosLosseOnderdelen)	
-		} Else {
-			Set:(..IngegevenKenmerken.IsBinnenlade) DoosLade.Diepte = DoosLade.Diepte + 10	
-		}
-	}
-	
-	Set ..DoosLade = DoosLade
-	Set ..DoosLosseOnderdelen = DoosLosseOnderdelen
+<ReturnType>TECH.Integer</ReturnType>
+<Implementation><![CDATA[	Quit 10
 ]]></Implementation>
 </Method>
 
 <Method name="HeeftLadeIndividueleKartonverpakking">
+<Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[	Quit ..IngegevenKenmerken.VerpakkingType = ##class(DOM.PM.enu.TAORVerpakkingType).V1()
 ]]></Implementation>