Index: APPS/Halux/PPS/TAORVerpakking/impl/DoosBerekenaar.cls.xml
===================================================================
diff -u -r70066 -r72617
--- APPS/Halux/PPS/TAORVerpakking/impl/DoosBerekenaar.cls.xml	(.../DoosBerekenaar.cls.xml)	(revision 70066)
+++ APPS/Halux/PPS/TAORVerpakking/impl/DoosBerekenaar.cls.xml	(.../DoosBerekenaar.cls.xml)	(revision 72617)
@@ -193,49 +193,48 @@
 	#Dim DoosLosseOnderdelen As DOM.PM.Verpakking.DoosLosseOnderdelen = ""
 	#dim FrontBevestigingEnGeenBinnenlade As %Boolean = (..HeeftFrontBevestiging() && $$$Not(..IngegevenKenmerken.IsBinnenlade))
 	If (..HeeftGlijder() || ..HeeftBodemOndersteuningDieMoetVerpaktWorden() || FrontBevestigingEnGeenBinnenlade) {
-		If (..IngegevenKenmerken.LadeDiepte = ..Enum.LadeDiepte.LadeDiepte550) {
+		If (..IngegevenKenmerken.LadeDiepte = ..Enum.LadeDiepte.LadeDiepte750) {
+			set DoosLosseOnderdelen = ##class(APPS.Halux.PPS.Verpakking.utils.StandaardHulsDefinities).LadeDiepte750()
+		} Elseif (..IngegevenKenmerken.LadeDiepte = ..Enum.LadeDiepte.LadeDiepte700) {
+			set DoosLosseOnderdelen = ##class(APPS.Halux.PPS.Verpakking.utils.StandaardHulsDefinities).LadeDiepte700()
+		} Elseif (..IngegevenKenmerken.LadeDiepte = ..Enum.LadeDiepte.LadeDiepte650) {
+			set DoosLosseOnderdelen = ##class(APPS.Halux.PPS.Verpakking.utils.StandaardHulsDefinities).LadeDiepte650()
+		} Elseif (..IngegevenKenmerken.LadeDiepte = ..Enum.LadeDiepte.LadeDiepte600) {
+			set DoosLosseOnderdelen = ##class(APPS.Halux.PPS.Verpakking.utils.StandaardHulsDefinities).LadeDiepte600()
+		} Elseif (..IngegevenKenmerken.LadeDiepte = ..Enum.LadeDiepte.LadeDiepte580) {
+			set DoosLosseOnderdelen = ##class(APPS.Halux.PPS.Verpakking.utils.StandaardHulsDefinities).LadeDiepte580()
+		} Elseif (..IngegevenKenmerken.LadeDiepte = ..Enum.LadeDiepte.LadeDiepte550) {
 			set DoosLosseOnderdelen = ##class(APPS.Halux.PPS.Verpakking.utils.StandaardHulsDefinities).LadeDiepte550()
+		} Elseif (..IngegevenKenmerken.LadeDiepte = ..Enum.LadeDiepte.LadeDiepte520) {
+			set DoosLosseOnderdelen = ##class(APPS.Halux.PPS.Verpakking.utils.StandaardHulsDefinities).LadeDiepte520()
 		} Elseif (..IngegevenKenmerken.LadeDiepte = ..Enum.LadeDiepte.LadeDiepte500) {
 			set DoosLosseOnderdelen = ##class(APPS.Halux.PPS.Verpakking.utils.StandaardHulsDefinities).LadeDiepte500()
+		} Elseif (..IngegevenKenmerken.LadeDiepte = ..Enum.LadeDiepte.LadeDiepte480) {
+			set DoosLosseOnderdelen = ##class(APPS.Halux.PPS.Verpakking.utils.StandaardHulsDefinities).LadeDiepte480()
 		} Elseif (..IngegevenKenmerken.LadeDiepte = ..Enum.LadeDiepte.LadeDiepte450) {
 			set DoosLosseOnderdelen = ##class(APPS.Halux.PPS.Verpakking.utils.StandaardHulsDefinities).LadeDiepte450()
+		} Elseif (..IngegevenKenmerken.LadeDiepte = ..Enum.LadeDiepte.LadeDiepte420) {
+			set DoosLosseOnderdelen = ##class(APPS.Halux.PPS.Verpakking.utils.StandaardHulsDefinities).LadeDiepte420()
 		} Elseif (..IngegevenKenmerken.LadeDiepte = ..Enum.LadeDiepte.LadeDiepte400) {
 			set DoosLosseOnderdelen = ##class(APPS.Halux.PPS.Verpakking.utils.StandaardHulsDefinities).LadeDiepte400()
+		} Elseif (..IngegevenKenmerken.LadeDiepte = ..Enum.LadeDiepte.LadeDiepte380) {
+			set DoosLosseOnderdelen = ##class(APPS.Halux.PPS.Verpakking.utils.StandaardHulsDefinities).LadeDiepte380()
 		} Elseif (..IngegevenKenmerken.LadeDiepte = ..Enum.LadeDiepte.LadeDiepte350) {
 			set DoosLosseOnderdelen = ##class(APPS.Halux.PPS.Verpakking.utils.StandaardHulsDefinities).LadeDiepte350()
+		} Elseif (..IngegevenKenmerken.LadeDiepte = ..Enum.LadeDiepte.LadeDiepte320) {
+			set DoosLosseOnderdelen = ##class(APPS.Halux.PPS.Verpakking.utils.StandaardHulsDefinities).LadeDiepte320()
+		} 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()
+		} Elseif (..IngegevenKenmerken.LadeDiepte = ..Enum.LadeDiepte.LadeDiepte250) {
+			set DoosLosseOnderdelen = ##class(APPS.Halux.PPS.Verpakking.utils.StandaardHulsDefinities).LadeDiepte250()
 		} Else {
-			If (..HeeftGlijder()) {
-				Set DoosLosseOnderdelen = ##class(APPS.Halux.PPS.Verpakking.impl.DoosLosseOnderdelen).%New()
-				#Dim VolumeGlijder as APPS.Halux.PPS.Verpakking.Volume = ..GeefVolumeGlijder()
-				#define IsMOfNLade (..GeefFysiekeLadeHoogteMM() < 120)
-				If ($$$IsMOfNLade && (VolumeGlijder.Hoogte < VolumeGlijder.Breedte) && (VolumeGlijder.Breedte < FysiekeLadeHoogteMM)) {
-					Set DoosLosseOnderdelen.Hoogte = VolumeGlijder.Breedte
-					Set DoosLosseOnderdelen.BreedteCorpusProfiel = VolumeGlijder.Hoogte
-				} Else {
-					Set DoosLosseOnderdelen.Hoogte = VolumeGlijder.Hoogte
-					Set DoosLosseOnderdelen.BreedteCorpusProfiel = VolumeGlijder.Breedte
-				}
-				
-				Set DoosLosseOnderdelen.Diepte = VolumeGlijder.Diepte
-				Set DoosLosseOnderdelen.BreedteAndere = 20
-			} ElseIf (..HeeftBodemOndersteuningDieMoetVerpaktWorden() || FrontBevestigingEnGeenBinnenlade) 	{
-				; Geen Glijder maar toch een doosje nodig voor de losse onderdelen
-				Set DoosLosseOnderdelen = ##class(APPS.Halux.PPS.Verpakking.impl.DoosLosseOnderdelen).%New()
-				Set DoosLosseOnderdelen.Hoogte = 45
-				Set DoosLosseOnderdelen.Diepte = LadeUtils.GeefFysiekeLadeDiepteMM(..IngegevenKenmerken.LadeDiepte)
-				Set DoosLosseOnderdelen.BreedteCorpusProfiel = 10
-				Set DoosLosseOnderdelen.BreedteAndere = FysiekeLadeHoogteMM - DoosLosseOnderdelen.BreedteCorpusProfiel
-			}
-
-			Do ..VergrootDoosLosseOnderdelenTotZijkantHoogte(DoosLosseOnderdelen)
-
-			If (..HeeftBodemOndersteuningDieMoetVerpaktWorden()) {
-				#Dim VolumeBodemOndersteuning as APPS.Halux.PPS.Verpakking.Volume = ..GeefVolumeBodemOndersteuning()
-				
-				Set:(DoosLosseOnderdelen.Hoogte < VolumeBodemOndersteuning.Hoogte) DoosLosseOnderdelen.Hoogte = VolumeBodemOndersteuning.Hoogte
-				Set:(DoosLosseOnderdelen.BreedteAndere < VolumeBodemOndersteuning.Breedte) DoosLosseOnderdelen.BreedteAndere = VolumeBodemOndersteuning.Breedte
-				Set:(DoosLosseOnderdelen.Diepte < VolumeBodemOndersteuning.Diepte) DoosLosseOnderdelen.Diepte = VolumeBodemOndersteuning.Diepte
-			}
+			Set DoosLosseOnderdelen = ##class(APPS.Halux.PPS.Verpakking.impl.DoosLosseOnderdelen).%New()
+			Set DoosLosseOnderdelen.BreedteAndere = 40
+			Set DoosLosseOnderdelen.BreedteCorpusProfiel = 65
+			Set DoosLosseOnderdelen.Diepte = ..IngegevenKenmerken.LadeDiepte
+			Set DoosLosseOnderdelen.Hoogte = 80
 		}
 	}
 	
