Index: APPS/Halux/PPS/LBXVerpakking/impl/DoosBerekenaar.cls.xml
===================================================================
diff -u -r33697 -r33849
--- APPS/Halux/PPS/LBXVerpakking/impl/DoosBerekenaar.cls.xml	(.../DoosBerekenaar.cls.xml)	(revision 33697)
+++ APPS/Halux/PPS/LBXVerpakking/impl/DoosBerekenaar.cls.xml	(.../DoosBerekenaar.cls.xml)	(revision 33849)
@@ -183,13 +183,19 @@
 		Set DoosLade.Diepte = DoosLosseOnderdelen.GeefExterneDiepte()
 	}
 	
-	if DoosLosseOnderdelen.IsStandaardHuls && ##class(TECH.StringUtils).Equals(..IngegevenKenmerken.LadeHoogte,..Enum.LadeHoogte.N,..Enum.LadeHoogte.M) {
+	if (DoosLosseOnderdelen.IsStandaardHuls) && ( ..GeenVerhoogdeOfVerlaagdeLade() ) && (##class(TECH.StringUtils).Equals(..IngegevenKenmerken.LadeHoogte,..Enum.LadeHoogte.N,..Enum.LadeHoogte.M)) {
 		set DoosLade.Diepte = DoosLade.Diepte + 1
 		set DoosLade.Breedte = DoosLade.Breedte + 1
 	}
 ]]></Implementation>
 </Method>
 
+<Method name="GeenVerhoogdeOfVerlaagdeLade">
+<Private>1</Private>
+<Implementation><![CDATA[	quit ..IngegevenKenmerken.LadeHoogte = ..IngegevenKenmerken.RugHoogte
+]]></Implementation>
+</Method>
+
 <Method name="HeeftAfdekkappen">
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[	Quit (..ZitOnderdeelInEindproduct(..Enum.Rol.AfdekkapBinnen) || ..ZitOnderdeelInEindproduct(..Enum.Rol.AfdekkapBuiten))
Index: DOM/PM/Verpakking/impl/DoosBerekenaar.cls.xml
===================================================================
diff -u -r33375 -r33849
--- DOM/PM/Verpakking/impl/DoosBerekenaar.cls.xml	(.../DoosBerekenaar.cls.xml)	(revision 33375)
+++ DOM/PM/Verpakking/impl/DoosBerekenaar.cls.xml	(.../DoosBerekenaar.cls.xml)	(revision 33849)
@@ -193,7 +193,12 @@
 <ReturnType>%Integer</ReturnType>
 <Implementation><![CDATA[
 	#Dim LadeUtils As DOM.PM.Maatwerk.Lade.LadeUtils = ##class(DOM.DomeinContext).Instance().GeefMaatwerkCalcAPI().GeefLadeUtils(..GeefLadeVariant())
-	Quit LadeUtils.GeefFysiekeLadeHoogteMM(..IngegevenKenmerken.LadeHoogte, ..IngegevenKenmerken.IsBinnenlade)
+	#dim FysiekeLadeHoogteMM As %Integer = LadeUtils.GeefFysiekeLadeHoogteMM(..IngegevenKenmerken.LadeHoogte, ..IngegevenKenmerken.IsBinnenlade)
+	if ..IngegevenKenmerken.LadeHoogte '= ..IngegevenKenmerken.RugHoogte {
+		#dim TmpFysiekeLadeHoogteMM As %Integer = LadeUtils.GeefFysiekeLadeHoogteMM(..IngegevenKenmerken.RugHoogte, ..IngegevenKenmerken.IsBinnenlade)
+		If TmpFysiekeLadeHoogteMM > FysiekeLadeHoogteMM set FysiekeLadeHoogteMM = TmpFysiekeLadeHoogteMM
+	}
+	Quit FysiekeLadeHoogteMM
 ]]></Implementation>
 </Method>
 
Index: vhUnitTest/APPS/Halux/PPS/LBXVerpakking/TestDoos.cls.xml
===================================================================
diff -u -r33697 -r33849
--- vhUnitTest/APPS/Halux/PPS/LBXVerpakking/TestDoos.cls.xml	(.../TestDoos.cls.xml)	(revision 33697)
+++ vhUnitTest/APPS/Halux/PPS/LBXVerpakking/TestDoos.cls.xml	(.../TestDoos.cls.xml)	(revision 33849)
@@ -200,24 +200,55 @@
 ]]></Implementation>
 </Method>
 
