Index: vhTest/Mock/DOM/VKP/impl/KlantDataBepaler.cls.xml
===================================================================
diff -u -r64412 -r64706
--- vhTest/Mock/DOM/VKP/impl/KlantDataBepaler.cls.xml	(.../KlantDataBepaler.cls.xml)	(revision 64412)
+++ vhTest/Mock/DOM/VKP/impl/KlantDataBepaler.cls.xml	(.../KlantDataBepaler.cls.xml)	(revision 64706)
@@ -118,12 +118,24 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkHaefeleDK">
+<FormalSpec>HaefeleDKPersonality:DOM.common.HaefeleDKPersonality</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkHaefeleDK",HaefeleDKPersonality)
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkHaefeleFI">
 <FormalSpec>HaefeleFIPersonality:DOM.common.HaefeleFIPersonality</FormalSpec>
 <Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkHaefeleFI",HaefeleFIPersonality)
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkHaefeleFR">
+<FormalSpec>HaefeleFRPersonality:DOM.common.HaefeleFRPersonality</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkHaefeleFR",HaefeleFRPersonality)
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkHaefeleIT">
 <FormalSpec>HaefeleITPersonality:DOM.common.HaefeleITPersonality</FormalSpec>
 <Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkHaefeleIT",HaefeleITPersonality)
Index: DOM/VKP/impl/KlantDataBepaler.cls.xml
===================================================================
diff -u -r64412 -r64706
--- DOM/VKP/impl/KlantDataBepaler.cls.xml	(.../KlantDataBepaler.cls.xml)	(revision 64412)
+++ DOM/VKP/impl/KlantDataBepaler.cls.xml	(.../KlantDataBepaler.cls.xml)	(revision 64706)
@@ -180,12 +180,34 @@
 <Implementation><![CDATA[
 	Set ..KlantDataDto = ##class(DOM.common.dto.KlantData).%New()
 	
-	#dim KlantData As DOM.VKP.impl.HaefeleDEKlantData = ..OpenKlantData(..KlantID, HaefeleATPersonality)
+	#dim KlantData As DOM.VKP.impl.HaefeleATKlantData = ..OpenKlantData(..KlantID, HaefeleATPersonality)
 	
 	Do ..StelInKlantDataDtoVoorHandel(KlantData, HaefeleATPersonality.GeefPrefix())
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkHaefeleFR">
+<FormalSpec>HaefeleFRPersonality:DOM.common.HaefeleFRPersonality</FormalSpec>
+<Implementation><![CDATA[
+	Set ..KlantDataDto = ##class(DOM.common.dto.KlantData).%New()
+	
+	#dim KlantData As DOM.VKP.impl.HaefeleFRKlantData = ..OpenKlantData(..KlantID, HaefeleFRPersonality)
+	
+	Do ..StelInKlantDataDtoVoorHandel(KlantData, HaefeleFRPersonality.GeefPrefix())
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkHaefeleDK">
+<FormalSpec>HaefeleDKPersonality:DOM.common.HaefeleDKPersonality</FormalSpec>
+<Implementation><![CDATA[
+	Set ..KlantDataDto = ##class(DOM.common.dto.KlantData).%New()
+	
+	#dim KlantData As DOM.VKP.impl.HaefeleDKKlantData = ..OpenKlantData(..KlantID, HaefeleDKPersonality)
+	
+	Do ..StelInKlantDataDtoVoorHandel(KlantData, HaefeleDKPersonality.GeefPrefix())
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkHaefeleSE">
 <FormalSpec>HaefeleSEPersonality:DOM.common.HaefeleSEPersonality</FormalSpec>
 <Implementation><![CDATA[
Index: vhTest/Fake/DOM/VKP/impl/KlantDataBepaler.cls.xml
===================================================================
diff -u -r64412 -r64706
--- vhTest/Fake/DOM/VKP/impl/KlantDataBepaler.cls.xml	(.../KlantDataBepaler.cls.xml)	(revision 64412)
+++ vhTest/Fake/DOM/VKP/impl/KlantDataBepaler.cls.xml	(.../KlantDataBepaler.cls.xml)	(revision 64706)
@@ -25,12 +25,24 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkHaefeleDK">
+<FormalSpec>HaefeleDKPersonality:DOM.common.HaefeleDKPersonality</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkHaefeleFI">
 <FormalSpec>HaefeleFIPersonality:DOM.common.HaefeleFIPersonality</FormalSpec>
 <Implementation><![CDATA[
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkHaefeleFR">
+<FormalSpec>HaefeleFRPersonality:DOM.common.HaefeleFRPersonality</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkHaefeleIT">
 <FormalSpec>HaefeleITPersonality:DOM.common.HaefeleITPersonality</FormalSpec>
 <Implementation><![CDATA[