Index: APPS/Halux/PPS/MVXVerpakking/impl/DoosBerekenaar.cls.xml
===================================================================
diff -u -r68677 -r68856
--- APPS/Halux/PPS/MVXVerpakking/impl/DoosBerekenaar.cls.xml (.../DoosBerekenaar.cls.xml) (revision 68677)
+++ APPS/Halux/PPS/MVXVerpakking/impl/DoosBerekenaar.cls.xml (.../DoosBerekenaar.cls.xml) (revision 68856)
@@ -63,6 +63,10 @@
Set DoosLade.Breedte = DoosLade.Breedte + VolumeOpvullijst.Breedte
}
+ If ($$$Not(..IngegevenKenmerken.IsBinnenlade) && $$$Not(..IngegevenKenmerken.ZijwandType = ##class(DOM.PM.enu.MVXZijWandType).Pure()) && $$$Not(..IngegevenKenmerken.ZijwandType = ##class(DOM.PM.enu.MVXZijWandType).Reling())) {
+ Set DoosLade.Breedte = DoosLade.Breedte + 40
+ }
+
Quit DoosLade
]]>
@@ -106,8 +110,7 @@
#Dim DoosLosseOnderdelen As DOM.PM.Verpakking.DoosLosseOnderdelen = ""
// Enkel afdekkappen -> geen LO doos
- If (..HeeftFrontBevestiging() || ..HeeftGeleider()) {
-
+ If (..HeeftFrontBevestiging() || ..HeeftGeleider() || ($$$Not(..IngegevenKenmerken.IsBinnenlade) && (..HeeftReling()))) {
If (..IngegevenKenmerken.LadeDiepte = ..Enum.LadeDiepte.LadeDiepte550) {
Set DoosLosseOnderdelen = ##class(APPS.Halux.PPS.Verpakking.utils.StandaardHulsDefinities).LadeDiepte550()
} Elseif (..IngegevenKenmerken.LadeDiepte = ..Enum.LadeDiepte.LadeDiepte500) {
@@ -217,6 +220,12 @@
]]>
+
+%Boolean
+
+
+
1
DOM.PM.Verpakking.Volume
Index: APPS/Halux/PPS/Activiteit/impl/MVX/MVXKartonSnijden.cls.xml
===================================================================
diff -u -r68824 -r68856
--- APPS/Halux/PPS/Activiteit/impl/MVX/MVXKartonSnijden.cls.xml (.../MVXKartonSnijden.cls.xml) (revision 68824)
+++ APPS/Halux/PPS/Activiteit/impl/MVX/MVXKartonSnijden.cls.xml (.../MVXKartonSnijden.cls.xml) (revision 68856)
@@ -42,8 +42,8 @@
#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())))
- #dim HeeftHogeRugRecept As %Boolean = ($$$Not(IngegevenKenmerken.IsBinnenlade) && $$$Not(IngegevenKenmerken.ZijwandType = ##class(DOM.PM.enu.MVXZijWandType).Pure()) && $$$Not(IngegevenKenmerken.ZijwandType = ##class(DOM.PM.enu.MVXZijWandType).Reling()))
+ #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 HeeftHogeRugRecept As %Boolean = ($$$Not(IngegevenKenmerken.IsBinnenlade) && $$$Not(IngegevenKenmerken.ZijwandType = ##class(DOM.PM.enu.MVXZijWandType).Pure()))
If (DoosBerekenaar.HeeftLadeIndividueleKartonverpakking()) {
#dim WerklijstItem As APPS.Halux.PPS.Activiteit.dto.ProductieSequentieWerklijstItem
@@ -73,7 +73,7 @@
Do UitvoeringInfoInvuller.VulInUitvoeringInfoVoorProductieSequentieItem(UitvoeringInfo, Item)
- Set UitvoeringInfo.Breedte = DoosLade.Breedte + 40
+ Set UitvoeringInfo.Breedte = DoosLade.Breedte
Set UitvoeringInfo.Hoogte = MVXLadeUtils.GeefFysiekeLadeHoogteMM(IngegevenKenmerken.ZijkantHoogte, IngegevenKenmerken.IsBinnenlade)
Set UitvoeringInfo.Diepte = DoosLade.Diepte
Set UitvoeringInfo.H2 = MVXLadeUtils.GeefFysiekeLadeHoogteMM(IngegevenKenmerken.RugHoogte, IngegevenKenmerken.IsBinnenlade)