Index: APPS/Halux/PPS/TAORVerpakking/impl/DoosBerekenaar.cls.xml
===================================================================
diff -u -r66851 -r67307
--- APPS/Halux/PPS/TAORVerpakking/impl/DoosBerekenaar.cls.xml	(.../DoosBerekenaar.cls.xml)	(revision 66851)
+++ APPS/Halux/PPS/TAORVerpakking/impl/DoosBerekenaar.cls.xml	(.../DoosBerekenaar.cls.xml)	(revision 67307)
@@ -197,41 +197,17 @@
 			set DoosLosseOnderdelen = ##class(APPS.Halux.PPS.Verpakking.utils.StandaardHulsDefinities).LadeDiepte500()
 		} elseif (..IngegevenKenmerken.LadeDiepte = ..Enum.LadeDiepte.LadeDiepte450) {
 			set DoosLosseOnderdelen = ##class(APPS.Halux.PPS.Verpakking.utils.StandaardHulsDefinities).LadeDiepte450()
+		} Elseif (..IngegevenKenmerken.LadeDiepte = ..Enum.LadeDiepte.LadeDiepte400) {
+			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()
+		} Else {
+			Set DoosLosseOnderdelen = ##class(APPS.Halux.PPS.Verpakking.impl.DoosLosseOnderdelen).%New()
+			Set DoosLosseOnderdelen.BreedteAndere = 43
+			Set DoosLosseOnderdelen.BreedteCorpusProfiel = 65
+			Set DoosLosseOnderdelen.Diepte = ..IngegevenKenmerken.LadeDiepte
+			Set DoosLosseOnderdelen.Hoogte = 80
 		}
-		 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
-			}
-		}
 	}
 	
 	Quit DoosLosseOnderdelen
Index: vhUnitTest/APPS/Halux/PPS/TAORVerpakking/TestDoos.cls.xml
===================================================================
diff -u -r66785 -r67307
--- vhUnitTest/APPS/Halux/PPS/TAORVerpakking/TestDoos.cls.xml	(.../TestDoos.cls.xml)	(revision 66785)
+++ vhUnitTest/APPS/Halux/PPS/TAORVerpakking/TestDoos.cls.xml	(.../TestDoos.cls.xml)	(revision 67307)
@@ -271,6 +271,28 @@
 ]]></Implementation>
 </Method>
 
+<Method name="TestLadeMetStandaardHulsBijLadeDiepte400">
+<Implementation><![CDATA[
+	#define ProductId 1000000
+	
+	Set ..TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardBinnenladeVerpaktIn(##class(DOM.PM.enu.TAORVerpakkingType).V1())
+	Set ..TAORKenmerken.LadeDiepte = ##class(DOM.PM.enu.TAORLadeDiepte).LadeDiepte400()
+	
+	Do ..AssertStandaardOnderdelenDoosDiepte400(..GeefDoosBerekenaar(..TAORKenmerken, $$$ProductId).GeefDoosLosseOnderdelen())
+]]></Implementation>
+</Method>
+
+<Method name="TestLadeMetStandaardHulsBijLadeDiepte350">
+<Implementation><![CDATA[
+	#define ProductId 1000000
+
+	Set ..TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardBinnenladeVerpaktIn(##class(DOM.PM.enu.TAORVerpakkingType).V1())
+	Set ..TAORKenmerken.LadeDiepte = ##class(DOM.PM.enu.TAORLadeDiepte).LadeDiepte350()
+	
+	Do ..AssertStandaardOnderdelenDoosDiepte350(..GeefDoosBerekenaar(..TAORKenmerken, $$$ProductId).GeefDoosLosseOnderdelen())
+]]></Implementation>
+</Method>
+
 <Method name="TestKartonSpecificaties">
 <Implementation><![CDATA[
 	#dim DoosBerekenaar As APPS.Halux.PPS.TAORVerpakking.impl.DoosBerekenaar = ..GeefDoosBerekenaar(..TAORKenmerken)