Index: APPS/Halux/PPS/Activiteit/impl/common/KartonVoorLadeUitvoeringInfoVisitor.cls.xml
===================================================================
diff -u -r68824 -r68929
--- APPS/Halux/PPS/Activiteit/impl/common/KartonVoorLadeUitvoeringInfoVisitor.cls.xml	(.../KartonVoorLadeUitvoeringInfoVisitor.cls.xml)	(revision 68824)
+++ APPS/Halux/PPS/Activiteit/impl/common/KartonVoorLadeUitvoeringInfoVisitor.cls.xml	(.../KartonVoorLadeUitvoeringInfoVisitor.cls.xml)	(revision 68929)
@@ -14,18 +14,6 @@
 <FormalSpec>LadeDoosInfo:APPS.Halux.PPS.Activiteit.impl.common.dto.LadeDoosUitvoeringInfo</FormalSpec>
 <ReturnType>%Status</ReturnType>
 </Method>
-
-<Method name="VerwerkComplexeScheidingKartonUitvoeringInfo">
-<Abstract>1</Abstract>
-<FormalSpec>KartonInfo:APPS.Halux.PPS.Activiteit.impl.common.dto.ComplexeScheidingKartonUitvoeringInfo</FormalSpec>
-<ReturnType>%Status</ReturnType>
-</Method>
-
-<Method name="VerwerkLadeDoosHogeRugUitvoeringInfo">
-<Abstract>1</Abstract>
-<FormalSpec>LadeDoosInfo:APPS.Halux.PPS.Activiteit.impl.common.dto.LadeDoosHogeRugUitvoeringInfo</FormalSpec>
-<ReturnType>%Status</ReturnType>
-</Method>
 </Class>
 
 
Index: APPS/Halux/PPS/Verpakking/impl/KartonSnijVisitor.cls.xml
===================================================================
diff -u -r68912 -r68929
--- APPS/Halux/PPS/Verpakking/impl/KartonSnijVisitor.cls.xml	(.../KartonSnijVisitor.cls.xml)	(revision 68912)
+++ APPS/Halux/PPS/Verpakking/impl/KartonSnijVisitor.cls.xml	(.../KartonSnijVisitor.cls.xml)	(revision 68929)
@@ -59,34 +59,6 @@
 ]]></Implementation>
 </Method>
 
-<UDLText name="T">
-<Content><![CDATA[
-/*
-Method VerwerkLadeDoosHogeRugUitvoeringInfo(LadeDoosInfo As APPS.Halux.PPS.Activiteit.impl.common.dto.LadeDoosHogeRugUitvoeringInfo) As %Status
-{
-	Kill Params
-	Set Params("BREEDTE") = LadeDoosInfo.Breedte
-	Set Params("DIEPTE") = LadeDoosInfo.Diepte
-	Set Params("ZIJHOOGTE") = LadeDoosInfo.Hoogte
-	Set Params("RUGHOOGTE") = LadeDoosInfo.H2 //Hoogte uitsteeksel voor hoge rug
-	Quit ..SnijDoos(LadeDoosInfo, .Params)
-}
-
-Method VerwerkComplexeScheidingKartonUitvoeringInfo(KartonInfo As APPS.Halux.PPS.Activiteit.impl.common.dto.ComplexeScheidingKartonUitvoeringInfo) As %Status
-{
-	Kill Params
-	
-	Set Params("BKDIKTE") = KartonInfo.KartonScheidingDikte
-	Set Params("BKDIEPTE") = KartonInfo.KartonScheidingDiepte
-	Set Params("BKHOOGTE") = KartonInfo.KartonScheidingHoogte
-	Set Params("BKQTY") = KartonInfo.KartonScheidingAantal
-	
-	Quit ..SnijDoos(KartonInfo, .Params)
-}
-*/
-]]></Content>
-</UDLText>
-
 <Method name="SnijDoos">
 <FormalSpec><![CDATA[UitvoeringInfo:APPS.Halux.PPS.Activiteit.impl.common.dto.KartonVoorLadeUitvoeringInfo,&Params]]></FormalSpec>
 <Private>1</Private>
