Index: APPS/VKP/impl/KlantDataBewaarder.cls.xml
===================================================================
diff -u -r59055 -r59320
--- APPS/VKP/impl/KlantDataBewaarder.cls.xml	(.../KlantDataBewaarder.cls.xml)	(revision 59055)
+++ APPS/VKP/impl/KlantDataBewaarder.cls.xml	(.../KlantDataBewaarder.cls.xml)	(revision 59320)
@@ -356,6 +356,16 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkHahleOy">
+<FormalSpec>HahleOyPersonality:DOM.common.HahleOyPersonality</FormalSpec>
+<Implementation><![CDATA[
+	Set ..KlantData = ..GeefKlantData(..KlantDataDto.ID, HahleOyPersonality)
+	
+	Do ..ValideerKlantId(..KlantDataDto.ID, HahleOyPersonality)
+	Do ..ConverteerKlantData(..KlantData, ..KlantDataDto)
+]]></Implementation>
+</Method>
+
 <Method name="GeefKlantData">
 <FormalSpec>KlantId:TECH.String,Personality:DOM.common.Personality</FormalSpec>
 <Private>1</Private>
Index: WSimpl/Vhisie4/Auth/HandelAuthenticator/ContactGegevensRegistreerder/KlantDataBepaler.cls.xml
===================================================================
diff -u -r59055 -r59320
--- WSimpl/Vhisie4/Auth/HandelAuthenticator/ContactGegevensRegistreerder/KlantDataBepaler.cls.xml	(.../KlantDataBepaler.cls.xml)	(revision 59055)
+++ WSimpl/Vhisie4/Auth/HandelAuthenticator/ContactGegevensRegistreerder/KlantDataBepaler.cls.xml	(.../KlantDataBepaler.cls.xml)	(revision 59320)
@@ -35,7 +35,7 @@
 	#dim KlantId As %String = ""
 	Set Personality = ##class(DOM.common.enu.Personality.AutoComplete).%New()
 	
-	If ##class(TECH.StringUtils).Equals(RegistreerContactGegevensRequest.Header.PersonalityId,Personality.Beslagteknikk,Personality.Dupont,Personality.Ferexpert,Personality.Pavanello,Personality.Galimberti,Personality.Destil,Personality.Hein,Personality.Seefelder,Personality.Zweygart,Personality.BeslagDesign,Personality.JBarth,Personality.BiemarBois,Personality.CampeTonny,Personality.Rini,Personality.Furnifit,Personality.YachtSupplier,Personality.DSGroup,Personality.DeBisschop,Personality.DeceuninckDeforce,Personality.Pierard,Personality.Kleiner,Personality.Layer) && $$$HasLength(RegistreerContactGegevensRequest.Header.KlantId){
+	If ##class(TECH.StringUtils).Equals(RegistreerContactGegevensRequest.Header.PersonalityId,Personality.Beslagteknikk,Personality.Dupont,Personality.Ferexpert,Personality.Pavanello,Personality.Galimberti,Personality.Destil,Personality.Hein,Personality.Seefelder,Personality.Zweygart,Personality.BeslagDesign,Personality.JBarth,Personality.BiemarBois,Personality.CampeTonny,Personality.Rini,Personality.Furnifit,Personality.YachtSupplier,Personality.DSGroup,Personality.DeBisschop,Personality.DeceuninckDeforce,Personality.Pierard,Personality.Kleiner,Personality.Layer,Personality.HahleOy) && $$$HasLength(RegistreerContactGegevensRequest.Header.KlantId){
 		Set KlantId = HandelPersonality.GeefPrefix()_RegistreerContactGegevensRequest.Header.KlantId
 		Set KlantData = ..MaakHandelKlantData(KlantId,RegistreerContactGegevensRequest)
 	} ElseIf (RegistreerContactGegevensRequest.Header.KlantId = "") {
Index: DOM/VKP/impl/HahleOyKlantData.cls.xml
===================================================================
diff -u
--- DOM/VKP/impl/HahleOyKlantData.cls.xml	(revision 0)
+++ DOM/VKP/impl/HahleOyKlantData.cls.xml	(revision 59320)
@@ -0,0 +1,17 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.VKP.impl.HahleOyKlantData">
+<Super>DOM.VKP.impl.HandelKlantData</Super>
+
+<Property name="EmailAdres">
+<Type>%String</Type>
+</Property>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+</Storage>
+</Class>
+
+
+<Package name="DOM.VKP.impl" sqlname="DOM_VKP_impl"/>
+</Export>