Index: APPS/Halux/PPS/impl/AansturingActie/Taorbox/KlantEtiket/Geen/EtiketPrinter.cls.xml
===================================================================
diff -u -r59971 -r59977
--- APPS/Halux/PPS/impl/AansturingActie/Taorbox/KlantEtiket/Geen/EtiketPrinter.cls.xml	(.../EtiketPrinter.cls.xml)	(revision 59971)
+++ APPS/Halux/PPS/impl/AansturingActie/Taorbox/KlantEtiket/Geen/EtiketPrinter.cls.xml	(.../EtiketPrinter.cls.xml)	(revision 59977)
@@ -13,6 +13,7 @@
 
 <Method name="BepaalEtiketten">
 <FormalSpec>Batch:APPS.Halux.common.Batch,PrintSpecifiekEtiket:%Boolean,GewensteToeleveringID:%String,GewensteDossiercode:%String,GewenstAantal:%Integer</FormalSpec>
+<Private>1</Private>
 </Method>
 
 <Method name="PrintKlantEtiket">
Index: APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket/EtiketPrinter.cls.xml
===================================================================
diff -u -r59971 -r59977
--- APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket/EtiketPrinter.cls.xml	(.../EtiketPrinter.cls.xml)	(revision 59971)
+++ APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket/EtiketPrinter.cls.xml	(.../EtiketPrinter.cls.xml)	(revision 59977)
@@ -4,7 +4,7 @@
 <ClassType>persistent</ClassType>
 <Modified>0</Modified>
 <ProcedureBlock>1</ProcedureBlock>
-<Super>APPS.Halux.PPS.impl.AansturingActie</Super>
+<Super>APPS.Halux.PPS.impl.AansturingActie,APPS.Halux.PPS.AansturingActie.common.KlantEtiket.Printer</Super>
 
 <Property name="Batch">
 <Type>APPS.Halux.common.Batch</Type>
@@ -31,6 +31,25 @@
 <Transient>1</Transient>
 </Property>
 
+<Method name="PrintKlantEtiket">
+<FormalSpec>Batch:APPS.Halux.common.Batch,Parameters:APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.Parameters</FormalSpec>
+<Implementation><![CDATA[
+	Set ..DueOutFormatter = ##class(APPS.Halux.PPS.impl.BatchDueOutFormatter).%New()
+	Set ..blLabelPrinter = ##class(BL.Sys.LabelPrinter).%New()
+	
+	Do ..BepaalEtiketten(Batch, Parameters.IsSpecifiekEtiket(), Parameters.GeefToeleveringID(), Parameters.GeefDossiercode(), Parameters.GeefAantal())
+	Do:(..TussenEtiketNodig()) ..VoegToeTussenEtiketten()
+	Do ..VoegToeEtiketten()
+	Do ..blLabelPrinter.Print2Bartender()
+]]></Implementation>
+</Method>
+
+<Method name="GeefResultaatOmschrijving">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit "Aantal klantetiketten: '" _ ..Etiketten.Count() _ "'."
+]]></Implementation>
+</Method>
+
 <Method name="GeefEtiket">
 <Abstract>1</Abstract>
 <FormalSpec>QueueID:%String,BatchID:%String,ToeleveringID:%String,ToeleveringLijnID:%String,AantalEtiketten:%Integer,VoorkeurPrinter:%String</FormalSpec>
@@ -54,21 +73,9 @@
 <Implementation><![CDATA[]]></Implementation>
 </Method>
 
-<Method name="PrintKlantEtiket">
-<FormalSpec>Batch:APPS.Halux.common.Batch,Parameters:APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.Parameters</FormalSpec>
-<Implementation><![CDATA[
-	Set ..DueOutFormatter = ##class(APPS.Halux.PPS.impl.BatchDueOutFormatter).%New()
-	Set ..blLabelPrinter = ##class(BL.Sys.LabelPrinter).%New()
-	
-	Do ..BepaalEtiketten(Batch, Parameters.IsSpecifiekEtiket(), Parameters.GeefToeleveringID(), Parameters.GeefDossiercode(), Parameters.GeefAantal())
-	Do:(..TussenEtiketNodig()) ..VoegToeTussenEtiketten()
-	Do ..VoegToeEtiketten()
-	Do ..blLabelPrinter.Print2Bartender()
-]]></Implementation>
-</Method>
-
 <Method name="BepaalEtiketten">
 <FormalSpec>Batch:APPS.Halux.common.Batch,PrintSpecifiekEtiket:%Boolean,GewensteToeleveringID:%String,GewensteDossiercode:%String,GewenstAantal:%Integer</FormalSpec>
