Index: vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Merivobox.Aansturing/TestLadeMetBewerkteZijstabilisering/StartBatch/MVX productie_003_PRODUCTIEDETAILBLAD.xml
===================================================================
diff -u -r68355 -r68824
--- vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Merivobox.Aansturing/TestLadeMetBewerkteZijstabilisering/StartBatch/MVX productie_003_PRODUCTIEDETAILBLAD.xml (.../MVX productie_003_PRODUCTIEDETAILBLAD.xml) (revision 68355)
+++ vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Merivobox.Aansturing/TestLadeMetBewerkteZijstabilisering/StartBatch/MVX productie_003_PRODUCTIEDETAILBLAD.xml (.../MVX productie_003_PRODUCTIEDETAILBLAD.xml) (revision 68824)
@@ -210,6 +210,12 @@
VFF.TB240EB ZZCARTON BR
+ V1 ErrondDoos
+ 210mm
+
+ VFF.TB 95EB ZZCARTON BR
+
+
V1 losse onderdelendoos
552.2mm
Index: APPS/Halux/PPS/Activiteit/impl/MVX/MVXKartonSnijden.cls.xml
===================================================================
diff -u -r68811 -r68824
--- APPS/Halux/PPS/Activiteit/impl/MVX/MVXKartonSnijden.cls.xml (.../MVXKartonSnijden.cls.xml) (revision 68811)
+++ APPS/Halux/PPS/Activiteit/impl/MVX/MVXKartonSnijden.cls.xml (.../MVXKartonSnijden.cls.xml) (revision 68824)
@@ -29,6 +29,7 @@
@@ -42,36 +43,51 @@
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()))
If (DoosBerekenaar.HeeftLadeIndividueleKartonverpakking()) {
#dim WerklijstItem As APPS.Halux.PPS.Activiteit.dto.ProductieSequentieWerklijstItem
#dim DoosLade As DOM.PM.Verpakking.impl.Doos = DoosBerekenaar.GeefDoosLade()
- If (DoosLade '= "") {
- 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) //TBX||V1 Boxkap
+ If $$$Not(DoosLade = "") {
+ If $$$Not(HeeftHogeRugRecept) {
+ 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)
- Set UitvoeringInfo.Breedte = DoosLade.Breedte
- Set UitvoeringInfo.Hoogte = DoosLade.Hoogte
- Set UitvoeringInfo.Diepte = DoosLade.Diepte
-
- If HeeftComplexeScheidingKarton {
- Set UitvoeringInfo.Breedte = DoosLade.Breedte + 40 ; volgens opdikking
- }
-
- Do ..VulInUitvoeringInfo(UitvoeringInfo, "TAORBOX", ##class(BL.Prod.OptiBox.enu.SnijDoosNaam).TaorboxV1LadeDoosMetDeksel())
-
- Do WerklijstItem.Save()
- Set WerklijstItem.UitvoeringInfo.WerklijstItemID = WerklijstItem.GeefID()
- Do WerklijstItem.Save()
+ Set UitvoeringInfo.Breedte = DoosLade.Breedte
+ Set UitvoeringInfo.Hoogte = DoosLade.Hoogte
+ Set UitvoeringInfo.Diepte = DoosLade.Diepte
+ Do ..VulInUitvoeringInfo(UitvoeringInfo, "TAORBOX", ##class(BL.Prod.OptiBox.enu.SnijDoosNaam).TaorboxV1LadeDoosMetDeksel())
+
+ Do WerklijstItem.Save()
+ Set WerklijstItem.UitvoeringInfo.WerklijstItemID = WerklijstItem.GeefID()
+ 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 MVXLadeUtils = ##class(DOM.PM.Maatwerk.Lade.LadeUtils.impl.MVXLadeUtils).%New()
+ Set WerklijstItem.UitvoeringInfo = UitvoeringInfo
+
+ Do UitvoeringInfoInvuller.VulInUitvoeringInfoVoorProductieSequentieItem(UitvoeringInfo, Item)
+ Set UitvoeringInfo.Breedte = DoosLade.Breedte + 40
+ Set UitvoeringInfo.Hoogte = MVXLadeUtils.GeefFysiekeLadeHoogteMM(IngegevenKenmerken.ZijkantHoogte, IngegevenKenmerken.IsBinnenlade)
+ Set UitvoeringInfo.Diepte = DoosLade.Diepte
+ Set UitvoeringInfo.H2 = MVXLadeUtils.GeefFysiekeLadeHoogteMM(IngegevenKenmerken.RugHoogte, IngegevenKenmerken.IsBinnenlade)
+
+ Do ..VulInUitvoeringInfo(UitvoeringInfo, "TBX", "V1 Hoge rug")
+
+ Do WerklijstItem.Save()
+ Set WerklijstItem.UitvoeringInfo.WerklijstItemID = WerklijstItem.GeefID()
+ Do WerklijstItem.Save()
+ }
}
#dim DoosLO As DOM.PM.Verpakking.DoosLosseOnderdelen = DoosBerekenaar.GeefDoosLosseOnderdelen()
- If (DoosLO '= "") && $$$Not(DoosLO.IsStandaardHuls) {
+ If $$$Not(DoosLO = "") && $$$Not(DoosLO.IsStandaardHuls) {
Set WerklijstItem = ..MaakDefaultWerklijstItemVoorSequentieItemZonderUitvoeringInfo(Item,##class(APPS.Halux.PPS.Verpakking.enu.InformatieID).LosseOnderdelen())
Set UitvoeringInfo = ##class(APPS.Halux.PPS.Activiteit.impl.common.dto.LODoosUitvoeringInfo).%New()
Set WerklijstItem.UitvoeringInfo = UitvoeringInfo
@@ -90,22 +106,19 @@
Do WerklijstItem.Save()
}
- If HeeftComplexeScheidingKarton {
+ 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.UitvoeringInfo = UitvoeringInfo
Do UitvoeringInfoInvuller.VulInUitvoeringInfoVoorProductieSequentieItem(UitvoeringInfo, Item)
-
- Set UitvoeringInfo.Breedte = DoosLade.Breedte + 40
- Set UitvoeringInfo.Hoogte = DoosLade.Hoogte
- Set UitvoeringInfo.Diepte = DoosLade.Diepte
+
Set UitvoeringInfo.KartonScheidingDikte = 10
- Set UitvoeringInfo.KartonScheidingDiepte = DoosLade.Diepte
- Set UitvoeringInfo.KartonScheidingHoogte = 92 //$Select(IngegevenKenmerken.RugHoogte = ##class(DOM.PM.enu.MVXRugHoogte).C():60, 1:92)
- Set UitvoeringInfo.KartonScheidingAantal = 1
-
+ Set UitvoeringInfo.KartonScheidingDiepte = IngegevenKenmerken.LadeDiepte
+ Set UitvoeringInfo.KartonScheidingHoogte = 100
+
Do ..VulInUitvoeringInfo(UitvoeringInfo, "TBX", "V1 Boxkap")
+ Set UitvoeringInfo.KartonScheidingAantal = UitvoeringInfo.AantalDozen
Do WerklijstItem.Save()
Set WerklijstItem.UitvoeringInfo.WerklijstItemID = WerklijstItem.GeefID()
Index: APPS/Halux/PPS/Verpakking/impl/KartonSnijVisitor.cls.xml
===================================================================
diff -u -r68810 -r68824
--- APPS/Halux/PPS/Verpakking/impl/KartonSnijVisitor.cls.xml (.../KartonSnijVisitor.cls.xml) (revision 68810)
+++ APPS/Halux/PPS/Verpakking/impl/KartonSnijVisitor.cls.xml (.../KartonSnijVisitor.cls.xml) (revision 68824)
@@ -48,14 +48,25 @@
]]>
+
+LadeDoosInfo:APPS.Halux.PPS.Activiteit.impl.common.dto.LadeDoosHogeRugUitvoeringInfo
+%Status
+
+
+
KartonInfo:APPS.Halux.PPS.Activiteit.impl.common.dto.ComplexeScheidingKartonUitvoeringInfo
%Status
KartonInfo:APPS.Halux.PPS.Activiteit.impl.common.dto.ComplexeScheidingKartonUitvoeringInfo
%Status
+
+
+1
+LadeDoosInfo:APPS.Halux.PPS.Activiteit.impl.common.dto.LadeDoosHogeRugUitvoeringInfo
+%Status
+
Index: vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Merivobox.Aansturing/TestLadeMetNietBewerkteZijstabilisering/StartBatch/MVX productie_003_PRODUCTIEDETAILBLAD.xml
===================================================================
diff -u -r68356 -r68824
--- vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Merivobox.Aansturing/TestLadeMetNietBewerkteZijstabilisering/StartBatch/MVX productie_003_PRODUCTIEDETAILBLAD.xml (.../MVX productie_003_PRODUCTIEDETAILBLAD.xml) (revision 68356)
+++ vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Merivobox.Aansturing/TestLadeMetNietBewerkteZijstabilisering/StartBatch/MVX productie_003_PRODUCTIEDETAILBLAD.xml (.../MVX productie_003_PRODUCTIEDETAILBLAD.xml) (revision 68824)
@@ -210,6 +210,12 @@
VFF.TB240EB ZZCARTON BR
+ V1 ErrondDoos
+ 210mm
+
+ VFF.TB 95EB ZZCARTON BR
+
+
V1 losse onderdelendoos
552.2mm
Index: APPS/Halux/PPS/Activiteit/impl/common/dto/LadeDoosHogeRugUitvoeringInfo.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/Activiteit/impl/common/dto/LadeDoosHogeRugUitvoeringInfo.cls.xml (revision 0)
+++ APPS/Halux/PPS/Activiteit/impl/common/dto/LadeDoosHogeRugUitvoeringInfo.cls.xml (revision 68824)
@@ -0,0 +1,31 @@
+
+
+
+persistent
+APPS.Halux.PPS.Activiteit.impl.common.dto.KartonVoorLadeUitvoeringInfo
+
+
+%Decimal
+
+
+
+Visitor:APPS.Halux.PPS.Activiteit.impl.common.KartonVoorLadeUitvoeringInfoVisitor
+%Status
+
+
+
+
+%Library.CacheStorage
+LadeDoosHogeRugUitvoeringInfoDefaultData
+
+"LadeDoosHogeRugUitvoeringInfo"
+
+H2
+
+
+
+
+
+
+
Index: vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Merivobox.Aansturing/TestLadeMetVeelExtras/StartBatch/MVX productie_003_PRODUCTIEDETAILBLAD.xml
===================================================================
diff -u -r68356 -r68824
--- vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Merivobox.Aansturing/TestLadeMetVeelExtras/StartBatch/MVX productie_003_PRODUCTIEDETAILBLAD.xml (.../MVX productie_003_PRODUCTIEDETAILBLAD.xml) (revision 68356)
+++ vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Merivobox.Aansturing/TestLadeMetVeelExtras/StartBatch/MVX productie_003_PRODUCTIEDETAILBLAD.xml (.../MVX productie_003_PRODUCTIEDETAILBLAD.xml) (revision 68824)
@@ -216,6 +216,12 @@
VFF.TB165EB ZZCARTON BR
+ V1 ErrondDoos
+ 210mm
+
+ VFF.TB 95EB ZZCARTON BR
+
+
V1 losse onderdelendoos
466.8mm