Index: vhUnitTest/APPS/EC/InterneConfiguratorService/GeefDomeinVoorIngegevenKenmerken/TAOR/Test.cls.xml
===================================================================
diff -u -r29344 -r29645
--- vhUnitTest/APPS/EC/InterneConfiguratorService/GeefDomeinVoorIngegevenKenmerken/TAOR/Test.cls.xml	(.../Test.cls.xml)	(revision 29344)
+++ vhUnitTest/APPS/EC/InterneConfiguratorService/GeefDomeinVoorIngegevenKenmerken/TAOR/Test.cls.xml	(.../Test.cls.xml)	(revision 29645)
@@ -13,6 +13,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="Rol">
+<Type>DOM.PM.Maatwerk.Calc.HF.enu.TAORRol.AutoComplete</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="OnBeforeAllTests">
 <Implementation><![CDATA[
 	Do ##super()
@@ -31,13 +36,13 @@
 	#Dim Waarden As %ListOfDataTypes = ..KenmerkMogelijkheden.MogelijkeWaarden.GetAt(##class(DOM.PM.enu.TAORKenmerkNaam).NietMeeleveren()).Waarden
 	#Dim VerwachteWaarden As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
 	
-	Do VerwachteWaarden.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).BodemOndersteuning())
-	Do VerwachteWaarden.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).FrontBevestiging())
-	Do VerwachteWaarden.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).Glijder())
-	Do VerwachteWaarden.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).Koppeling())
-	Do VerwachteWaarden.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).TiponSynchronisatieStang())
-	Do VerwachteWaarden.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).Opvullijst())
-	Do VerwachteWaarden.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).AfdekkapBoven())
+	Do VerwachteWaarden.Insert(..Rol.BodemOndersteuning)
+	Do VerwachteWaarden.Insert(..Rol.FrontBevestiging)
+	Do VerwachteWaarden.Insert(..Rol.Glijder)
+	Do VerwachteWaarden.Insert(..Rol.Koppeling)
+	Do VerwachteWaarden.Insert(..Rol.TiponSynchronisatieStang)
+	Do VerwachteWaarden.Insert(..Rol.Opvullijst)
+	Do VerwachteWaarden.Insert(..Rol.AfdekkapBoven)
 	
 	Do $$$AssertEqualsList(Waarden, VerwachteWaarden)
 ]]></Implementation>
Index: vhUnitTest/APPS/EC/WebshopConfiguratorService/GeefDomeinVoorIngegevenKenmerken/TAOR/Test.cls.xml
===================================================================
diff -u -r29220 -r29645
--- vhUnitTest/APPS/EC/WebshopConfiguratorService/GeefDomeinVoorIngegevenKenmerken/TAOR/Test.cls.xml	(.../Test.cls.xml)	(revision 29220)
+++ vhUnitTest/APPS/EC/WebshopConfiguratorService/GeefDomeinVoorIngegevenKenmerken/TAOR/Test.cls.xml	(.../Test.cls.xml)	(revision 29645)
@@ -13,16 +13,21 @@
 <Private>1</Private>
 </Property>
 
+<Property name="Rol">
+<Type>DOM.PM.Maatwerk.Calc.HF.enu.TAORRol.AutoComplete</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="OnBeforeAllTests">
 <Implementation><![CDATA[
 	Do ##super()
 	
 	#Dim TAORKenmerken As APPS.PM.Maatwerk.dto.TAORKenmerken = ##class(APPS.PM.Maatwerk.dto.TAORKenmerken).%New()
 	#Dim Klant As DOM.VKP.VanHoeckeKlant = ##class(vhTest.Data.DOM.VKP.VanHoeckeKlant).MaakBelgischeOnderneming()
-	#Dim Personality As DOM.common.impl.Personality =##class(DOM.common.VanHoeckePersonality).Instance()
+	#Dim Personality As DOM.common.impl.Personality = ##class(DOM.common.VanHoeckePersonality).Instance()
 	
 	Set ..ConfiguratorService = ##class(APPS.EC.impl.ConfiguratorService.WebshopConfiguratorService).%New()
-	Set ..KenmerkMogelijkheden  = ..ConfiguratorService.GeefDomeinVoorIngegevenKenmerken(TAORKenmerken, Klant, Personality)
+	Set ..KenmerkMogelijkheden = ..ConfiguratorService.GeefDomeinVoorIngegevenKenmerken(TAORKenmerken, Klant, Personality)
 ]]></Implementation>
 </Method>
 
@@ -31,8 +36,8 @@
 	#Dim Waarden As %ListOfDataTypes = ..KenmerkMogelijkheden.MogelijkeWaarden.GetAt(##class(DOM.PM.enu.TAORKenmerkNaam).NietMeeleveren()).Waarden
 	#Dim VerwachteWaarden As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
 
-	Do VerwachteWaarden.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).FrontBevestiging())
-	Do VerwachteWaarden.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).Glijder())
+	Do VerwachteWaarden.Insert(..Rol.FrontBevestiging)
+	Do VerwachteWaarden.Insert(..Rol.Glijder)
 
 	Do $$$AssertEqualsList(Waarden, VerwachteWaarden)
 ]]></Implementation>