@@ -271,34 +270,17 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefVolumeGlijder">
+<Method name="GeefVolumeGeleider">
 <Private>1</Private>
 <ReturnType>DOM.PM.Verpakking.Volume</ReturnType>
 <Implementation><![CDATA[
-	#Dim Diepte As %Numeric = ..IngegevenKenmerken.LadeDiepte + 5
 	#Dim Breedte As %Numeric
 	#Dim Hoogte As %Numeric
+	#Dim Diepte As %Numeric = ..IngegevenKenmerken.LadeDiepte
 	
-	If (..IsGlijderTypeTandem()) {
-		Set Breedte = 60
-		Set Hoogte = 50
-	} ElseIf (..IsGlijderTypeMovento()) {
-		Set Hoogte = 57
-		
-		If (..IngegevenKenmerken.GeleiderTechnologie = ..Enum.GeleiderTechnologie.TIPON) {
-			Set Breedte = 70
-		} Else {
-			Set Breedte = 67
-		}
-	}
+	Set Breedte = 65
+	Set Hoogte = 80
 	
-	If (..IngegevenKenmerken.Draagkracht >= 50) {
-		#define RobuustereGeleiderExtraBreedte 5
-		Set Breedte = Breedte + $$$RobuustereGeleiderExtraBreedte
-		#define RobuustereGeleiderExtraHoogte 5
-		Set Hoogte = Hoogte + $$$RobuustereGeleiderExtraHoogte
-	}
-	
 	Quit ..GeefVolume(Diepte, Breedte, Hoogte)
 ]]></Implementation>
 </Method>
@@ -341,12 +323,7 @@
 		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)) {
+	If (DoosLosseOnderdelen.IsStandaardHuls) && (##class(TECH.StringUtils).Equals(..IngegevenKenmerken.LadeHoogte,..Enum.LadeHoogte.N,..Enum.LadeHoogte.M)) {
 		Set DoosLade.Breedte = DoosLade.Breedte + 10
 	}