Index: WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder.cls.xml
===================================================================
diff -u -r50777 -r50839
--- WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder.cls.xml	(.../Decrypteerder.cls.xml)	(revision 50777)
+++ WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder.cls.xml	(.../Decrypteerder.cls.xml)	(revision 50839)
@@ -199,9 +199,12 @@
 		Do ..KlantDataBewaarder.Bewaar(HandelPersonality, KlantData)
 	} Else {
 		If ##class(TECH.StringUtils).Contains(LoginParameters.KlantID,"_") {
-			Set KlantData = ..HandelKlantDataRepository.GeefViaID(LoginParameters.KlantID)
+			Set KlantData = ..GeefHandelKlantDataDto(LoginParameters)
+			Do ..KlantDataBewaarder.Bewaar(HandelPersonality, KlantData)
 		} Else {
-			Set KlantData = ..HandelKlantDataRepository.GeefViaID(HandelPersonality.GeefPrefix()_LoginParameters.KlantID)
+			Set KlantData = ..GeefHandelKlantDataDto(LoginParameters)
+			Set KlantData.ID = HandelPersonality.GeefPrefix()_KlantData.ID
+			Do ..KlantDataBewaarder.Bewaar(HandelPersonality, KlantData)
 		}
 	}
 	
Index: vhUnitTest/WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder/Decrypteer/Test.cls.xml
===================================================================
diff -u -r50197 -r50839
--- vhUnitTest/WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder/Decrypteer/Test.cls.xml	(.../Test.cls.xml)	(revision 50197)
+++ vhUnitTest/WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder/Decrypteer/Test.cls.xml	(.../Test.cls.xml)	(revision 50839)
@@ -55,6 +55,7 @@
 	Set ..LoginParameters.PersonalityID = ##class(DOM.common.enu.Personality).Daro()
 	Set ..LoginParameters.RemoteIP = "127.0.0.257"
 	Set ..LoginParameters.Taal = "E"
+	Set ..LoginParameters.KlantNaam = "Een Naam"
 
 	Set ..KlantData = ##class(DOM.common.dto.HandelKlantData).%New()
 	Set ..KlantData.ID = "5"
@@ -79,9 +80,8 @@
 	Do LoginParameterBepalerMock.VerwachtMethodCall("GeefLoginParameters", ..DecrypteerRequestStub.Ref, ..DecrypteerRequestStub.DataOpt, ..DecrypteerRequestStub.Header.Taal, ..DecrypteerRequestStub.Header.GebruikerIp).ExactAantalKeer(1).DanReturn(..LoginParameters)
 
 	#dim HandelPersonalityMock As vhTest.Mock.DOM.common.HandelPersonality = ##class(vhTest.Mock.DOM.common.HandelPersonality).%New()
-	//Do HandelPersonalityMock.VerwachtMethodCall("GeefID").DanReturn(##class(DOM.common.enu.Personality).Daro())
 	Do HandelPersonalityMock.VerwachtMethodCall("GeefPrefix").DanReturn("daro_")
-	//Do HandelPersonalityMock.VerwachtMethodCall("Accept", HandelPersonalityMock).DanReturn(..KlantData)
+	Do HandelPersonalityMock.IndienMethodCall("Accept",HandelPersonalityMock).DanReturn(..KlantData)
 	
 	#dim HandelPersonalityRepositoryMock As vhTest.Mock.TECH.Persistentie.Repository = ##class(vhTest.Mock.TECH.Persistentie.Repository).%New()	
 	Do HandelPersonalityRepositoryMock.VerwachtMethodCall("GeefViaID", ..DecrypteerRequestStub.Header.PersonalityId).DanReturn(HandelPersonalityMock)
