Index: APPS/Halux/PPS/LBXVerpakking/impl/DoosBerekenaar.cls.xml
===================================================================
diff -u -r40991 -r67304
--- APPS/Halux/PPS/LBXVerpakking/impl/DoosBerekenaar.cls.xml	(.../DoosBerekenaar.cls.xml)	(revision 40991)
+++ APPS/Halux/PPS/LBXVerpakking/impl/DoosBerekenaar.cls.xml	(.../DoosBerekenaar.cls.xml)	(revision 67304)
@@ -134,28 +134,16 @@
 			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 = ..GeefBreedteAndereLosseOnderdelen()
-			Set DoosLosseOnderdelen.BreedteCorpusProfiel = 10
+			Set DoosLosseOnderdelen.BreedteAndere = 43
+			Set DoosLosseOnderdelen.BreedteCorpusProfiel = 65
 			Set DoosLosseOnderdelen.Diepte = ..IngegevenKenmerken.LadeDiepte
-			Set DoosLosseOnderdelen.Hoogte = 50
-		
-			If (..HeeftGeleider()) {
-				#Dim Geleider as APPS.Halux.PPS.Verpakking.Volume = ..GeefVolumeGeleider()
-				
-				#define IsMOfNLade (..GeefFysiekeLadeHoogteMM() < 120)
-				If ($$$IsMOfNLade && (Geleider.Hoogte < Geleider.Breedte) && (Geleider.Breedte < ..GeefFysiekeLadeHoogteMM())) {
-					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
-			}
-			Do ..VergrootDoosLosseOnderdelenTotZijkantHoogte(DoosLosseOnderdelen)
+			Set DoosLosseOnderdelen.Hoogte = 80
 		}
 	}
 	
Index: vhUnitTest/APPS/Halux/PPS/LBXVerpakking/TestDoos.cls.xml
===================================================================
diff -u -r58679 -r67304
--- vhUnitTest/APPS/Halux/PPS/LBXVerpakking/TestDoos.cls.xml	(.../TestDoos.cls.xml)	(revision 58679)
+++ vhUnitTest/APPS/Halux/PPS/LBXVerpakking/TestDoos.cls.xml	(.../TestDoos.cls.xml)	(revision 67304)
@@ -72,10 +72,10 @@
 	
 	#dim DoosLosseOnderdelen As DOM.PM.Verpakking.DoosLosseOnderdelen = DoosBerekenaar.GeefDoosLosseOnderdelen()
 	
-	Do $$$AssertEquals(DoosLosseOnderdelen.BreedteCorpusProfiel, 10)
+	Do $$$AssertEquals(DoosLosseOnderdelen.BreedteCorpusProfiel, 65)
 	Do $$$AssertEquals(DoosLosseOnderdelen.Diepte, 270)
-	Do $$$AssertEquals(DoosLosseOnderdelen.Breedte, 38.4)
-	Do $$$AssertEquals(DoosLosseOnderdelen.BreedteAndere, 20)
+	Do $$$AssertEquals(DoosLosseOnderdelen.Breedte, 116.4)
+	Do $$$AssertEquals(DoosLosseOnderdelen.BreedteAndere, 43)
 ]]></Implementation>
 </Method>
 
@@ -151,16 +151,16 @@
 	#dim DoosLade as DOM.PM.Verpakking.impl.Doos = DoosBerekenaar.GeefDoosLade()
 	#dim DoosLosseOnderdelen as DOM.PM.Verpakking.DoosLosseOnderdelen = DoosBerekenaar.GeefDoosLosseOnderdelen()
 	
-	Do ..AssertDoos(DoosBerekenaar.GeefDoosLade() , 90 , 346.8 , 278.4)
+	Do ..AssertDoos(DoosBerekenaar.GeefDoosLade() , 90 , 374.8 , 278.4)
 		
-	Do $$$AssertEquals(DoosLosseOnderdelen.Hoogte, 81.6)
-	Do $$$AssertEquals(DoosLosseOnderdelen.Breedte, 88.4)
+	Do $$$AssertEquals(DoosLosseOnderdelen.Hoogte, 80)
+	Do $$$AssertEquals(DoosLosseOnderdelen.Breedte, 116.4)
 	Do $$$AssertEquals(DoosLosseOnderdelen.Diepte, 270)
-	Do $$$AssertEquals(DoosLosseOnderdelen.GeefExterneHoogte(), 90)
-	Do $$$AssertEquals(DoosLosseOnderdelen.GeefExterneBreedte(), 96.8)
+	Do $$$AssertEquals(DoosLosseOnderdelen.GeefExterneHoogte(), 88.4)
+	Do $$$AssertEquals(DoosLosseOnderdelen.GeefExterneBreedte(), 124.8)
 	Do $$$AssertEquals(DoosLosseOnderdelen.GeefExterneDiepte(), 278.4)