Index: APPS/Halux/PPS/Verpakking/impl/KartonWerkpostFactory.cls.xml
===================================================================
diff -u -r68887 -r68929
--- APPS/Halux/PPS/Verpakking/impl/KartonWerkpostFactory.cls.xml	(.../KartonWerkpostFactory.cls.xml)	(revision 68887)
+++ APPS/Halux/PPS/Verpakking/impl/KartonWerkpostFactory.cls.xml	(.../KartonWerkpostFactory.cls.xml)	(revision 68929)
@@ -21,12 +21,6 @@
 	ElseIf (WerkpostID = ..WerkpostEnum.LosseOnderdelen) {
 		Set Werkpost = ##class(APPS.Halux.PPS.Verpakking.impl.LOKartonWerkpost).%New()
 	} 
-	ElseIf (WerkpostID = ..WerkpostEnum.VerpakkingHogeRug) {
-		Set Werkpost = ##class(APPS.Halux.PPS.Verpakking.impl.LadeHogeRugKartonWerkpost).%New()
-	}  
-	ElseIf (WerkpostID = ..WerkpostEnum.ComplexeScheiding) {
-		Set Werkpost = ##class(APPS.Halux.PPS.Verpakking.impl.ComplexeScheidingKartonWerkpost).%New()
-	} 
 	ElseIf (WerkpostID = ..WerkpostEnum.LosseComponenten) {
 		Set Werkpost = ##class(APPS.Halux.PPS.Verpakking.impl.LosseComponentenKartonWerkpost).%New()
 	}
Index: APPS/Halux/PPS/MVXVerpakking/impl/DoosBerekenaar.cls.xml
===================================================================
diff -u -r68912 -r68929
--- APPS/Halux/PPS/MVXVerpakking/impl/DoosBerekenaar.cls.xml	(.../DoosBerekenaar.cls.xml)	(revision 68912)
+++ APPS/Halux/PPS/MVXVerpakking/impl/DoosBerekenaar.cls.xml	(.../DoosBerekenaar.cls.xml)	(revision 68929)
@@ -131,12 +131,14 @@
 			If (..HeeftGeleider()) {
 				#dim Geleider as APPS.Halux.PPS.Verpakking.Volume = ..GeefVolumeGeleider()
 				#dim LadeUtils As DOM.PM.Maatwerk.Lade.LadeUtils = ##class(DOM.DomeinContext).Instance().GeefMaatwerkCalcAPI().GeefLadeUtils(..GeefLadeVariant())
-				#dim FysiekeLadeHoogteMM As %Decimal = ..GeefFysiekeLadeHoogteMM()
-				#dim IsMOfNLade As %Boolean = FysiekeLadeHoogteMM < 120
+				#dim FysiekeLadeHoogteMM As %Decimal =  LadeUtils.GeefFysiekeLadeHoogteMM(..IngegevenKenmerken.LadeHoogte, ..IngegevenKenmerken.IsBinnenlade)				
+				#dim LadeHeeftHogeRugRecept As %Boolean = ($$$Not(..IngegevenKenmerken.IsBinnenlade) && $$$Not(..IngegevenKenmerken.ZijwandType = ##class(DOM.PM.enu.MVXZijWandType).Pure()))
+				#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()))))
 				
-				If ($$$Not(..IngegevenKenmerken.IsBinnenlade) && (..HeeftReling())) {
+				If LadeHeeftHogeRugRecept {
 					Set FysiekeLadeHoogteMM = LadeUtils.GeefFysiekeLadeHoogteMM(..IngegevenKenmerken.ZijkantHoogte, ..IngegevenKenmerken.IsBinnenlade)
 				}
+				#dim IsMOfNLade As %Boolean = FysiekeLadeHoogteMM < 120
 				
 				If (IsMOfNLade && (Geleider.Hoogte < Geleider.Breedte) && (Geleider.Breedte < FysiekeLadeHoogteMM)) {
 					Set DoosLosseOnderdelen.Hoogte = Geleider.Breedte
@@ -146,9 +148,14 @@
 					Set DoosLosseOnderdelen.BreedteCorpusProfiel = Geleider.Breedte
 				}
 				
-				Set DoosLosseOnderdelen.Diepte=Geleider.Diepte
+				Set DoosLosseOnderdelen.Diepte = Geleider.Diepte
 			}
-			Do ..VergrootDoosLosseOnderdelenTotZijkantHoogte(DoosLosseOnderdelen)
+			
+			If (HeeftComplexeScheidingKarton) && (DoosLosseOnderdelen.Hoogte < 101) && $$$Not(DoosLosseOnderdelen.IsStandaardHuls) {
+				Set DoosLosseOnderdelen.Hoogte = 101 //91 (hoogte M) + 10 (extra Hoogte voor recept V1 boxkap)
+			}
+			
+			Do ..VergrootDoosLosseOnderdelenTotZijkantHoogte(DoosLosseOnderdelen, FysiekeLadeHoogteMM)
 		}
 	}
 	