-<Method name="TestHogeLadeMetStandaardHulsBijLadeDiepte500">
+<Method name="Test: M Lade diepte 500">
 <Implementation><![CDATA[
 	#define ProductId 1000000
 	
 	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..MaakLadeCBreedEnDiep()
 	Set LBXKenmerken.LadeDiepte = ##class(DOM.PM.enu.LBXLadeDiepte).LadeDiepte500()
+	set LBXKenmerken.LadeHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).M()
+	set LBXKenmerken.RugHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).M()
 	
+	Do ..AssertDoos(..GeefDoosBerekenaar(LBXKenmerken, $$$ProductId).GeefDoosLade(), 90, 1278.8, 509.4)
+	Do ..AssertStandaardOnderdelenDoosDiepte500(..GeefDoosBerekenaar(LBXKenmerken, $$$ProductId).GeefDoosLosseOnderdelen())
+]]></Implementation>
+</Method>
+
+<Method name="Test: C Lade diepte 500">
+<Implementation><![CDATA[
+	#define ProductId 1000000
+	
+	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..MaakLadeCBreedEnDiep()
+	Set LBXKenmerken.LadeDiepte = ##class(DOM.PM.enu.LBXLadeDiepte).LadeDiepte500()
+	set LBXKenmerken.LadeHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).C()
+	set LBXKenmerken.RugHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).C()
+	
 	Do ..AssertDoos(..GeefDoosBerekenaar(LBXKenmerken, $$$ProductId).GeefDoosLade(), 180, 1244.4, 508.4)
 	Do ..AssertStandaardOnderdelenDoosDiepte500(..GeefDoosBerekenaar(LBXKenmerken, $$$ProductId).GeefDoosLosseOnderdelen())
 ]]></Implementation>
 </Method>
 
+<Method name="Test: M Lade met verhooge rug C diepte 500">
+<Implementation><![CDATA[
+	#define ProductId 1000000
+	
+	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..MaakLadeCBreedEnDiep()
+	Set LBXKenmerken.LadeDiepte = ##class(DOM.PM.enu.LBXLadeDiepte).LadeDiepte500()
+	set LBXKenmerken.LadeHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).M()
+	set LBXKenmerken.RugHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).C()
+	
+	Do ..AssertDoos(..GeefDoosBerekenaar(LBXKenmerken, $$$ProductId).GeefDoosLade(), 180, 1244.4, 508.4)
+	Do ..AssertStandaardOnderdelenDoosDiepte500(..GeefDoosBerekenaar(LBXKenmerken, $$$ProductId).GeefDoosLosseOnderdelen())
+]]></Implementation>
+</Method>
+
 <Method name="TestLageLadeMetStandaardHulsBijLadeDiepte550">
 <Implementation><![CDATA[
 	#define ProductId 1000000
 	
 	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..MaakLadeCBreedEnDiep()
 	Set LBXKenmerken.LadeHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).M()
+	Set LBXKenmerken.RugHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).M()
 	Set LBXKenmerken.LadeDiepte = ##class(DOM.PM.enu.LBXLadeDiepte).LadeDiepte550()
 	
 	Do ..AssertDoos(..GeefDoosBerekenaar(LBXKenmerken, $$$ProductId).GeefDoosLade(), 90, 1278.8, 559.4)
@@ -278,6 +309,7 @@
 	
 	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..MaakLadeMSmalEnOndiep()
 	Set LBXKenmerken.LadeHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).K()
+	Set LBXKenmerken.RugHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).K()
 	Set LBXKenmerken.GeleiderTechnologie = ##class(DOM.PM.enu.LBXGeleiderTechnologie).TIPONBLUMOTION()
 	
 	#Dim DoosBerekenaar as APPS.Halux.PPS.LBXVerpakking.impl.DoosBerekenaar = ..GeefDoosBerekenaar(LBXKenmerken)
@@ -302,6 +334,7 @@
 	
 	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..MaakLadeMSmalEnOndiep()
 	Set LBXKenmerken.LadeHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).K()
+	Set LBXKenmerken.RugHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).K()
 	Set LBXKenmerken.GeleiderTechnologie = ##class(DOM.PM.enu.LBXGeleiderTechnologie).TIPONBLUMOTION()
 	
 	#Dim DoosBerekenaar as APPS.Halux.PPS.LBXVerpakking.impl.DoosBerekenaar = ..GeefDoosBerekenaar(LBXKenmerken)