Index: APPS/EC/impl/VerkoopPrijsBepaler.cls.xml
===================================================================
diff -u -r29059 -r33450
--- APPS/EC/impl/VerkoopPrijsBepaler.cls.xml	(.../VerkoopPrijsBepaler.cls.xml)	(revision 29059)
+++ APPS/EC/impl/VerkoopPrijsBepaler.cls.xml	(.../VerkoopPrijsBepaler.cls.xml)	(revision 33450)
@@ -71,7 +71,7 @@
 <ReturnType>DOM.common.PartijID</ReturnType>
 <Implementation><![CDATA[
 	#dim Personality As DOM.common.Personality = ##class(DOM.DomeinContext).Instance().GeefCommonAPI().GeefPersonality(PersonalityID)
-	Quit ##class(APPS.EC.Winkelkar.WinkelkarService.impl.KlantBepaler).%New().GeefKlantID(Personality,KlantID)
+	Quit ##class(DOM.common.impl.PersonalityKlantBepaler).%New().GeefKlantID(Personality,KlantID)
 ]]></Implementation>
 </Method>
 </Class>
Index: DOM/common/impl/KlantBepaler.cls.xml
===================================================================
diff -u -r29059 -r33450
--- DOM/common/impl/KlantBepaler.cls.xml	(.../APPS/EC/Winkelkar/WinkelkarService/impl/KlantBepaler.cls.xml)	(revision 29059)
+++ DOM/common/impl/KlantBepaler.cls.xml	(.../DOM/common/impl/PersonalityKlantBepaler.cls.xml)	(revision 33450)
@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
-<Class name="APPS.EC.Winkelkar.WinkelkarService.impl.KlantBepaler">
+<Class name="DOM.common.impl.PersonalityKlantBepaler">
 <Super>DOM.common.VanHoeckeOfAnderePersonalityVisitor</Super>
 
 <Property name="KlantIDVanVHKlant">
@@ -32,7 +32,7 @@
 <Method name="VerwerkAnderePersonality">
 <FormalSpec>Personality:DOM.common.Personality</FormalSpec>
 <Private>1</Private>
