Index: vhUnitTest/WSimpl/Vhisie4/Auth/HandelAuthenticator/RegistreerContactGegevens/Test.cls.xml
===================================================================
diff -u -r42097 -r45475
--- vhUnitTest/WSimpl/Vhisie4/Auth/HandelAuthenticator/RegistreerContactGegevens/Test.cls.xml	(.../Test.cls.xml)	(revision 42097)
+++ vhUnitTest/WSimpl/Vhisie4/Auth/HandelAuthenticator/RegistreerContactGegevens/Test.cls.xml	(.../Test.cls.xml)	(revision 45475)
@@ -3,6 +3,55 @@
 <Class name="vhUnitTest.WSimpl.Vhisie4.Auth.HandelAuthenticator.RegistreerContactGegevens.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.impl.HandelPersonality).%New(##class(DOM.common.enu.Personality).Daro(),$$$DummyInteger)
+	Do HandelPersonalityStub.IndienMethodCall("GeefID").DanReturn(##class(DOM.common.enu.Personality).Daro())
+	Do HandelPersonalityStub.IndienMethodCall("GeefPrefix").DanReturn("daro_")
+	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",HandelPersonalityStub.GeefPrefix()_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 KlantDataBewaarderStub = ##class(vhTest.Mock.APPS.VKP.KlantDataBewaarder).%New()
+	Do KlantDataBewaarderStub.IndienMethodCall("Bewaar",$$$ElkeWaarde,$$$ElkeWaarde).DanDoeNiks()
+	
+	#dim KlantSessieData As APPS.EC.dto.KlantSessieData = ##class(APPS.EC.dto.KlantSessieData).%New()
+	Set KlantSessieData.Email = RegistreerContactGegevensRequestStub.EmailAdres
+	Set KlantSessieData.KlantID = RegistreerContactGegevensRequestStub.KlantId
+	set KlantSessieData.GebruikerID = 1
+	Set KlantSessieData.KlantNaam = RegistreerContactGegevensRequestStub.Naam
+	Set KlantSessieData.Korting = RegistreerContactGegevensRequestStub.KortingFactor
+	Set KlantSessieData.Taal = RegistreerContactGegevensRequestStub.Header.Taal
+	
+	#dim DataOpt As %String = ""
+	
+	Set KlantSessieDataBepalerStub = ##class(vhTest.Mock.APPS.EC.KlantSessieDataBepaler).%New()
+	Do KlantSessieDataBepalerStub.VerwachtMethodCall("GeefEncryptedKlantSessieDataVoorHandel",..Matches.Object(KlantSessieData),"DARO").DanReturn(DataOpt)
+	
+	Set KortingBewaarderMock = ##class(vhTest.Mock.WSimpl.Unishop.Login.KortingBewaarder).%New()
+	Do KortingBewaarderMock.VerwachtMethodCall("BewaarMeegegevenKorting",RegistreerContactGegevensRequestStub.Ref,DataOpt).ExactAantalKeer(1)
+	
+	Set Authenticator = ##class(WSimpl.Vhisie4.Auth.HandelAuthenticator).%New(,,HandelKlantDataRepositoryMock,HandelPersonalityRepositoryStub,,KlantDataBewaarderStub,SettingsManagerStub,KortingBewaarderMock,,KlantSessieDataBepalerStub)
+	#dim Response As WS.Vhisie4.Auth.RegistreerContactGegevensResponse = Authenticator.RegistreerContactGegevens(RegistreerContactGegevensRequestStub)
+	
+	Do HandelKlantDataRepositoryMock.Verifieer()
+	Do KortingBewaarderMock.Verifieer()
+	Do KlantSessieDataBepalerStub.Verifieer()
+]]></Implementation>
+</Method>
+
 <Method name="Test: Geen Ref ingevuld -&gt; error">
 <Implementation><![CDATA[
 	#dim RegistreerContactGegevensRequestStub As WS.Vhisie4.Auth.RegistreerContactGegevensRequest = ##class(vhTest.Utils.WS.Vhisie4.Auth.RegistreerContactGegevensRequest).StandaardRegistreerContactGegevensRequest()
@@ -81,33 +130,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: 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.impl.HandelPersonality).%New(##class(DOM.common.enu.Personality).Daro(),$$$DummyInteger)
-	Do HandelPersonalityStub.IndienMethodCall("GeefID").DanReturn(##class(DOM.common.enu.Personality).Daro())
-	Do HandelPersonalityStub.IndienMethodCall("GeefPrefix").DanReturn("daro_")
-	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",HandelPersonalityStub.GeefPrefix()_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 KlantDataBewaarderStub = ##class(vhTest.Mock.APPS.VKP.KlantDataBewaarder).%New()
-	Do KlantDataBewaarderStub.IndienMethodCall("Bewaar",$$$ElkeWaarde,$$$ElkeWaarde).DanDoeNiks()
-	
-	Set Authenticator = ##class(WSimpl.Vhisie4.Auth.HandelAuthenticator).%New(,,HandelKlantDataRepositoryMock,HandelPersonalityRepositoryStub,,KlantDataBewaarderStub)
-	#dim Response As WS.Vhisie4.Auth.RegistreerContactGegevensResponse = Authenticator.RegistreerContactGegevens(RegistreerContactGegevensRequestStub)
-	
-	Do HandelKlantDataRepositoryMock.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()
Index: APPS/EC/dto/KlantSessieData.cls.xml
===================================================================
diff -u -r29059 -r45475
--- APPS/EC/dto/KlantSessieData.cls.xml	(.../KlantSessieData.cls.xml)	(revision 29059)
+++ APPS/EC/dto/KlantSessieData.cls.xml	(.../KlantSessieData.cls.xml)	(revision 45475)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="APPS.EC.dto.KlantSessieData">
-<Super>APPS.EC.KlantSessieData,%RegisteredObject</Super>
+<Super>APPS.EC.KlantSessieData,TECH.RegisteredObject</Super>
 
 <Property name="Taal">
 <Type>DOM.enu.Taal</Type>
Index: WSimpl/Vhisie4/Auth/HandelAuthenticator.cls.xml
===================================================================
diff -u -r45472 -r45475
--- WSimpl/Vhisie4/Auth/HandelAuthenticator.cls.xml	(.../HandelAuthenticator.cls.xml)	(revision 45472)
+++ WSimpl/Vhisie4/Auth/HandelAuthenticator.cls.xml	(.../HandelAuthenticator.cls.xml)	(revision 45475)
@@ -58,8 +58,13 @@
 <Private>1</Private>
 </Property>
 
+<Property name="KlantSessieDataBepaler">
+<Type>APPS.EC.KlantSessieDataBepaler</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>LoginParameterBepaler:WSimpl.Unishop.Login.ParameterBepaler,Logger:vhLib.Logger,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,UrlBepaler:APPS.EC.Webshop.UrlBepaler</FormalSpec>
+<FormalSpec>LoginParameterBepaler:WSimpl.Unishop.Login.ParameterBepaler,Logger:vhLib.Logger,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,UrlBepaler:APPS.EC.Webshop.UrlBepaler,KlantSessieDataBepaler:APPS.EC.KlantSessieDataBepaler</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -76,6 +81,7 @@
 	Set ..KortingBewaarder = $$$Inject(LoginKortingBewaarder,##class(WSimpl.Unishop.Login.KortingBewaarder).%New())
 	Set ..Response = ##class(WS.Vhisie4.Auth.DecrypteerResponse).%New()
 	Set ..UrlBepaler = $$$Inject(UrlBepaler,##class(APPS.EC.Webshop.impl.UrlBepaler).%New())
+	Set ..KlantSessieDataBepaler = $$$Inject(KlantSessieDataBepaler,##class(APPS.EC.impl.KlantSessieDataBepaler).%New())
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -237,13 +243,33 @@
 		Set Response.GebruikerId = 1
 		Set Response.GebruikerNaam = ""
 		Set Response.KlantNaam = KlantData.Naam
-		Set Response.DataOpt = ##class(vhPowerTools.APPS.EC.KlantSessieDataGeneratorUnishop).%New().GenereerDataOpt(..SettingsManager.GeefWebshopVerwerker(HandelPersonality),Response.KlantId,Response.KlantNaam,Response.GebruikerId,RegistreerContactGegevensRequest.EmailAdres,RegistreerContactGegevensRequest.Header.Taal,RegistreerContactGegevensRequest.KortingFactor)
+		Set Response.DataOpt = ..GenereerDataOpt(..SettingsManager.GeefWebshopVerwerker(HandelPersonality),Response.KlantId,Response.KlantNaam,Response.GebruikerId,RegistreerContactGegevensRequest.EmailAdres,RegistreerContactGegevensRequest.Header.Taal,RegistreerContactGegevensRequest.KortingFactor)
+		
+		Do ..KortingBewaarder.BewaarMeegegevenKorting(RegistreerContactGegevensRequest.Ref,Response.DataOpt)
 	}
 	
 	Quit Response
 ]]></Implementation>
 </Method>
 
+<Method name="GenereerDataOpt">
+<FormalSpec>UnishopVerwerker:APPS.EC.enu.UniShopVerwerker,KlantId:%String,Klantnaam:%String,GebruikerId:%String,Email:%String="ict_development@vanhoecke.be",Taal:WSimpl.Unishop.enu.Taal="N",Korting:%String="0"</FormalSpec>
+<ReturnType>%String</ReturnType>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[
+	#dim KlantSessieData As APPS.EC.dto.KlantSessieData = ##class(APPS.EC.dto.KlantSessieData).%New()
+	
+	Set KlantSessieData.Email = Email
+	Set KlantSessieData.KlantID = KlantId
+	set KlantSessieData.GebruikerID = GebruikerId
+	Set KlantSessieData.KlantNaam = Klantnaam
+	Set KlantSessieData.Korting = Korting
+	Set KlantSessieData.Taal = Taal
+	
+	Quit ..KlantSessieDataBepaler.GeefEncryptedKlantSessieDataVoorHandel(KlantSessieData, UnishopVerwerker)
+]]></Implementation>
+</Method>
+
 <Method name="GeefHandelKlantDataVoorRegistreer">
 <FormalSpec>KlantId:DOM.VKP.VanHoeckeKlantID,RegistreerContactGegevensRequest:WS.Vhisie4.Auth.RegistreerContactGegevensRequest</FormalSpec>
 <Private>1</Private>