Index: APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket.cls.xml
===================================================================
diff -u -r59964 -r59967
--- APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket.cls.xml	(.../KlantEtiket.cls.xml)	(revision 59964)
+++ APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket.cls.xml	(.../KlantEtiket.cls.xml)	(revision 59967)
@@ -11,6 +11,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="EtiketPrinterFactory">
+<Type>APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.EtiketPrinterFactory</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>initvalue:%CacheString</FormalSpec>
 <Private>1</Private>
@@ -19,6 +24,7 @@
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..PrinterFactory = ##class(APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.PrinterFactory).%New()
+	Set ..EtiketPrinterFactory = ##class(APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.EtiketPrinterFactory).%New()
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -52,16 +58,8 @@
 		}
 
 		#dim KlantEtiketPrinter As APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.EtiketPrinter
-		If (Batch.GeefProductieGroep() = ##class(APPS.Halux.common.enu.ProductieGroep).Kast()) {			
-			Set KlantEtiketPrinter = ##class(APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.MaatwerkInVHOSS.EtiketPrinter).%New()
-		} Else {
-			If (Batch.GeefCategorie() = ##class(APPS.Halux.common.enu.Categorie).TAORbox()) {
-				Set KlantEtiketPrinter = ##class(APPS.Halux.PPS.impl.AansturingActie.Taorbox.KlantEtiket.Geen.EtiketPrinter).%New()
-			} Else {
-				Set KlantEtiketPrinter = ##class(APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.Maatwerk.EtiketPrinter).%New()
-			}
-		}
-		
+		Set KlantEtiketPrinter = ..EtiketPrinterFactory.GeefKlantEtiketPrinter(Batch)
+	
 		Do KlantEtiketPrinter.PrintKlantEtiket(Batch, PrintSpecifiekEtiket, ToeleveringID, Dossiercode, Aantal)
 		
 		Set ..ResultaatOpmerking = KlantEtiketPrinter.GeefResultaatOmschrijving()
@@ -125,6 +123,9 @@
 <Value name="1">
 <Value>PrinterFactory</Value>
 </Value>
+<Value name="2">
+<Value>EtiketPrinterFactory</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
Index: APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket/EtiketPrinterFactory.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket/EtiketPrinterFactory.cls.xml	(revision 0)
+++ APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket/EtiketPrinterFactory.cls.xml	(revision 59967)
@@ -0,0 +1,30 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.EtiketPrinterFactory">
+<Modified>0</Modified>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="GeefKlantEtiketPrinter">
+<FormalSpec>Batch:APPS.Halux.common.Batch</FormalSpec>
+<ReturnType>APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.Maatwerk.EtiketPrinter</ReturnType>
+<Implementation><![CDATA[
+	#dim Printer As APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.Maatwerk.EtiketPrinter = ""
+	
+	If (Batch.GeefProductieGroep() = ##class(APPS.Halux.common.enu.ProductieGroep).Kast()) {			
+		Set Printer = ##class(APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.MaatwerkInVHOSS.EtiketPrinter).%New()
+	} Else {
+		If (Batch.GeefCategorie() = ##class(APPS.Halux.common.enu.Categorie).TAORbox()) {
+			Set Printer = ##class(APPS.Halux.PPS.impl.AansturingActie.Taorbox.KlantEtiket.Geen.EtiketPrinter).%New()
+		} Else {
+			Set Printer = ##class(APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.Maatwerk.EtiketPrinter).%New()
+		}
+	}
+	
+	Quit Printer
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>