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)