Index: vhUnitTest/WSimpl/Vhisie4/Auth/HandelAuthenticator/ContactGegevensRegistreerder/Registreer/Test.cls.xml
===================================================================
diff -u -r45704 -r45823
--- vhUnitTest/WSimpl/Vhisie4/Auth/HandelAuthenticator/ContactGegevensRegistreerder/Registreer/Test.cls.xml	(.../Test.cls.xml)	(revision 45704)
+++ vhUnitTest/WSimpl/Vhisie4/Auth/HandelAuthenticator/ContactGegevensRegistreerder/Registreer/Test.cls.xml	(.../Test.cls.xml)	(revision 45823)
@@ -10,20 +10,13 @@
 	Set HandelPersonalityStub = ##class(vhTest.Mock.DOM.common.HandelPersonality).%New()
 	Do HandelPersonalityStub.IndienMethodCall("Accept",$$$ElkeWaarde).DanDoeNiks()
 	
-	#dim HandelKlantDataDummy As DOM.VKP.impl.HandelKlantData = ##class(vhTest.Utils.DOM.VKP.HandelKlantData).StandaardHandelKlantData()
-	Set HandelKlantDataRepositoryMock = ##class(vhTest.Mock.TECH.Persistentie.Repository).%New()
-	Do HandelKlantDataRepositoryMock.VerwachtMethodCall("Maak").ExactAantalKeer(0)
-	Do HandelKlantDataRepositoryMock.VerwachtMethodCall("GeefViaID","daro_"_RegistreerContactGegevensRequestStub.Header.KlantId).ExactAantalKeer(1).DanReturn(HandelKlantDataDummy)
-	
 	Set HandelPersonalityRepositoryStub = ##class(vhTest.Mock.TECH.Persistentie.Repository).%New()
 	Do HandelPersonalityRepositoryStub.IndienMethodCall("GeefViaID",RegistreerContactGegevensRequestStub.Header.PersonalityId).DanReturn(HandelPersonalityStub)
 	
 	Set SettingsManagerStub = ##class(vhTest.Mock.WSimpl.Vhisie4.SettingsManager).%New()
 	Do SettingsManagerStub.IndienMethodCall("GeefVhisie4Prefix",HandelPersonalityStub).DanReturn("daro_")
 	Do SettingsManagerStub.IndienMethodCall("GeefWebshopVerwerker",HandelPersonalityStub).DanReturn("DARO")
 	
-	Set WebshopSessionServiceDummy = ##class(vhTest.Dummy.APPS.EC.WebshopSessionService).%New()
-	
 	Set KlantDataBewaarderStub = ##class(vhTest.Mock.APPS.VKP.KlantDataBewaarder).%New()
 	Do KlantDataBewaarderStub.IndienMethodCall("Bewaar",$$$ElkeWaarde,$$$ElkeWaarde).DanDoeNiks()
 	
@@ -43,12 +36,16 @@
 	Set KortingBewaarderMock = ##class(vhTest.Mock.WSimpl.Unishop.Login.KortingBewaarder).%New()
 	Do KortingBewaarderMock.VerwachtMethodCall("BewaarMeegegevenKorting",RegistreerContactGegevensRequestStub.Ref,DataOpt).ExactAantalKeer(1)
 	
-	Set Registreerder = ##class(WSimpl.Vhisie4.Auth.HandelAuthenticator.ContactGegevensRegistreerder).%New(HandelKlantDataRepositoryMock,HandelPersonalityRepositoryStub,WebshopSessionServiceDummy,KlantDataBewaarderStub,SettingsManagerStub,KortingBewaarderMock,KlantSessieDataBepalerStub)
+	#dim HandelKlantDataDummy As DOM.VKP.impl.HandelKlantData = ##class(vhTest.Utils.DOM.VKP.HandelKlantData).StandaardHandelKlantData()
+	Set KlantDataBepalerMock = ##class(vhTest.Mock.WSimpl.Vhisie4.Auth.HandelAuthenticator.ContactGegevensRegistreerder.KlantDataBepaler).%New()
+	Do KlantDataBepalerMock.VerwachtMethodCall("Bepaal",RegistreerContactGegevensRequestStub,HandelPersonalityStub).ExactAantalKeer(1).DanReturn(HandelKlantDataDummy)
+	
+	Set Registreerder = ##class(WSimpl.Vhisie4.Auth.HandelAuthenticator.ContactGegevensRegistreerder).%New(HandelPersonalityRepositoryStub,KlantDataBewaarderStub,SettingsManagerStub,KortingBewaarderMock,KlantSessieDataBepalerStub,KlantDataBepalerMock)
 	Do Registreerder.Registreer(RegistreerContactGegevensRequestStub)
 	
