Index: APPS/Halux/PPS/impl/AansturingActie/Taorbox/KlantEtiket/Geen/EtiketPrinter.cls.xml
===================================================================
diff -u -r59963 -r59971
--- APPS/Halux/PPS/impl/AansturingActie/Taorbox/KlantEtiket/Geen/EtiketPrinter.cls.xml	(.../EtiketPrinter.cls.xml)	(revision 59963)
+++ APPS/Halux/PPS/impl/AansturingActie/Taorbox/KlantEtiket/Geen/EtiketPrinter.cls.xml	(.../EtiketPrinter.cls.xml)	(revision 59971)
@@ -16,8 +16,12 @@
 </Method>
 
 <Method name="PrintKlantEtiket">
-<FormalSpec>Batch:APPS.Halux.common.Batch,PrintSpecifiekEtiket:%Boolean,GewensteToeleveringID:%String,GewensteDossiercode:%String,GewenstAantal:%Integer</FormalSpec>
+<FormalSpec>Batch:APPS.Halux.common.Batch,Parameters:APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.Parameters</FormalSpec>
 </Method>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+</Storage>
 </Class>
 
 
Index: APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket/EtiketPrinter.cls.xml
===================================================================
diff -u -r59962 -r59971
--- APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket/EtiketPrinter.cls.xml	(.../EtiketPrinter.cls.xml)	(revision 59962)
+++ APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket/EtiketPrinter.cls.xml	(.../EtiketPrinter.cls.xml)	(revision 59971)
@@ -55,12 +55,12 @@
 </Method>
 
 <Method name="PrintKlantEtiket">
-<FormalSpec>Batch:APPS.Halux.common.Batch,PrintSpecifiekEtiket:%Boolean,GewensteToeleveringID:%String,GewensteDossiercode:%String,GewenstAantal:%Integer</FormalSpec>
+<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, PrintSpecifiekEtiket, GewensteToeleveringID, GewensteDossiercode, GewenstAantal)
+	Do ..BepaalEtiketten(Batch, Parameters.IsSpecifiekEtiket(), Parameters.GeefToeleveringID(), Parameters.GeefDossiercode(), Parameters.GeefAantal())
 	Do:(..TussenEtiketNodig()) ..VoegToeTussenEtiketten()
 	Do ..VoegToeEtiketten()
 	Do ..blLabelPrinter.Print2Bartender()
@@ -219,6 +219,10 @@
 <Implementation><![CDATA[	Quit "Aantal klantetiketten: '" _ ..Etiketten.Count() _ "'."
 ]]></Implementation>
 </Method>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+</Storage>
 </Class>
 
 
Index: APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket.cls.xml
===================================================================
diff -u -r59970 -r59971
--- APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket.cls.xml	(.../KlantEtiket.cls.xml)	(revision 59970)
+++ APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket.cls.xml	(.../KlantEtiket.cls.xml)	(revision 59971)
@@ -43,10 +43,10 @@
 		Do DropBoxPrinter.PrintKlantEtiketToDropFolder(Batch)
 	} Else {
 		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, Parameters.IsSpecifiekEtiket(), Parameters.GeefToeleveringID(), Parameters.GeefDossiercode(), Parameters.GeefAantal())
+
+		Do KlantEtiketPrinter.PrintKlantEtiket(Batch, Parameters)
 		
 		Set ..ResultaatOpmerking = KlantEtiketPrinter.GeefResultaatOmschrijving()
 	}