Index: vhTest/Mock/DOM/PM/Maatwerk/IngegevenKenmerkenTypeAPI.cls.xml
===================================================================
diff -u -r64604 -r73425
--- vhTest/Mock/DOM/PM/Maatwerk/IngegevenKenmerkenTypeAPI.cls.xml (.../IngegevenKenmerkenTypeAPI.cls.xml) (revision 64604)
+++ vhTest/Mock/DOM/PM/Maatwerk/IngegevenKenmerkenTypeAPI.cls.xml (.../IngegevenKenmerkenTypeAPI.cls.xml) (revision 73425)
@@ -59,6 +59,13 @@
]]>
+
+IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken
+%Boolean
+
+
+
IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken
%Boolean
Index: APPS/Halux/PPS/Activiteit/impl/LBX/KlantEtiketSpaceStep.cls.xml
===================================================================
diff -u -r62050 -r73425
--- APPS/Halux/PPS/Activiteit/impl/LBX/KlantEtiketSpaceStep.cls.xml (.../KlantEtiketSpaceStep.cls.xml) (revision 62050)
+++ APPS/Halux/PPS/Activiteit/impl/LBX/KlantEtiketSpaceStep.cls.xml (.../KlantEtiketSpaceStep.cls.xml) (revision 73425)
@@ -40,27 +40,39 @@
-UitvoeringInfo:APPS.Halux.PPS.Activiteit.impl.common.dto.VHossUitvoeringInfo,Item:APPS.Halux.common.ProductieSequentieItem
+UitvoeringInfo:APPS.Halux.PPS.Activiteit.impl.common.dto.KlantEtiketUitvoeringInfo,Item:APPS.Halux.common.ProductieSequentieItem
1
%Boolean
-UitvoeringInfo:APPS.Halux.PPS.Activiteit.impl.common.dto.VHossUitvoeringInfo,Item:APPS.Halux.common.VHOSSProductieSequentieItem
+UitvoeringInfo:APPS.Halux.PPS.Activiteit.impl.common.dto.KlantEtiketUitvoeringInfo,Item:APPS.Halux.common.VHOSSProductieSequentieItem
1
%Boolean
+
+
+TECH.RegisteredObject,DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerkenVisitor
+
+
+%Boolean
+1
+
+
+
+%Integer
+1
+
+
+
+1
+1
+%Status
+1
+
+
+
+
+IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken
+
+
+
+
+LBXKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken
+
+
+
+
+TBXKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken
+
+
+
+
+KADKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.KADKenmerken
+
+
+
+
+OLMKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.OLMKenmerken
+
+
+
+
+TAORKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken
+
+
+
+
+MATKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.MATKenmerken
+
+
+
+
+MVXKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken
+
+
+
+
+
+
Index: DOM/PM/Maatwerk/IngegevenKenmerkenTypeAPI.cls.xml
===================================================================
diff -u -r64604 -r73425
--- DOM/PM/Maatwerk/IngegevenKenmerkenTypeAPI.cls.xml (.../IngegevenKenmerkenTypeAPI.cls.xml) (revision 64604)
+++ DOM/PM/Maatwerk/IngegevenKenmerkenTypeAPI.cls.xml (.../IngegevenKenmerkenTypeAPI.cls.xml) (revision 73425)
@@ -64,6 +64,12 @@
%Boolean
+
+1
+IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken
+%Boolean
+
+
1
IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken
Index: APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket/EtiketPrinter.cls.xml
===================================================================
diff -u -r72039 -r73425
--- APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket/EtiketPrinter.cls.xml (.../EtiketPrinter.cls.xml) (revision 72039)
+++ APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket/EtiketPrinter.cls.xml (.../EtiketPrinter.cls.xml) (revision 73425)
@@ -110,33 +110,31 @@
Set ..DueOutFormatter = ##class(APPS.Halux.PPS.impl.BatchDueOutFormatter).%New()
Set ..blLabelPrinter = ##class(BL.Sys.LabelPrinter).%New()
- If (..MagUitgevoerdWorden(Batch)) {
- If ($$$Not($IsObject(DnaCodeIterator))) {
- Do ..BepaalEtiketten(Batch, Parameters.IsSpecifiekEtiket(), Parameters.GeefToeleveringID(), Parameters.GeefDossiercode(), Parameters.GeefAantal())
- Do:(..TussenEtiketNodig()) ..VoegToeTussenEtiketten()
-
- If ((..AantalLadesVoorBewerkingCenter > 0) && (..AantalLadesVoorBewerkingCenter <=10)) {
- Do ..VoegToeTussenEtiketVoorBewerkingsCenter()
- Do ..BepaalEtiketten(Batch, Parameters.IsSpecifiekEtiket(), Parameters.GeefToeleveringID(), Parameters.GeefDossiercode(), Parameters.GeefAantal(), $$$True)
- }
-
- } Else {
- Do ..BepaalEtikettenMetDnaCodes(DnaCodeIterator, Parameters)
-
- If ((..AantalLadesVoorBewerkingCenter > 0) && (..AantalLadesVoorBewerkingCenter <=10)) {
- Do ..VoegToeTussenEtiketVoorBewerkingsCenter()
- Do ..BepaalEtikettenMetDnaCodes(DnaCodeIterator, Parameters, $$$True)
- }
+ If ($$$Not($IsObject(DnaCodeIterator))) {
+ Do ..BepaalEtiketten(Batch, Parameters.IsSpecifiekEtiket(), Parameters.GeefToeleveringID(), Parameters.GeefDossiercode(), Parameters.GeefAantal())
+ Do:(..TussenEtiketNodig()) ..VoegToeTussenEtiketten()
+
+ If ((..AantalLadesVoorBewerkingCenter > 0) && (..AantalLadesVoorBewerkingCenter <=10)) {
+ Do ..VoegToeTussenEtiketVoorBewerkingsCenter()
+ Do ..BepaalEtiketten(Batch, Parameters.IsSpecifiekEtiket(), Parameters.GeefToeleveringID(), Parameters.GeefDossiercode(), Parameters.GeefAantal(), $$$True)
}
- Do ..VoegToeEtiketten()
- Do ..blLabelPrinter.Print2Bartender()
+ } Else {
+ Do ..BepaalEtikettenMetDnaCodes(DnaCodeIterator, Parameters)
+
+ If ((..AantalLadesVoorBewerkingCenter > 0) && (..AantalLadesVoorBewerkingCenter <=10)) {
+ Do ..VoegToeTussenEtiketVoorBewerkingsCenter()
+ Do ..BepaalEtikettenMetDnaCodes(DnaCodeIterator, Parameters, $$$True)
+ }
}
+
+ Do ..VoegToeEtiketten()
+ Do ..blLabelPrinter.Print2Bartender()
]]>
-Batch:APPS.Halux.common.Batch
+Batch:APPS.Halux.common.Batch,IsProductieWijzeVolledig:%Boolean
1
%Boolean
0) && ..IsPrintenNodig(ToeleveringLijn) {
- If (IsExtraEtiketVoorLadeBewerkingcenter) {
- #dim Ingegevenkenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = Product.GeefIngegevenKenmerken()
- If (..IsLadeVoorBewerkingcenter(Ingegevenkenmerken)) {
- #dim LaatsteEtiketVoorToelevering As BL.Etiket.LadeKlantEtiket = ..GeefLaatsteEtiket()
- #dim DnaCode As %String = ..DnaCodeService.GeefDnaCodeVoorDubbeleAfdruk(BatchID, SequenceInfo.SequenceNr)
-
- Do ..GenereerExtraEtiketBewerkingscenter(DnaCode, Product.GeefID(), LaatsteEtiketVoorToelevering.Layout, LaatsteEtiketVoorToelevering.Device)
+ #dim Ingegevenkenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = Product.GeefIngegevenKenmerken()
+ If (..MagUitgevoerdWorden(Batch, ..IngegevenKenmerkenTypeAPI.IsProductieWijzeVolledig(Ingegevenkenmerken))) {
+ If (IsExtraEtiketVoorLadeBewerkingcenter) {
+ If (..IsLadeVoorBewerkingcenter(Ingegevenkenmerken)) {
+ #dim LaatsteEtiketVoorToelevering As BL.Etiket.LadeKlantEtiket = ..GeefLaatsteEtiket()
+ #dim DnaCode As %String = ..DnaCodeService.GeefDnaCodeVoorDubbeleAfdruk(BatchID, SequenceInfo.SequenceNr)
+
+ Do ..GenereerExtraEtiketBewerkingscenter(DnaCode, Product.GeefID(), LaatsteEtiketVoorToelevering.Layout, LaatsteEtiketVoorToelevering.Device)
+ }
+ } Else {
+ Do ..GenereerStandaardEtiket(SequenceInfo, Batch, AantalEtiketten, VoorkeurPrinter, ToeleveringLijn)
+ Do ..CheckBevatBatchLadeVoorBewerkingcenter(ToeleveringLijn.GeefProductID())
}
- } Else {
- Do ..GenereerStandaardEtiket(SequenceInfo, Batch, AantalEtiketten, VoorkeurPrinter, ToeleveringLijn)
- Do ..CheckBevatBatchLadeVoorBewerkingcenter(ToeleveringLijn.GeefProductID())
}
}
}
Index: APPS/Halux/PPS/Activiteit/impl/LBX/KlantEtiketten.cls.xml
===================================================================
diff -u -r30095 -r73425
--- APPS/Halux/PPS/Activiteit/impl/LBX/KlantEtiketten.cls.xml (.../KlantEtiketten.cls.xml) (revision 30095)
+++ APPS/Halux/PPS/Activiteit/impl/LBX/KlantEtiketten.cls.xml (.../KlantEtiketten.cls.xml) (revision 73425)
@@ -40,27 +40,39 @@
-UitvoeringInfo:APPS.Halux.PPS.Activiteit.impl.common.dto.VHossUitvoeringInfo,Item:APPS.Halux.common.ProductieSequentieItem
+UitvoeringInfo:APPS.Halux.PPS.Activiteit.impl.common.dto.KlantEtiketUitvoeringInfo,Item:APPS.Halux.common.ProductieSequentieItem
1
%Boolean
-UitvoeringInfo:APPS.Halux.PPS.Activiteit.impl.common.dto.VHossUitvoeringInfo,Item:APPS.Halux.common.VHOSSProductieSequentieItem
+UitvoeringInfo:APPS.Halux.PPS.Activiteit.impl.common.dto.KlantEtiketUitvoeringInfo,Item:APPS.Halux.common.VHOSSProductieSequentieItem
1
%Boolean
+
+IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken
+%Boolean
+
+
+
IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken
DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel
Index: APPS/Halux/PPS/Activiteit/impl/MVX/KlantEtiketten.cls.xml
===================================================================
diff -u -r63745 -r73425
--- APPS/Halux/PPS/Activiteit/impl/MVX/KlantEtiketten.cls.xml (.../KlantEtiketten.cls.xml) (revision 63745)
+++ APPS/Halux/PPS/Activiteit/impl/MVX/KlantEtiketten.cls.xml (.../KlantEtiketten.cls.xml) (revision 73425)
@@ -40,7 +40,7 @@
-UitvoeringInfo:APPS.Halux.PPS.Activiteit.impl.common.dto.VHossUitvoeringInfo,Item:APPS.Halux.common.ProductieSequentieItem
+UitvoeringInfo:APPS.Halux.PPS.Activiteit.impl.common.dto.KlantEtiketUitvoeringInfo,Item:APPS.Halux.common.ProductieSequentieItem
1
%Boolean
-UitvoeringInfo:APPS.Halux.PPS.Activiteit.impl.common.dto.VHossUitvoeringInfo,Item:APPS.Halux.common.VHOSSProductieSequentieItem
+UitvoeringInfo:APPS.Halux.PPS.Activiteit.impl.common.dto.KlantEtiketUitvoeringInfo,Item:APPS.Halux.common.VHOSSProductieSequentieItem
1
%Boolean
%ListOfObjects
0) && (..AantalLadesVoorBewerkingCenter <=10)) {
- Do ..VoegToeTussenEtiketVoorBewerkingsCenter()
- Do ..VoegToeExtraEtikettenLadesBewerkingCenterVoorUitvoeringLijst(UitvoeringInfoIt, IsKlantEtiketSpaceStep)
- }
+ Do ..VoegToeEtikettenVoorUitvoeringInfoLijst(UitvoeringInfoIt, IsKlantEtiketSpaceStep)
+ Do ..ZetAantalLijnenOpTussenEtiket()
+
+ If ((..AantalLadesVoorBewerkingCenter > 0) && (..AantalLadesVoorBewerkingCenter <=10)) {
+ Do ..VoegToeTussenEtiketVoorBewerkingsCenter()
+ Do ..VoegToeExtraEtikettenLadesBewerkingCenterVoorUitvoeringLijst(UitvoeringInfoIt, IsKlantEtiketSpaceStep)
}
Quit ..Etiketten
@@ -119,8 +117,10 @@
While UitvoeringInfoIt.HasNext(){
#dim UitvoeringInfo As APPS.Halux.PPS.Activiteit.impl.common.dto.KlantEtiketUitvoeringInfo = UitvoeringInfoIt.Next()
Try {
- Do ..VoegToeEtiketVoorUitvoeringInfo(UitvoeringInfo, IsKlantEtiketSpaceStep)
- Do ..CheckIsLadeVoorBewerkingcenter(UitvoeringInfo.ProductID)
+ If ..MagUitgevoerdWorden(UitvoeringInfo) {
+ Do ..VoegToeEtiketVoorUitvoeringInfo(UitvoeringInfo, IsKlantEtiketSpaceStep)
+ Do ..CheckIsLadeVoorBewerkingcenter(UitvoeringInfo.ProductID)
+ }
}
Catch {
#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
@@ -132,20 +132,22 @@
-UitvoeringInfoLijst:APPS.Halux.PPS.dto.UitvoeringInfoLijst
+UitvoeringInfo:APPS.Halux.PPS.Activiteit.impl.common.dto.KlantEtiketUitvoeringInfo
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)
+ #dim BatchId As %String = UitvoeringInfo.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
- If ((..MESService.IsActiefVoorMes(Batch.GeefLijn(), MesFaseActief)) && IsActiefKlantEtikettenMes) {
- Set MagUitgevoerdWorden = $$$False
+ If (UitvoeringInfo.MagEtiketGemaaktWordenopBasisVanProductieWijze) {
+ Set MagUitgevoerdWorden = $$$True
}
}
@@ -170,7 +172,10 @@
#dim DnaCode As %String = ..DnaCodeService.GeefDnaCodeVoorDubbeleAfdruk(UitvoeringInfo.BatchID, UitvoeringInfo.SequentieNummer)
#dim Etiket As BL.Etiket.LadeKlantEtiket = ..EtiketBuilder.MaakExtraMaatwerkProductVoorBewerkingscenter(DnaCode, Product.GeefID(), LaatsteEtiketVoorToelevering.Layout, LaatsteEtiketVoorToelevering.Device)
- Do ..Etiketten.Insert(Etiket)
+
+ If ..MagUitgevoerdWorden(UitvoeringInfo) {
+ Do ..Etiketten.Insert(Etiket)
+ }
} Catch {
#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
Set UitvoeringInfo.Status = ##class(APPS.Halux.PPS.enu.UitvoeringStatus).Fout()
@@ -188,7 +193,7 @@
#dim Etiket As APPS.common.Print.AbstractLabel
If $Length(UitvoeringInfo.VHOSSID) {
Set Etiket = ..EtiketBuilder.MaakMaatwerkProductInVHossViaVHossProdSeqItem(UitvoeringInfo)
- }Else{
+ } Else{
#dim ToeleveringID As %String = UitvoeringInfo.ToeleveringID
If ..VorigeToeleveringID '= ToeleveringID {
Do ..ZetAantalLijnenOpTussenEtiket()
@@ -198,6 +203,7 @@
Set ..AantalEtikettenInToelevering = ..AantalEtikettenInToelevering + 1
Set Etiket = ..EtiketBuilder.MaakMaatwerkProductViaToeleveringEnLijnID(ToeleveringID,UitvoeringInfo.ToeleveringLijnID,1,UitvoeringInfo.PrinterID,UitvoeringInfo.SequentieNummer,,,IsKlantEtiketSpaceStep)
}
+
Do ..Etiketten.Insert(Etiket)
]]>
Index: APPS/Halux/PPS/Activiteit/impl/common/dto/KlantEtiketUitvoeringInfo.cls.xml
===================================================================
diff -u -r29059 -r73425
--- APPS/Halux/PPS/Activiteit/impl/common/dto/KlantEtiketUitvoeringInfo.cls.xml (.../KlantEtiketUitvoeringInfo.cls.xml) (revision 29059)
+++ APPS/Halux/PPS/Activiteit/impl/common/dto/KlantEtiketUitvoeringInfo.cls.xml (.../KlantEtiketUitvoeringInfo.cls.xml) (revision 73425)
@@ -5,11 +5,15 @@
1
APPS.Halux.PPS.Activiteit.impl.common.dto.VHossUitvoeringInfo
+
+%Boolean
+1
+
+
%Library.CacheStorage
KlantEtiketUitvoeringInfoDefaultData
-listnode
"KlantEtiketUitvoeringInfo"
KlantSequentieNummer
@@ -32,6 +36,9 @@
PrinterID
+
+MagEtiketGemaaktWordenopBasisVanProductieWijze
+