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 }