Index: DOM/VKP/impl/HandelKlantDataRepository.cls.xml
===================================================================
diff -u
--- DOM/VKP/impl/HandelKlantDataRepository.cls.xml	(revision 0)
+++ DOM/VKP/impl/HandelKlantDataRepository.cls.xml	(revision 41685)
@@ -0,0 +1,13 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.VKP.impl.HandelKlantDataRepository">
+<Super>TECH.Persistentie.impl.Repository</Super>
+
+<Parameter name="DataClassName">
+<Default>DOM.VKP.impl.HandelKlantData</Default>
+</Parameter>
+</Class>
+
+
+<Package name="DOM.VKP.impl" sqlname="DOM_VKP_impl"/>
+</Export>
Index: WSimpl/Vhisie4/Auth/HandelAuthenticator.cls.xml
===================================================================
diff -u -r41646 -r41685
--- WSimpl/Vhisie4/Auth/HandelAuthenticator.cls.xml	(.../HandelAuthenticator.cls.xml)	(revision 41646)
+++ WSimpl/Vhisie4/Auth/HandelAuthenticator.cls.xml	(.../HandelAuthenticator.cls.xml)	(revision 41685)
@@ -28,6 +28,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="HandelKlantDataRepository">
+<Type>DOM.VKP.impl.HandelKlantDataRepository</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>LoginParameterBepaler:WSimpl.Unishop.Login.ParameterBepaler,Logger:vhLib.Logger</FormalSpec>
 <Private>1</Private>
@@ -40,6 +45,7 @@
 	Set ..VerkoopAPI = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI()
 	Set ..HandelPersonalityRepository = ##class(DOM.common.impl.HandelPersonalityRepository).%New()
 	Set ..KlantDataBepaler = ##class(DOM.VKP.impl.KlantDataBepaler).%New()
+	Set ..HandelKlantDataRepository = ##class(DOM.VKP.impl.HandelKlantDataRepository).%New()
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -94,7 +100,6 @@
 <FormalSpec>RegistreerContactGegevensRequest:WS.Vhisie4.Auth.RegistreerContactGegevensRequest</FormalSpec>
 <ReturnType>WS.Vhisie4.Auth.RegistreerContactGegevensResponse</ReturnType>
 <Implementation><![CDATA[
-	/*
 	#Dim Response As WS.Vhisie4.Auth.RegistreerContactGegevensResponse = ##class(WS.Vhisie4.Auth.RegistreerContactGegevensResponse).%New()
 	
 	If ("" = RegistreerContactGegevensRequest.Ref) {
@@ -115,22 +120,18 @@
 			Set KlantData = ..GeefHandelKlantData(KlantId,RegistreerContactGegevensRequest)
 			Do ..BewaarKlant(HandelPersonality,KlantData)
 		} Else {
-			Do ##class(Tools.Wlip).%New(127).String("opening "_HandelPersonality.GeefVhisie4Prefix()_RegistreerContactGegevensRequest.Header.KlantId)
-			Set KlantData = ##class(DOM.VKP.impl.HandelKlantData).%OpenId(HandelPersonality.GeefVhisie4Prefix()_RegistreerContactGegevensRequest.Header.KlantId)
+			Set KlantData = ..HandelKlantDataRepository.GeefViaID(HandelPersonality.GeefVhisie4Prefix()_RegistreerContactGegevensRequest.Header.KlantId)
 		}
-		Do ##class(Tools.Wlip).%New(127).String(KlantId)
-		
 
-		Set Response.KlantId = KlantData.GeefID()
-		Set Response.GebruikerId = Response.KlantId _ "_" _RegistreerContactGegevensRequest.Header.GebruikerId
+		Set Response.KlantId = ##class(TECH.StringUtils).Replace(KlantData.ID,HandelPersonality.GeefVhisie4Prefix(),"")
+		Set Response.GebruikerId = 1
 		Set Response.GebruikerNaam = ""
 		Set Response.KlantNaam = KlantData.Naam
 		Set Response.DataOpt = ##class(vhPowerTools.APPS.EC.KlantSessieDataGeneratorUnishop).%New().GenereerDataOpt("DUPO",Response.KlantId,Response.KlantNaam,Response.GebruikerId)
 
 	}
 	
 	Quit Response
-	*/
 ]]></Implementation>
 </Method>
 
@@ -139,7 +140,7 @@
 <Private>1</Private>
 <ReturnType>DOM.common.dto.HandelKlantData</ReturnType>
 <Implementation><![CDATA[
-		#dim HandelKlantData As DOM.VKP.impl.HandelKlantData = ##class(DOM.VKP.impl.HandelKlantData).%New()
+		#dim HandelKlantData As DOM.VKP.impl.HandelKlantData = ..HandelKlantDataRepository.Maak()
 		
 		Set HandelKlantData.ID = KlantId
 		Set HandelKlantData.EmailAdres = RegistreerContactGegevensRequest.EmailAdres
@@ -149,8 +150,9 @@
 		Set HandelKlantData.Postcode = RegistreerContactGegevensRequest.Postcode
 		Set HandelKlantData.StraatEnNr = RegistreerContactGegevensRequest.StraatEnNr
 		Set HandelKlantData.TelefoonNummer = RegistreerContactGegevensRequest.TelefoonNummer
-		Do HandelKlantData.Save()
 		
+		Do ..HandelKlantDataRepository.Bewaar(HandelKlantData)
+		
 		Quit HandelKlantData
 ]]></Implementation>
 </Method>