Index: APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket.cls.xml
===================================================================
diff -u -r30546 -r32572
--- APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket.cls.xml	(.../KlantEtiket.cls.xml)	(revision 30546)
+++ APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket.cls.xml	(.../KlantEtiket.cls.xml)	(revision 32572)
@@ -11,30 +11,31 @@
 <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 {
+	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)		
 	}
-	If Batch.GeefCategorie() = ##class(APPS.Halux.common.enu.Categorie).Kaderdeur() {
+	
+	If (Batch.GeefCategorie() = ##class(APPS.Halux.common.enu.Categorie).Kaderdeur()) {
 		Do ..PrintKADKlantEtiket(Batch)
 	} Else {
 		#dim KlantEtiketPrinter As APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.Template
-		if Batch.GeefProductieGroep() = ##class(APPS.Halux.common.enu.ProductieGroep).Kast() {
+		
+		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() {
-				If ..IsTAXMetAssemblageKar(Batch) {
+		} Else {
+			If (Batch.GeefCategorie() = ##class(APPS.Halux.common.enu.Categorie).TAORbox()) {
+				If (..IsTAXMetAssemblageKar(Batch)) {
 					Set KlantEtiketPrinter = ##class(APPS.Halux.PPS.impl.AansturingActie.Taorbox.KlantEtiket.Gemonteerd.EtiketPrinter).%New()
 				} Else {
 					Set KlantEtiketPrinter = ##class(APPS.Halux.PPS.impl.AansturingActie.Taorbox.KlantEtiket.OnGemonteerd.EtiketPrinter).%New()
@@ -43,10 +44,13 @@
 				Set KlantEtiketPrinter = ##class(APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.MaatwerkEtiketPrinter).%New()
 			}
 		}
-		Do KlantEtiketPrinter.PrintKlantEtiket(Batch,PrintSpecifiekEtiket,ToeleveringID,Dossiercode,Aantal)
+		
+		Do KlantEtiketPrinter.PrintKlantEtiket(Batch, PrintSpecifiekEtiket, ToeleveringID, Dossiercode, Aantal)
+		
 		Set ..ResultaatOpmerking = KlantEtiketPrinter.GeefResultaatOmschrijving()
 	}
-	quit ..GeefGeslaagdAansturingResultaat()
+
+	Quit ..GeefGeslaagdAansturingResultaat()
 ]]></Implementation>
 </Method>
 
@@ -64,22 +68,23 @@
 <Implementation><![CDATA[
 	#dim Parameters As List Of APPS.common.Actie.dto.ActieParameter = ##super()
 	
-	if $length(BatchID) {
+	If ($length(BatchID)) {
 		#dim Batch As APPS.Halux.common.Batch = ##class(APPS.Halux.common.impl.BatchService).%New().GeefBatch(BatchID)
 		Set Parameter = ##class(APPS.common.Actie.dto.EnumerationActieParameter).%New("")
 		Set Parameter.Type = ##class(APPS.common.Actie.enu.Type).Enumeratie()
 		
 		#dim Toeleveringen As %ListOfDataTypes = ##class(TECH.ListUtils).CopyListOfDataTypes(Batch.GeefToeleveringen())
-		do ##class(TECH.Algo.Sort.InsertionSort).Sort(Toeleveringen,##class(TECH.Comparator.StringComparator).%New())
-		set Parameter.ActueleWaarden = Toeleveringen
-		set Parameter.DisplayWaarden = Toeleveringen
-	} else {
+		Do ##class(TECH.Algo.Sort.InsertionSort).Sort(Toeleveringen,##class(TECH.Comparator.StringComparator).%New())
+		Set Parameter.ActueleWaarden = Toeleveringen
+		Set Parameter.DisplayWaarden = Toeleveringen
+	} Else {
 		Set Parameter = ##class(APPS.common.Actie.dto.ActieParameter).%New()
 		Set Parameter.Type = ##class(APPS.common.Actie.enu.Type).Text()
 	}
-	set Parameter.Prompt = "Toelevering:"
-	do Parameters.Insert(Parameter)
 	
+	Set Parameter.Prompt = "Toelevering:"
+	Do Parameters.Insert(Parameter)
+	
 	Set Parameter = ##class(APPS.common.Actie.dto.ActieParameter).%New()
 	Set Parameter.Type = ##class(APPS.common.Actie.enu.Type).Text()
 	Set Parameter.Prompt = "Dossiercode:"