persistent 0 1 APPS.Halux.PPS.impl.AansturingActie APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.PrinterFactory 1 APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.EtiketPrinterFactory 1 initvalue:%CacheString 1 1 %Status 1 BatchID:%String,ActieParameters:%ListOfDataTypes APPS.Halux.PPS.dto.ActieResultaat 0) #dim ToeleveringID As %String = "" #dim Dossiercode As %String = "" #dim Aantal As %Integer = 1 If (PrintSpecifiekEtiket) { Set ToeleveringID = ActieParameters.GetAt(1) Set Dossiercode = ActieParameters.GetAt(2) Set Aantal = ActieParameters.GetAt(3) Do ActieParameters.RemoveAt(3) Do ActieParameters.RemoveAt(2) Do ActieParameters.RemoveAt(1) } #dim KlantEtiketPrinter As APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.EtiketPrinter Set KlantEtiketPrinter = ..EtiketPrinterFactory.GeefKlantEtiketPrinter(Batch) Do KlantEtiketPrinter.PrintKlantEtiket(Batch, PrintSpecifiekEtiket, ToeleveringID, Dossiercode, Aantal) Set ..ResultaatOpmerking = KlantEtiketPrinter.GeefResultaatOmschrijving() } Quit ..GeefGeslaagdAansturingResultaat() ]]> DropBoxPrinter:APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.Printer 1 %Boolean BatchID:%String="" %ListOfObjects ELEMENTTYPE="APPS.common.Actie.dto.ActieParameter" %Library.CacheStorage KlantEtiketDefaultData "KlantEtiket" PrinterFactory EtiketPrinterFactory