-	Do $$$AssertEquals(DoosLosseOnderdelen.BreedteCorpusProfiel, 60) // Geleider zit met kortste kant in breedte van de doos
-	Do $$$AssertEquals(DoosLosseOnderdelen.BreedteAndere, 20)
+	Do $$$AssertEquals(DoosLosseOnderdelen.BreedteCorpusProfiel, 65) // Geleider zit met kortste kant in breedte van de doos
+	Do $$$AssertEquals(DoosLosseOnderdelen.BreedteAndere, 43)
 ]]></Implementation>
 </Method>
 
@@ -172,16 +172,16 @@
 	#dim DoosBerekenaar as APPS.Halux.PPS.LBXVerpakking.impl.DoosBerekenaar = ..GeefDoosBerekenaar(LBXKenmerken)
 	#dim DoosLosseOnderdelen as DOM.PM.Verpakking.DoosLosseOnderdelen = DoosBerekenaar.GeefDoosLosseOnderdelen()
 
-	Do ..AssertDoos(DoosBerekenaar.GeefDoosLade() , 200 , 1224.4 , 608.4)
+	Do ..AssertDoos(DoosBerekenaar.GeefDoosLade() , 200 , 1244.4 , 608.4)
 	
-	Do $$$AssertEquals(DoosLosseOnderdelen.Hoogte, 60)
-	Do $$$AssertEquals(DoosLosseOnderdelen.Breedte, 186.6)
+	Do $$$AssertEquals(DoosLosseOnderdelen.Hoogte, 80)
+	Do $$$AssertEquals(DoosLosseOnderdelen.Breedte, 116.4)
 	Do $$$AssertEquals(DoosLosseOnderdelen.Diepte, 600)
