persistent 0 1 APPS.Halux.PPS.impl.AansturingActie 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) } If (Batch.GeefCategorie() = ##class(APPS.Halux.common.enu.Categorie).Kaderdeur()) { Do ..PrintKlantEtiketToDropFolder(Batch) } elseIf (Batch.GeefCategorie() = ##class(APPS.Halux.common.enu.Categorie).Mat()) { Do ..PrintKlantEtiketToDropFolder(Batch) } Else { #dim KlantEtiketPrinter As APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.Template If (Batch.GeefProductieGroep() = ##class(APPS.Halux.common.enu.ProductieGroep).Kast()) { Set KlantEtiketPrinter = ##class(APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.MaatwerkInVHOSSEtiketPrinter).%New() } Else { If (Batch.GeefCategorie() = ##class(APPS.Halux.common.enu.Categorie).TAORbox()) { Set KlantEtiketPrinter = ##class(APPS.Halux.PPS.impl.AansturingActie.Taorbox.KlantEtiket.GeenEtiketPrinter).%New() } Else { Set KlantEtiketPrinter = ##class(APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.MaatwerkEtiketPrinter).%New() } } Do KlantEtiketPrinter.PrintKlantEtiket(Batch, PrintSpecifiekEtiket, ToeleveringID, Dossiercode, Aantal) Set ..ResultaatOpmerking = KlantEtiketPrinter.GeefResultaatOmschrijving() } Quit ..GeefGeslaagdAansturingResultaat() ]]> BatchID:%String="" %ListOfObjects ELEMENTTYPE="APPS.common.Actie.dto.ActieParameter" Batch:APPS.Halux.common.Batch 0 %Library.CacheStorage