Index: DOM/common/PersonalityKlantBepaler.cls.xml
===================================================================
diff -u
--- DOM/common/PersonalityKlantBepaler.cls.xml	(revision 0)
+++ DOM/common/PersonalityKlantBepaler.cls.xml	(revision 33452)
@@ -0,0 +1,13 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.common.PersonalityKlantBepaler">
+<Super>TECH.Interface</Super>
+
+<Method name="GeefKlantID">
+<FormalSpec>Personality:DOM.common.Personality,KlantIDVanEindklant:%String</FormalSpec>
+<ReturnType>DOM.common.PartijID</ReturnType>
+</Method>
+</Class>
+
+
+</Export>
Index: DOM/common/impl/PersonalityKlantBepaler.cls.xml
===================================================================
diff -u -r33450 -r33452
--- DOM/common/impl/PersonalityKlantBepaler.cls.xml	(.../PersonalityKlantBepaler.cls.xml)	(revision 33450)
+++ DOM/common/impl/PersonalityKlantBepaler.cls.xml	(.../PersonalityKlantBepaler.cls.xml)	(revision 33452)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="DOM.common.impl.PersonalityKlantBepaler">
-<Super>DOM.common.VanHoeckeOfAnderePersonalityVisitor</Super>
+<Super>DOM.common.PersonalityKlantBepaler,DOM.common.VanHoeckeOfAnderePersonalityVisitor</Super>
 
 <Property name="KlantIDVanVHKlant">
 <Type>DOM.common.PartijID</Type>
Index: APPS/EDI/common/impl/ProductConverter.cls.xml
===================================================================
diff -u -r33450 -r33452
--- APPS/EDI/common/impl/ProductConverter.cls.xml	(.../ProductConverter.cls.xml)	(revision 33450)
+++ APPS/EDI/common/impl/ProductConverter.cls.xml	(.../ProductConverter.cls.xml)	(revision 33452)
@@ -14,7 +14,7 @@
 </Property>
 
 <Property name="KlantBepaler">
-<Type>DOM.common.impl.PersonalityKlantBepaler</Type>
+<Type>DOM.common.PersonalityKlantBepaler</Type>
 <Private>1</Private>
 </Property>
 
