Index: vhTest/Fake/DOM/common/impl/PersonalityKlantBepaler.cls.xml
===================================================================
diff -u -r46113 -r46862
--- vhTest/Fake/DOM/common/impl/PersonalityKlantBepaler.cls.xml	(.../PersonalityKlantBepaler.cls.xml)	(revision 46113)
+++ vhTest/Fake/DOM/common/impl/PersonalityKlantBepaler.cls.xml	(.../PersonalityKlantBepaler.cls.xml)	(revision 46862)
@@ -16,74 +16,68 @@
 
 <Method name="VerwerkDaro">
 <FormalSpec>DaroPersonality:DOM.common.DaroPersonality</FormalSpec>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkSeefelder">
+<FormalSpec>SeefelderPersonality:DOM.common.SeefelderPersonality</FormalSpec>
 <Implementation><![CDATA[
 ]]></Implementation>
 </Method>
 
 <Method name="VerwerkDestil">
 <FormalSpec>DestilPersonality:DOM.common.DestilPersonality</FormalSpec>
-<Implementation><![CDATA[
-]]></Implementation>
+<Implementation><![CDATA[]]></Implementation>
 </Method>
 
 <Method name="VerwerkDupont">
 <FormalSpec>DupontPersonality:DOM.common.DupontPersonality</FormalSpec>
-<Implementation><![CDATA[
-]]></Implementation>
+<Implementation><![CDATA[]]></Implementation>
 </Method>
 
 <Method name="VerwerkHaefeleBE">
 <FormalSpec>HaefeleBEPersonality:DOM.common.HaefeleBEPersonality</FormalSpec>
-<Implementation><![CDATA[
-]]></Implementation>
+<Implementation><![CDATA[]]></Implementation>
 </Method>
 
 <Method name="VerwerkHaefeleNL">
 <FormalSpec>HaefeleNLPersonality:DOM.common.HaefeleNLPersonality</FormalSpec>
-<Implementation><![CDATA[
-]]></Implementation>
+<Implementation><![CDATA[]]></Implementation>
 </Method>
 
 <Method name="VerwerkHein">
 <FormalSpec>HeinPersonality:DOM.common.HeinPersonality</FormalSpec>
-<Implementation><![CDATA[
-]]></Implementation>
+<Implementation><![CDATA[]]></Implementation>
 </Method>
 
 <Method name="VerwerkKisch">
 <FormalSpec>KischPersonality:DOM.common.KischPersonality</FormalSpec>
-<Implementation><![CDATA[
-]]></Implementation>
+<Implementation><![CDATA[]]></Implementation>
 </Method>
 
 <Method name="VerwerkNoteborn">
 <FormalSpec>NotebornPersonality:DOM.common.NotebornPersonality</FormalSpec>
-<Implementation><![CDATA[
-]]></Implementation>
+<Implementation><![CDATA[]]></Implementation>
 </Method>
 
 <Method name="VerwerkSFS">
 <FormalSpec>SFSPersonality:DOM.common.SFSPersonality</FormalSpec>
-<Implementation><![CDATA[
-]]></Implementation>
+<Implementation><![CDATA[]]></Implementation>
 </Method>
 
 <Method name="VerwerkVanHoecke">
 <FormalSpec>VanHoeckePersonality:DOM.common.VanHoeckePersonality</FormalSpec>
-<Implementation><![CDATA[
-]]></Implementation>
+<Implementation><![CDATA[]]></Implementation>
 </Method>
 
 <Method name="VerwerkVanHoeckeVoorHalux">
 <FormalSpec>VanHoeckVoorHaluxPersonality:DOM.common.VanHoeckeVoorHaluxPersonality</FormalSpec>
-<Implementation><![CDATA[
-]]></Implementation>
+<Implementation><![CDATA[]]></Implementation>
 </Method>
 
 <Method name="VerwerkVanRaemdonck">
 <FormalSpec>VanRaemdonckPersonality:DOM.common.VanRaemdonckPersonality</FormalSpec>
-<Implementation><![CDATA[
-]]></Implementation>
+<Implementation><![CDATA[]]></Implementation>
 </Method>
 </Class>
 
Index: APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBepaler/SeefelderPrijsFactorBepaler.cls.xml
===================================================================
diff -u -r46643 -r46862
--- APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBepaler/SeefelderPrijsFactorBepaler.cls.xml	(.../SeefelderPrijsFactorBepaler.cls.xml)	(revision 46643)
+++ APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBepaler/SeefelderPrijsFactorBepaler.cls.xml	(.../SeefelderPrijsFactorBepaler.cls.xml)	(revision 46862)
@@ -5,7 +5,7 @@
 
 <Parameter name="Factor">
 <Type>%Numeric</Type>
