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