@@ -26,7 +26,8 @@
 <Implementation><![CDATA[
 	Set ..ObjectConverter = ##class(TECH.ObjectUtils.impl.ObjectConverter).%New()
 	Set ..ConfiguratorService = ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefInterneConfiguratorService()
-	set ..KlantBepaler = ##class(DOM.common.impl.PersonalityKlantBepaler).%New()
+	Set ..KlantBepaler = ##class(DOM.common.impl.PersonalityKlantBepaler).%New()
+	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -130,7 +131,7 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	#dim Personality As DOM.common.Personality = ##class(DOM.DomeinContext).Instance().GeefCommonAPI().GeefPersonality(..PersonalityID)
-	#dim Klant As DOM.VKP.VanHoeckeKlant = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().GeefKlant(..KlantBepaler.GeefKlantID(Personality,KlantID))
+	#dim Klant As DOM.VKP.VanHoeckeKlant = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().GeefKlant(..KlantBepaler.GeefKlantID(Personality, KlantID))
 	
 	Set KenmerkWijzigingen = ##class(APPS.PM.Maatwerk.dto.IngegevenKenmerkWijzigingenLijst).%New()
 	#dim Result As APPS.PM.Maatwerk.dto.VerwerkingVanKenmerkWijzigingen = ..ConfiguratorService.VerwerkKenmerkWijzigingen(IngegevenKenmerken,KenmerkWijzigingen,Klant,##class(DOM.common.VanHoeckePersonality).Instance())
Index: WS/EC/WebshopConfiguratorService.cls.xml
===================================================================
diff -u -r33450 -r33452
--- WS/EC/WebshopConfiguratorService.cls.xml	(.../WebshopConfiguratorService.cls.xml)	(revision 33450)
+++ WS/EC/WebshopConfiguratorService.cls.xml	(.../WebshopConfiguratorService.cls.xml)	(revision 33452)
@@ -188,9 +188,12 @@
 <Private>1</Private>
 <ReturnType>DOM.VKP.VanHoeckeKlant</ReturnType>
 <Implementation><![CDATA[
-	Set Personality=$$$Implementation(Personality,..GeefPersonality())
-	Set KlantID = ##class(DOM.common.impl.PersonalityKlantBepaler).%New().GeefKlantID(Personality,..GeefKlantID())
-	Quit ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().GeefKlant(KlantID)
+	Set Personality = $$$Inject(Personality, ..GeefPersonality())
+	
+	#dim PersonalityKlantBepaler As DOM.common.PersonalityKlantBepaler = ##class(DOM.common.impl.PersonalityKlantBepaler).%New()
+	#dim PartijID As DOM.common.PartijID = PersonalityKlantBepaler.GeefKlantID(Personality, ..GeefKlantID())
+	
+	Quit ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().GeefKlant(PartijID)
 ]]></Implementation>
 </Method>
 </Class>
Index: DOM/EC/Winkelkar/Actie/impl/ActieKortingBepaler/GratisCorpusProfielen.cls.xml
===================================================================
diff -u -r33450 -r33452
--- DOM/EC/Winkelkar/Actie/impl/ActieKortingBepaler/GratisCorpusProfielen.cls.xml	(.../GratisCorpusProfielen.cls.xml)	(revision 33450)
+++ DOM/EC/Winkelkar/Actie/impl/ActieKortingBepaler/GratisCorpusProfielen.cls.xml	(.../GratisCorpusProfielen.cls.xml)	(revision 33452)
@@ -92,7 +92,10 @@
 <Method name="GeefKlantIDVoorPrijsBerekening">
 <Private>1</Private>
 <ReturnType>DOM.common.PartijID</ReturnType>
-<Implementation><![CDATA[	Quit ##class(DOM.common.impl.PersonalityKlantBepaler).%New().GeefKlantID(..Winkelkar.GeefPersonality(),..Winkelkar.GeefKlantID())
+<Implementation><![CDATA[
+	#dim PersonalityKlantBepaler As DOM.common.PersonalityKlantBepaler = ##class(DOM.common.impl.PersonalityKlantBepaler).%New()
+	
+	Quit PersonalityKlantBepaler.GeefKlantID(..Winkelkar.GeefPersonality(), ..Winkelkar.GeefKlantID())
 ]]></Implementation>
 </Method>
 
Index: WS/EC/InterneConfiguratorService.cls.xml
===================================================================
diff -u -r33450 -r33452
--- WS/EC/InterneConfiguratorService.cls.xml	(.../InterneConfiguratorService.cls.xml)	(revision 33450)
+++ WS/EC/InterneConfiguratorService.cls.xml	(.../InterneConfiguratorService.cls.xml)	(revision 33452)
@@ -51,11 +51,11 @@
 <WebMethod>1</WebMethod>
 <Implementation><![CDATA[
 	#dim Personality As DOM.common.Personality =##class(DOM.DomeinContext).Instance().GeefCommonAPI().GeefPersonality(..GeefPersonalityID())
+	#dim PersonalityKlantBepaler As DOM.common.PersonalityKlantBepaler = ##class(DOM.common.impl.PersonalityKlantBepaler).%New()
 	
-	Set:(KlantID="") KlantID = ..GeefKlantID()
+	Set:(KlantID = "") KlantID = ..GeefKlantID()
 	
-	Set KlantBepalerVisitor = ##class(DOM.common.impl.PersonalityKlantBepaler).%New()
-	#dim KlantIDVoorVKW As DOM.common.PartijID = KlantBepalerVisitor.GeefKlantID(Personality, KlantID)
+	#dim KlantIDVoorVKW As DOM.common.PartijID = PersonalityKlantBepaler.GeefKlantID(Personality, KlantID)
 	#dim Klant As DOM.VKP.VanHoeckeKlant = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().GeefKlant(KlantIDVoorVKW)
 	
 	set KenmerkWijzigingenVerwerker = ##class(WSimpl.EC.InterneConfigurator.KenmerkWijzigingenVerwerker).%New()
@@ -69,11 +69,11 @@
 <WebMethod>1</WebMethod>
 <Implementation><![CDATA[
 	#dim Personality As DOM.common.Personality =##class(DOM.DomeinContext).Instance().GeefCommonAPI().GeefPersonality(..GeefPersonalityID())
+	#dim PersonalityKlantBepaler As DOM.common.PersonalityKlantBepaler = ##class(DOM.common.impl.PersonalityKlantBepaler).%New()
 	
-	Set:(KlantID="") KlantID = ..GeefKlantID()
-	
-	Set KlantBepalerVisitor = ##class(DOM.common.impl.PersonalityKlantBepaler).%New()
-	#dim KlantIDVoorVKW As DOM.common.PartijID = KlantBepalerVisitor.GeefKlantID(Personality, KlantID)
+	Set:(KlantID = "") KlantID = ..GeefKlantID()
+
+	#dim KlantIDVoorVKW As DOM.common.PartijID = PersonalityKlantBepaler.GeefKlantID(Personality, KlantID)
 	#dim Klant As DOM.VKP.VanHoeckeKlant = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().GeefKlant(KlantIDVoorVKW)
 	
 	Quit ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefInterneConfiguratorService().VerwerkKenmerkWijzigingenVoorMeerdereIKen( IngegevenKenmerkenLijst, KenmerkWijzigingen, Klant, Personality)
@@ -86,11 +86,9 @@
 <WebMethod>1</WebMethod>
 <Implementation><![CDATA[
 	#dim Personality As DOM.common.Personality =##class(DOM.DomeinContext).Instance().GeefCommonAPI().GeefPersonality(..GeefPersonalityID())
-	
+	#dim PersonalityKlantBepaler As DOM.common.PersonalityKlantBepaler = ##class(DOM.common.impl.PersonalityKlantBepaler).%New()
 	#dim KlantID As %String = ..GeefKlantID()
-	
-	Set KlantBepalerVisitor = ##class(DOM.common.impl.PersonalityKlantBepaler).%New()
-	#dim KlantIDVoorVKW As DOM.common.PartijID = KlantBepalerVisitor.GeefKlantID(Personality, KlantID)
+	#dim KlantIDVoorVKW As DOM.common.PartijID = PersonalityKlantBepaler.GeefKlantID(Personality, KlantID)
 	#dim Klant As DOM.VKP.VanHoeckeKlant = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().GeefKlant(KlantIDVoorVKW)
 	
 	Quit ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefInterneConfiguratorService().GeefKenmerkMogelijkhedenVoorMeerdereIKen(KenmerkenLijst, Klant, Personality)
Index: APPS/EC/impl/VerkoopPrijsBepaler.cls.xml
===================================================================
diff -u -r33450 -r33452
--- APPS/EC/impl/VerkoopPrijsBepaler.cls.xml	(.../VerkoopPrijsBepaler.cls.xml)	(revision 33450)
+++ APPS/EC/impl/VerkoopPrijsBepaler.cls.xml	(.../VerkoopPrijsBepaler.cls.xml)	(revision 33452)
@@ -71,7 +71,9 @@
 <ReturnType>DOM.common.PartijID</ReturnType>
 <Implementation><![CDATA[
 	#dim Personality As DOM.common.Personality = ##class(DOM.DomeinContext).Instance().GeefCommonAPI().GeefPersonality(PersonalityID)
-	Quit ##class(DOM.common.impl.PersonalityKlantBepaler).%New().GeefKlantID(Personality,KlantID)
+	#dim PersonalityKlantBepaler As DOM.common.PersonalityKlantBepaler = ##class(DOM.common.impl.PersonalityKlantBepaler).%New()
+	
+	Quit PersonalityKlantBepaler.GeefKlantID(Personality, KlantID)
 ]]></Implementation>
 </Method>
 </Class>
Index: APPS/EC/Winkelkar/impl/AdviesPrijsInstellenOpWinkelkar.cls.xml
===================================================================
diff -u -r33450 -r33452
--- APPS/EC/Winkelkar/impl/AdviesPrijsInstellenOpWinkelkar.cls.xml	(.../AdviesPrijsInstellenOpWinkelkar.cls.xml)	(revision 33450)
+++ APPS/EC/Winkelkar/impl/AdviesPrijsInstellenOpWinkelkar.cls.xml	(.../AdviesPrijsInstellenOpWinkelkar.cls.xml)	(revision 33452)
@@ -85,7 +85,9 @@
 <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(DOM.common.impl.PersonalityKlantBepaler).%New().GeefKlantID(Personality,..KlantID)
+	#dim PersonalityKlantBepaler As DOM.common.PersonalityKlantBepaler = ##class(DOM.common.impl.PersonalityKlantBepaler).%New()
+	
+	Quit PersonalityKlantBepaler.GeefKlantID(Personality, ..KlantID)
 ]]></Implementation>
 </Method>
 </Class>