@@ -95,8 +95,11 @@
 	#dim RandomToegelatenLadetypes As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("LadeType1", "LadeType2", "LadeType3")
 	#dim HandelToegelatenLadetypesBepalerMock As vhTest.Mock.DOM.VKP.impl.HandelToegelatenLadetypesBepaler = ##class(vhTest.Mock.DOM.VKP.impl.HandelToegelatenLadetypesBepaler).%New()
 	Do HandelToegelatenLadetypesBepalerMock.VerwachtMethodCall("Bepaal", ..LoginParameters.PersonalityID).DanReturn(RandomToegelatenLadetypes)
+
+	Set KlantDataBewaarderStub = ##class(vhTest.Mock.APPS.VKP.KlantDataBewaarder).%New()
+	Do KlantDataBewaarderStub.IndienMethodCall("Bewaar",HandelPersonalityMock,$$$ElkeWaarde).DanDoeNiks().ExactAantalKeer(1)
 	
-	#dim Decrypteerder As WSimpl.Vhisie4.Auth.HandelAuthenticator.Decrypteerder = ##class(WSimpl.Vhisie4.Auth.HandelAuthenticator.Decrypteerder).%New(LoginParameterBepalerMock, HandelKlantDataRepositoryMock, HandelPersonalityRepositoryMock,..WebshopSessionServiceDummy, KortingBewaarderMock, ..UrlBepalerStub, HandelToegelatenLadetypesBepalerMock)
+	#dim Decrypteerder As WSimpl.Vhisie4.Auth.HandelAuthenticator.Decrypteerder = ##class(WSimpl.Vhisie4.Auth.HandelAuthenticator.Decrypteerder).%New(LoginParameterBepalerMock, HandelKlantDataRepositoryMock, HandelPersonalityRepositoryMock,..WebshopSessionServiceDummy, KortingBewaarderMock, ..UrlBepalerStub, HandelToegelatenLadetypesBepalerMock, KlantDataBewaarderStub)
 	#dim Response As WS.Vhisie4.Auth.DecrypteerResponse = Decrypteerder.Decrypteer(..DecrypteerRequestStub)
 	
 	Do $$$AssertEquals(Response.GebruikerId, "1")
