Index: APPS/Halux/Opvolging/ProductieStap/TAOR/impl/CopieerSpoelbakExtras.cls.xml
===================================================================
diff -u -r69342 -r69386
--- APPS/Halux/Opvolging/ProductieStap/TAOR/impl/CopieerSpoelbakExtras.cls.xml	(.../CopieerSpoelbakExtras.cls.xml)	(revision 69342)
+++ APPS/Halux/Opvolging/ProductieStap/TAOR/impl/CopieerSpoelbakExtras.cls.xml	(.../CopieerSpoelbakExtras.cls.xml)	(revision 69386)
@@ -179,27 +179,28 @@
 <FormalSpec>VerwerkingID:%String,OnderdeelArdis:%String,ExtraCode:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	#dim Onderdeel as %String =""
+	#dim Onderdeel as %String = ""
 	
 	If (OnderdeelArdis="ZijkantPlaat") 
 	{
 		#dim Suffix As %String = "xx"
+		#dim LinksRechtsCode As %String = $Extract(VerwerkingID,6)
 		
-		If (($E(VerwerkingID,6) = "L") || ($E(VerwerkingID,6) = "A") || ($E(VerwerkingID,6) = "X")) {
+		If ((LinksRechtsCode = "L") || (LinksRechtsCode = "A") || (LinksRechtsCode = "X")) {
 			Set Suffix = "Li"
-		} ElseIf (($E(VerwerkingID,6) = "R") || ($E(VerwerkingID,6) = "B") || ($E(VerwerkingID,6) = "Y")) {
+		} ElseIf ((LinksRechtsCode = "R") || (LinksRechtsCode = "B") || (LinksRechtsCode = "Y")) {
 			Set Suffix = "Re"
-		} ElseIf (($E(VerwerkingID,6) = "C") || ($E(VerwerkingID,6) = "E") || ($E(VerwerkingID,6) = "G")) {
+		} ElseIf ((LinksRechtsCode = "C") || (LinksRechtsCode = "E") || (LinksRechtsCode = "G")) {
 			Set Suffix = "LiS"
-		} ElseIf (($E(VerwerkingID,6) = "D") || ($E(VerwerkingID,6) = "F") || ($E(VerwerkingID,6) = "H")) {
+		} ElseIf ((LinksRechtsCode = "D") || (LinksRechtsCode = "F") || (LinksRechtsCode = "H")) {
 			Set Suffix = "ReS"
 		}
 		
-		Set Onderdeel="Zijkant " _ Suffix
+		Set Onderdeel = "Zijkant " _ Suffix
 	}
 	ElseIf (OnderdeelArdis="Rug") && (ExtraCode="SPR")
 	{
-		Set Onderdeel="Rug"
+		Set Onderdeel = "Rug"
 	}
 	Quit Onderdeel
 ]]></Implementation>
Index: APPS/Halux/Opvolging/ProductieStap/TAOR/impl/CopieerBatch.cls.xml
===================================================================
diff -u -r69342 -r69386
--- APPS/Halux/Opvolging/ProductieStap/TAOR/impl/CopieerBatch.cls.xml	(.../CopieerBatch.cls.xml)	(revision 69342)
+++ APPS/Halux/Opvolging/ProductieStap/TAOR/impl/CopieerBatch.cls.xml	(.../CopieerBatch.cls.xml)	(revision 69386)
@@ -146,23 +146,26 @@
 <Method name="BepaalOnderdeel">
 <Private>1</Private>
 <Implementation><![CDATA[
-	Set Onderdeel=..InfoItem.OptimalisatieData.Rol
-	If Onderdeel="ZijkantPlaat"
+	#dim Onderdeel As %String = ..InfoItem.OptimalisatieData.Rol
+	
+	If Onderdeel = "ZijkantPlaat"
 	{
 		#dim Suffix As %String = "xx"
+		#dim LinksRechtsCode As %String = $Extract(..InfoItem.VerwerkingID,6)
 		
-		If (($E(..InfoItem.VerwerkingID,6) = "L") || ($E(..InfoItem.VerwerkingID,6) = "A") || ($E(..InfoItem.VerwerkingID,6) = "X")) {
+		If ((LinksRechtsCode = "L") || (LinksRechtsCode = "A") || (LinksRechtsCode = "X")) {
 			Set Suffix = "Li"
-		} ElseIf (($E(..InfoItem.VerwerkingID,6) = "R") || ($E(..InfoItem.VerwerkingID,6) = "B") || ($E(..InfoItem.VerwerkingID,6) = "Y")) {
+		} ElseIf ((LinksRechtsCode = "R") || (LinksRechtsCode = "B") || (LinksRechtsCode = "Y")) {
 			Set Suffix = "Re"
-		} ElseIf (($E(..InfoItem.VerwerkingID,6) = "C") || ($E(..InfoItem.VerwerkingID,6) = "E") || ($E(..InfoItem.VerwerkingID,6) = "G")) {
+		} ElseIf ((LinksRechtsCode = "C") || (LinksRechtsCode = "E") || (LinksRechtsCode = "G")) {
 			Set Suffix = "LiS"
-		} ElseIf (($E(..InfoItem.VerwerkingID,6) = "D") || ($E(..InfoItem.VerwerkingID,6) = "F") || ($E(..InfoItem.VerwerkingID,6) = "H")) {
+		} ElseIf ((LinksRechtsCode = "D") || (LinksRechtsCode = "F") || (LinksRechtsCode = "H")) {
 			Set Suffix = "ReS"
 		}
 		
-		Set Onderdeel="Zijkant " _ Suffix
+		Set Onderdeel = "Zijkant " _ Suffix
 	}
+	
 	Quit Onderdeel
 ]]></Implementation>
 </Method>