Index: DOM/VKP/impl/KlantDataBepaler.cls.xml
===================================================================
diff -u -r72516 -r72621
--- DOM/VKP/impl/KlantDataBepaler.cls.xml	(.../KlantDataBepaler.cls.xml)	(revision 72516)
+++ DOM/VKP/impl/KlantDataBepaler.cls.xml	(.../KlantDataBepaler.cls.xml)	(revision 72621)
@@ -522,6 +522,17 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkHaefeleES">
+<FormalSpec>HaefeleESPersonality:DOM.common.HaefeleESPersonality</FormalSpec>
+<Implementation><![CDATA[
+	Set ..KlantDataDto = ##class(DOM.common.dto.KlantData).%New()
+	
+	#dim KlantData As DOM.VKP.impl.HaefeleESKlantData = ..OpenKlantData(..KlantID, HaefeleESPersonality)
+	
+	Do ..StelInKlantDataDtoVoorHandel(KlantData, HaefeleESPersonality.GeefPrefix())
+]]></Implementation>
+</Method>
+
 <Method name="StelInKlantDataDtoVoorHandel">
 <FormalSpec>KlantData:DOM.VKP.impl.KlantData,HandelPrefix:%String</FormalSpec>
 <Private>1</Private>