@@ -176,6 +183,8 @@
 <FormalSpec>DoosLade:APPS.Halux.PPS.TAORVerpakking.impl.DoosLade,DoosLosseOnderdelen:DOM.PM.Verpakking.DoosLosseOnderdelen</FormalSpec>
 <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()))))
+	
 	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)) {
@@ -205,9 +214,26 @@
 	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>
 
+<Method name="VergrootDoosLosseOnderdelenTotZijkantHoogte">
+<FormalSpec>DoosLosseOnderdelen:APPS.Halux.PPS.Verpakking.impl.DoosLosseOnderdelen,FysiekeLadeHoogteMM:%Decimal</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	If ((FysiekeLadeHoogteMM < 120) && (DoosLosseOnderdelen.GeefExterneHoogte() < FysiekeLadeHoogteMM))	{
+		Do DoosLosseOnderdelen.ZetExterneHoogte(FysiekeLadeHoogteMM)
+	} 
+	ElseIf (DoosLosseOnderdelen.GeefExterneBreedte() < FysiekeLadeHoogteMM) {
+		Set DoosLosseOnderdelen.BreedteAndere = DoosLosseOnderdelen.BreedteAndere + (FysiekeLadeHoogteMM - DoosLosseOnderdelen.GeefExterneBreedte() - 5)
+	}
+]]></Implementation>
+</Method>
+
 <Method name="HeeftFrontBevestiging">
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[	Quit (..ZitOnderdeelInEindproduct(..Enum.Rol.FrontBevestigingBoven) || ..ZitOnderdeelInEindproduct(..Enum.Rol.FrontBevestigingOnder))
Index: APPS/Halux/PPS/Verpakking/enu/KartonWerkpost/AutoComplete.cls.xml
===================================================================
diff -u -r68887 -r68929
--- APPS/Halux/PPS/Verpakking/enu/KartonWerkpost/AutoComplete.cls.xml	(.../AutoComplete.cls.xml)	(revision 68887)
+++ APPS/Halux/PPS/Verpakking/enu/KartonWerkpost/AutoComplete.cls.xml	(.../AutoComplete.cls.xml)	(revision 68929)
@@ -9,13 +9,6 @@
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%SerialObject</Super>
 
-<Property name="ComplexeScheiding">
-<Type>%String</Type>
-<InitialExpression>"COMPLEXESCHEIDING"</InitialExpression>
-<Transient>1</Transient>
-<ReadOnly>1</ReadOnly>
-</Property>
-
 <Property name="LosseComponenten">
 <Type>%String</Type>
 <InitialExpression>"LOSCOMP"</InitialExpression>
@@ -36,13 +29,6 @@
 <Transient>1</Transient>
 <ReadOnly>1</ReadOnly>
 </Property>
-
-<Property name="VerpakkingHogeRug">
-<Type>%String</Type>
-<InitialExpression>"VPKHOGERUG"</InitialExpression>
-<Transient>1</Transient>
-<ReadOnly>1</ReadOnly>
-</Property>
 </Class>
 
 
Index: APPS/Halux/PPS/Activiteit/impl/MVX/MVXKartonSnijden.cls.xml
===================================================================
diff -u -r68892 -r68929
--- APPS/Halux/PPS/Activiteit/impl/MVX/MVXKartonSnijden.cls.xml	(.../MVXKartonSnijden.cls.xml)	(revision 68892)
+++ APPS/Halux/PPS/Activiteit/impl/MVX/MVXKartonSnijden.cls.xml	(.../MVXKartonSnijden.cls.xml)	(revision 68929)
@@ -42,7 +42,7 @@
 	#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = Item.GeefHalffabItemsBoom()
 	Set DoosBerekenaar = ##class(APPS.Halux.PPS.MVXVerpakking.impl.DoosBerekenaar).%New(HalffabItemsBoom, IngegevenKenmerken, Item.ProductID)
 	
-	#dim HeeftComplexeScheidingKarton As %Boolean = ($$$Not(IngegevenKenmerken.IsBinnenlade) && ((HalffabItemsBoom.BevatRol(##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).InschuifElementZijkant()) || ##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).Boxcap() || ##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).BoxcoverVoor() || ##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).BoxcoverAchter())))
+	#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 HeeftHogeRugRecept As %Boolean = ($$$Not(IngegevenKenmerken.IsBinnenlade) && $$$Not(IngegevenKenmerken.ZijwandType = ##class(DOM.PM.enu.MVXZijWandType).Pure()))
 	
 	If (DoosBerekenaar.HeeftLadeIndividueleKartonverpakking()) {
@@ -91,9 +91,8 @@
 			Set WerklijstItem = ..MaakDefaultWerklijstItemVoorSequentieItemZonderUitvoeringInfo(Item,##class(APPS.Halux.PPS.Verpakking.enu.InformatieID).LosseOnderdelen())
 			Set UitvoeringInfo = ##class(APPS.Halux.PPS.Activiteit.impl.common.dto.LODoosUitvoeringInfo).%New()
 			Set WerklijstItem.UitvoeringInfo = UitvoeringInfo
-			
 			Do UitvoeringInfoInvuller.VulInUitvoeringInfoVoorProductieSequentieItem(UitvoeringInfo, Item)
-
+			
 			Set UitvoeringInfo.Breedte = DoosLO.Breedte
 			Set UitvoeringInfo.Hoogte = DoosLO.Hoogte
 			Set UitvoeringInfo.Diepte = DoosLO.Diepte
@@ -115,7 +114,7 @@
 			
 			Set UitvoeringInfo.KartonScheidingDikte = 10
 			Set UitvoeringInfo.KartonScheidingDiepte = IngegevenKenmerken.LadeDiepte
-			Set UitvoeringInfo.KartonScheidingHoogte = 100
+			Set UitvoeringInfo.KartonScheidingHoogte = 90
 			
 			Do ..VulInUitvoeringInfo(UitvoeringInfo, "TBX", "V1 Boxkap")
 			Set UitvoeringInfo.KartonScheidingAantal = UitvoeringInfo.AantalDozen
Index: APPS/Halux/PPS/Verpakking/enu/KartonWerkpost.cls.xml
===================================================================
diff -u -r68887 -r68929
--- APPS/Halux/PPS/Verpakking/enu/KartonWerkpost.cls.xml	(.../KartonWerkpost.cls.xml)	(revision 68887)
+++ APPS/Halux/PPS/Verpakking/enu/KartonWerkpost.cls.xml	(.../KartonWerkpost.cls.xml)	(revision 68929)
@@ -5,7 +5,7 @@
 <Super>TECH.Enumeration</Super>
 
 <Parameter name="DISPLAYLIST">
-<Default>;LosseOnderdelen;Verpakking;LosseComponenten;VerpakkingHogeRug;ComplexeScheiding</Default>
+<Default>;LosseOnderdelen;Verpakking;LosseComponenten</Default>
 </Parameter>
 
 <Parameter name="VALUELIST">
@@ -32,20 +32,6 @@
 <Implementation><![CDATA[	Quit "LOSCOMP"
 ]]></Implementation>
 </Method>
-
-<Method name="VerpakkingHogeRug">
-<ClassMethod>1</ClassMethod>
-<ReturnType>APPS.Halux.PPS.Verpakking.enu.KartonWerkpost</ReturnType>
-<Implementation><![CDATA[	Quit "VPKHOGERUG"
-]]></Implementation>
-</Method>
-
-<Method name="ComplexeScheiding">
-<ClassMethod>1</ClassMethod>
-<ReturnType>APPS.Halux.PPS.Verpakking.enu.KartonWerkpost</ReturnType>
-<Implementation><![CDATA[	Quit "COMPLEXESCHEIDING"
-]]></Implementation>
-</Method>
 </Class>
 
 
Index: APPS/Halux/PPS/Verpakking/enu/KartonWerkpost/Verwerker.cls.xml
===================================================================
diff -u -r68887 -r68929
--- APPS/Halux/PPS/Verpakking/enu/KartonWerkpost/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 68887)
+++ APPS/Halux/PPS/Verpakking/enu/KartonWerkpost/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 68929)
@@ -12,29 +12,19 @@
 <Final>1</Final>
 <FormalSpec>KartonWerkpost:APPS.Halux.PPS.Verpakking.enu.KartonWerkpost</FormalSpec>
 <Implementation><![CDATA[
-	If KartonWerkpost = "COMPLEXESCHEIDING" {
-		Do ..VerwerkComplexeScheiding()
-	} ElseIf KartonWerkpost = "LOSCOMP" {
+	If KartonWerkpost = "LOSCOMP" {
 		Do ..VerwerkLosseComponenten()
 	} ElseIf KartonWerkpost = "LO" {
 		Do ..VerwerkLosseOnderdelen()
 	} ElseIf KartonWerkpost = "VERPAK" {
 		Do ..VerwerkVerpakking()
-	} ElseIf KartonWerkpost = "VPKHOGERUG" {
-		Do ..VerwerkVerpakkingHogeRug()
 	} Else {
 		Set Exceptie = ##class(TECH.Exceptions.EnumerationException).%New(KartonWerkpost,"APPS.Halux.PPS.Verpakking.enu.KartonWerkpost",$classname())
 		Do ##class(TECH.ExceptionHandler).Throw(Exceptie)
 	}
 ]]></Implementation>
 </Method>
 
-<Method name="VerwerkComplexeScheiding">
-<Abstract>1</Abstract>
-<Private>1</Private>
-<Implementation><![CDATA[]]></Implementation>
-</Method>
-
 <Method name="VerwerkLosseComponenten">
 <Abstract>1</Abstract>
 <Private>1</Private>
@@ -52,12 +42,6 @@
 <Private>1</Private>
 <Implementation><![CDATA[]]></Implementation>
 </Method>
-
-<Method name="VerwerkVerpakkingHogeRug">
-<Abstract>1</Abstract>
-<Private>1</Private>
-<Implementation><![CDATA[]]></Implementation>
-</Method>
 </Class>
 
 
FishEye: Tag 68929 refers to a dead (removed) revision in file `APPS/Halux/PPS/Verpakking/impl/ComplexeScheidingKartonWerkpost.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 68929 refers to a dead (removed) revision in file `APPS/Halux/PPS/Verpakking/impl/LadeHogeRugKartonWerkpost.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?