persistent 0 1 APPS.Halux.PPS.impl.AansturingActie,APPS.Halux.PPS.AansturingActie.common.KlantEtiket.Printer APPS.Halux.common.Batch 1 1 APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.EtiketDataMetTussenEtiketTrigger list 1 1 BL.Sys.LabelPrinter 1 1 APPS.Halux.PPS.impl.BatchDueOutFormatter 1 1 Batch:APPS.Halux.common.Batch,Parameters:APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.Parameters,DnaCodeIterator:TECH.Iterator="" %String 1 QueueID:%String,BatchID:%String,ToeleveringID:%String,ToeleveringLijnID:%String,AantalEtiketten:%Integer,VoorkeurPrinter:%String,Dnacode:%String="",Herafdruk:%Boolean=$$$False 1 APPS.common.Print.AbstractLabel 1 ToeleveringLijn:DOM.AKP.ProductToeleveringLijn 1 %Boolean 1 1 %Boolean Batch:APPS.Halux.common.Batch,PrintSpecifiekEtiket:%Boolean,GewensteToeleveringID:%String,GewensteDossiercode:%String,GewenstAantal:%Integer 1 0) && ..IsPrintenNodig(ToeleveringLijn) { #dim Etiket As BL.Etiket.LadeKlantEtiket = ..GeefEtiket(QueueID, BatchID, ToeleveringID, ToeleveringLijnID, AantalEtiketten, VoorkeurPrinter) Set EtiketDataMetTussenEtiketTrigger = ##class(APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.EtiketDataMetTussenEtiketTrigger).%New() Set EtiketDataMetTussenEtiketTrigger.Etiket = Etiket Set EtiketDataMetTussenEtiketTrigger.TussenEtiketTriggerKeyList = ..GeefTussenEtiketTriggerKeyList(Batch, SequenceInfo) Do ..Etiketten.Insert(EtiketDataMetTussenEtiketTrigger) } } } ]]> DnaCodeIterator:TECH.Iterator,Parameters:APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.Parameters 1 Batch:APPS.Halux.common.Batch,SequenceInfo:APPS.Halux.common.dto.ProductieSequentie 1 %ListOfDataTypes 1 BatchID:%String 1 APPS.Halux.common.impl.ProductieSequentieGroepering 1 1 HuidigePositieInLijst:TECH.Integer 1 TECH.Integer Info:TECH.String,Etiket:BL.Sys.pxProductLabel 1 APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.EtiketDataMetTussenEtiketTrigger %Library.CacheStorage