Index: CHUI/PPS/TBX/LeanBatch.cls.xml
===================================================================
diff -u -r29059 -r63470
--- CHUI/PPS/TBX/LeanBatch.cls.xml	(.../LeanBatch.cls.xml)	(revision 29059)
+++ CHUI/PPS/TBX/LeanBatch.cls.xml	(.../LeanBatch.cls.xml)	(revision 63470)
@@ -563,24 +563,24 @@
 	#dim TePrintenInVoorbereiding As %String = ..TePrintenInVoorbereiding(PrintLijst)
 	
 	#dim Opties As %String
-	if BatchType=##class(APPS.Halux.common.enu.ProductieGroep).Kast() { ; Kast
+	If BatchType=##class(APPS.Halux.common.enu.ProductieGroep).Kast() { ; Kast
 		Set Opties="F;O;R;D;M;L;K;X;I;B;G"_
-				$select(..ChkCommissie():";C",1:"")
+				$Select(..ChkCommissie():";C",1:"")
 		If TePrintenInVoorbereiding '= "" Set Opties=Opties_";"_TePrintenInVoorbereiding
 	}
-	else { ; andere BatchTypes 
-		set Opties="L;F;O;M;R;I;G;B"_
-	 		$select(..ChkCommissie():";C",1:"")
-	 	If TePrintenInVoorbereiding '= "" set Opties=Opties_";"_TePrintenInVoorbereiding
- 		if BatchType=##class(APPS.Halux.common.enu.ProductieGroep).Probox() {
-			set Opties = Opties_$select(..ProboxOverdoosEtiketStatus(PrintLijst)=##class(BL.PPS.TBX.enu.PrintStatus).Printen():";Y",1:"")
- 		} else {
-	 		set Opties = Opties _$select(..BevatSFS():";P",1:"")
+	Else { ; andere BatchTypes 
+		Set Opties="L;F;O;M;R;I;G;B"_
+	 		$Select(..ChkCommissie():";C",1:"")
+	 	If TePrintenInVoorbereiding '= "" Set Opties=Opties_";"_TePrintenInVoorbereiding
+ 		If BatchType=##class(APPS.Halux.common.enu.ProductieGroep).Probox() {
+			Set Opties = Opties_$Select(..ProboxOverdoosEtiketStatus(PrintLijst)=##class(BL.PPS.TBX.enu.PrintStatus).Printen():";Y",1:"")
+ 		} Else {
+	 		Set Opties = Opties _$Select(..BevatSFS():";P",1:"")
  		}
 	}
-	For i=1:1:$L(Opties,";") {
-		If $LF(PrintLijst,$Piece(Opties,";",i)) Set $Piece(Opties,";",i)=""
-		If $Piece(Opties,";",i)="P"&($LF(PrintLijst,"PE")!$LF(PrintLijst,"PA")) Set $Piece(Opties,";",i)=""
+	For i=1:1:$Length(Opties,";") {
+		If $ListFind(PrintLijst,$Piece(Opties,";",i)) Set $Piece(Opties,";",i)=""
+		If $Piece(Opties,";",i)="P"&($ListFind(PrintLijst,"PE")!$ListFind(PrintLijst,"PA")) Set $Piece(Opties,";",i)=""
 	}
 	Quit Opties
 ]]></Implementation>