-	Do $$$AssertEquals(DoosLosseOnderdelen.GeefExterneHoogte(), 60 + (2 * ..#KartonDikte))
-	Do $$$AssertEquals(DoosLosseOnderdelen.GeefExterneBreedte(), 195) 
+	Do $$$AssertEquals(DoosLosseOnderdelen.GeefExterneHoogte(), 88.4)
+	Do $$$AssertEquals(DoosLosseOnderdelen.GeefExterneBreedte(), 124.8) 
 	Do $$$AssertEquals(DoosLosseOnderdelen.GeefExterneDiepte(), 600 + (2 * ..#KartonDikte))
-	Do $$$AssertEquals(DoosLosseOnderdelen.BreedteCorpusProfiel, 67)
-	Do $$$AssertEquals(DoosLosseOnderdelen.BreedteAndere, DoosLosseOnderdelen.Breedte - 67 - (2 * ..#KartonDikte))
+	Do $$$AssertEquals(DoosLosseOnderdelen.BreedteCorpusProfiel, 65)
+	Do $$$AssertEquals(DoosLosseOnderdelen.BreedteAndere, 43)
 ]]></Implementation>
 </Method>
 
@@ -197,6 +197,30 @@
 ]]></Implementation>
 </Method>
 
+<Method name="TestHogeLadeMetStandaardHulsBijLadeDiepte400">
+<Implementation><![CDATA[
+	#define ProductId 1000000
+
+	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..MaakLadeCBreedEnDiep()
+	Set LBXKenmerken.LadeDiepte = ##class(DOM.PM.enu.LBXLadeDiepte).LadeDiepte400()
+	
+	Do ..AssertDoos(..GeefDoosBerekenaar(LBXKenmerken, $$$ProductId).GeefDoosLade(), 180, 1244.4, 414)
+	Do ..AssertStandaardOnderdelenDoosDiepte400(..GeefDoosBerekenaar(LBXKenmerken, $$$ProductId).GeefDoosLosseOnderdelen())
+]]></Implementation>
+</Method>
+
+<Method name="TestHogeLadeMetStandaardHulsBijLadeDiepte350">
+<Implementation><![CDATA[
+	#define ProductId 1000000
+
+	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..MaakLadeCBreedEnDiep()
+	Set LBXKenmerken.LadeDiepte = ##class(DOM.PM.enu.LBXLadeDiepte).LadeDiepte350()
+	
+	Do ..AssertDoos(..GeefDoosBerekenaar(LBXKenmerken, $$$ProductId).GeefDoosLade(), 180, 1244.4, 364)
+	Do ..AssertStandaardOnderdelenDoosDiepte350(..GeefDoosBerekenaar(LBXKenmerken, $$$ProductId).GeefDoosLosseOnderdelen())
+]]></Implementation>
+</Method>
+
 <Method name="Test: M Lade diepte 500">
 <Implementation><![CDATA[
 	#define ProductId 1000000
@@ -303,7 +327,7 @@
 	#Dim DoosBerekenaar as APPS.Halux.PPS.LBXVerpakking.impl.DoosBerekenaar = ..GeefDoosBerekenaar(LBXKenmerken)
 	#dim DoosLosseOnderdelen as DOM.PM.Verpakking.DoosLosseOnderdelen = DoosBerekenaar.GeefDoosLosseOnderdelen()	
 	
-	Do $$$AssertEquals(DoosLosseOnderdelen.BreedteAndere, 20)
+	Do $$$AssertEquals(DoosLosseOnderdelen.BreedteAndere, 43)
 ]]></Implementation>
 </Method>
 
@@ -317,16 +341,16 @@
 	#Dim DoosBerekenaar as APPS.Halux.PPS.LBXVerpakking.impl.DoosBerekenaar = ..GeefDoosBerekenaar(LBXKenmerken)
 	#dim DoosLosseOnderdelen as DOM.PM.Verpakking.DoosLosseOnderdelen = DoosBerekenaar.GeefDoosLosseOnderdelen()
 	
-	Do ..AssertDoos(DoosBerekenaar.GeefDoosLade(), 140, 318.4, 278.4)
+	Do ..AssertDoos(DoosBerekenaar.GeefDoosLade(), 140, 338.4, 278.4)
 
-	Do $$$AssertEquals(DoosLosseOnderdelen.Breedte, 126.6)
-	Do $$$AssertEquals(DoosLosseOnderdelen.BreedteCorpusProfiel, 67)
-	Do $$$AssertEquals(DoosLosseOnderdelen.BreedteAndere,51.2)
+	Do $$$AssertEquals(DoosLosseOnderdelen.Breedte, 116.4)
+	Do $$$AssertEquals(DoosLosseOnderdelen.BreedteCorpusProfiel, 65)
+	Do $$$AssertEquals(DoosLosseOnderdelen.BreedteAndere,43)
 	Do $$$AssertEquals(DoosLosseOnderdelen.Diepte, 270)
-	Do $$$AssertEquals(DoosLosseOnderdelen.Hoogte, 60)
-	Do $$$AssertEquals(DoosLosseOnderdelen.GeefExterneHoogte(), 60 + (2 * ..#KartonDikte))
+	Do $$$AssertEquals(DoosLosseOnderdelen.Hoogte, 80)
+	Do $$$AssertEquals(DoosLosseOnderdelen.GeefExterneHoogte(), 88.4)
 	Do $$$AssertEquals(DoosLosseOnderdelen.GeefExterneDiepte(), 270 + (2 * ..#KartonDikte))
-	Do $$$AssertEquals(DoosLosseOnderdelen.GeefExterneBreedte(), 126.6 + (2 * ..#KartonDikte))
+	Do $$$AssertEquals(DoosLosseOnderdelen.GeefExterneBreedte(), 124.8)
 ]]></Implementation>
 </Method>
 
@@ -345,11 +369,11 @@
 		Set AantalSpecs = AantalSpecs + 1
 		If (KartonSpec.BenamingVerpakkingsOnderdeel = ##class(DOM.PM.Verpakking.enu.BenamingVerpakkingsOnderdeel).DoosMetDeksel()) {
 			Do $$$AssertEquals(+$J(KartonSpec.NodigeBreedte, 0, 0), 1681, "Breedte van DoosMetDeksel")
-			Do $$$AssertEquals(+$J(KartonSpec.NodigeLengte, 0, 0), 1961, "Lengte van DoosMetDeksel")
+			Do $$$AssertEquals(+$J(KartonSpec.NodigeLengte, 0, 0), 1981, "Lengte van DoosMetDeksel")
 			Do $$$AssertEquals(KartonSpec.KartonSamenstelling, ##class(DOM.PM.Verpakking.enu.KartonSamenstelling).Dun(), "Kartonsamenstelling = EB")
 		} ElseIf (KartonSpec.BenamingVerpakkingsOnderdeel = ##class(DOM.PM.Verpakking.enu.BenamingVerpakkingsOnderdeel).DoosLosseOnderdelen()) {
-			Do $$$AssertEquals(+$J(KartonSpec.NodigeBreedte, 0, 0), 820, "Breedte van DoosLosseOnderdelen")
-			Do $$$AssertEquals(+$J(KartonSpec.NodigeLengte, 0, 0), 513, "Lengte van DoosLosseOnderdelen")
+			Do $$$AssertEquals(+$J(KartonSpec.NodigeBreedte, 0, 0), 860, "Breedte van DoosLosseOnderdelen")
+			Do $$$AssertEquals(+$J(KartonSpec.NodigeLengte, 0, 0), 473, "Lengte van DoosLosseOnderdelen")
 			Do $$$AssertEquals(KartonSpec.KartonSamenstelling, ##class(DOM.PM.Verpakking.enu.KartonSamenstelling).Dun(), "Kartonsamenstelling = EB")
 		} Else {
 			Do $$$AssertTrue(0, "Alleen DoosMetDeksel en Losse onderdelen zijn mogelijk")