-<Default>1</Default>
+<Default>2.605</Default>
 </Parameter>
 
 <Method name="GeefPrijsFactor">
Index: vhTest/Mock/DOM/common/impl/PersonalityKlantBepaler.cls.xml
===================================================================
diff -u -r46113 -r46862
--- vhTest/Mock/DOM/common/impl/PersonalityKlantBepaler.cls.xml	(.../PersonalityKlantBepaler.cls.xml)	(revision 46113)
+++ vhTest/Mock/DOM/common/impl/PersonalityKlantBepaler.cls.xml	(.../PersonalityKlantBepaler.cls.xml)	(revision 46862)
@@ -9,9 +9,9 @@
 <Inheritance>right</Inheritance>
 
 <Method name="GeefKlantID">
-<FormalSpec>Personality:DOM.common.Personality,KlantIDVanEindklant:%String</FormalSpec>
+<FormalSpec>Personality:DOM.common.Personality,KlantId:%String</FormalSpec>
 <ReturnType>DOM.common.PartijID</ReturnType>
-<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefKlantID",Personality,KlantIDVanEindklant)
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefKlantID",Personality,KlantId)
 ]]></Implementation>
 </Method>
 
@@ -69,6 +69,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkSeefelder">
+<FormalSpec>SeefelderPersonality:DOM.common.SeefelderPersonality</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkSeefelder",SeefelderPersonality)
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkVanHoecke">
 <FormalSpec>VanHoeckePersonality:DOM.common.VanHoeckePersonality</FormalSpec>
 <Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkVanHoecke",VanHoeckePersonality)
Index: DOM/common/impl/PersonalityKlantBepaler.cls.xml
===================================================================
diff -u -r46113 -r46862
--- DOM/common/impl/PersonalityKlantBepaler.cls.xml	(.../PersonalityKlantBepaler.cls.xml)	(revision 46113)
+++ DOM/common/impl/PersonalityKlantBepaler.cls.xml	(.../PersonalityKlantBepaler.cls.xml)	(revision 46862)
@@ -3,36 +3,57 @@
 <Class name="DOM.common.impl.PersonalityKlantBepaler">
 <Super>DOM.common.PersonalityKlantBepaler,DOM.common.VanHoeckeOfAnderePersonalityVisitor,TECH.Mockable</Super>
 
-<Property name="KlantIDVanVHKlant">
+<Property name="PersonalityRepo">
+<Type>DOM.common.impl.PersonalityRepository</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="VanHoeckeKlantId">
 <Type>DOM.common.PartijID</Type>
 <Private>1</Private>
 </Property>
 
-<Property name="KlantIDVanEindklant">
+<Property name="KlantId">
 <Type>%String</Type>
 <Private>1</Private>
 </Property>
 
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	set ..PersonalityRepo = ##class(DOM.common.impl.PersonalityRepository).%New()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="GeefKlantID">
-<FormalSpec>Personality:DOM.common.Personality,KlantIDVanEindklant:%String</FormalSpec>
+<FormalSpec>Personality:DOM.common.Personality,KlantId:%String</FormalSpec>
 <ReturnType>DOM.common.PartijID</ReturnType>
 <Implementation><![CDATA[
-	Set ..KlantIDVanEindklant=KlantIDVanEindklant
+	Set ..KlantId = KlantId
 	Do Personality.Accept($this)
-	Quit ..KlantIDVanVHKlant
+	Quit ..VanHoeckeKlantId
 ]]></Implementation>
 </Method>
 
 <Method name="VerwerkVanHoecke">
 <FormalSpec>VanHoeckePersonality:DOM.common.VanHoeckePersonality</FormalSpec>
-<Implementation><![CDATA[	Set ..KlantIDVanVHKlant = ..KlantIDVanEindklant
+<Implementation><![CDATA[	Set ..VanHoeckeKlantId = ..KlantId
 ]]></Implementation>
 </Method>
 
 <Method name="VerwerkAnderePersonality">
 <FormalSpec>Personality:DOM.common.Personality</FormalSpec>
 <Private>1</Private>
-<Implementation><![CDATA[	Set ..KlantIDVanVHKlant = Personality.GeefKlantID()
+<Implementation><![CDATA[
+	while $$$Not(Personality.GeefLeverancierData().PersonalityId = ##class(DOM.common.enu.Personality).VanHoecke()) {
+		set Personality = ..PersonalityRepo.GeefViaID(Personality.GeefLeverancierData().PersonalityId)
+	}
+	
+	Set ..VanHoeckeKlantId = Personality.GeefKlantID()
 ]]></Implementation>
 </Method>
 </Class>