Index: APPS/Halux/PPS/MVXVerpakking/impl/DoosBerekenaar.cls.xml
===================================================================
diff -u -r68929 -r68933
--- APPS/Halux/PPS/MVXVerpakking/impl/DoosBerekenaar.cls.xml	(.../DoosBerekenaar.cls.xml)	(revision 68929)
+++ APPS/Halux/PPS/MVXVerpakking/impl/DoosBerekenaar.cls.xml	(.../DoosBerekenaar.cls.xml)	(revision 68933)
@@ -184,17 +184,22 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	#dim HeeftComplexeScheidingKarton As %Boolean = ($$$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()))))
+	#dim LadeHeeftHogeRugRecept As %Boolean = ($$$Not(..IngegevenKenmerken.IsBinnenlade) && $$$Not(..IngegevenKenmerken.ZijwandType = ##class(DOM.PM.enu.MVXZijWandType).Pure()))
 	
-	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
+	If $$$Not(LadeHeeftHogeRugRecept) {
+		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()
+			}
 		} Else {
-			Set DoosLade.Breedte = DoosLade.Breedte + DoosLosseOnderdelen.GeefExterneBreedte()
+			Set DoosLade.Breedte = DoosLade.Breedte + DoosLosseOnderdelen.GeefExterneHoogte()
 		}
-	} Else {
-		Set DoosLade.Breedte = DoosLade.Breedte + DoosLosseOnderdelen.GeefExterneHoogte()
+	} Else { //Bij HogeRugRecept wordt de onderdelendoos niet op zijn zij gezet
+		Set DoosLade.Breedte = DoosLade.Breedte + DoosLosseOnderdelen.GeefExterneBreedte()
 	}
 	
 	If DoosLade.Diepte < DoosLosseOnderdelen.GeefExterneDiepte() {
@@ -214,10 +219,6 @@
 	If DoosLade.Hoogte < DoosLosseOnderdelen.GeefExterneHoogte() {
 		set DoosLade.Hoogte = ##class(TECH.Math).Ceil(DoosLosseOnderdelen.GeefExterneHoogte(),10)	
 	}
-	
-	If (HeeftComplexeScheidingKarton) && (DoosLade.Hoogte < (101 + (2*4.2))) {
-		Set DoosLade.Hoogte = (101 + (2*4.2)) //91 (hoogte M) + 10 (extra Hoogte voor recept V1 boxkap) + 2*kartondikte
-	}
 ]]></Implementation>
 </Method>