Index: DOM/PM/Maatwerk/Calc/HF/impl/TAOR/HalffabClassNameFactory.cls.xml
===================================================================
diff -u -r31824 -r32083
--- DOM/PM/Maatwerk/Calc/HF/impl/TAOR/HalffabClassNameFactory.cls.xml	(.../HalffabClassNameFactory.cls.xml)	(revision 31824)
+++ DOM/PM/Maatwerk/Calc/HF/impl/TAOR/HalffabClassNameFactory.cls.xml	(.../HalffabClassNameFactory.cls.xml)	(revision 32083)
@@ -5,66 +5,73 @@
 <ProcedureBlock>1</ProcedureBlock>
 <Super>DOM.PM.Maatwerk.Calc.HF.HalffabClassNameFactory</Super>
 
+<Property name="Rol">
+<Type>DOM.PM.Maatwerk.Calc.HF.enu.TAORRol.AutoComplete</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Halffab.HalffabBodemPlaat", ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).BodemPlaat())
-	Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Halffab.HalffabRugPlaat", ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).RugPlaat())
-	Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Halffab.HalffabFrontPlaat", ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).FrontPlaat())
-	Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Halffab.HalffabZijkantPlaat", ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).ZijkantPlaat())
-	Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Halffab.HalffabFrontEindkap", ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).FrontEindkap())
-	Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Halffab.HalffabZijkantBestukking", ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).ZijkantBestukking())
-	Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Halffab.HalffabZijkantBestukkingVooraan", ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).ZijkantBestukkingVooraan())
-	Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Halffab.HalffabKantenBand", ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).KantenBand())
-	Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Halffab.HalffabZijkantBevestigingVeer", ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).ZijkantBevestigingVeer())
-	Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Halffab.HalffabKoppelingSchroef", ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).KoppelingSchroef())
-	Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Halffab.HalffabSetSchroeven", ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).SetSchroeven())
+	Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Halffab.HalffabBodemPlaat", ..Rol.BodemPlaat)
+	Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Halffab.HalffabRugPlaat", ..Rol.RugPlaat)
+	Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Halffab.HalffabFrontPlaat", ..Rol.FrontPlaat)
+	Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Halffab.HalffabZijkantPlaat", ..Rol.ZijkantPlaat)
+	Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Halffab.HalffabFrontEindkap", ..Rol.FrontEindkap)
+	Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Halffab.HalffabZijkantBestukking", ..Rol.ZijkantBestukking)
+	Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Halffab.HalffabZijkantBestukkingVooraan", ..Rol.ZijkantBestukkingVooraan)
+	Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Halffab.HalffabKantenBand", ..Rol.KantenBand)
+	Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Halffab.HalffabZijkantBevestigingVeer", ..Rol.ZijkantBevestigingVeer)
+	Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Halffab.HalffabKoppelingSchroef", ..Rol.KoppelingSchroef)
+	Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Halffab.HalffabSetSchroeven", ..Rol.SetSchroeven)
+	
+	
 
 	// Deze hebben geen kenmerken, alleen een method GeefOmschrijvingVoorDocs() 
-	;Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Halffab.HalffabBodemOndersteuningSchroef", ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).BodemOndersteuningSchroef())
-	;Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Halffab.HalffabFrontBevestigingSchroef", ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).FrontBevestigingSchroef())
-	;Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Halffab.HalffabRugWandHouderSchroef", ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).RugWandHouderSchroef())
+	;Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Halffab.HalffabBodemOndersteuningSchroef", ..Rol.BodemOndersteuningSchroef)
+	;Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Halffab.HalffabFrontBevestigingSchroef", ..Rol.FrontBevestigingSchroef)
+	;Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Halffab.HalffabRugWandHouderSchroef", ..Rol.RugWandHouderSchroef)
 
