Index: APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/AantalRollenOptiesGenerator.cls.xml =================================================================== diff -u -r74723 -r74783 --- APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/AantalRollenOptiesGenerator.cls.xml (.../AantalRollenOptiesGenerator.cls.xml) (revision 74723) +++ APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/AantalRollenOptiesGenerator.cls.xml (.../AantalRollenOptiesGenerator.cls.xml) (revision 74783) @@ -112,7 +112,7 @@ #dim Aantal As %String = ProductLijn.GeefAantal() * HalffabItem.GeefAantal() #dim IsTBXDubbeleSifonlade As %Boolean = $$$False - If ((Naam = "Sifonkap") && (IngegevenKenmerken.%ClassName(1) = "DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken")){ + If (((Naam = "Sifonkap") && (IngegevenKenmerken.%ClassName(1) = "DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken")) && ((##class(APPS.Halux.PPS.MES.MESService).%New().GeefHuidigeMESFase() > 1))){ Set Naam = "Sifonkap.z1" If (HalffabItem.GeefAantal() = 2) { Set IsTBXDubbeleSifonlade = $$$True Index: APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/RollenEnStuklijstOptiesGenerator.cls.xml =================================================================== diff -u -r74723 -r74783 --- APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/RollenEnStuklijstOptiesGenerator.cls.xml (.../RollenEnStuklijstOptiesGenerator.cls.xml) (revision 74723) +++ APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/RollenEnStuklijstOptiesGenerator.cls.xml (.../RollenEnStuklijstOptiesGenerator.cls.xml) (revision 74783) @@ -60,7 +60,9 @@ #dim IsRolTbxSifonkap As %Boolean = ((HalffabItem.GeefRol() = ##class(DOM.PM.Maatwerk.Calc.HF.enu.TBXRol).Sifonkap()) && (Batch.GeefCategorie() = ##class(APPS.Halux.common.enu.Categorie).Tandembox())) #dim IsTbxDubbeleSifon As %Boolean = $$$False - Do ..FixHalffabItemVoorInbegrepenAfdekkappen(.HalffabItem, Batch, IngegevenKenmerken, KlantId) + If (HuidigeMESFase > 1) { + Do ..FixHalffabItemVoorInbegrepenAfdekkappen(.HalffabItem, Batch, IngegevenKenmerken, KlantId) + } If (($$$Not(HalffabItem.%Extends("DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem"))) && ($$$Not(HalffabItem.%ClassName() [ "InbegrepenHalffabItem"))) { If ($$$Not(IsRolTbxStabilisatorStang) || (IsRolTbxStabilisatorStang && (HuidigeMESFase > 1))) { @@ -90,8 +92,10 @@ } } - Do ..VoegToeExtraBouwstenen(.Opties, ProductID, SequentieNummerLade, Index) - Do Opties.Insert(..GeefOptieVoorLade(..PrependNul(SequentieNummerLade),"-BackSteelIsFastMover", ..GeefBackSteelIsFastMover(Batch.GeefLijn(), StalenRugPRNr))) + If (HuidigeMESFase > 1) { + Do ..VoegToeExtraBouwstenen(.Opties, ProductID, SequentieNummerLade, Index) + Do Opties.Insert(..GeefOptieVoorLade(..PrependNul(SequentieNummerLade),"-BackSteelIsFastMover", ..GeefBackSteelIsFastMover(Batch.GeefLijn(), StalenRugPRNr))) + } Quit Opties ]]> Index: APPS/Halux/Planning/impl/BatchStarter.cls.xml =================================================================== diff -u -r74778 -r74783 --- APPS/Halux/Planning/impl/BatchStarter.cls.xml (.../BatchStarter.cls.xml) (revision 74778) +++ APPS/Halux/Planning/impl/BatchStarter.cls.xml (.../BatchStarter.cls.xml) (revision 74783) @@ -104,7 +104,9 @@ If (IsTriggerResetBatch) { Do ..ExporteerBatchPitchedDataNaarObjectiveVoorBatch(Batch.GeefID(), IsTriggerResetBatch) } Else { - Do ..UpdateSalesLineStatusNaarKlaargezet(Batch) + If ((##class(APPS.Halux.PPS.MES.MESService).%New().GeefHuidigeMESFase() > 1)) { + Do ..UpdateSalesLineStatusNaarKlaargezet(Batch) + } } Do Batch.ZetStatus(##class(APPS.Halux.common.enu.BatchStatus).Gestart()) Index: vhDeploy/D20250123xAansturingActiesUitschakelenMES.cls.xml =================================================================== diff -u -r74530 -r74783 --- vhDeploy/D20250123xAansturingActiesUitschakelenMES.cls.xml (.../D20250123xAansturingActiesUitschakelenMES.cls.xml) (revision 74530) +++ vhDeploy/D20250123xAansturingActiesUitschakelenMES.cls.xml (.../D20250123xAansturingActiesUitschakelenMES.cls.xml) (revision 74783) @@ -16,9 +16,12 @@ 1 1)) + { + Do ##class(vhDeploy.Maatwerk.TBX.AansturingIncrementeel).ExecCode() + Do ##class(vhDeploy.Maatwerk.LBX.AansturingIncrementeel).ExecCode() + Do ##class(vhDeploy.Maatwerk.MVX.AansturingIncrementeel).ExecCode() + } ]]> Index: APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/SequentieOptiesGenerator.cls.xml =================================================================== diff -u -r74468 -r74783 --- APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/SequentieOptiesGenerator.cls.xml (.../SequentieOptiesGenerator.cls.xml) (revision 74468) +++ APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/SequentieOptiesGenerator.cls.xml (.../SequentieOptiesGenerator.cls.xml) (revision 74783) @@ -12,8 +12,12 @@ Do Opties.Insert(..GeefOptieVoorLadeSequentieInfoBinnenToelevering(UitvoeringInfo.SequentieNummerLade)) Do Opties.Insert(..GeefOptieVoorLadeSequentieBinnenBatch(UitvoeringInfo.SequentieNummerLade, UitvoeringInfo.SequentieNummer)) Do Opties.Insert(..GeefOptieVoorAantalVanTotaalAantal(UitvoeringInfo.SequentieNummerLade, UitvoeringInfo.DeelAantal, UitvoeringInfo.TotaalAantal)) - Do Opties.Insert(..GeefOptieVoorStapelAfbeelding(UitvoeringInfo.SequentieNummerLade, UitvoeringInfo.StapelAfbeelding)) - + + If ((##class(APPS.Halux.PPS.MES.MESService).%New().GeefHuidigeMESFase() > 1)) + { + Do Opties.Insert(..GeefOptieVoorStapelAfbeelding(UitvoeringInfo.SequentieNummerLade, UitvoeringInfo.StapelAfbeelding)) + } + Quit Opties ]]> Index: APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/ProductOptiesGenerator.cls.xml =================================================================== diff -u -r74712 -r74783 --- APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/ProductOptiesGenerator.cls.xml (.../ProductOptiesGenerator.cls.xml) (revision 74712) +++ APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/ProductOptiesGenerator.cls.xml (.../ProductOptiesGenerator.cls.xml) (revision 74783) @@ -77,14 +77,19 @@ Do Opties.Insert(..GeefOptieVoorLade(..PrependNul(SequentieNummerLade), "-" _ "Korttekst", Product.GeefKorttekst())) #dim Taal As DOM.enu.Taal = ##class(DOM.enu.Taal).Nederlands() Do Opties.Insert(..GeefOptieVoorLade(..PrependNul(SequentieNummerLade), "-" _ "Langtekst", Product.GeefLangtekst(Taal))) - Do Opties.Insert(..GeefOptieVoorLade(..PrependNul(SequentieNummerLade), "-" _ "GenericProductId", ..ProductApi.GeefIdentNummerVoorProductId(Product.GeefGenerischProductID()))) + + If ((##class(APPS.Halux.PPS.MES.MESService).%New().GeefHuidigeMESFase() > 1)) { + Do Opties.Insert(..GeefOptieVoorLade(..PrependNul(SequentieNummerLade), "-" _ "GenericProductId", ..ProductApi.GeefIdentNummerVoorProductId(Product.GeefGenerischProductID()))) + } Do Opties.Insert(..GeefOptieVoorLade(..PrependNul(SequentieNummerLade), "-" _ "Dossiercode", Product.GeefDossierCode())) Do Opties.Insert(..GeefOptieVoorLade(..PrependNul(SequentieNummerLade), "-" _ "FSC-claim", ..GeefFSCLogoURL(Product))) Do Opties.Insert(..GeefOptieVoorLade(..PrependNul(SequentieNummerLade), "-" _ "Vhoss-info", ..GeefVhossInfo(UitvoeringInfo))) - Do ##class(TECH.ListUtils).AppendList(Opties, ..GeefOptiesVoorBewerkingsLengte(UitvoeringInfo, Product)) - Do ##class(TECH.ListUtils).AppendList(Opties, ..GeefOptiesVoorMatten(UitvoeringInfo, Product)) + If ((##class(APPS.Halux.PPS.MES.MESService).%New().GeefHuidigeMESFase() > 1)) { + Do ##class(TECH.ListUtils).AppendList(Opties, ..GeefOptiesVoorBewerkingsLengte(UitvoeringInfo, Product)) + Do ##class(TECH.ListUtils).AppendList(Opties, ..GeefOptiesVoorMatten(UitvoeringInfo, Product)) + } Quit Opties ]]> Index: APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/HoofdDataGenerator.cls.xml =================================================================== diff -u -r74744 -r74783 --- APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/HoofdDataGenerator.cls.xml (.../HoofdDataGenerator.cls.xml) (revision 74744) +++ APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/HoofdDataGenerator.cls.xml (.../HoofdDataGenerator.cls.xml) (revision 74783) @@ -101,9 +101,15 @@ Set GebruikersVelden = ##class(APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveGebruikersVelden).%New() Set GebruikersVelden.DatumVelden = ..GeefDatumVelden(Toelevering) Set GebruikersVelden.TekstVelden = ..GeefTekstVelden(Batch, Toelevering, SequentieNummerToelevering) - Set GebruikersVelden.Vlag = ..GeefVlagVelden(Batch, Toelevering, SequentieNummerToelevering) - Set GebruikersVelden.NumeriekeVelden = ..GeefNumeriekeVelden(Batch, Toelevering) + If ((##class(APPS.Halux.PPS.MES.MESService).%New().GeefHuidigeMESFase() > 1)) { + Set GebruikersVelden.Vlag = ..GeefVlagVelden(Batch, Toelevering, SequentieNummerToelevering) + Set GebruikersVelden.NumeriekeVelden = ..GeefNumeriekeVelden(Batch, Toelevering) + } Else { + Set GebruikersVelden.Vlag = "" + Set GebruikersVelden.NumeriekeVelden = "" + } + Set BatchNaarObjectiveData.GebruikersVelden = GebruikersVelden ]]> @@ -188,17 +194,19 @@ #dim KlantInstellingen As DOM.Halux.AAP.Klantinstellingen #dim KlantInstellingenIterator = ..KlantinstellingenRepository.ZoekViaKlantId(Toelevering.GeefKlantID()) - Set TekstVelden.PalletMateriaal = "EUR" - Set TekstVelden.TypeKarton = "VH" - - If (KlantInstellingenIterator.HasNext()) { - Set KlantInstellingen = KlantInstellingenIterator.Next() - Set TekstVelden.TypeKarton = $Select(KlantInstellingen.IsBlumXs : "Blum", 1:"VH") + If (HuidigeMESFase > 2) { + Set TekstVelden.PalletMateriaal = "EUR" + Set TekstVelden.TypeKarton = "VH" - If (KlantInstellingen.WegwerpPallet) { - Set TekstVelden.PalletMateriaal = "Disposable" - } ElseIf (KlantInstellingen.KartonnenPallet) { - Set TekstVelden.PalletMateriaal = "Cardboard" + If (KlantInstellingenIterator.HasNext()) { + Set KlantInstellingen = KlantInstellingenIterator.Next() + Set TekstVelden.TypeKarton = $Select(KlantInstellingen.IsBlumXs : "Blum", 1:"VH") + + If (KlantInstellingen.WegwerpPallet) { + Set TekstVelden.PalletMateriaal = "Disposable" + } ElseIf (KlantInstellingen.KartonnenPallet) { + Set TekstVelden.PalletMateriaal = "Cardboard" + } } }