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