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 ..PrintKADKlantEtiket(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() { If ..IsTAXMetAssemblageKar(Batch) { Set KlantEtiketPrinter = ##class(APPS.Halux.PPS.impl.AansturingActie.Taorbox.KlantEtiket.Gemonteerd.EtiketPrinter).%New() } Else { Set KlantEtiketPrinter = ##class(APPS.Halux.PPS.impl.AansturingActie.Taorbox.KlantEtiket.OnGemonteerd.EtiketPrinter).%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() ]]> Batch:APPS.Halux.common.Batch 1 BatchID:%String="" %ListOfObjects ELEMENTTYPE="APPS.common.Actie.dto.ActieParameter" Batch:APPS.Halux.common.Batch 0 %Library.CacheStorage