Index: APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket.cls.xml =================================================================== diff -u -r59974 -r59977 --- APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket.cls.xml (.../KlantEtiket.cls.xml) (revision 59974) +++ APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket.cls.xml (.../KlantEtiket.cls.xml) (revision 59977) @@ -13,22 +13,21 @@ #dim Batch As APPS.Halux.common.Batch = ##class(APPS.Halux.common.impl.BatchService).%New().GeefBatch(BatchID) Set PrinterFactory = ##class(APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.PrinterFactory).%New() - #dim DropBoxPrinter As APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.Printer = "" - Set DropBoxPrinter = PrinterFactory.GeefKlantEtiketPrinter(Batch.GeefCategorie()) + #dim Printer As APPS.Halux.PPS.AansturingActie.common.KlantEtiket.Printer = "" + Set Printer = PrinterFactory.GeefKlantEtiketPrinter(Batch.GeefCategorie()) - If (..IsDropBoxPrinter(DropBoxPrinter)) { + If (..IsDropBoxPrinter(Printer)) { - Do DropBoxPrinter.PrintKlantEtiket(Batch) - Set ..ResultaatOpmerking = DropBoxPrinter.GeefResultaatOmschrijving() + Do Printer.PrintKlantEtiket(Batch) + Set ..ResultaatOpmerking = Printer.GeefResultaatOmschrijving() } Else { Set EtiketPrinterFactory = ##class(APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.EtiketPrinterFactory).%New() Set Parameters = ##class(APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.Parameters).%New(ActieParameters) - #dim KlantEtiketPrinter As APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.EtiketPrinter - Set KlantEtiketPrinter = EtiketPrinterFactory.GeefKlantEtiketPrinter(Batch) + Set Printer = EtiketPrinterFactory.GeefKlantEtiketPrinter(Batch) - Do KlantEtiketPrinter.PrintKlantEtiket(Batch, Parameters) - Set ..ResultaatOpmerking = KlantEtiketPrinter.GeefResultaatOmschrijving() + Do Printer.PrintKlantEtiket(Batch, Parameters) + Set ..ResultaatOpmerking = Printer.GeefResultaatOmschrijving() } Quit ..GeefGeslaagdAansturingResultaat()