Index: APPS/VKP/impl/KlantDataBewaarder.cls.xml
===================================================================
diff -u -r72516 -r72621
--- APPS/VKP/impl/KlantDataBewaarder.cls.xml	(.../KlantDataBewaarder.cls.xml)	(revision 72516)
+++ APPS/VKP/impl/KlantDataBewaarder.cls.xml	(.../KlantDataBewaarder.cls.xml)	(revision 72621)
@@ -496,6 +496,16 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkHaefeleES">
+<FormalSpec>HaefeleESPersonality:DOM.common.HaefeleESPersonality</FormalSpec>
+<Implementation><![CDATA[
+	Set ..KlantData = ..GeefKlantData(..KlantDataDto.ID, HaefeleESPersonality)
+	
+	Do ..ValideerKlantId(..KlantDataDto.ID, HaefeleESPersonality)
+	Do ..ConverteerKlantData(..KlantData, ..KlantDataDto)
+]]></Implementation>
+</Method>
+
 <Method name="GeefKlantData">
 <FormalSpec>KlantId:TECH.String,Personality:DOM.common.Personality</FormalSpec>
 <Private>1</Private>