Index: APPS/Halux/PPS/TAORVerpakking/impl/DoosBerekenaar.cls.xml
===================================================================
diff -u -r57462 -r57897
--- APPS/Halux/PPS/TAORVerpakking/impl/DoosBerekenaar.cls.xml	(.../DoosBerekenaar.cls.xml)	(revision 57462)
+++ APPS/Halux/PPS/TAORVerpakking/impl/DoosBerekenaar.cls.xml	(.../DoosBerekenaar.cls.xml)	(revision 57897)
@@ -130,11 +130,11 @@
 	#dim Zijkant As DOM.PM.Maatwerk.LadeInfo.Zijkant = ..GeefLadeOnderdeel(Lade.GeefZijkantIterator())
 	#dim Rug As DOM.PM.Maatwerk.LadeInfo.Rug = ..GeefLadeOnderdeel(Lade.GeefRugIterator())
 	
-	Set DoosLade.Diepte = Bodem.GeefBreedteInMM() // Per default dwarsliggend
+	Set DoosLade.Diepte = ..GeefFlatpackV1DoosLadeDiepte(Bodem.GeefBreedteInMM(), Zijkant.GeefHoogteInMM()) // Per default dwarsliggend
 	Set DoosLade.Breedte = Zijkant.GeefLengteInMM() // Per default dwarsliggend
 	Set DoosLade.Hoogte = $$$DefaultHoogteDoosLadeFlatpackV1NietFront
-	Set DoosLade.K1 = ..GeefK1(Zijkant.GeefLengteInMM(), Rug.GeefHoogteInMM())
-	Set DoosLade.K2 = ..GeefK2(Zijkant.GeefLengteInMM(), Rug.GeefHoogteInMM())
+	Set DoosLade.K1 = ..GeefFlatpackV1DoosLadeK1(Zijkant.GeefLengteInMM(), Rug.GeefHoogteInMM())
+	Set DoosLade.K2 = ..GeefFlatpackV1DoosLadeK2(Zijkant.GeefLengteInMM(), Rug.GeefHoogteInMM())
 	Set DoosLade.K3 = $$$DefaultAfmetingK3
 	Set DoosLade.DoosType = ..GeefDoosType()
 	
@@ -343,29 +343,45 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefK1">
-<FormalSpec>ZijkantLengte:%Numeric,RugHoogte:%Numeric</FormalSpec>
+<Method name="GeefFlatpackV1DoosLadeDiepte">
+<FormalSpec>BodemBreedteInMM:%Numeric,ZijkantHoogteInMM:%Numeric</FormalSpec>
 <Private>1</Private>
 <ReturnType>%Numeric</ReturnType>
 <Implementation><![CDATA[
+	#dim Diepte As %Numeric = BodemBreedteInMM
+	#dim BenodigdeDiepteVoorZijkanten As %Numeric = (ZijkantHoogteInMM * 2)
+	
+	If (BenodigdeDiepteVoorZijkanten > BodemBreedteInMM) {
+		Set Diepte = BenodigdeDiepteVoorZijkanten
+	}
+	
+	Quit Diepte
+]]></Implementation>
+</Method>
+
+<Method name="GeefFlatpackV1DoosLadeK1">
+<FormalSpec>ZijkantLengteInMM:%Numeric,RugHoogteInMM:%Numeric</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Numeric</ReturnType>
+<Implementation><![CDATA[
 	#dim K1 As %Numeric = 100
 	
-	If ($$$Not((RugHoogte + 75) > ZijkantLengte)) {
-		Set K1 = RugHoogte + 75
+	If ($$$Not((RugHoogteInMM + 75) > ZijkantLengteInMM)) {
+		Set K1 = RugHoogteInMM + 75
 	}
 	
 	Quit K1
 ]]></Implementation>
 </Method>
 
-<Method name="GeefK2">
-<FormalSpec>ZijkantLengte:%Numeric,RugHoogte:%Numeric</FormalSpec>
+<Method name="GeefFlatpackV1DoosLadeK2">
+<FormalSpec>ZijkantLengteInMM:%Numeric,RugHoogteInMM:%Numeric</FormalSpec>
 <Private>1</Private>
 <ReturnType>%Numeric</ReturnType>
 <Implementation><![CDATA[
 	#dim K2 As %Numeric = 0
 	
-	If ($$$Not((RugHoogte + 75) > ZijkantLengte)) {
+	If ($$$Not((RugHoogteInMM + 75) > ZijkantLengteInMM)) {
 		Set K2 = 75
 	}