Index: APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket.cls.xml
===================================================================
diff -u -r59967 -r59969
--- APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket.cls.xml	(.../KlantEtiket.cls.xml)	(revision 59967)
+++ APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket.cls.xml	(.../KlantEtiket.cls.xml)	(revision 59969)
@@ -42,25 +42,12 @@
 	If (..IsDropBoxPrinter(DropBoxPrinter)) {
 		Do DropBoxPrinter.PrintKlantEtiketToDropFolder(Batch)
 	} Else {
-		#dim PrintSpecifiekEtiket As %Boolean = (ActieParameters.Count() > 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)		
-		}
+		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)
 	
-		Do KlantEtiketPrinter.PrintKlantEtiket(Batch, PrintSpecifiekEtiket, ToeleveringID, Dossiercode, Aantal)
+		Do KlantEtiketPrinter.PrintKlantEtiket(Batch, Parameters.IsSpecifiekEtiket(), Parameters.GeefToeleveringID(), Parameters.GeefDossiercode(), Parameters.GeefAantal())
 		
 		Set ..ResultaatOpmerking = KlantEtiketPrinter.GeefResultaatOmschrijving()
 	}