Index: APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket.cls.xml
===================================================================
diff -u -r59763 -r59988
--- APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket.cls.xml	(.../KlantEtiket.cls.xml)	(revision 59763)
+++ APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket.cls.xml	(.../KlantEtiket.cls.xml)	(revision 59988)
@@ -11,43 +11,14 @@
 <ReturnType>APPS.Halux.PPS.dto.ActieResultaat</ReturnType>
 <Implementation><![CDATA[
 	#dim Batch As APPS.Halux.common.Batch = ##class(APPS.Halux.common.impl.BatchService).%New().GeefBatch(BatchID)
-	#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 PrinterFactory = ##class(APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.PrinterFactory).%New()
+	#dim Printer As APPS.Halux.PPS.AansturingActie.common.KlantEtiket.Printer = ""
+	Set Printer = PrinterFactory.GeefKlantEtiketPrinter(Batch)
 	
-	If (Batch.GeefCategorie() = ##class(APPS.Halux.common.enu.Categorie).Kaderdeur()) {
-		Set KADPrinter = ##class(APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.KAD.Printer).%New()
-		Do KADPrinter.PrintKlantEtiketToDropFolder(Batch)
-	} elseIf (Batch.GeefCategorie() = ##class(APPS.Halux.common.enu.Categorie).Mat()) {
-		Set MatPrinter = ##class(APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.Mat.Printer).%New()
-		Do MatPrinter.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()
-	}
+	Set Parameters = ##class(APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.Parameters).%New(ActieParameters)
+	Do Printer.PrintKlantEtiket(Batch, Parameters)
+	Set ..ResultaatOpmerking = Printer.GeefResultaatOmschrijving()
 
 	Quit ..GeefGeslaagdAansturingResultaat()
 ]]></Implementation>