-<Implementation><![CDATA[	Set ..KlantIDVanVHKlant=Personality.GeefKlantID()
+<Implementation><![CDATA[	Set ..KlantIDVanVHKlant = Personality.GeefKlantID()
 ]]></Implementation>
 </Method>
 </Class>
Index: APPS/EC/Winkelkar/impl/WinkelkarService.cls.xml
===================================================================
diff -u -r33279 -r33450
--- APPS/EC/Winkelkar/impl/WinkelkarService.cls.xml	(.../WinkelkarService.cls.xml)	(revision 33279)
+++ APPS/EC/Winkelkar/impl/WinkelkarService.cls.xml	(.../WinkelkarService.cls.xml)	(revision 33450)
@@ -481,7 +481,7 @@
  /*
 	#dim ConfiguratorService As APPS.EC.impl.ConfiguratorService.ConfiguratorServiceTemplate = ..GeefConfiguratorService(Winkelkar)
 	#dim Personality As DOM.common.Personality = Winkelkar.GeefPersonality()
-	#dim KlantIDVoorKenmerkkMogelijkheden As DOM.common.PartijID = ##class(APPS.EC.Winkelkar.WinkelkarService.impl.KlantBepaler).%New().GeefKlantID(Personality,Winkelkar.GeefKlantID())
+	#dim KlantIDVoorKenmerkkMogelijkheden As DOM.common.PartijID = ##class(DOM.common.impl.PersonalityKlantBepaler).%New().GeefKlantID(Personality,Winkelkar.GeefKlantID())
 	#dim Klant As DOM.VKP.VanHoeckeKlant = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().GeefKlant(KlantIDVoorKenmerkkMogelijkheden)
 	
 	Try {
Index: WS/EC/WebshopConfiguratorService.cls.xml
===================================================================
diff -u -r33281 -r33450
--- WS/EC/WebshopConfiguratorService.cls.xml	(.../WebshopConfiguratorService.cls.xml)	(revision 33281)
+++ WS/EC/WebshopConfiguratorService.cls.xml	(.../WebshopConfiguratorService.cls.xml)	(revision 33450)
@@ -189,7 +189,7 @@
 <ReturnType>DOM.VKP.VanHoeckeKlant</ReturnType>
 <Implementation><![CDATA[
 	Set Personality=$$$Implementation(Personality,..GeefPersonality())
-	Set KlantID = ##class(APPS.EC.Winkelkar.WinkelkarService.impl.KlantBepaler).%New().GeefKlantID(Personality,..GeefKlantID())
+	Set KlantID = ##class(DOM.common.impl.PersonalityKlantBepaler).%New().GeefKlantID(Personality,..GeefKlantID())
 	Quit ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().GeefKlant(KlantID)
 ]]></Implementation>
 </Method>
Index: APPS/EC/Winkelkar/impl/AdviesPrijsInstellenOpWinkelkar.cls.xml
===================================================================
diff -u -r32788 -r33450
--- APPS/EC/Winkelkar/impl/AdviesPrijsInstellenOpWinkelkar.cls.xml	(.../AdviesPrijsInstellenOpWinkelkar.cls.xml)	(revision 32788)
+++ APPS/EC/Winkelkar/impl/AdviesPrijsInstellenOpWinkelkar.cls.xml	(.../AdviesPrijsInstellenOpWinkelkar.cls.xml)	(revision 33450)
@@ -85,7 +85,7 @@
 <Implementation><![CDATA[
 	#dim PersonalityID As DOM.common.enu.Personality = ##class(TECH.Context.RuntimeContext).Instance().GeefPersonalityID()
 	#dim Personality As DOM.common.Personality = ##class(DOM.DomeinContext).Instance().GeefCommonAPI().GeefPersonality(PersonalityID)
-	Quit ##class(APPS.EC.Winkelkar.WinkelkarService.impl.KlantBepaler).%New().GeefKlantID(Personality,..KlantID)
+	Quit ##class(DOM.common.impl.PersonalityKlantBepaler).%New().GeefKlantID(Personality,..KlantID)
 ]]></Implementation>
 </Method>
 </Class>
Index: APPS/EDI/common/impl/ProductConverter.cls.xml
===================================================================
diff -u -r32274 -r33450
--- APPS/EDI/common/impl/ProductConverter.cls.xml	(.../ProductConverter.cls.xml)	(revision 32274)
+++ APPS/EDI/common/impl/ProductConverter.cls.xml	(.../ProductConverter.cls.xml)	(revision 33450)
@@ -14,7 +14,7 @@
 </Property>
 
 <Property name="KlantBepaler">
-<Type>APPS.EC.Winkelkar.WinkelkarService.impl.KlantBepaler</Type>
+<Type>DOM.common.impl.PersonalityKlantBepaler</Type>
 <Private>1</Private>
 </Property>
 
@@ -26,7 +26,7 @@
 <Implementation><![CDATA[
 	Set ..ObjectConverter = ##class(TECH.ObjectUtils.impl.ObjectConverter).%New()
 	Set ..ConfiguratorService = ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefInterneConfiguratorService()
-	set ..KlantBepaler = ##class(APPS.EC.Winkelkar.WinkelkarService.impl.KlantBepaler).%New()
+	set ..KlantBepaler = ##class(DOM.common.impl.PersonalityKlantBepaler).%New()
 	Quit $$$OK
 ]]></Implementation>
 </Method>
Index: DOM/EC/Winkelkar/Actie/impl/ActieKortingBepaler/GratisCorpusProfielen.cls.xml
===================================================================
diff -u -r29059 -r33450
--- DOM/EC/Winkelkar/Actie/impl/ActieKortingBepaler/GratisCorpusProfielen.cls.xml	(.../GratisCorpusProfielen.cls.xml)	(revision 29059)
+++ DOM/EC/Winkelkar/Actie/impl/ActieKortingBepaler/GratisCorpusProfielen.cls.xml	(.../GratisCorpusProfielen.cls.xml)	(revision 33450)
@@ -92,14 +92,15 @@
 <Method name="GeefKlantIDVoorPrijsBerekening">
 <Private>1</Private>
 <ReturnType>DOM.common.PartijID</ReturnType>
-<Implementation><![CDATA[	Quit ##class(APPS.EC.Winkelkar.WinkelkarService.impl.KlantBepaler).%New().GeefKlantID(..Winkelkar.GeefPersonality(),..Winkelkar.GeefKlantID())
+<Implementation><![CDATA[	Quit ##class(DOM.common.impl.PersonalityKlantBepaler).%New().GeefKlantID(..Winkelkar.GeefPersonality(),..Winkelkar.GeefKlantID())
 ]]></Implementation>
 </Method>
 
 <Method name="GeefRolNaam">
 <Abstract>1</Abstract>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
+<Implementation><![CDATA[]]></Implementation>
 </Method>
 </Class>
 
Index: WS/EC/InterneConfiguratorService.cls.xml
===================================================================
diff -u -r33281 -r33450
--- WS/EC/InterneConfiguratorService.cls.xml	(.../InterneConfiguratorService.cls.xml)	(revision 33281)
+++ WS/EC/InterneConfiguratorService.cls.xml	(.../InterneConfiguratorService.cls.xml)	(revision 33450)
@@ -54,7 +54,7 @@
 	
 	Set:(KlantID="") KlantID = ..GeefKlantID()
 	
-	Set KlantBepalerVisitor = ##class(APPS.EC.Winkelkar.WinkelkarService.impl.KlantBepaler).%New()
+	Set KlantBepalerVisitor = ##class(DOM.common.impl.PersonalityKlantBepaler).%New()
 	#dim KlantIDVoorVKW As DOM.common.PartijID = KlantBepalerVisitor.GeefKlantID(Personality, KlantID)
 	#dim Klant As DOM.VKP.VanHoeckeKlant = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().GeefKlant(KlantIDVoorVKW)
 	
@@ -72,7 +72,7 @@
 	
 	Set:(KlantID="") KlantID = ..GeefKlantID()
 	
-	Set KlantBepalerVisitor = ##class(APPS.EC.Winkelkar.WinkelkarService.impl.KlantBepaler).%New()
+	Set KlantBepalerVisitor = ##class(DOM.common.impl.PersonalityKlantBepaler).%New()
 	#dim KlantIDVoorVKW As DOM.common.PartijID = KlantBepalerVisitor.GeefKlantID(Personality, KlantID)
 	#dim Klant As DOM.VKP.VanHoeckeKlant = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().GeefKlant(KlantIDVoorVKW)
 	
@@ -89,7 +89,7 @@
 	
 	#dim KlantID As %String = ..GeefKlantID()
 	
-	Set KlantBepalerVisitor = ##class(APPS.EC.Winkelkar.WinkelkarService.impl.KlantBepaler).%New()
+	Set KlantBepalerVisitor = ##class(DOM.common.impl.PersonalityKlantBepaler).%New()
 	#dim KlantIDVoorVKW As DOM.common.PartijID = KlantBepalerVisitor.GeefKlantID(Personality, KlantID)
 	#dim Klant As DOM.VKP.VanHoeckeKlant = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().GeefKlant(KlantIDVoorVKW)