Index: APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket.cls.xml
===================================================================
diff -u -r59971 -r59972
--- APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket.cls.xml	(.../KlantEtiket.cls.xml)	(revision 59971)
+++ APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket.cls.xml	(.../KlantEtiket.cls.xml)	(revision 59972)
@@ -6,45 +6,23 @@
 <ProcedureBlock>1</ProcedureBlock>
 <Super>APPS.Halux.PPS.impl.AansturingActie</Super>
 
-<Property name="PrinterFactory">
-<Type>APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.PrinterFactory</Type>
-<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>
-<ProcedureBlock>1</ProcedureBlock>
-<ReturnType>%Status</ReturnType>
-<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>
-</Method>
-
 <Method name="VoerUit">
 <FormalSpec>BatchID:%String,ActieParameters:%ListOfDataTypes</FormalSpec>
 <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)
 	
+	Set PrinterFactory = ##class(APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.PrinterFactory).%New()
 	#dim DropBoxPrinter As APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.Printer = ""
-	Set DropBoxPrinter = ..PrinterFactory.GeefKlantEtiketPrinter(Batch.GeefCategorie())
+	Set DropBoxPrinter = PrinterFactory.GeefKlantEtiketPrinter(Batch.GeefCategorie())
 	
 	If (..IsDropBoxPrinter(DropBoxPrinter)) {
 		Do DropBoxPrinter.PrintKlantEtiketToDropFolder(Batch)
 	} Else {
+		Set EtiketPrinterFactory = ##class(APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.EtiketPrinterFactory).%New()
 		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)
+		Set KlantEtiketPrinter = EtiketPrinterFactory.GeefKlantEtiketPrinter(Batch)
 
 		Do KlantEtiketPrinter.PrintKlantEtiket(Batch, Parameters)