-	/*Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Halffab.HalffabLadeZijkant", ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).LadeZijkant())
-	Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Halffab.HalffabBodem", ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).Bodem())
-	Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Halffab.HalffabRug", ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).Rug())
-	Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Halffab.HalffabFront", ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).Front())
-	Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Halffab.HalffabGlijder", ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).Glijder())
-	Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Halffab.HalffabKoppeling", ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).Koppeling())
-	Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Halffab.HalffabFrontBevestiging", ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).FrontBevestiging())
-	Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Halffab.HalffabRugWandHouder", ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).RugWandHouder())
-	Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Halffab.HalffabTipon", ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).Tipon())
-	Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Halffab.HalffabZijstabilisering", ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).Zijstabilisering())
-	Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Halffab.HalffabDiepteVerstelling", ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).DiepteVerstelling())
-	Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Halffab.HalffabBodemOndersteuning", ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).BodemOndersteuning())
-	Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Halffab.HalffabVerpakking", ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).Verpakking())
-	Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Halffab.HalffabOpvullijst", ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).Opvullijst())
-	Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Halffab.HalffabTiponSynchronisatieTandwiel", ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).TiponSynchronisatieTandwiel())
-	Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.TAOR.HalffabLadeZijkant",##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).LadeZijkant())
-	Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Halffab.HalffabTiponSynchronisatieStang", ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).TiponSynchronisatieStang())
+	/*Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Halffab.HalffabLadeZijkant", ..Rol.LadeZijkant)
+	Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Halffab.HalffabBodem", ..Rol.Bodem)
+	Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Halffab.HalffabRug", ..Rol.Rug)
+	Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Halffab.HalffabFront", ..Rol.Front)
+	Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Halffab.HalffabGlijder", ..Rol.Glijder)
+	Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Halffab.HalffabKoppeling", ..Rol.Koppeling)
+	Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Halffab.HalffabFrontBevestiging", ..Rol.FrontBevestiging)
+	Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Halffab.HalffabRugWandHouder", ..Rol.RugWandHouder)
+	Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Halffab.HalffabTipon", ..Rol.Tipon)
+	Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Halffab.HalffabZijstabilisering", ..Rol.Zijstabilisering)
+	Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Halffab.HalffabDiepteVerstelling", ..Rol.DiepteVerstelling)
+	Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Halffab.HalffabBodemOndersteuning", ..Rol.BodemOndersteuning)
+	Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Halffab.HalffabVerpakking", ..Rol.Verpakking)
+	Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Halffab.HalffabOpvullijst", ..Rol.Opvullijst)
+	Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Halffab.HalffabTiponSynchronisatieTandwiel", ..Rol.TiponSynchronisatieTandwiel)
+	Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.TAOR.HalffabLadeZijkant",..Rol.LadeZijkant)
+	Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Halffab.HalffabTiponSynchronisatieStang", ..Rol.TiponSynchronisatieStang)
 	*/
-	Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.TAOR.HalffabBodem",##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).Bodem())
-	;Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.TAOR.HalffabRug",##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).Rug())
-	Do ..KlasseNamen.SetAt("", ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).Front())
-	Do ..KlasseNamen.SetAt("", ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).ZijkantLinks())
-	Do ..KlasseNamen.SetAt("", ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).ZijkantRechts())
-	Do ..KlasseNamen.SetAt("", ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).Rug())
-	Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.TAOR.HalffabGlijder",##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).Glijder())
-	Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.TAOR.HalffabKoppeling",##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).Koppeling())
-	Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.TAOR.HalffabRugWandHouder",##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).RugWandHouder())
-	Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.TAOR.HalffabFrontBevestiging",##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).FrontBevestiging())
-	Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.TAOR.HalffabTipon",##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).Tipon())
-	Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.TAOR.HalffabZijstabilisering",##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).Zijstabilisering())
-	Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.TAOR.HalffabDiepteVerstelling",##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).DiepteVerstelling())
-	Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.TAOR.HalffabBodemOndersteuning",##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).BodemOndersteuning())
-	Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.TAOR.HalffabVerpakking",##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).Verpakking())
-	Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.TAOR.HalffabOpvullijst",##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).Opvullijst())
-	Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.TAOR.HalffabTiponSynchronisatieTandwiel",##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).TiponSynchronisatieTandwiel())
-	Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.TAOR.HalffabTiponSynchronisatieStang",##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).TiponSynchronisatieStang())
-	Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Halffab.HalffabAfdekkapBoven", ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).AfdekkapBoven())
-	Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Halffab.HalffabHulsInsteekpenGeleider", ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).HulsInsteekpenGeleider())
+	Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.TAOR.HalffabBodem",..Rol.Bodem)
+	;Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.TAOR.HalffabRug",..Rol.Rug)
+	Do ..KlasseNamen.SetAt("", ..Rol.Front)
+	Do ..KlasseNamen.SetAt("", ..Rol.ZijkantLinks)
+	Do ..KlasseNamen.SetAt("", ..Rol.ZijkantRechts)
+	Do ..KlasseNamen.SetAt("", ..Rol.Rug)
+	Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.TAOR.HalffabGlijder",..Rol.Glijder)
+	Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.TAOR.HalffabKoppeling",..Rol.Koppeling)
+	Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.TAOR.HalffabRugWandHouder",..Rol.RugWandHouder)
+	Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.TAOR.HalffabFrontBevestiging",..Rol.FrontBevestiging)
+	Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.TAOR.HalffabTipon",..Rol.Tipon)
+	Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.TAOR.HalffabZijstabilisering",..Rol.Zijstabilisering)
+	Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.TAOR.HalffabDiepteVerstelling",..Rol.DiepteVerstelling)
+	Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.TAOR.HalffabBodemOndersteuning",..Rol.BodemOndersteuning)
+	Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.TAOR.HalffabVerpakking",..Rol.Verpakking)
+	Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.TAOR.HalffabOpvullijst",..Rol.Opvullijst)
+	Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.TAOR.HalffabTiponSynchronisatieTandwiel",..Rol.TiponSynchronisatieTandwiel)
+	Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.TAOR.HalffabTiponSynchronisatieStang",..Rol.TiponSynchronisatieStang)
+	Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Halffab.HalffabAfdekkapBoven", ..Rol.AfdekkapBoven)
+	Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Halffab.HalffabHulsInsteekpenGeleider", ..Rol.HulsInsteekpenGeleider)
 	
 	Quit $$$OK
 ]]></Implementation>