Index: APPS/Halux/PPS/Document/ProductieDetailDocument/impl/TAX/DetailBladGroepenBepaler.cls.xml
===================================================================
diff -u -r29460 -r29461
--- APPS/Halux/PPS/Document/ProductieDetailDocument/impl/TAX/DetailBladGroepenBepaler.cls.xml	(.../DetailBladGroepenBepaler.cls.xml)	(revision 29460)
+++ APPS/Halux/PPS/Document/ProductieDetailDocument/impl/TAX/DetailBladGroepenBepaler.cls.xml	(.../DetailBladGroepenBepaler.cls.xml)	(revision 29461)
@@ -3,33 +3,41 @@
 <Class name="APPS.Halux.PPS.Document.ProductieDetailDocument.impl.TAX.DetailBladGroepenBepaler">
 <Super>APPS.Halux.PPS.Document.ProductieDetailDocument.impl.common.DetailBladGroepenBepaler</Super>
 
+<Property name="Groepen">
+<Type>APPS.Halux.PPS.Document.ProductieDetailDocument.impl.TAX.enu.DetailBladLayoutGroepen.AutoComplete</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="RolNaam">
+<Type>DOM.PM.Maatwerk.Calc.HF.enu.TAORRol.AutoComplete</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="GeefGroepNaamVoorRol">
 <FormalSpec>Rol:DOM.PM.Maatwerk.Calc.HF.enu.TAORRol,ProductieRoute:%String</FormalSpec>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	#Dim GroepNaam As TECH.String = ""
-	#Dim Groepen As APPS.Halux.PPS.Document.ProductieDetailDocument.impl.TAX.enu.DetailBladLayoutGroepen.AutoComplete = ##class(APPS.Halux.PPS.Document.ProductieDetailDocument.impl.TAX.enu.DetailBladLayoutGroepen.AutoComplete).%New()
-	#Dim RolNaam As DOM.PM.Maatwerk.Calc.HF.enu.TAORRol.AutoComplete = ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol.AutoComplete).%New()
+
+	If (Rol = ..RolNaam.BodemPlaat) { Set GroepNaam = ..Groepen.Bodem }
+	ElseIf (Rol = ..RolNaam.RugPlaat) { Set GroepNaam = ..Groepen.Rug }
+	ElseIf (Rol = ..RolNaam.RugWandHouder) { Set GroepNaam = ..Groepen.Rug }
+	ElseIf (Rol = ..RolNaam.LadeZijkant) { Set GroepNaam = ..Groepen.Monteren }
+	ElseIf (Rol = ..RolNaam.Glijder) { Set GroepNaam = ..Groepen.Onderdelen1 }
+	ElseIf (Rol = ..RolNaam.FrontBevestiging) { Set GroepNaam = ..Groepen.Onderdelen2 }
+	ElseIf (Rol = ..RolNaam.BodemOndersteuning) { Set GroepNaam = ..Groepen.Onderdelen2 }
+	ElseIf (Rol = ..RolNaam.TiponSynchronisatieStang) { Set GroepNaam = ..Groepen.Onderdelen2 }
+	ElseIf (Rol = ..RolNaam.TiponSynchronisatieTandwiel) { Set GroepNaam = ..Groepen.Onderdelen2 }
+	ElseIf (Rol = ..RolNaam.Zijstabilisering) { Set GroepNaam = ..Groepen.Onderdelen2 }
+	ElseIf (Rol = ..RolNaam.Opvullijst) { Set GroepNaam = ..Groepen.Onderdelen2 }
+	ElseIf (Rol [ "Probox ") { Set GroepNaam = ..Groepen.Verpakking }
+	ElseIf (Rol [ "V1 ") { Set GroepNaam = ..Groepen.Verpakking }
+	ElseIf (Rol = ..RolNaam.Front) { Set GroepNaam =  ..Groepen.NietVermelden }
+	ElseIf (Rol = ..RolNaam.Bodem) { Set GroepNaam = ..Groepen.NietVermelden }
+	ElseIf (Rol = ..RolNaam.Rug) { Set GroepNaam = ..Groepen.NietVermelden }	
+	Else { Set GroepNaam = ..Groepen.NotCategorized }
 	
-	If (Rol = RolNaam.BodemPlaat) { Set GroepNaam = Groepen.Bodem }
-	ElseIf (Rol = RolNaam.RugPlaat) { Set GroepNaam = Groepen.Rug }
-	ElseIf (Rol = RolNaam.RugWandHouder) { Set GroepNaam = Groepen.Rug }
-	ElseIf (Rol = RolNaam.LadeZijkant) { Set GroepNaam = Groepen.Monteren }
-	ElseIf (Rol = RolNaam.Glijder) { Set GroepNaam = Groepen.Onderdelen1 }
-	ElseIf (Rol = RolNaam.FrontBevestiging) { Set GroepNaam = Groepen.Onderdelen2 }
-	ElseIf (Rol = RolNaam.BodemOndersteuning) { Set GroepNaam = Groepen.Onderdelen2 }
-	ElseIf (Rol = RolNaam.TiponSynchronisatieStang) { Set GroepNaam = Groepen.Onderdelen2 }
-	ElseIf (Rol = RolNaam.TiponSynchronisatieTandwiel) { Set GroepNaam = Groepen.Onderdelen2 }
-	ElseIf (Rol = RolNaam.Zijstabilisering) { Set GroepNaam = Groepen.Onderdelen2 }
-	ElseIf (Rol = RolNaam.Opvullijst) { Set GroepNaam = Groepen.Onderdelen2 }
-	ElseIf (Rol [ "Probox ") { Set GroepNaam = Groepen.Verpakking }
-	ElseIf (Rol [ "V1 ") { Set GroepNaam = Groepen.Verpakking }
-	ElseIf (Rol = RolNaam.Front) { Set GroepNaam =  Groepen.NietVermelden }
-	ElseIf (Rol = RolNaam.Bodem) { Set GroepNaam = Groepen.NietVermelden }
-	ElseIf (Rol = RolNaam.Rug) { Set GroepNaam = Groepen.NietVermelden }	
-	Else { Set GroepNaam = Groepen.NotCategorized }
-	
 	Quit GroepNaam
 ]]></Implementation>
 </Method>