Index: APPS/Halux/PPS/Document/impl/common/MaatwerkProductEtiketten.cls.xml =================================================================== diff -u -r71967 -r71985 --- APPS/Halux/PPS/Document/impl/common/MaatwerkProductEtiketten.cls.xml (.../MaatwerkProductEtiketten.cls.xml) (revision 71967) +++ APPS/Halux/PPS/Document/impl/common/MaatwerkProductEtiketten.cls.xml (.../MaatwerkProductEtiketten.cls.xml) (revision 71985) @@ -60,6 +60,16 @@ 1 + +APPS.Halux.PPS.MES.MESService +1 + + + +DOM.common.impl.ProjectSettingsAPI +1 + + 1 1 @@ -74,6 +84,8 @@ Set ..IngegevenKenmerkenTypeAPI = ##class(DOM.PM.Maatwerk.impl.IngegevenKenmerkenTypeAPI).%New() Set ..DnaCodeService = ##class(APPS.Halux.PPS.Activiteit.impl.TBX.KlantEtiketIoCContainer).Instance().Resolve("DnaCodeService") Set ..TussenEtiketVoorToeleveringBepaler = ##class(APPS.Halux.PPS.Document.impl.common.TussenEtiketVoorToeleveringBepaler).%New("") + Set ..MESService = ##class(APPS.Halux.PPS.MES.MESService).%New() + Set ..ProjectSettingsApi = ##class(DOM.common.impl.ProjectSettingsAPI).%New() Quit $$$OK ]]> @@ -87,12 +99,14 @@ #dim VorigeToeleveringID As %String = "" Set UitvoeringInfoIt = ##class(TECH.ListIterator).%New(UitvoeringInfoLijst) - Do ..VoegToeEtikettenVoorUitvoeringInfoLijst(UitvoeringInfoIt, IsKlantEtiketSpaceStep) - Do ..ZetAantalLijnenOpTussenEtiket() - - If (..BevatBatchLadeVoorBewerkingcenter) { - Do ..VoegToeTussenEtiketVoorBewerkingsCenter() - Do ..VoegToeExtraEtikettenLadesBewerkingCenterVoorUitvoeringLijst(UitvoeringInfoIt, IsKlantEtiketSpaceStep) + If ..MagUitgevoerdWorden(UitvoeringInfoLijst) { + Do ..VoegToeEtikettenVoorUitvoeringInfoLijst(UitvoeringInfoIt, IsKlantEtiketSpaceStep) + Do ..ZetAantalLijnenOpTussenEtiket() + + If (..BevatBatchLadeVoorBewerkingcenter) { + Do ..VoegToeTussenEtiketVoorBewerkingsCenter() + Do ..VoegToeExtraEtikettenLadesBewerkingCenterVoorUitvoeringLijst(UitvoeringInfoIt, IsKlantEtiketSpaceStep) + } } Quit ..Etiketten @@ -117,6 +131,28 @@ ]]> + +UitvoeringInfoLijst:APPS.Halux.PPS.dto.UitvoeringInfoLijst +1 +%Boolean + 0) { + #dim BatchId As %String = UitvoeringInfoLijst.GetAt(1).BatchID + #dim Batch As APPS.Halux.common.Batch = ##class(APPS.ApplicatieContext).Instance().GeefProductieAPI().GeefBatchService().GeefBatch(BatchId) + + If ((..MESService.IsActiefVoorMes(Batch.GeefLijn(), MesFaseActief)) && IsActiefKlantEtikettenMes) { + Set MagUitgevoerdWorden = $$$False + } + } + + Quit MagUitgevoerdWorden +]]> + + UitvoeringInfoIt:TECH.ListIterator,IsKlantEtiketSpaceStep:%Boolean 1 Index: APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket/EtiketPrinter.cls.xml =================================================================== diff -u -r71967 -r71985 --- APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket/EtiketPrinter.cls.xml (.../EtiketPrinter.cls.xml) (revision 71967) +++ APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket/EtiketPrinter.cls.xml (.../EtiketPrinter.cls.xml) (revision 71985) @@ -59,6 +59,7 @@ APPS.Halux.AAP.DnaCodeService 1 +1 @@ -70,8 +71,21 @@ APPS.Halux.Docs.EtiketBuilder 1 +1 + +APPS.Halux.PPS.MES.MESService +1 +1 + + + +DOM.common.impl.ProjectSettingsAPI +1 +1 + + 1 1 @@ -84,6 +98,8 @@ Set ..DnaCodeService = ##class(APPS.Halux.PPS.Activiteit.impl.TBX.KlantEtiketIoCContainer).Instance().Resolve("DnaCodeService") Set ..TussenEtiketVoorToeleveringBepaler = ##class(APPS.Halux.PPS.Document.impl.common.TussenEtiketVoorToeleveringBepaler).%New("") Set ..EtiketBuilder = ##class(APPS.Halux.Docs.EtiketBuilder).%New() + Set ..MESService = ##class(APPS.Halux.PPS.MES.MESService).%New() + Set ..ProjectSettingsApi = ##class(DOM.common.impl.ProjectSettingsAPI).%New() Quit $$$OK ]]> @@ -95,27 +111,45 @@ Set ..DueOutFormatter = ##class(APPS.Halux.PPS.impl.BatchDueOutFormatter).%New() Set ..blLabelPrinter = ##class(BL.Sys.LabelPrinter).%New() - If ($$$Not($IsObject(DnaCodeIterator))) { - Do ..BepaalEtiketten(Batch, Parameters.IsSpecifiekEtiket(), Parameters.GeefToeleveringID(), Parameters.GeefDossiercode(), Parameters.GeefAantal()) - Do:(..TussenEtiketNodig()) ..VoegToeTussenEtiketten() - - If (..BevatBatchLadeVoorBewerkingcenter) { - Do ..VoegToeTussenEtiketVoorBewerkingsCenter() - Do ..BepaalEtiketten(Batch, Parameters.IsSpecifiekEtiket(), Parameters.GeefToeleveringID(), Parameters.GeefDossiercode(), Parameters.GeefAantal(), $$$True) + If (..MagUitgevoerdWorden(Batch)) { + If ($$$Not($IsObject(DnaCodeIterator))) { + Do ..BepaalEtiketten(Batch, Parameters.IsSpecifiekEtiket(), Parameters.GeefToeleveringID(), Parameters.GeefDossiercode(), Parameters.GeefAantal()) + Do:(..TussenEtiketNodig()) ..VoegToeTussenEtiketten() + + If (..BevatBatchLadeVoorBewerkingcenter) { + Do ..VoegToeTussenEtiketVoorBewerkingsCenter() + Do ..BepaalEtiketten(Batch, Parameters.IsSpecifiekEtiket(), Parameters.GeefToeleveringID(), Parameters.GeefDossiercode(), Parameters.GeefAantal(), $$$True) + } + + } Else { + Do ..BepaalEtikettenMetDnaCodes(DnaCodeIterator, Parameters) + + If (..BevatBatchLadeVoorBewerkingcenter) { + Do ..VoegToeTussenEtiketVoorBewerkingsCenter() + Do ..BepaalEtikettenMetDnaCodes(DnaCodeIterator, Parameters, $$$True) + } } - } Else { - Do ..BepaalEtikettenMetDnaCodes(DnaCodeIterator, Parameters) - - If (..BevatBatchLadeVoorBewerkingcenter) { - Do ..VoegToeTussenEtiketVoorBewerkingsCenter() - Do ..BepaalEtikettenMetDnaCodes(DnaCodeIterator, Parameters, $$$True) - } + Do ..VoegToeEtiketten() + Do ..blLabelPrinter.Print2Bartender() } +]]> + + +Batch:APPS.Halux.common.Batch +1 +%Boolean +