Index: APPS/Halux/PPS/MVXVerpakking/impl/DoosBerekenaar.cls.xml
===================================================================
diff -u -r70577 -r72615
--- APPS/Halux/PPS/MVXVerpakking/impl/DoosBerekenaar.cls.xml	(.../DoosBerekenaar.cls.xml)	(revision 70577)
+++ APPS/Halux/PPS/MVXVerpakking/impl/DoosBerekenaar.cls.xml	(.../DoosBerekenaar.cls.xml)	(revision 72615)
@@ -120,7 +120,9 @@
 	
 	// Enkel afdekkappen -> geen LO doos
 	If ..HeeftLODoos() {
-		If (..IngegevenKenmerken.LadeDiepte = ..Enum.LadeDiepte.LadeDiepte550) {
+		If (..IngegevenKenmerken.LadeDiepte = ..Enum.LadeDiepte.LadeDiepte600) {
+			Set DoosLosseOnderdelen = ##class(APPS.Halux.PPS.Verpakking.utils.StandaardHulsDefinities).LadeDiepte600()
+		} Elseif (..IngegevenKenmerken.LadeDiepte = ..Enum.LadeDiepte.LadeDiepte550) {
 			Set DoosLosseOnderdelen = ##class(APPS.Halux.PPS.Verpakking.utils.StandaardHulsDefinities).LadeDiepte550()
 		} Elseif (..IngegevenKenmerken.LadeDiepte = ..Enum.LadeDiepte.LadeDiepte500) {
 			Set DoosLosseOnderdelen = ##class(APPS.Halux.PPS.Verpakking.utils.StandaardHulsDefinities).LadeDiepte500()
@@ -130,38 +132,16 @@
 			Set DoosLosseOnderdelen = ##class(APPS.Halux.PPS.Verpakking.utils.StandaardHulsDefinities).LadeDiepte400()
 		} Elseif (..IngegevenKenmerken.LadeDiepte = ..Enum.LadeDiepte.LadeDiepte350) {
 			Set DoosLosseOnderdelen = ##class(APPS.Halux.PPS.Verpakking.utils.StandaardHulsDefinities).LadeDiepte350()
+		} Elseif (..IngegevenKenmerken.LadeDiepte = ..Enum.LadeDiepte.LadeDiepte300) {
+			Set DoosLosseOnderdelen = ##class(APPS.Halux.PPS.Verpakking.utils.StandaardHulsDefinities).LadeDiepte300()
+		} Elseif (..IngegevenKenmerken.LadeDiepte = ..Enum.LadeDiepte.LadeDiepte270) {
+			Set DoosLosseOnderdelen = ##class(APPS.Halux.PPS.Verpakking.utils.StandaardHulsDefinities).LadeDiepte270()
 		} Else {
 			Set DoosLosseOnderdelen = ##class(APPS.Halux.PPS.Verpakking.impl.DoosLosseOnderdelen).%New()
 			Set DoosLosseOnderdelen.BreedteAndere = ..GeefBreedteAndereLosseOnderdelen()
-			Set DoosLosseOnderdelen.BreedteCorpusProfiel = 10
+			Set DoosLosseOnderdelen.BreedteCorpusProfiel = 65
 			Set DoosLosseOnderdelen.Diepte = ..IngegevenKenmerken.LadeDiepte
-			Set DoosLosseOnderdelen.Hoogte = 50
-		
-			If (..HeeftGeleider()) {
-				#dim Geleider as APPS.Halux.PPS.Verpakking.Volume = ..GeefVolumeGeleider()
-				Set HeeftComplexeScheidingKarton = ($$$Not(..IngegevenKenmerken.IsBinnenlade) && ((..HalffabItemsBoom.BevatRol(##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).InschuifElementZijkant()) || ..HalffabItemsBoom.BevatRol(##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).Boxcap()) || ..HalffabItemsBoom.BevatRol(##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).BoxcoverVoor()) || ..HalffabItemsBoom.BevatRol(##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).BoxcoverAchter()))))
-				
-				If ..HeeftHogeRugRecept() {
-					Set FysiekeLadeHoogteMM = LadeUtils.GeefFysiekeLadeHoogteMM(..IngegevenKenmerken.ZijkantHoogte, ..IngegevenKenmerken.IsBinnenlade)
-				}
-				#dim IsMOfNLade As %Boolean = FysiekeLadeHoogteMM < 120
-				
-				If (IsMOfNLade && (Geleider.Hoogte < Geleider.Breedte) && (Geleider.Breedte < FysiekeLadeHoogteMM)) {
-					Set DoosLosseOnderdelen.Hoogte = Geleider.Breedte
-					Set DoosLosseOnderdelen.BreedteCorpusProfiel = Geleider.Hoogte
-				} Else {
-					Set DoosLosseOnderdelen.Hoogte = Geleider.Hoogte
-					Set DoosLosseOnderdelen.BreedteCorpusProfiel = Geleider.Breedte
-				}
-				
-				Set DoosLosseOnderdelen.Diepte = Geleider.Diepte
-			}
-			
-			If (HeeftComplexeScheidingKarton) && (DoosLosseOnderdelen.Hoogte < 101) && $$$Not(DoosLosseOnderdelen.IsStandaardHuls) {
-				Set DoosLosseOnderdelen.Hoogte = 101 //91 (hoogte M) + 10 (extra Hoogte voor recept V1 boxkap)
-			}
-			
-			Do ..VergrootDoosLosseOnderdelenTotZijkantHoogte(DoosLosseOnderdelen, FysiekeLadeHoogteMM)
+			Set DoosLosseOnderdelen.Hoogte = 80
 		}
 	}
 	
@@ -173,14 +153,8 @@
 <Private>1</Private>
 <ReturnType>TECH.Numeric</ReturnType>
 <Implementation><![CDATA[
-	#dim Breedte As TECH.Numeric = 20
-	If (..ZitOnderdeelInEindproduct(..Enum.Rol.TiponBlumotionEenheid)) {
-		#define TiponBlumotionEenheidBreedte 75
-		Set Breedte = $$$TiponBlumotionEenheidBreedte
-	} ElseIf (..ZitOnderdeelInEindproduct(..Enum.Rol.TiponBlumotionMeenemer)) {
-		#define TiponBlumotionMeenemerBreedte 68
-		Set Breedte = $$$TiponBlumotionMeenemerBreedte
-	}
+	#dim Breedte As TECH.Numeric = 40
+	
 	Quit Breedte
 ]]></Implementation>
 </Method>
@@ -191,13 +165,7 @@
 <Implementation><![CDATA[
 	If $$$Not(..HeeftHogeRugRecept()) {
 		If (DoosLade.Hoogte < DoosLosseOnderdelen.GeefExterneBreedte()) {
-			// Uitzondering voor K-hoogte TOB: LO doos toch op zijn kant ipv plat => ladedoos verhogen
-			If ((..IngegevenKenmerken.LadeHoogte = ..Enum.LadeHoogte.K) && (..IngegevenKenmerken.GeleiderTechnologie = ..Enum.GeleiderTechnologie.TIPONBLUMOTION)) {
-				Set DoosLade.Breedte = DoosLade.Breedte + DoosLosseOnderdelen.GeefExterneHoogte()
-				Set DoosLade.Hoogte = DoosLosseOnderdelen.GeefExterneBreedte() + 5
-			} Else {
-				Set DoosLade.Breedte = DoosLade.Breedte + DoosLosseOnderdelen.GeefExterneBreedte()
-			}
+			Set DoosLade.Breedte = DoosLade.Breedte + DoosLosseOnderdelen.GeefExterneBreedte()
 		} Else {
 			Set DoosLade.Breedte = DoosLade.Breedte + DoosLosseOnderdelen.GeefExterneHoogte()
 		}
@@ -209,11 +177,6 @@
 		Set DoosLade.Diepte = DoosLosseOnderdelen.GeefExterneDiepte()
 		Set:(DoosLosseOnderdelen.IsStandaardHuls) DoosLade.Diepte = ##class(TECH.Math).Ceil(DoosLade.Diepte) + 5
 	}
-	
-	if (DoosLosseOnderdelen.IsStandaardHuls) && ( ..IsGeenVerhoogdeOfVerlaagdeLade() ) && (##class(TECH.StringUtils).Equals(..IngegevenKenmerken.LadeHoogte,..Enum.LadeHoogte.N,..Enum.LadeHoogte.M)) {
-		Set DoosLade.Diepte = DoosLade.Diepte + 1
-		Set DoosLade.Breedte = DoosLade.Breedte + 1
-	}
 
 	if (DoosLosseOnderdelen.IsStandaardHuls) && (##class(TECH.StringUtils).Equals(..IngegevenKenmerken.LadeHoogte,..Enum.LadeHoogte.N, ..Enum.LadeHoogte.M)) {
 		Set DoosLade.Breedte = DoosLade.Breedte + 10
@@ -278,16 +241,12 @@
 <Private>1</Private>
 <ReturnType>DOM.PM.Verpakking.Volume</ReturnType>
 <Implementation><![CDATA[
-	#Dim Breedte As %Numeric = 67
-	#Dim Hoogte As %Numeric = 60
+	#Dim Breedte As %Numeric
+	#Dim Hoogte As %Numeric
 	#Dim Diepte As %Numeric = ..IngegevenKenmerken.LadeDiepte
 	
-	If (..IngegevenKenmerken.Draagkracht >= 50) {
-		#define RobuustereGeleiderExtraBreedte 5
-		Set Breedte = Breedte + $$$RobuustereGeleiderExtraBreedte
-		#define RobuustereGeleiderExtraHoogte 5
-		Set Hoogte = Hoogte + $$$RobuustereGeleiderExtraHoogte
-	}
+	Set Breedte = 65
+	Set Hoogte = 80
 	
 	Quit ..GeefVolume(Diepte, Breedte, Hoogte)
 ]]></Implementation>