Index: WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder.cls.xml
===================================================================
diff -u -r50136 -r50154
--- WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder.cls.xml	(.../Decrypteerder.cls.xml)	(revision 50136)
+++ WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder.cls.xml	(.../Decrypteerder.cls.xml)	(revision 50154)
@@ -48,8 +48,13 @@
 <Private>1</Private>
 </Property>
 
+<Property name="KlantDataRepository">
+<Type>DOM.VKP.impl.KlantDataRepository</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>LoginParameterBepaler:WSimpl.Unishop.Login.ParameterBepaler="",HandelKlantDataRepository:DOM.VKP.impl.HandelKlantDataRepository="",HandelPersonalityRepository:DOM.common.impl.HandelPersonalityRepository="",WebshopSessionService:APPS.EC.WebshopSessionService="",LoginKortingBewaarder:WSimpl.Unishop.Login.KortingBewaarder="",UrlBepaler:APPS.EC.Webshop.UrlBepaler="",HandelToegelatenLadetypesBepaler:DOM.VKP.impl.HandelToegelatenLadetypesBepaler="",KlantDataBewaarder:APPS.VKP.impl.KlantDataBewaarder=""</FormalSpec>
+<FormalSpec>LoginParameterBepaler:WSimpl.Unishop.Login.ParameterBepaler="",HandelKlantDataRepository:DOM.VKP.impl.HandelKlantDataRepository="",HandelPersonalityRepository:DOM.common.impl.HandelPersonalityRepository="",WebshopSessionService:APPS.EC.WebshopSessionService="",LoginKortingBewaarder:WSimpl.Unishop.Login.KortingBewaarder="",UrlBepaler:APPS.EC.Webshop.UrlBepaler="",HandelToegelatenLadetypesBepaler:DOM.VKP.impl.HandelToegelatenLadetypesBepaler="",KlantDataBewaarder:APPS.VKP.impl.KlantDataBewaarder="",KlantDataRepository:DOM.VKP.impl.KlantDataRepository=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -63,6 +68,7 @@
 	Set ..UrlBepaler = $$$Inject(UrlBepaler, ##class(APPS.EC.Webshop.impl.UrlBepaler).%New())
 	Set ..HandelToegelatenLadetypesBepaler = $$$Inject(HandelToegelatenLadetypesBepaler, ##class(DOM.VKP.impl.HandelToegelatenLadetypesBepaler).%New())
 	Set ..KlantDataBewaarder = $$$Inject(KlantDataBewaarder, ##class(APPS.VKP.impl.KlantDataBewaarder).%New())
+	Set ..KlantDataRepository = $$$Inject(KlantDataRepository, ##class(DOM.VKP.impl.KlantDataRepository).%New())
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -185,6 +191,10 @@
 		Set KlantData = ..GeefHandelKlantDataVoorDecrypteer(LoginParameters)
 		Set KlantData.ID = HandelPersonality.GeefPrefix()_..WebshopSessionService.GeefVolgendeKlantID(HandelPersonality.GeefID())
 		Do ..KlantDataBewaarder.Bewaar(HandelPersonality, KlantData)
+	} ElseIf $$$Not(..KlantDataRepository.BestaatViaID(LoginParameters.KlantID)){
+		Set KlantData = ..GeefHandelKlantDataVoorDecrypteer(LoginParameters)
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		Do ..KlantDataBewaarder.Bewaar(HandelPersonality, KlantData)
 	} Else {
 		If ##class(TECH.StringUtils).Contains(LoginParameters.KlantID,"_") {
 			Set KlantData = ..HandelKlantDataRepository.GeefViaID(LoginParameters.KlantID)
Index: vhUnitTest/WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder/Decrypteer/Test.cls.xml
===================================================================
diff -u -r50136 -r50154
--- vhUnitTest/WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder/Decrypteer/Test.cls.xml	(.../Test.cls.xml)	(revision 50136)
+++ vhUnitTest/WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder/Decrypteer/Test.cls.xml	(.../Test.cls.xml)	(revision 50154)
@@ -56,7 +56,7 @@
 	Set ..LoginParameters.RemoteIP = "127.0.0.257"
 	Set ..LoginParameters.Taal = "E"
 
-	Set ..KlantData = ##class(DOM.common.dto.KlantData).%New()
+	Set ..KlantData = ##class(DOM.common.dto.HandelKlantData).%New()
 	Set ..KlantData.ID = "5"
 	Set ..KlantData.Naam = "Een Naam"
 	
@@ -215,13 +215,13 @@
 	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()).DanReturn("42")
+	Do WebshopSessionService.IndienMethodCall("GeefVolgendeKlantID",##class(DOM.common.enu.Personality).Daro()).DanReturn("42").ExactAantalKeer(1)
 
 	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",$$$ElkeWaarde,$$$ElkeWaarde).DanDoeNiks()
+	Do KlantDataBewaarderMock.VerwachtMethodCall("Bewaar",HandelPersonalityStub,$$$ElkeWaarde).DanDoeNiks().ExactAantalKeer(1)
 	
 	Set Decrypteerder = ##class(WSimpl.Vhisie4.Auth.HandelAuthenticator.Decrypteerder).%New(LoginParameterBepalerStub,..HandelKlantDataRepositoryDummy,HandelPersonalityRepositoryStub,WebshopSessionService,..KortingBewaarderDummy,..UrlBepalerStub,,KlantDataBewaarderMock)
 	
@@ -233,6 +233,42 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: LoginParameters bevat KlantId maar dat is bij ons onbekend -&gt; persisteren">
+<Implementation><![CDATA[
+	Set ..LoginParameters.KlantID = "daro_5"
+	Set ..LoginParameters.PersonalityID = ##class(DOM.common.enu.Personality).Daro()
+	
+	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()).DanReturn(42).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($$$False)
+	
+	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 = ""
@@ -249,7 +285,7 @@
 	Do HandelPersonalityRepositoryStub.IndienMethodCall("GeefViaID", ##class(DOM.common.enu.Personality).Daro()).DanReturn(HandelPersonalityStub)
 	
 	Set KlantDataBewaarderStub = ##class(vhTest.Mock.APPS.VKP.KlantDataBewaarder).%New()
-	Do KlantDataBewaarderStub.IndienMethodCall("Bewaar",$$$ElkeWaarde,$$$ElkeWaarde).DanDoeNiks()
+	Do KlantDataBewaarderStub.IndienMethodCall("Bewaar",HandelPersonalityStub,$$$ElkeWaarde).DanDoeNiks()
 	
 	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)