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
+