Index: APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket/Maatwerk/EtiketPrinter.cls.xml
===================================================================
diff -u -r60661 -r61728
--- APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket/Maatwerk/EtiketPrinter.cls.xml (.../EtiketPrinter.cls.xml) (revision 60661)
+++ APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket/Maatwerk/EtiketPrinter.cls.xml (.../EtiketPrinter.cls.xml) (revision 61728)
@@ -4,10 +4,10 @@
APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.EtiketPrinter
-QueueID:%String,BatchID:%String,ToeleveringID:%String,ToeleveringLijnID:%String,AantalEtiketten:%Integer,VoorkeurPrinter:%String,Dnacode:%String=""
+QueueID:%String,BatchID:%String,ToeleveringID:%String,ToeleveringLijnID:%String,AantalEtiketten:%Integer,VoorkeurPrinter:%String,Dnacode:%String="",Herafdruk:%Boolean=$$$False
1
APPS.common.Print.AbstractLabel
-
Index: APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket/EtiketPrinter.cls.xml
===================================================================
diff -u -r60917 -r61728
--- APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket/EtiketPrinter.cls.xml (.../EtiketPrinter.cls.xml) (revision 60917)
+++ APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket/EtiketPrinter.cls.xml (.../EtiketPrinter.cls.xml) (revision 61728)
@@ -37,12 +37,11 @@
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()
} Else {
- Do ..BepaalEtikettenMetDnaCodes(DnaCodeIterator)
+ Do ..BepaalEtikettenMetDnaCodes(DnaCodeIterator, Parameters)
}
@@ -59,7 +58,7 @@
1
-QueueID:%String,BatchID:%String,ToeleveringID:%String,ToeleveringLijnID:%String,AantalEtiketten:%Integer,VoorkeurPrinter:%String,Dnacode:%String=""
+QueueID:%String,BatchID:%String,ToeleveringID:%String,ToeleveringLijnID:%String,AantalEtiketten:%Integer,VoorkeurPrinter:%String,Dnacode:%String="",Herafdruk:%Boolean=$$$False
1
APPS.common.Print.AbstractLabel
@@ -132,7 +131,7 @@
-DnaCodeIterator:TECH.Iterator
+DnaCodeIterator:TECH.Iterator,Parameters:APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.Parameters
1
1
+
+%Boolean
+1
+
+
ActieParameters:%ListOfDataTypes
%Status
@@ -77,6 +82,18 @@
]]>
+
+%Boolean
+
+
+
+
+IsHerafdruk:%Boolean
+
+
+
1
-ToeleveringID:%String,ToeleveringLijnID:%String,Aantal:%Integer,VoorkeurPrinter:%String="",QueueID:%String="",DnaCode:%String=""
+ToeleveringID:%String,ToeleveringLijnID:%String,Aantal:%Integer,VoorkeurPrinter:%String="",QueueID:%String="",DnaCode:%String="",Herafdruk:%Boolean=$$$False
BL.Etiket.LadeKlantEtiket
kijken of daar ook de if DnaCode = leeg nodig is
If $$$HasLength(DnaCode) && ..ProjectSettingsAPI.IsActiefDnaCodeOpEtiket(){
- Set DnaCode = ..DnaCodeService.GeefVolgendeAfTeDrukkenDnaCode(ToeleveringID, ProductID, QueueID)
+ If $$$Not(Herafdruk) {
+ Set DnaCode = ..DnaCodeService.GeefVolgendeAfTeDrukkenDnaCode(ToeleveringID, ProductID, QueueID, Herafdruk)
+ }
Set Aantal = 1
}