@@ -279,6 +282,43 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: LoginParameters bevat KlantId en dat is bij ons bekend -&gt; andere gegevens persisteren">
+<Implementation><![CDATA[
+	Set ..LoginParameters.KlantID = "daro_5"
+	Set ..LoginParameters.PersonalityID = ##class(DOM.common.enu.Personality).Daro()
+	Set ..LoginParameters.KlantNaam = "Een nieuwe naam"
+	
+	Set LoginParameterBepalerStub = ##class(vhTest.Mock.WSimpl.Unishop.Login.ParameterBepaler).%New()
+	Do LoginParameterBepalerStub.IndienMethodCall("GeefLoginParameters",..DecrypteerRequestStub.Ref, ..DecrypteerRequestStub.DataOpt, ..DecrypteerRequestStub.Header.Taal, ..DecrypteerRequestStub.Header.GebruikerIp).ExactAantalKeer(1).DanReturn(..LoginParameters)
+
+	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",HandelPersonalityStub).DanReturn(..KlantData)
+
+	Set WebshopSessionService = ##class(vhTest.Mock.APPS.EC.WebshopSessionService).%New()
+	Do WebshopSessionService.IndienMethodCall("GeefVolgendeKlantID",##class(DOM.common.enu.Personality).Daro()).ExactAantalKeer(0)
+
+	Set HandelPersonalityRepositoryStub = ##class(vhTest.Mock.TECH.Persistentie.Repository).%New()	
+	Do HandelPersonalityRepositoryStub.IndienMethodCall("GeefViaID", ##class(DOM.common.enu.Personality).Daro()).DanReturn(HandelPersonalityStub)
+	
+	Set KlantDataBewaarderMock = ##class(vhTest.Mock.APPS.VKP.KlantDataBewaarder).%New()
+	Do KlantDataBewaarderMock.VerwachtMethodCall("Bewaar",HandelPersonalityStub,$$$ElkeWaarde).DanDoeNiks().ExactAantalKeer(1)
+	
+	Set KlantDataRepositoryMock = ##class(vhTest.Mock.DOM.VKP.impl.KlantDataRepository).%New()
+	Do KlantDataRepositoryMock.VerwachtMethodCall("BestaatViaID",..LoginParameters.KlantID).DanReturn($$$True)
+	
+	Set Decrypteerder = ##class(WSimpl.Vhisie4.Auth.HandelAuthenticator.Decrypteerder).%New(LoginParameterBepalerStub,..HandelKlantDataRepositoryDummy,HandelPersonalityRepositoryStub,WebshopSessionService,..KortingBewaarderDummy,..UrlBepalerStub,,KlantDataBewaarderMock,KlantDataRepositoryMock)
+	
+	#dim Response As WS.Vhisie4.Auth.DecrypteerResponse = Decrypteerder.Decrypteer(..DecrypteerRequestStub)
+	
+	Do $$$AssertEquals(Response.KlantId,"5")
+	Do $$$AssertEquals(Response.IsGeldig,$$$True)
+	Do KlantDataBewaarderMock.Verifieer()
+	Do KlantDataRepositoryMock.Verifieer()
+]]></Implementation>
+</Method>
+
 <Method name="aTest: Ref en Hostname komen niet overeen -&gt; niet geldig">
 <Implementation><![CDATA[
 	Set ..LoginParameters.KlantID = ""
Index: vhUnitTest/WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder/Test/Daro.cls.xml
===================================================================
diff -u -r50197 -r50839
--- vhUnitTest/WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder/Test/Daro.cls.xml	(.../Daro.cls.xml)	(revision 50197)
+++ vhUnitTest/WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder/Test/Daro.cls.xml	(.../Daro.cls.xml)	(revision 50839)
@@ -74,6 +74,7 @@
 	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).DanReturn(KlantData)
 
 	Set HandelPersonalityRepositoryStub = ##class(vhTest.Mock.TECH.Persistentie.Repository).%New()	
 	Do HandelPersonalityRepositoryStub.IndienMethodCall("GeefViaID", ##class(DOM.common.enu.Personality).Daro()).DanReturn(HandelPersonalityStub)
@@ -82,7 +83,10 @@
 	Do HandelKlantDataRepositoryStub.IndienMethodCall("GeefViaID", LoginParameters.KlantID).DanReturn(KlantData)
 	Do HandelKlantDataRepositoryStub.IndienMethodCall("BestaatViaID", LoginParameters.KlantID).DanReturn($$$True)
 	
-	#dim Decrypteerder As WSimpl.Vhisie4.Auth.HandelAuthenticator.Decrypteerder = ##class(WSimpl.Vhisie4.Auth.HandelAuthenticator.Decrypteerder).%New(LoginParameterBepalerStub,,HandelPersonalityRepositoryStub,,KortingBewaarderStub,,,,HandelKlantDataRepositoryStub)
+	Set KlantDataBewaarderStub = ##class(vhTest.Mock.APPS.VKP.KlantDataBewaarder).%New()
+	Do KlantDataBewaarderStub.IndienMethodCall("Bewaar",HandelPersonalityStub,$$$ElkeWaarde).DanDoeNiks()
+	
+	#dim Decrypteerder As WSimpl.Vhisie4.Auth.HandelAuthenticator.Decrypteerder = ##class(WSimpl.Vhisie4.Auth.HandelAuthenticator.Decrypteerder).%New(LoginParameterBepalerStub,,HandelPersonalityRepositoryStub,,KortingBewaarderStub,,,KlantDataBewaarderStub,HandelKlantDataRepositoryStub)
 	#dim DecrypteerResponse As WS.Vhisie4.Auth.DecrypteerResponse = Decrypteerder.Decrypteer(DecrypteerRequest)
 	
 	Do $$$AssertTrue(DecrypteerResponse.IsGeldig)