Index: vhTest/Integratie/Webshop/Offerte/IngaveTotBestelling/Test.cls.xml
===================================================================
diff -u -r35950 -r36315
--- vhTest/Integratie/Webshop/Offerte/IngaveTotBestelling/Test.cls.xml	(.../Test.cls.xml)	(revision 35950)
+++ vhTest/Integratie/Webshop/Offerte/IngaveTotBestelling/Test.cls.xml	(.../Test.cls.xml)	(revision 36315)
@@ -34,6 +34,16 @@
 <Private>1</Private>
 </Property>
 
+<Property name="Familie">
+<Type>DOM.PM.enu.Familie.AutoComplete</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Variant">
+<Type>DOM.PM.enu.Variant.AutoComplete</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="OnBeforeAllTests">
 <Implementation><![CDATA[
  	Do ##super()
@@ -58,11 +68,11 @@
 	Do ##class(TECH.Config.ConfigMgr).Instance().ZetString("APPS.EC.impl.Webshop.UrlBepaler_HaefeleBE", "http://integratietest.haefele.be", ..#Applicatie)
 	Do ##class(TECH.Config.ConfigMgr).Instance().ZetString("VhisieURL", "http://localhost/vhisie/vhisie.html", ..#Applicatie)
 
-	Do ..MaakKorting(##class(DOM.common.enu.Personality).HaefeleBE(),"hfleBE_1001MetKorting",##class(DOM.PM.enu.Familie).Lade(),##class(DOM.PM.enu.Variant).LegraboxPure(),1,0.25)
-	Do ..MaakKorting(##class(DOM.common.enu.Personality).HaefeleBE(),"hfleBE_1001MetKorting",##class(DOM.PM.enu.Familie).Lade(),##class(DOM.PM.enu.Variant).Taorbox(),1,0.25)
+	Do ..MaakKorting(..Personality.HaefeleBE, "hfleBE_1001MetKorting", ..Familie.Lade, ..Variant.LegraboxPure, 1, 0.25)
+	Do ..MaakKorting(..Personality.HaefeleBE, "hfleBE_1001MetKorting", ..Familie.Lade, ..Variant.Taorbox, 1, 0.25)
 	
-	Do ..MaakKorting(##class(DOM.common.enu.Personality).Kisch(),"kisch_1001MetKorting",##class(DOM.PM.enu.Familie).Lade(),##class(DOM.PM.enu.Variant).LegraboxPure(),1,0.10)
-	Do ..MaakKorting(##class(DOM.common.enu.Personality).Kisch(),"kisch_1001MetKorting",##class(DOM.PM.enu.Familie).Lade(),##class(DOM.PM.enu.Variant).Taorbox(),1,0.10)
+	Do ..MaakKorting(..Personality.Kisch, "kisch_1001MetKorting", ..Familie.Lade, ..Variant.LegraboxPure, 1, 0.10)
+	Do ..MaakKorting(..Personality.Kisch, "kisch_1001MetKorting", ..Familie.Lade, ..Variant.Taorbox, 1, 0.10)
 ]]></Implementation>
 </Method>
 
@@ -103,17 +113,37 @@
 <Method name="InitKlanten">
 <Private>1</Private>
 <Implementation><![CDATA[
-	do ..VoegToeKlant("SFS_1000","SFSKlant_D") do ..UpdateSFSKlantData("SFS_1000","SFS Klant_D",##class(DOM.enu.Taal).Duits())
-	do ..VoegToeKlant("SFS_1001","SFSKlant_FR") do ..UpdateSFSKlantData("SFS_1001","SFS Klant_FR",##class(DOM.enu.Taal).Frans())
-	do ..VoegToeKlant(##class(DOM.VKP.enu.Klant).RabatPrijsKlant(),"VanHoeckeKlant")
-	do ..VoegToeKlant("hfleBE_1000","HaefeleBE") do ..UpdateHaefeleBEKlantData("hfleBE_1000","HaefeleBE_Klant")
-	do ..VoegToeKlant("hfleBE_1001MetKorting","HaefeleBEMetKorting") do ..UpdateHaefeleBEKlantData("hfleBE_1001MetKorting","HaefeleBE_KlantMetKorting")
-	do ..VoegToeKlant("kisch_1000","Kisch") do ..UpdateKischKlantData("kisch_1000","Kisch_Klant",##class(DOM.enu.Taal).Nederlands(),##class(DOM.common.KischPersonality).Instance(),"test@kisch.be")
-	do ..VoegToeKlant("kisch_1001MetKorting","KischMetKorting") do ..UpdateKischKlantData("kisch_1001MetKorting","Kisch_KlantMetKorting",##class(DOM.enu.Taal).Nederlands(),##class(DOM.common.KischPersonality).Instance(),"test@kisch.be")
-	do ..VoegToeKlant("destil_1000","Destil") do ..UpdateKlantDataZonderVerificatie("destil_1000", "Destil_Klant", ##class(DOM.enu.Taal).Nederlands(), ##class(DOM.common.DestilPersonality).Instance())
-	do ..VoegToeKlant("dupont_1000","Dupont") do ..UpdateKlantDataZonderVerificatie("dupont_1000","Dupont_Klant",##class(DOM.enu.Taal).Nederlands(),##class(DOM.common.DupontPersonality).Instance())
-	do ..VoegToeKlant("raem_1000","VanRaemdonck") do ..UpdateKischKlantData("raem_1000","VanRaemdonck_Klant",##class(DOM.enu.Taal).Nederlands(),##class(DOM.common.VanRaemdonckPersonality).Instance(),"test@vanraemdonck.eu")
-	do ..VoegToeKlant("daro_1000","Daro") do ..UpdateKlantDataZonderVerificatie("daro_1000","Daro_Klant",##class(DOM.enu.Taal).Engels(),##class(DOM.common.DaroPersonality).Instance())
+	Do ..VoegToeKlant("SFS_1000", "SFSKlant_D")
+	Do ..UpdateSFSKlantData("SFS_1000", "SFS Klant_D", ..Taal.Duits)
+	
+	Do ..VoegToeKlant("SFS_1001", "SFSKlant_FR")
+	Do ..UpdateSFSKlantData("SFS_1001", "SFS Klant_FR", ..Taal.Frans)
+	
+	Do ..VoegToeKlant(##class(DOM.VKP.enu.Klant).RabatPrijsKlant(), "VanHoeckeKlant")
+	
+	Do ..VoegToeKlant("hfleBE_1000", "HaefeleBE")
+	Do ..UpdateHaefeleBEKlantData("hfleBE_1000", "HaefeleBE_Klant")
+	
+	Do ..VoegToeKlant("hfleBE_1001MetKorting", "HaefeleBEMetKorting")
+	Do ..UpdateHaefeleBEKlantData("hfleBE_1001MetKorting", "HaefeleBE_KlantMetKorting")
+	
+	Do ..VoegToeKlant("kisch_1000", "Kisch")
+	Do ..UpdateKischKlantData("kisch_1000", "Kisch_Klant", ..Taal.Nederlands, ##class(DOM.common.KischPersonality).Instance(), "test@kisch.be")
+		
+	Do ..VoegToeKlant("kisch_1001MetKorting", "KischMetKorting") 
+	Do ..UpdateKischKlantData("kisch_1001MetKorting", "Kisch_KlantMetKorting", ..Taal.Nederlands, ##class(DOM.common.KischPersonality).Instance(), "test@kisch.be")
+	
+	Do ..VoegToeKlant("destil_1000", "Destil")
+	Do ..UpdateKlantDataZonderVerificatie("destil_1000", "Destil_Klant", ..Taal.Nederlands, ##class(DOM.common.DestilPersonality).Instance())
+	
+	Do ..VoegToeKlant("dupont_1000", "Dupont")
+	Do ..UpdateKlantDataZonderVerificatie("dupont_1000", "Dupont_Klant", ..Taal.Nederlands, ##class(DOM.common.DupontPersonality).Instance())
+	
+	Do ..VoegToeKlant("raem_1000", "VanRaemdonck")
+	Do ..UpdateKischKlantData("raem_1000", "VanRaemdonck_Klant", ..Taal.Nederlands, ##class(DOM.common.VanRaemdonckPersonality).Instance(), "test@vanraemdonck.eu")
+	
+	Do ..VoegToeKlant("daro_1000", "Daro")
+	Do ..UpdateKlantDataZonderVerificatie("daro_1000", "Daro_Klant", ..Taal.Engels(), ##class(DOM.common.DaroPersonality).Instance())
 ]]></Implementation>
 </Method>
 
Index: vhTest/Integratie/WebserverKlantenPerPersonalityTemplate.cls.xml
===================================================================
diff -u -r36063 -r36315
--- vhTest/Integratie/WebserverKlantenPerPersonalityTemplate.cls.xml	(.../WebserverKlantenPerPersonalityTemplate.cls.xml)	(revision 36063)
+++ vhTest/Integratie/WebserverKlantenPerPersonalityTemplate.cls.xml	(.../WebserverKlantenPerPersonalityTemplate.cls.xml)	(revision 36315)
@@ -72,6 +72,16 @@
 <Private>1</Private>
 </Property>
 
+<Property name="Taal">
+<Type>DOM.enu.Taal.AutoComplete</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Personality">
+<Type>DOM.common.enu.Personality.AutoComplete</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="OnBeforeAllTests">
 <Implementation><![CDATA[
  	do ##super()
@@ -95,11 +105,7 @@
 <FormalSpec>PersonalityID:%String</FormalSpec>
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[
-	Quit ((PersonalityID '= ##class(DOM.common.enu.Personality).Noteborn())
-		&& (PersonalityID '= ##class(DOM.common.enu.Personality).VanHoeckeVoorHalux())
-		&& (PersonalityID '= ##class(DOM.common.enu.Personality).HaefeleNL())
-		&& (PersonalityID '= ##class(DOM.common.enu.Personality).Hein()))
+<Implementation><![CDATA[	Quit ($$$Not(PersonalityID = ..Personality.Noteborn) && $$$Not(PersonalityID = ..Personality.VanHoeckeVoorHalux) && $$$Not(PersonalityID = ..Personality.HaefeleNL) && $$$Not(PersonalityID = ..Personality.Hein))
 ]]></Implementation>
 </Method>
 
@@ -177,11 +183,11 @@
 
 <Method name="MaakVhintraSessie">
 <Implementation><![CDATA[
-	#dim Sessie As APPS.algemeen.VhintraShell.impl.Sessie = ##class(APPS.algemeen.VhintraShell.impl.Sessie).%New( ..Gebruiker.ID )
-	Do Sessie.ZetPersonalityID(##class(DOM.common.enu.Personality).VanHoecke())
+	#dim Sessie As APPS.algemeen.VhintraShell.impl.Sessie = ##class(APPS.algemeen.VhintraShell.impl.Sessie).%New(..Gebruiker.ID)
+	Do Sessie.ZetPersonalityID(..Personality.VanHoecke)
 	Do Sessie.Save()
-	#dim SessieSleutel As %String = Sessie.GeefSessieSleutel()
-	do ##class(TECH.Context.RuntimeContext).Instance().ZetSessieID(Sessie.GeefSessieSleutel())
+
+	Do ##class(TECH.Context.RuntimeContext).Instance().ZetSessieID(Sessie.GeefSessieSleutel())
 ]]></Implementation>
 </Method>
 
@@ -190,7 +196,7 @@
 <Implementation><![CDATA[
 	#dim Sessie As APPS.EC.HandelWebshopSessie = $classMethod("APPS.EC.impl."_##class(DOM.common.enu.Personality).LogicalToDisplay(..PersonalityID)_"WebshopSessie","%New",..Gebruiker.ID)
 	
-	if ..PersonalityID = ##class(DOM.common.enu.Personality).VanHoecke() { 
+	If (..PersonalityID = ..Personality.VanHoecke) { 
 		do Sessie.ZetKlantID(..KlantID)
 	} else {
 		do Sessie.ZetKlant(..KlantID,..KlantNaam)
@@ -234,7 +240,7 @@
 	#dim PersonalityIterator As TECH.ListIterator = ##class(DOM.common.enu.Personality).ValueListIterator()
 	while PersonalityIterator.HasNext() {
 		#dim PersonalityID As DOM.common.enu.Personality = PersonalityIterator.Next()
-		continue:($$$Not(..#MeerderePersonalities) && $$$Not(PersonalityID = ##class(DOM.common.enu.Personality).VanHoecke()))
+		continue:($$$Not(..#MeerderePersonalities) && $$$Not(PersonalityID = ..Personality.VanHoecke))
 		continue:($$$Not(..HeeftPersonalityEenUnishop(PersonalityID)))
 		Do ..Personalities.Insert(PersonalityID)
 	}
@@ -244,22 +250,22 @@
 <Method name="InitGebruikers">
 <Private>1</Private>
 <Implementation><![CDATA[
-	do ..VoegToeGebruiker(..GeefTestUserID(), "VanHoeckeGebruiker", ##class(DOM.enu.Taal).Nederlands())
+	Do ..VoegToeGebruiker(..GeefTestUserID(), "VanHoeckeGebruiker", ..Taal.Nederlands)
 
-	if ..#MeerdereGebruikers {
-		do ..VoegToeGebruiker("SFS_1000_1234","SFS_GebruikerD_Klant_D", ##class(DOM.enu.Taal).Duits())
-		do ..VoegToeGebruiker("SFS_1000_1235","SFS_GebruikerFR_Klant_D", ##class(DOM.enu.Taal).Duits())
-		do ..VoegToeGebruiker("SFS_1001_1234","SFS_GebruikerD_Klant_FR", ##class(DOM.enu.Taal).Frans())
-		do ..VoegToeGebruiker("SFS_1001_1235","SFS_GebruikerFR_Klant_FR", ##class(DOM.enu.Taal).Frans())
+	If (..#MeerdereGebruikers) {
+		Do ..VoegToeGebruiker("SFS_1000_1234", "SFS_GebruikerD_Klant_D", ..Taal.Duits)
+		Do ..VoegToeGebruiker("SFS_1000_1235", "SFS_GebruikerFR_Klant_D", ..Taal.Duits)
+		Do ..VoegToeGebruiker("SFS_1001_1234", "SFS_GebruikerD_Klant_FR", ..Taal.Frans)
+		Do ..VoegToeGebruiker("SFS_1001_1235", "SFS_GebruikerFR_Klant_FR", ..Taal.Frans)
 		
-		do ..VoegToeGebruiker("hfleBE_1000_1234","HaefeleBEGebruiker", ##class(DOM.enu.Taal).Nederlands())
-		do ..VoegToeGebruiker("hfleBE_1001MetKorting_1234","HaefeleBEGebruikerMetKorting", ##class(DOM.enu.Taal).Nederlands())
-		do ..VoegToeGebruiker("kisch_1000_1234","KischGebruiker", ##class(DOM.enu.Taal).Nederlands())
-		do ..VoegToeGebruiker("kisch_1001MetKorting_1234","KischGebruikerMetKorting", ##class(DOM.enu.Taal).Nederlands())
-		do ..VoegToeGebruiker("destil_1000_1234","DestilGebruiker", ##class(DOM.enu.Taal).Nederlands())
-		do ..VoegToeGebruiker("dupont_1000_1234","DupontGebruiker", ##class(DOM.enu.Taal).Nederlands())
-		do ..VoegToeGebruiker("raem_1000_1234","VanRaemdonckGebruiker", ##class(DOM.enu.Taal).Nederlands())
-		do ..VoegToeGebruiker("daro_1000_1234","DaroGebruiker", ##class(DOM.enu.Taal).Nederlands())
+		Do ..VoegToeGebruiker("hfleBE_1000_1234", "HaefeleBEGebruiker", ..Taal.Nederlands)
+		Do ..VoegToeGebruiker("hfleBE_1001MetKorting_1234", "HaefeleBEGebruikerMetKorting", ..Taal.Nederlands)
+		Do ..VoegToeGebruiker("kisch_1000_1234", "KischGebruiker", ..Taal.Nederlands)
+		Do ..VoegToeGebruiker("kisch_1001MetKorting_1234", "KischGebruikerMetKorting", ..Taal.Nederlands)
+		Do ..VoegToeGebruiker("destil_1000_1234", "DestilGebruiker", ..Taal.Nederlands)
+		Do ..VoegToeGebruiker("dupont_1000_1234", "DupontGebruiker", ..Taal.Nederlands)
+		Do ..VoegToeGebruiker("raem_1000_1234", "VanRaemdonckGebruiker", ..Taal.Nederlands)
+		Do ..VoegToeGebruiker("daro_1000_1234", "DaroGebruiker", ..Taal.Nederlands)
 	}
 ]]></Implementation>
 </Method>