Index: APPS/Halux/PPS/Activiteit/impl/common/dto/LadeDoosUitvoeringInfo.cls.xml =================================================================== diff -u -r29059 -r68892 --- APPS/Halux/PPS/Activiteit/impl/common/dto/LadeDoosUitvoeringInfo.cls.xml (.../LadeDoosUitvoeringInfo.cls.xml) (revision 29059) +++ APPS/Halux/PPS/Activiteit/impl/common/dto/LadeDoosUitvoeringInfo.cls.xml (.../LadeDoosUitvoeringInfo.cls.xml) (revision 68892) @@ -4,6 +4,26 @@ persistent APPS.Halux.PPS.Activiteit.impl.common.dto.KartonVoorLadeUitvoeringInfo + +%Decimal + + + +%Decimal + + + +%Decimal + + + +%Decimal + + + +%Decimal + + Visitor:APPS.Halux.PPS.Activiteit.impl.common.KartonVoorLadeUitvoeringInfoVisitor %Status @@ -13,6 +33,25 @@ %Library.CacheStorage +LadeDoosUitvoeringInfoDefaultData + +"LadeDoosUitvoeringInfo" + +H2 + + +KartonScheidingDikte + + +KartonScheidingDiepte + + +KartonScheidingHoogte + + +KartonScheidingAantal + + Index: APPS/Halux/PPS/Verpakking/impl/KartonSnijVisitor.cls.xml =================================================================== diff -u -r68876 -r68892 --- APPS/Halux/PPS/Verpakking/impl/KartonSnijVisitor.cls.xml (.../KartonSnijVisitor.cls.xml) (revision 68876) +++ APPS/Halux/PPS/Verpakking/impl/KartonSnijVisitor.cls.xml (.../KartonSnijVisitor.cls.xml) (revision 68892) @@ -44,27 +44,34 @@ Set Params("BREEDTE") = LadeDoosInfo.Breedte Set Params("DIEPTE") = LadeDoosInfo.Diepte Set Params("HOOGTE") = LadeDoosInfo.Hoogte + + Set Params("RUGHOOGTE") = LadeDoosInfo.H2 //Hoogte uitsteeksel voor hoge rug + + //Voor extra wikkel + Set Params("BKDIKTE") = LadeDoosInfo.KartonScheidingDikte + Set Params("BKDIEPTE") = LadeDoosInfo.KartonScheidingDiepte + Set Params("BKHOOGTE") = LadeDoosInfo.KartonScheidingHoogte + Set Params("BKQTY") = LadeDoosInfo.KartonScheidingAantal + Quit ..SnijDoos(LadeDoosInfo, .Params) ]]> - -LadeDoosInfo:APPS.Halux.PPS.Activiteit.impl.common.dto.LadeDoosHogeRugUitvoeringInfo -%Status - + - +} - -KartonInfo:APPS.Halux.PPS.Activiteit.impl.common.dto.ComplexeScheidingKartonUitvoeringInfo -%Status - - +} +*/ +]]> + Index: APPS/Halux/PPS/Activiteit/impl/MVX/MVXKartonSnijden.cls.xml =================================================================== diff -u -r68856 -r68892 --- APPS/Halux/PPS/Activiteit/impl/MVX/MVXKartonSnijden.cls.xml (.../MVXKartonSnijden.cls.xml) (revision 68856) +++ APPS/Halux/PPS/Activiteit/impl/MVX/MVXKartonSnijden.cls.xml (.../MVXKartonSnijden.cls.xml) (revision 68892) @@ -67,7 +67,7 @@ Do WerklijstItem.Save() } Else { Set WerklijstItem = ..MaakDefaultWerklijstItemVoorSequentieItemZonderUitvoeringInfo(Item, ##class(APPS.Halux.PPS.Verpakking.enu.InformatieID).Lade()) - Set UitvoeringInfo = ##class(APPS.Halux.PPS.Activiteit.impl.common.dto.LadeDoosHogeRugUitvoeringInfo).%New() + Set UitvoeringInfo = ##class(APPS.Halux.PPS.Activiteit.impl.common.dto.LadeDoosUitvoeringInfo).%New() Set MVXLadeUtils = ##class(DOM.PM.Maatwerk.Lade.LadeUtils.impl.MVXLadeUtils).%New() Set WerklijstItem.UitvoeringInfo = UitvoeringInfo @@ -107,8 +107,8 @@ } If ($$$Not(DoosLade = "") && HeeftComplexeScheidingKarton) { - Set WerklijstItem = ..MaakDefaultWerklijstItemVoorSequentieItemZonderUitvoeringInfo(Item,##class(APPS.Halux.PPS.Verpakking.enu.InformatieID).ComplexeScheiding()) - Set UitvoeringInfo = ##class(APPS.Halux.PPS.Activiteit.impl.common.dto.ComplexeScheidingKartonUitvoeringInfo).%New() + Set WerklijstItem = ..MaakDefaultWerklijstItemVoorSequentieItemZonderUitvoeringInfo(Item,##class(APPS.Halux.PPS.Verpakking.enu.InformatieID).Lade()) + Set UitvoeringInfo = ##class(APPS.Halux.PPS.Activiteit.impl.common.dto.LadeDoosUitvoeringInfo).%New() Set WerklijstItem.UitvoeringInfo = UitvoeringInfo Do UitvoeringInfoInvuller.VulInUitvoeringInfoVoorProductieSequentieItem(UitvoeringInfo, Item) @@ -134,7 +134,7 @@