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 @@