Index: APPS/Halux/PPS/MVXVerpakking/impl/DoosBerekenaar.cls.xml =================================================================== diff -u -r68856 -r68912 --- APPS/Halux/PPS/MVXVerpakking/impl/DoosBerekenaar.cls.xml (.../DoosBerekenaar.cls.xml) (revision 68856) +++ APPS/Halux/PPS/MVXVerpakking/impl/DoosBerekenaar.cls.xml (.../DoosBerekenaar.cls.xml) (revision 68912) @@ -93,9 +93,9 @@ 1 %Integer FysiekeLadeHoogteMM set FysiekeLadeHoogteMM = TmpFysiekeLadeHoogteMM } @@ -129,10 +129,16 @@ Set DoosLosseOnderdelen.Hoogte = 50 If (..HeeftGeleider()) { - #Dim Geleider as APPS.Halux.PPS.Verpakking.Volume = ..GeefVolumeGeleider() + #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 - #define IsMOfNLade (..GeefFysiekeLadeHoogteMM() < 120) - If ($$$IsMOfNLade && (Geleider.Hoogte < Geleider.Breedte) && (Geleider.Breedte < ..GeefFysiekeLadeHoogteMM())) { + If ($$$Not(..IngegevenKenmerken.IsBinnenlade) && (..HeeftReling())) { + Set FysiekeLadeHoogteMM = LadeUtils.GeefFysiekeLadeHoogteMM(..IngegevenKenmerken.ZijkantHoogte, ..IngegevenKenmerken.IsBinnenlade) + } + + If (IsMOfNLade && (Geleider.Hoogte < Geleider.Breedte) && (Geleider.Breedte < FysiekeLadeHoogteMM)) { Set DoosLosseOnderdelen.Hoogte = Geleider.Breedte Set DoosLosseOnderdelen.BreedteCorpusProfiel = Geleider.Hoogte } Else { Index: APPS/Halux/PPS/Verpakking/impl/KartonSnijVisitor.cls.xml =================================================================== diff -u -r68892 -r68912 --- APPS/Halux/PPS/Verpakking/impl/KartonSnijVisitor.cls.xml (.../KartonSnijVisitor.cls.xml) (revision 68892) +++ APPS/Halux/PPS/Verpakking/impl/KartonSnijVisitor.cls.xml (.../KartonSnijVisitor.cls.xml) (revision 68912) @@ -45,7 +45,9 @@ Set Params("DIEPTE") = LadeDoosInfo.Diepte Set Params("HOOGTE") = LadeDoosInfo.Hoogte - Set Params("RUGHOOGTE") = LadeDoosInfo.H2 //Hoogte uitsteeksel voor hoge rug + //Voor Hoge rug recept + Set Params("ZIJHOOGTE") = LadeDoosInfo.Hoogte + Set Params("RUGHOOGTE") = LadeDoosInfo.H2 //Voor extra wikkel Set Params("BKDIKTE") = LadeDoosInfo.KartonScheidingDikte