+<Private>1</Private>
 <Implementation><![CDATA[
 	#dim ToeleveringAPI As DOM.AKP.ToeleveringAPI = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI()
 	#dim VoorkeurPrinter As %String = "HALUX"	
@@ -150,6 +157,7 @@
 </Method>
 
 <Method name="VoegToeTussenEtiketten">
+<Private>1</Private>
 <Implementation><![CDATA[
 	#dim VorigTriggerKeyList As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
 	#dim i As TECH.Integer = 1
@@ -214,12 +222,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefResultaatOmschrijving">
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit "Aantal klantetiketten: '" _ ..Etiketten.Count() _ "'."
-]]></Implementation>
-</Method>
-
 <Storage name="Default">
 <Type>%Library.CacheStorage</Type>
 </Storage>
Index: APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket.cls.xml
===================================================================
diff -u -r59974 -r59977
--- APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket.cls.xml	(.../KlantEtiket.cls.xml)	(revision 59974)
+++ APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket.cls.xml	(.../KlantEtiket.cls.xml)	(revision 59977)
@@ -13,22 +13,21 @@
 	#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())
+	#dim Printer As APPS.Halux.PPS.AansturingActie.common.KlantEtiket.Printer = ""
+	Set Printer = PrinterFactory.GeefKlantEtiketPrinter(Batch.GeefCategorie())
 	
-	If (..IsDropBoxPrinter(DropBoxPrinter)) {
+	If (..IsDropBoxPrinter(Printer)) {
 
-		Do DropBoxPrinter.PrintKlantEtiket(Batch)
-		Set ..ResultaatOpmerking = DropBoxPrinter.GeefResultaatOmschrijving()
+		Do Printer.PrintKlantEtiket(Batch)
+		Set ..ResultaatOpmerking = Printer.GeefResultaatOmschrijving()
 
 	} 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 Printer = EtiketPrinterFactory.GeefKlantEtiketPrinter(Batch)
 
-		Do KlantEtiketPrinter.PrintKlantEtiket(Batch, Parameters)
-		Set ..ResultaatOpmerking = KlantEtiketPrinter.GeefResultaatOmschrijving()
+		Do Printer.PrintKlantEtiket(Batch, Parameters)
+		Set ..ResultaatOpmerking = Printer.GeefResultaatOmschrijving()
 	} 
 
 	Quit ..GeefGeslaagdAansturingResultaat()
Index: APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket/Printer.cls.xml
===================================================================
diff -u -r59973 -r59977
--- APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket/Printer.cls.xml	(.../Printer.cls.xml)	(revision 59973)
+++ APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket/Printer.cls.xml	(.../Printer.cls.xml)	(revision 59977)
@@ -3,7 +3,7 @@
 <Class name="APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.Printer">
 <Modified>0</Modified>
 <ProcedureBlock>1</ProcedureBlock>
-<Super>TECH.RegisteredObject</Super>
+<Super>APPS.Halux.PPS.AansturingActie.common.KlantEtiket.Printer</Super>
 
 <Method name="PrintKlantEtiket">
 <FormalSpec>Batch:APPS.Halux.common.Batch</FormalSpec>
@@ -38,6 +38,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefResultaatOmschrijving">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
 <Method name="GeefLijnAantal">
 <Abstract>1</Abstract>
 <FormalSpec>Lijn:DOM.AKP.ProductToeleveringLijn</FormalSpec>
@@ -51,12 +57,6 @@
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 </Method>
-
-<Method name="GeefResultaatOmschrijving">
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit ""
-]]></Implementation>
-</Method>
 </Class>