-	Do HandelKlantDataRepositoryMock.Verifieer()
 	Do KortingBewaarderMock.Verifieer()
 	Do KlantSessieDataBepalerStub.Verifieer()
+	Do KlantDataBepalerMock.Verifieer()
 ]]></Implementation>
 </Method>
 
@@ -93,58 +90,6 @@
 	Do Registreerder.Registreer(RegistreerContactGegevensRequestStub)
 ]]></Implementation>
 </Method>
-
-<Method name="Test: Leeg KlantId: nieuwe aanmaken">
-<Implementation><![CDATA[
-	#dim RegistreerContactGegevensRequestStub As WS.Vhisie4.Auth.RegistreerContactGegevensRequest = ##class(vhTest.Utils.WS.Vhisie4.Auth.RegistreerContactGegevensRequest).StandaardRegistreerContactGegevensRequest()
-	Set RegistreerContactGegevensRequestStub.Header.KlantId = ""
-	
-	#dim HandelKlantDataDummy As DOM.VKP.impl.HandelKlantData = ##class(vhTest.Utils.DOM.VKP.HandelKlantData).StandaardHandelKlantData()
-	Set HandelKlantDataRepositoryMock = ##class(vhTest.Mock.TECH.Persistentie.Repository).%New()
-	Do HandelKlantDataRepositoryMock.VerwachtMethodCall("Maak").ExactAantalKeer(1).DanReturn(HandelKlantDataDummy)
-	Do HandelKlantDataRepositoryMock.VerwachtMethodCall("Bewaar",HandelKlantDataDummy).ExactAantalKeer(0).DanDoeNiks()
-	
-	Set HandelPersonalityStub = ##class(vhTest.Mock.DOM.common.HandelPersonality).%New()
-	Do HandelPersonalityStub.IndienMethodCall("GeefID").DanReturn(##class(DOM.common.enu.Personality).Kisch())
-	Do HandelPersonalityStub.IndienMethodCall("GeefPrefix").DanReturn("daro_")
-	Do HandelPersonalityStub.IndienMethodCall("Accept",$$$ElkeWaarde).DanDoeNiks()
-	
-	Set HandelPersonalityRepositoryStub = ##class(vhTest.Mock.TECH.Persistentie.Repository).%New()	
-	Do HandelPersonalityRepositoryStub.VerwachtMethodCall("GeefViaID",RegistreerContactGegevensRequestStub.Header.PersonalityId).DanReturn(HandelPersonalityStub)
-	
-	Set WebshopSessionServiceStub = ##class(vhTest.Mock.APPS.EC.WebshopSessionService).%New()
-	Do WebshopSessionServiceStub.IndienMethodCall("GeefVolgendeKlantID",RegistreerContactGegevensRequestStub.Header.PersonalityId).DanReturn("1")
-	
-	Set KlantDataBewaarderStub = ##class(vhTest.Mock.APPS.VKP.KlantDataBewaarder).%New()
-	Do KlantDataBewaarderStub.IndienMethodCall("Bewaar",$$$ElkeWaarde,$$$ElkeWaarde).DanDoeNiks()
-	
-	Set SettingsManagerStub = ##class(vhTest.Mock.WSimpl.Vhisie4.SettingsManager).%New()
-	Do SettingsManagerStub.IndienMethodCall("GeefVhisie4Prefix",HandelPersonalityStub).DanReturn("daro_")
-	Do SettingsManagerStub.IndienMethodCall("GeefWebshopVerwerker",HandelPersonalityStub).DanReturn("DARO")
-	
-	Set KortingBewaarderDummy = ##class(vhTest.Dummy.WSimpl.Unishop.Login.KortingBewaarder).%New()
-	Set KlantSessieDataBepalerDummy = ##class(vhTest.Dummy.APPS.EC.KlantSessieDataBepaler).%New()
-	
-	Set Registreerder = ##class(WSimpl.Vhisie4.Auth.HandelAuthenticator.ContactGegevensRegistreerder).%New(HandelKlantDataRepositoryMock,HandelPersonalityRepositoryStub,WebshopSessionServiceStub,KlantDataBewaarderStub,SettingsManagerStub,KortingBewaarderDummy,KlantSessieDataBepalerDummy)
-	Do Registreerder.Registreer(RegistreerContactGegevensRequestStub)
-	
-	Do HandelKlantDataRepositoryMock.Verifieer()
-	Do HandelPersonalityRepositoryStub.Verifieer()
-]]></Implementation>
-</Method>
-
-<Method name="Test: KlantId ingevuld en bestaat niet: error">
-<Implementation><![CDATA[
-	#dim RegistreerContactGegevensRequestStub As WS.Vhisie4.Auth.RegistreerContactGegevensRequest = ##class(vhTest.Utils.WS.Vhisie4.Auth.RegistreerContactGegevensRequest).StandaardRegistreerContactGegevensRequest()
-	Set RegistreerContactGegevensRequestStub.Header.KlantId = "UT_Ongeldig"
-
-	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Kon geen klantdata openen met id 'UT_Ongeldig'")
-	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(##class(TECH.Exceptions.InvalidInputException).%ClassName(1),Substrings))
-	
-	Set Registreerder = ##class(WSimpl.Vhisie4.Auth.HandelAuthenticator.ContactGegevensRegistreerder).%New()
-	Do Registreerder.Registreer(RegistreerContactGegevensRequestStub)
-]]></Implementation>
-</Method>
 </Class>
 
 
Index: WSimpl/Vhisie4/Auth/HandelAuthenticator/ContactGegevensRegistreerder/KlantDataBepaler.cls.xml
===================================================================
diff -u
--- WSimpl/Vhisie4/Auth/HandelAuthenticator/ContactGegevensRegistreerder/KlantDataBepaler.cls.xml	(revision 0)
+++ WSimpl/Vhisie4/Auth/HandelAuthenticator/ContactGegevensRegistreerder/KlantDataBepaler.cls.xml	(revision 45823)
@@ -0,0 +1,83 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WSimpl.Vhisie4.Auth.HandelAuthenticator.ContactGegevensRegistreerder.KlantDataBepaler">
+<Super>TECH.Mockable</Super>
+
+<Property name="HandelKlantDataRepository">
+<Type>DOM.VKP.impl.HandelKlantDataRepository</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="SettingsManager">
+<Type>WSimpl.Vhisie4.SettingsManager</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="WebshopSessionService">
+<Type>APPS.EC.WebshopSessionService</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>HandelKlantDataRepository:DOM.VKP.impl.HandelKlantDataRepository,SettingsManager:WSimpl.Vhisie4.SettingsManager,WebshopSessionService:APPS.EC.WebshopSessionService</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..HandelKlantDataRepository = $$$Inject(HandelKlantDataRepository,##class(DOM.VKP.impl.HandelKlantDataRepository).%New())
+	Set ..SettingsManager = $$$Inject(SettingsManager,##class(WSimpl.Vhisie4.SettingsManager).%New())
+	Set ..WebshopSessionService = $$$Inject(WebshopSessionService,##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefWebshopSessionService())
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="Bepaal">
+<FormalSpec>RegistreerContactGegevensRequest:WS.Vhisie4.Auth.RegistreerContactGegevensRequest,HandelPersonality:DOM.common.impl.HandelPersonality</FormalSpec>
+<ReturnType>DOM.VKP.impl.HandelKlantData</ReturnType>
+<Implementation><![CDATA[
+	#dim KlantData As DOM.VKP.impl.HandelKlantData
+	#dim KlantId As %String = ""
+	
+	If ((RegistreerContactGegevensRequest.Header.PersonalityId = ##class(DOM.common.enu.Personality).Hein() && $$$HasLength(RegistreerContactGegevensRequest.Header.KlantId))){
+		Set KlantId = ..SettingsManager.GeefVhisie4Prefix(HandelPersonality)_RegistreerContactGegevensRequest.Header.KlantId
+		Set KlantData = ..MaakHandelKlantData(KlantId,RegistreerContactGegevensRequest)
+	} ElseIf (RegistreerContactGegevensRequest.Header.KlantId = "") {
+		Set KlantId = ..SettingsManager.GeefVhisie4Prefix(HandelPersonality)_..WebshopSessionService.GeefVolgendeKlantID(RegistreerContactGegevensRequest.Header.PersonalityId)
+		Set KlantData = ..MaakHandelKlantData(KlantId,RegistreerContactGegevensRequest)
+	} Else {
+		Try {
+			Set KlantData = ..HandelKlantDataRepository.GeefViaID(..SettingsManager.GeefVhisie4Prefix(HandelPersonality)_RegistreerContactGegevensRequest.Header.KlantId)
+		} Catch {
+			Do ##class(TECH.Exceptions.InvalidInputException).Throw("Kon geen klantdata openen met id '"_RegistreerContactGegevensRequest.Header.KlantId_"'")
+		}		
+	}
+		
+	Quit KlantData
+]]></Implementation>
+</Method>
+
+<Method name="MaakHandelKlantData">
+<FormalSpec>KlantId:DOM.VKP.VanHoeckeKlantID,RegistreerContactGegevensRequest:WS.Vhisie4.Auth.RegistreerContactGegevensRequest</FormalSpec>
+<Private>1</Private>
+<ReturnType>DOM.VKP.impl.HandelKlantData</ReturnType>
+<Implementation><![CDATA[
+	#dim HandelKlantData As DOM.VKP.impl.HandelKlantData = ..HandelKlantDataRepository.Maak()
+	
+	Set HandelKlantData.ID = KlantId
+	Set HandelKlantData.EmailAdres = RegistreerContactGegevensRequest.EmailAdres
+	Set HandelKlantData.FaxNummer = RegistreerContactGegevensRequest.FaxNummer
+	Set HandelKlantData.Gemeente = RegistreerContactGegevensRequest.Gemeente
+	Set HandelKlantData.Naam = RegistreerContactGegevensRequest.Naam
+	Set HandelKlantData.Postcode = RegistreerContactGegevensRequest.Postcode
+	Set HandelKlantData.StraatEnNr = RegistreerContactGegevensRequest.StraatEnNr
+	Set HandelKlantData.TelefoonNummer = RegistreerContactGegevensRequest.TelefoonNummer
+	
+	Quit HandelKlantData
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Fake/WSimpl/Vhisie4/Auth/HandelAuthenticator/ContactGegevensRegistreerder/KlantDataBepaler.cls.xml
===================================================================
diff -u
--- vhTest/Fake/WSimpl/Vhisie4/Auth/HandelAuthenticator/ContactGegevensRegistreerder/KlantDataBepaler.cls.xml	(revision 0)
+++ vhTest/Fake/WSimpl/Vhisie4/Auth/HandelAuthenticator/ContactGegevensRegistreerder/KlantDataBepaler.cls.xml	(revision 45823)
@@ -0,0 +1,19 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.WSimpl.Vhisie4.Auth.HandelAuthenticator.ContactGegevensRegistreerder.KlantDataBepaler">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden, nieuwe methodes worden automatisch bijgevoegd, bestaande blijven zoals ze zijn.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>WSimpl.Vhisie4.Auth.HandelAuthenticator.ContactGegevensRegistreerder.KlantDataBepaler</Super>
+
+<Method name="Bepaal">
+<FormalSpec>RegistreerContactGegevensRequest:WS.Vhisie4.Auth.RegistreerContactGegevensRequest,HandelPersonality:DOM.common.impl.HandelPersonality</FormalSpec>
+<ReturnType>DOM.VKP.impl.HandelKlantData</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: WSimpl/Vhisie4/Auth/HandelAuthenticator/ContactGegevensRegistreerder.cls.xml
===================================================================
diff -u -r45633 -r45823
--- WSimpl/Vhisie4/Auth/HandelAuthenticator/ContactGegevensRegistreerder.cls.xml	(.../ContactGegevensRegistreerder.cls.xml)	(revision 45633)
+++ WSimpl/Vhisie4/Auth/HandelAuthenticator/ContactGegevensRegistreerder.cls.xml	(.../ContactGegevensRegistreerder.cls.xml)	(revision 45823)
@@ -8,11 +8,6 @@
 <Private>1</Private>
 </Property>
 
-<Property name="HandelKlantDataRepository">
-<Type>DOM.VKP.impl.HandelKlantDataRepository</Type>
-<Private>1</Private>
-</Property>
-
 <Property name="WebshopSessionService">
 <Type>APPS.EC.WebshopSessionService</Type>
 <Private>1</Private>
@@ -23,13 +18,13 @@
 <Private>1</Private>
 </Property>
 
-<Property name="SettingsManager">
-<Type>WSimpl.Vhisie4.SettingsManager</Type>
+<Property name="KortingBewaarder">
+<Type>WSimpl.Unishop.Login.KortingBewaarder</Type>
 <Private>1</Private>
 </Property>
 
-<Property name="KortingBewaarder">
-<Type>WSimpl.Unishop.Login.KortingBewaarder</Type>
+<Property name="SettingsManager">
+<Type>WSimpl.Vhisie4.SettingsManager</Type>
 <Private>1</Private>
 </Property>
 
@@ -38,20 +33,24 @@
 <Private>1</Private>
 </Property>
 
+<Property name="KlantDataBepaler">
+<Type>WSimpl.Vhisie4.Auth.HandelAuthenticator.ContactGegevensRegistreerder.KlantDataBepaler</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>HandelKlantDataRepository:DOM.VKP.impl.HandelKlantDataRepository,HandelPersonalityRepository:DOM.common.impl.HandelPersonalityRepository,WebshopSessionService:APPS.EC.WebshopSessionService,KlantDataBewaarder:APPS.VKP.KlantDataBewaarder,SettingsManager:WSimpl.Vhisie4.SettingsManager,LoginKortingBewaarder:WSimpl.Unishop.Login.KortingBewaarder,KlantSessieDataBepaler:APPS.EC.KlantSessieDataBepaler</FormalSpec>
+<FormalSpec>HandelPersonalityRepository:DOM.common.impl.HandelPersonalityRepository,KlantDataBewaarder:APPS.VKP.KlantDataBewaarder,SettingsManager:WSimpl.Vhisie4.SettingsManager,LoginKortingBewaarder:WSimpl.Unishop.Login.KortingBewaarder,KlantSessieDataBepaler:APPS.EC.KlantSessieDataBepaler,KlantDataBepaler:WSimpl.Vhisie4.Auth.HandelAuthenticator.ContactGegevensRegistreerder.KlantDataBepaler</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..HandelPersonalityRepository = $$$Inject(HandelPersonalityRepository,##class(DOM.common.impl.HandelPersonalityRepository).%New())
-	Set ..HandelKlantDataRepository = $$$Inject(HandelKlantDataRepository,##class(DOM.VKP.impl.HandelKlantDataRepository).%New())
-	Set ..WebshopSessionService = $$$Inject(WebshopSessionService,##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefWebshopSessionService())
 	Set ..KlantDataBewaarder = $$$Inject(KlantDataBewaarder,##class(APPS.ApplicatieContext).Instance().GeefVerkoopAPI().GeefKlantDataBewaarder())
-	Set ..SettingsManager = $$$Inject(SettingsManager,##class(WSimpl.Vhisie4.SettingsManager).%New())
 	Set ..KortingBewaarder = $$$Inject(LoginKortingBewaarder,##class(WSimpl.Unishop.Login.KortingBewaarder).%New())
 	Set ..KlantSessieDataBepaler = $$$Inject(KlantSessieDataBepaler,##class(APPS.EC.impl.KlantSessieDataBepaler).%New())
+	Set ..KlantDataBepaler = $$$Inject(KlantDataBepaler,##class(WSimpl.Vhisie4.Auth.HandelAuthenticator.ContactGegevensRegistreerder.KlantDataBepaler).%New())
+	Set ..SettingsManager = $$$Inject(SettingsManager,##class(WSimpl.Vhisie4.SettingsManager).%New())
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -71,19 +70,8 @@
 	} Else {
 		#dim HandelPersonality As DOM.common.impl.HandelPersonality = ..HandelPersonalityRepository.GeefViaID(RegistreerContactGegevensRequest.Header.PersonalityId)
 		
-		#dim KlantId As %String = ""
-		#dim KlantData As DOM.VKP.impl.HandelKlantData
-		If RegistreerContactGegevensRequest.Header.KlantId = "" {
-			Set KlantId = ..SettingsManager.GeefVhisie4Prefix(HandelPersonality)_..WebshopSessionService.GeefVolgendeKlantID(RegistreerContactGegevensRequest.Header.PersonalityId)
-			Set KlantData = ..GeefHandelKlantDataVoorRegistreer(KlantId,RegistreerContactGegevensRequest)
-		} Else {
-			Try {
-				Set KlantData = ..HandelKlantDataRepository.GeefViaID(..SettingsManager.GeefVhisie4Prefix(HandelPersonality)_RegistreerContactGegevensRequest.Header.KlantId)
-			} Catch {
-				Do ##class(TECH.Exceptions.InvalidInputException).Throw("Kon geen klantdata openen met id '"_RegistreerContactGegevensRequest.Header.KlantId_"'")
-			}
-					
-		}
+		#dim KlantData As DOM.VKP.impl.HandelKlantData = ..KlantDataBepaler.Bepaal(RegistreerContactGegevensRequest, HandelPersonality)
+		
 		Set KlantData.Naam = RegistreerContactGegevensRequest.Naam
 		Set KlantData.EmailAdres = RegistreerContactGegevensRequest.EmailAdres
 		Set KlantData.StraatEnNr = RegistreerContactGegevensRequest.StraatEnNr
@@ -128,29 +116,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefHandelKlantDataVoorRegistreer">
-<FormalSpec>KlantId:DOM.VKP.VanHoeckeKlantID,RegistreerContactGegevensRequest:WS.Vhisie4.Auth.RegistreerContactGegevensRequest</FormalSpec>
-<Private>1</Private>
-<ReturnType>DOM.VKP.impl.HandelKlantData</ReturnType>
-<Implementation><![CDATA[
-	#dim HandelKlantData As DOM.VKP.impl.HandelKlantData = ..HandelKlantDataRepository.Maak()
-	
-	Set HandelKlantData.ID = KlantId
-	Set HandelKlantData.EmailAdres = RegistreerContactGegevensRequest.EmailAdres
-	Set HandelKlantData.FaxNummer = RegistreerContactGegevensRequest.FaxNummer
-	Set HandelKlantData.Gemeente = RegistreerContactGegevensRequest.Gemeente
-	Set HandelKlantData.Naam = RegistreerContactGegevensRequest.Naam
-	Set HandelKlantData.Postcode = RegistreerContactGegevensRequest.Postcode
-	Set HandelKlantData.StraatEnNr = RegistreerContactGegevensRequest.StraatEnNr
-	Set HandelKlantData.TelefoonNummer = RegistreerContactGegevensRequest.TelefoonNummer
-	
-	#dim HandelPersonality As DOM.common.impl.HandelPersonality = ..HandelPersonalityRepository.GeefViaID(RegistreerContactGegevensRequest.Header.PersonalityId)
-	Do ..BewaarKlant(HandelPersonality,HandelKlantData)
-	
-	Quit HandelKlantData
-]]></Implementation>
-</Method>
-
 <Method name="BewaarKlant">
 <FormalSpec>Personality:DOM.common.Personality,KlantData:DOM.common.dto.HandelKlantData</FormalSpec>
 <Private>1</Private>
Index: vhUnitTest/WSimpl/Vhisie4/Auth/HandelAuthenticator/ContactGegevensRegistreerder/KlantDataBepaler/Bepaal/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/WSimpl/Vhisie4/Auth/HandelAuthenticator/ContactGegevensRegistreerder/KlantDataBepaler/Bepaal/Test.cls.xml	(revision 0)
+++ vhUnitTest/WSimpl/Vhisie4/Auth/HandelAuthenticator/ContactGegevensRegistreerder/KlantDataBepaler/Bepaal/Test.cls.xml	(revision 45823)
@@ -0,0 +1,110 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.WSimpl.Vhisie4.Auth.HandelAuthenticator.ContactGegevensRegistreerder.KlantDataBepaler.Bepaal.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: Standaardgedrag: KlantId ingevuld en bestaat: data updaten">
+<Implementation><![CDATA[
+	#dim RegistreerContactGegevensRequestStub As WS.Vhisie4.Auth.RegistreerContactGegevensRequest = ##class(vhTest.Utils.WS.Vhisie4.Auth.RegistreerContactGegevensRequest).StandaardRegistreerContactGegevensRequest()
+	
+	Set HandelPersonalityStub = ##class(vhTest.Mock.DOM.common.HandelPersonality).%New()
+	Do HandelPersonalityStub.IndienMethodCall("Accept",$$$ElkeWaarde).DanDoeNiks()
+	
+	#dim HandelKlantDataDummy As DOM.VKP.impl.HandelKlantData = ##class(vhTest.Utils.DOM.VKP.HandelKlantData).StandaardHandelKlantData()
+	Set HandelKlantDataDummy.ID = "daro_42"
+	Set HandelKlantDataRepositoryMock = ##class(vhTest.Mock.TECH.Persistentie.Repository).%New()
+	Do HandelKlantDataRepositoryMock.VerwachtMethodCall("Maak").ExactAantalKeer(0)
+	Do HandelKlantDataRepositoryMock.VerwachtMethodCall("GeefViaID","daro_"_RegistreerContactGegevensRequestStub.Header.KlantId).ExactAantalKeer(1).DanReturn(HandelKlantDataDummy)
+	
+	Set HandelPersonalityRepositoryStub = ##class(vhTest.Mock.TECH.Persistentie.Repository).%New()
+	Do HandelPersonalityRepositoryStub.IndienMethodCall("GeefViaID",RegistreerContactGegevensRequestStub.Header.PersonalityId).DanReturn(HandelPersonalityStub)
+	
+	Set SettingsManagerMock = ##class(vhTest.Mock.WSimpl.Vhisie4.SettingsManager).%New()
+	Do SettingsManagerMock.VerwachtMethodCall("GeefVhisie4Prefix",HandelPersonalityStub).DanReturn("daro_")
+	
+	Set WebshopSessionServiceDummy = ##class(vhTest.Dummy.APPS.EC.WebshopSessionService).%New()
+	
+	Set Bepaler = ##class(WSimpl.Vhisie4.Auth.HandelAuthenticator.ContactGegevensRegistreerder.KlantDataBepaler).%New(HandelKlantDataRepositoryMock,SettingsManagerMock,WebshopSessionServiceDummy)
+	#dim HandelKlantData As DOM.VKP.impl.HandelKlantData =  Bepaler.Bepaal(RegistreerContactGegevensRequestStub,HandelPersonalityStub)
+	
+	Do $$$AssertEquals(HandelKlantData.ID,"daro_42")
+	Do SettingsManagerMock.Verifieer()
+	Do HandelKlantDataRepositoryMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Standaardgedrag: Leeg KlantId: nieuwe aanmaken">
+<Implementation><![CDATA[
+	#dim RegistreerContactGegevensRequestStub As WS.Vhisie4.Auth.RegistreerContactGegevensRequest = ##class(vhTest.Utils.WS.Vhisie4.Auth.RegistreerContactGegevensRequest).StandaardRegistreerContactGegevensRequest()
+	Set RegistreerContactGegevensRequestStub.Header.KlantId = ""
+	
+	#dim HandelKlantDataDummy As DOM.VKP.impl.HandelKlantData = ##class(vhTest.Utils.DOM.VKP.HandelKlantData).StandaardHandelKlantData()
+	Set HandelKlantDataRepositoryMock = ##class(vhTest.Mock.TECH.Persistentie.Repository).%New()
+	Do HandelKlantDataRepositoryMock.VerwachtMethodCall("Maak").ExactAantalKeer(1).DanReturn(HandelKlantDataDummy)
+	Do HandelKlantDataRepositoryMock.VerwachtMethodCall("GeefViaID","daro_"_RegistreerContactGegevensRequestStub.Header.KlantId).ExactAantalKeer(0)
+		
+	Set HandelPersonalityStub = ##class(vhTest.Mock.DOM.common.HandelPersonality).%New()
+	Do HandelPersonalityStub.IndienMethodCall("GeefID").DanReturn(##class(DOM.common.enu.Personality).Daro())
+	Do HandelPersonalityStub.IndienMethodCall("GeefPrefix").DanReturn("daro_")
+	Do HandelPersonalityStub.IndienMethodCall("Accept",$$$ElkeWaarde).DanDoeNiks()
+	
+	Set WebshopSessionServiceStub = ##class(vhTest.Mock.APPS.EC.WebshopSessionService).%New()
+	Do WebshopSessionServiceStub.IndienMethodCall("GeefVolgendeKlantID",RegistreerContactGegevensRequestStub.Header.PersonalityId).DanReturn("1")
+	
+	Set SettingsManagerMock = ##class(vhTest.Mock.WSimpl.Vhisie4.SettingsManager).%New()
+	Do SettingsManagerMock.VerwachtMethodCall("GeefVhisie4Prefix",HandelPersonalityStub).DanReturn("daro_")
+	
+	Set Bepaler = ##class(WSimpl.Vhisie4.Auth.HandelAuthenticator.ContactGegevensRegistreerder.KlantDataBepaler).%New(HandelKlantDataRepositoryMock,SettingsManagerMock,WebshopSessionServiceStub)
+	#dim HandelKlantData As DOM.VKP.impl.HandelKlantData = Bepaler.Bepaal(RegistreerContactGegevensRequestStub,HandelPersonalityStub)
+	
+	Do $$$AssertEquals(HandelKlantData.ID,"daro_1")
+	Do SettingsManagerMock.Verifieer()
+	Do HandelKlantDataRepositoryMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Hein heeft KlantId ingevuld en bestaat niet: alsnog aanmaken">
+<Implementation><![CDATA[
+	#dim RegistreerContactGegevensRequestStub As WS.Vhisie4.Auth.RegistreerContactGegevensRequest = ##class(vhTest.Utils.WS.Vhisie4.Auth.RegistreerContactGegevensRequest).StandaardRegistreerContactGegevensRequest()
+	Set RegistreerContactGegevensRequestStub.Header.PersonalityId = ##class(DOM.common.enu.Personality).Hein()
+	
+	Set HandelPersonalityStub = ##class(vhTest.Mock.DOM.common.HandelPersonality).%New()
+	Do HandelPersonalityStub.IndienMethodCall("Accept",$$$ElkeWaarde).DanDoeNiks()
+	
+	#dim HandelKlantDataDummy As DOM.VKP.impl.HandelKlantData = ##class(vhTest.Utils.DOM.VKP.HandelKlantData).StandaardHandelKlantData()
+	Set HandelKlantDataRepositoryMock = ##class(vhTest.Mock.TECH.Persistentie.Repository).%New()
+	Do HandelKlantDataRepositoryMock.VerwachtMethodCall("Maak").ExactAantalKeer(1).DanReturn(HandelKlantDataDummy)
+	Do HandelKlantDataRepositoryMock.VerwachtMethodCall("GeefViaID","hein_"_RegistreerContactGegevensRequestStub.Header.KlantId).ExactAantalKeer(0)
+	
+	Set SettingsManagerMock = ##class(vhTest.Mock.WSimpl.Vhisie4.SettingsManager).%New()
+	Do SettingsManagerMock.VerwachtMethodCall("GeefVhisie4Prefix",HandelPersonalityStub).DanReturn("hein_")
+	
+	Set WebshopSessionServiceMock = ##class(vhTest.Mock.APPS.EC.WebshopSessionService).%New()
+	Do WebshopSessionServiceMock.VerwachtMethodCall("GeefVolgendeKlantID",RegistreerContactGegevensRequestStub.Header.PersonalityId).ExactAantalKeer(0)
+	
+	Set Bepaler = ##class(WSimpl.Vhisie4.Auth.HandelAuthenticator.ContactGegevensRegistreerder.KlantDataBepaler).%New(HandelKlantDataRepositoryMock,SettingsManagerMock,WebshopSessionServiceMock)
+	#dim HandelKlantData As DOM.VKP.impl.HandelKlantData = Bepaler.Bepaal(RegistreerContactGegevensRequestStub,HandelPersonalityStub)
+	
+	Do $$$AssertEquals(HandelKlantData.ID,"hein_5")
+	Do SettingsManagerMock.Verifieer()
+	Do HandelKlantDataRepositoryMock.Verifieer()
+	Do WebshopSessionServiceMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Niet-Hein heeft KlantId ingevuld en bestaat niet: error">
+<Implementation><![CDATA[
+	#dim RegistreerContactGegevensRequestStub As WS.Vhisie4.Auth.RegistreerContactGegevensRequest = ##class(vhTest.Utils.WS.Vhisie4.Auth.RegistreerContactGegevensRequest).StandaardRegistreerContactGegevensRequest()
+	Set RegistreerContactGegevensRequestStub.Header.KlantId = "UT_Ongeldig"
+
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Kon geen klantdata openen met id 'UT_Ongeldig'")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(##class(TECH.Exceptions.InvalidInputException).%ClassName(1),Substrings))
+	
+	Set Registreerder = ##class(WSimpl.Vhisie4.Auth.HandelAuthenticator.ContactGegevensRegistreerder).%New()
+	Do Registreerder.Registreer(RegistreerContactGegevensRequestStub)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Mock/WSimpl/Vhisie4/Auth/HandelAuthenticator/ContactGegevensRegistreerder/KlantDataBepaler.cls.xml
===================================================================
diff -u
--- vhTest/Mock/WSimpl/Vhisie4/Auth/HandelAuthenticator/ContactGegevensRegistreerder/KlantDataBepaler.cls.xml	(revision 0)
+++ vhTest/Mock/WSimpl/Vhisie4/Auth/HandelAuthenticator/ContactGegevensRegistreerder/KlantDataBepaler.cls.xml	(revision 45823)
@@ -0,0 +1,20 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.WSimpl.Vhisie4.Auth.HandelAuthenticator.ContactGegevensRegistreerder.KlantDataBepaler">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>WSimpl.Vhisie4.Auth.HandelAuthenticator.ContactGegevensRegistreerder.KlantDataBepaler,Tools.Mock.MockClassBase</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="Bepaal">
+<FormalSpec>RegistreerContactGegevensRequest:WS.Vhisie4.Auth.RegistreerContactGegevensRequest,HandelPersonality:DOM.common.impl.HandelPersonality</FormalSpec>
+<ReturnType>DOM.VKP.impl.HandelKlantData</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("Bepaal",RegistreerContactGegevensRequest,HandelPersonality)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>