Index: vhTest/Utils/WS/Vhisie4/Auth/RegistreerContactGegevensRequest.cls.xml
===================================================================
diff -u -r45803 -r46006
--- vhTest/Utils/WS/Vhisie4/Auth/RegistreerContactGegevensRequest.cls.xml	(.../RegistreerContactGegevensRequest.cls.xml)	(revision 45803)
+++ vhTest/Utils/WS/Vhisie4/Auth/RegistreerContactGegevensRequest.cls.xml	(.../RegistreerContactGegevensRequest.cls.xml)	(revision 46006)
@@ -18,11 +18,29 @@
 	Set RegistreerContactGegevensRequest.TelefoonNummer = "03/123.45.67"
 	Set RegistreerContactGegevensRequest.FaxNummer = "03/123.45.68"
 	Set RegistreerContactGegevensRequest.EmailAdres = "test@example.com"
-	
 	Quit RegistreerContactGegevensRequest
 ]]></Implementation>
 </Method>
 
+<Method name="SFSKlantMetKorting">
+<ClassMethod>1</ClassMethod>
+<ReturnType>WS.Vhisie4.Auth.RegistreerContactGegevensRequest</ReturnType>
+<Implementation><![CDATA[
+	Set RegistreerContactGegevensRequest = ##class(WS.Vhisie4.Auth.RegistreerContactGegevensRequest).%New()
+	set RegistreerContactGegevensRequest.Header.PersonalityId = ##class(DOM.common.enu.Personality).SFS()
+	set RegistreerContactGegevensRequest.Header.KlantId = 4798
+	set RegistreerContactGegevensRequest.Header.Taal = "F"
+	set RegistreerContactGegevensRequest.Header.GebruikerId = "sfsmedewerker"
+	set RegistreerContactGegevensRequest.KlantId = 8974
+	Set RegistreerContactGegevensRequest.Ref = "UBeb_iYH2PO0SX_09S2vbQ--"
+	Set RegistreerContactGegevensRequest.Naam = "sfsklant"
+	Set RegistreerContactGegevensRequest.GebruikerId = "gebruikersfsklant"
+	Set RegistreerContactGegevensRequest.EmailAdres = "test@sfsklant.ch"
+	Set RegistreerContactGegevensRequest.KortingPercentage = 10
+	Quit RegistreerContactGegevensRequest
+]]></Implementation>
+</Method>
+
 <Method name="RegistreerContactGegevensRequestZonderKlantId">
 <ClassMethod>1</ClassMethod>
 <ReturnType>WS.Vhisie4.Auth.RegistreerContactGegevensRequest</ReturnType>
Index: vhUnitTest/WSimpl/Vhisie4/Auth/HandelAuthenticator/ContactGegevensRegistreerder/Registreer/Test.cls.xml
===================================================================
diff -u -r45887 -r46006
--- vhUnitTest/WSimpl/Vhisie4/Auth/HandelAuthenticator/ContactGegevensRegistreerder/Registreer/Test.cls.xml	(.../Test.cls.xml)	(revision 45887)
+++ vhUnitTest/WSimpl/Vhisie4/Auth/HandelAuthenticator/ContactGegevensRegistreerder/Registreer/Test.cls.xml	(.../Test.cls.xml)	(revision 46006)
@@ -5,51 +5,50 @@
 
 <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()
-	Do HandelPersonalityStub.IndienMethodCall("GeefPrefix").DanReturn("daro_")
+	Do HandelPersonalityStub.IndienMethodCall("GeefPrefix").DanReturn("sfs_")
+	Do HandelPersonalityStub.IndienMethodCall("GeefID").DanReturn(##class(DOM.common.enu.Personality).SFS())
 	
 	Set HandelPersonalityRepositoryStub = ##class(vhTest.Mock.TECH.Persistentie.Repository).%New()
-	Do HandelPersonalityRepositoryStub.IndienMethodCall("GeefViaID",RegistreerContactGegevensRequestStub.Header.PersonalityId).DanReturn(HandelPersonalityStub)
+	Do HandelPersonalityRepositoryStub.IndienMethodCall("GeefViaID",##class(DOM.common.enu.Personality).SFS()).DanReturn(HandelPersonalityStub)
 	
 	Set WebshopVerwerkerBepalerStub = ##class(vhTest.Mock.WSimpl.Vhisie4.SettingsManager.WebshopVerwerkerBepaler).%New()
-	Do WebshopVerwerkerBepalerStub.IndienMethodCall("Bepaal",HandelPersonalityStub).DanReturn("DARO")
+	Do WebshopVerwerkerBepalerStub.IndienMethodCall("Bepaal",HandelPersonalityStub).DanReturn("SFS")
 	
 	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 = ##class(vhTest.Utils.APPS.EC.dto.KlantSessieData).DataOptSFSKlantMetKorting()
+	#dim KlantSessieData As APPS.EC.dto.KlantSessieData = ##class(vhTest.Utils.APPS.EC.dto.KlantSessieData).SFSKlantMetKorting()
 	
-	#dim DataOpt As %String = ""
-	
 	Set KlantSessieDataBepalerStub = ##class(vhTest.Mock.APPS.EC.KlantSessieDataBepaler).%New()
-	Do KlantSessieDataBepalerStub.VerwachtMethodCall("GeefEncryptedKlantSessieDataVoorHandel",..Matches.Object(KlantSessieData),"DARO").DanReturn(DataOpt)
+	Do KlantSessieDataBepalerStub.VerwachtMethodCall("GeefEncryptedKlantSessieDataVoorHandel",..Matches.DataTransferObject(KlantSessieData),"SFS").DanReturn(DataOpt)
 	
-	Set KortingBewaarderMock = ##class(vhTest.Mock.WSimpl.Unishop.Login.KortingBewaarder).%New()
-	Do KortingBewaarderMock.VerwachtMethodCall("BewaarMeegegevenKorting",RegistreerContactGegevensRequestStub.Ref,DataOpt).ExactAantalKeer(1)
+	Set KortingServiceMock = ##class(vhTest.Mock.DOM.VKP.KortingService).%New()
 	
+	#dim KortingSpecLbx As DOM.VKP.dto.KortingSpecificaties = ##class(vhTest.Utils.DOM.VKP.dto.KortingSpecificaties).LbxKortingSpecSFS()
+	#dim KortingSpecTax As DOM.VKP.dto.KortingSpecificaties = ##class(vhTest.Utils.DOM.VKP.dto.KortingSpecificaties).TaxKortingSpecSFS()
+		
+	Do KortingServiceMock.VerwachtMethodCall("StelInKorting",..Matches.DataTransferObject(KortingSpecLbx),10).ExactAantalKeer(1)
+	Do KortingServiceMock.VerwachtMethodCall("StelInKorting",..Matches.DataTransferObject(KortingSpecTax),10).ExactAantalKeer(1)
+	
 	#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()
+	
+	#dim RegistreerContactGegevensRequestStub As WS.Vhisie4.Auth.RegistreerContactGegevensRequest = ##class(vhTest.Utils.WS.Vhisie4.Auth.RegistreerContactGegevensRequest).SFSKlantMetKorting()
 	Do KlantDataBepalerMock.VerwachtMethodCall("Bepaal",RegistreerContactGegevensRequestStub,HandelPersonalityStub).ExactAantalKeer(1).DanReturn(HandelKlantDataDummy)
 	
-	Set Registreerder = ##class(WSimpl.Vhisie4.Auth.HandelAuthenticator.ContactGegevensRegistreerder).%New(HandelPersonalityRepositoryStub,KlantDataBewaarderStub,WebshopVerwerkerBepalerStub,KortingBewaarderMock,KlantSessieDataBepalerStub,KlantDataBepalerMock)
+	Set Registreerder = ##class(WSimpl.Vhisie4.Auth.HandelAuthenticator.ContactGegevensRegistreerder).%New(HandelPersonalityRepositoryStub,KlantDataBewaarderStub,WebshopVerwerkerBepalerStub,KortingServiceMock,KlantSessieDataBepalerStub,KlantDataBepalerMock)
 	Do Registreerder.Registreer(RegistreerContactGegevensRequestStub)
 	
-	Do KortingBewaarderMock.Verifieer()
+	Do KortingServiceMock.Verifieer()
 	Do KlantSessieDataBepalerStub.Verifieer()
 	Do KlantDataBepalerMock.Verifieer()
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Geen EmailAdres ingevuld -&gt; error">
+<Method name="aTest: Geen EmailAdres ingevuld -&gt; error">
 <Implementation><![CDATA[
 	#dim RegistreerContactGegevensRequestStub As WS.Vhisie4.Auth.RegistreerContactGegevensRequest = ##class(vhTest.Utils.WS.Vhisie4.Auth.RegistreerContactGegevensRequest).StandaardRegistreerContactGegevensRequest()
 	Set RegistreerContactGegevensRequestStub.Naam = ""
@@ -63,7 +62,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Geen Naam ingevuld -&gt; error">
+<Method name="aTest: Geen Naam ingevuld -&gt; error">
 <Implementation><![CDATA[
 	#dim RegistreerContactGegevensRequestStub As WS.Vhisie4.Auth.RegistreerContactGegevensRequest = ##class(vhTest.Utils.WS.Vhisie4.Auth.RegistreerContactGegevensRequest).StandaardRegistreerContactGegevensRequest()
 	Set RegistreerContactGegevensRequestStub.EmailAdres = ""
Index: vhTest/Mock/WSimpl/Unishop/Login/KortingBewaarder.cls.xml
===================================================================
diff -u -r41624 -r46006
--- vhTest/Mock/WSimpl/Unishop/Login/KortingBewaarder.cls.xml	(.../KortingBewaarder.cls.xml)	(revision 41624)
+++ vhTest/Mock/WSimpl/Unishop/Login/KortingBewaarder.cls.xml	(.../KortingBewaarder.cls.xml)	(revision 46006)
@@ -3,8 +3,7 @@
 <Class name="vhTest.Mock.WSimpl.Unishop.Login.KortingBewaarder">
 <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
-Inheritance van meerdere TECH.Interface interfaces resulteert nog niet in een mockklasse met overeenkomstige inheritance-structuur.</Description>
+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.Unishop.Login.KortingBewaarder,Tools.Mock.MockClassBase</Super>
 <Inheritance>right</Inheritance>
Index: vhTest/Utils/APPS/EC/dto/KlantSessieData.cls.xml
===================================================================
diff -u -r45892 -r46006
--- vhTest/Utils/APPS/EC/dto/KlantSessieData.cls.xml	(.../KlantSessieData.cls.xml)	(revision 45892)
+++ vhTest/Utils/APPS/EC/dto/KlantSessieData.cls.xml	(.../KlantSessieData.cls.xml)	(revision 46006)
@@ -26,26 +26,27 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefDataOptSFSKlantAlpnachMetZomaarGekozenKorting">
+<Method name="DataOptSFSKlantMetKorting">
 <Description>
 Decrypted : F\83723\UT_alp_UT_nach\\11.1\SFS-Dummy
   zomaar gekozen korting : 11.1 </Description>
 <ClassMethod>1</ClassMethod>
-<Implementation><![CDATA[	Quit "_efvzk4XRWdJit_RGEwU9speq34K6O_wH12HUjdjEcM/NLo4dXxVi3otbKf_Gel0"
+<Implementation><![CDATA[	Quit "ySwbirJrIEfgrdDqQjvQ4srDLSgPMcyn25mZLta5R8MYr3MYYmxLRlt/FazdAV2X9cy4wMTrLwvkpn0eop492w--"
 ]]></Implementation>
 </Method>
 
-<Method name="SFSKlantAlpnachMetZomaarGekozenKorting">
+<Method name="SFSKlantMetKorting">
 <ClassMethod>1</ClassMethod>
 <ReturnType>APPS.EC.dto.KlantSessieData</ReturnType>
 <Implementation><![CDATA[
 	set KlantSessieData = ##class(APPS.EC.dto.KlantSessieData).%New()
 	set KlantSessieData.Email = ""
-	set KlantSessieData.GebruikerID = "SFS-Dummy"
-	set KlantSessieData.KlantID = 83723
-	set KlantSessieData.KlantNaam = "UT_alp_UT_nach"
-	set KlantSessieData.Korting = 34.2
+	set KlantSessieData.GebruikerID = "gebruikersfsklant"
+	set KlantSessieData.KlantID = 8974
+	set KlantSessieData.KlantNaam = "sfsklant"
+	set KlantSessieData.Korting = 10
 	set KlantSessieData.Taal = "F"
+	set KlantSessieData.Email = "test@sfsklant.ch"
 	Quit KlantSessieData
 ]]></Implementation>
 </Method>
Index: vhTest/Utils/DOM/VKP/dto/KortingSpecificaties.cls.xml
===================================================================
diff -u
--- vhTest/Utils/DOM/VKP/dto/KortingSpecificaties.cls.xml	(revision 0)
+++ vhTest/Utils/DOM/VKP/dto/KortingSpecificaties.cls.xml	(revision 46006)
@@ -0,0 +1,34 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Utils.DOM.VKP.dto.KortingSpecificaties">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="LbxKortingSpecSFS">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Set KortingSpecificatie = ##class(DOM.VKP.dto.KortingSpecificaties).%New()
+	Set KortingSpecificatie.Aantal = 1
+	Set KortingSpecificatie.Familie = ##class(DOM.PM.enu.Familie).Lade()
+	Set KortingSpecificatie.Variant = ##class(DOM.PM.enu.Variant).LegraboxPure()
+	Set KortingSpecificatie.PersonalityID = ##class(DOM.common.enu.Personality).SFS()
+	Set KortingSpecificatie.KlantID = "sfs_8974"
+	Quit KortingSpecificatie
+]]></Implementation>
+</Method>
+
+<Method name="TaxKortingSpecSFS">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Set KortingSpecificatie = ##class(DOM.VKP.dto.KortingSpecificaties).%New()
+	Set KortingSpecificatie.Aantal = 1
+	Set KortingSpecificatie.Familie = ##class(DOM.PM.enu.Familie).Lade()
+	Set KortingSpecificatie.Variant = ##class(DOM.PM.enu.Variant).Taorbox()
+	Set KortingSpecificatie.PersonalityID = ##class(DOM.common.enu.Personality).SFS()
+	Set KortingSpecificatie.KlantID = "sfs_8974"
+	Quit KortingSpecificatie
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: DOM/VKP/impl/HandelKlantData.cls.xml
===================================================================
diff -u -r45318 -r46006
--- DOM/VKP/impl/HandelKlantData.cls.xml	(.../HandelKlantData.cls.xml)	(revision 45318)
+++ DOM/VKP/impl/HandelKlantData.cls.xml	(.../HandelKlantData.cls.xml)	(revision 46006)
@@ -35,7 +35,7 @@
 <Type>%String</Type>
 </Property>
 
-<Property name="KortingFactor">
+<Property name="KortingPercentage">
 <Type>%Double</Type>
 </Property>
 
@@ -69,7 +69,7 @@
 <Value>KlantId</Value>
 </Value>
 <Value name="9">
-<Value>KortingFactor</Value>
+<Value>KortingPercentage</Value>
 </Value>
 </Data>
 </Storage>
Index: vhUnitTest/APPS/EC/impl/KlantSessieDataBepaler/GeefKlantSessieData/Test.cls.xml
===================================================================
diff -u -r45892 -r46006
--- vhUnitTest/APPS/EC/impl/KlantSessieDataBepaler/GeefKlantSessieData/Test.cls.xml	(.../Test.cls.xml)	(revision 45892)
+++ vhUnitTest/APPS/EC/impl/KlantSessieDataBepaler/GeefKlantSessieData/Test.cls.xml	(.../Test.cls.xml)	(revision 46006)
@@ -10,13 +10,31 @@
 ]]></Implementation>
 </Method>
 
-<Method name="TestSFSKlantAlpnach : KortingSteedsGewijzigdNaarVastgelegdeWaarde">
+<Method name="Test : SFS Klant met korting">
 <Implementation><![CDATA[
-	#dim EncryptedKlantSessieData As %String = ##class(vhTest.Utils.APPS.EC.dto.KlantSessieData).GeefDataOptSFSKlantAlpnachMetZomaarGekozenKorting()
-	Do ..AssertKlantSessieData(EncryptedKlantSessieData,##class(APPS.EC.enu.WebShopVerwerker).SFS(), ##class(vhTest.Utils.APPS.EC.dto.KlantSessieData).SFSKlantAlpnachMetZomaarGekozenKorting())
+	#dim EncryptedKlantSessieData As %String = ##class(vhTest.Utils.APPS.EC.dto.KlantSessieData).DataOptSFSKlantMetKorting()
+	Do ..AssertKlantSessieData(EncryptedKlantSessieData,##class(APPS.EC.enu.WebShopVerwerker).SFS(), ##class(vhTest.Utils.APPS.EC.dto.KlantSessieData).SFSKlantMetKorting())
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Alpnach -&gt; korting wordt hoe dan ook overschreven">
+<Implementation><![CDATA[
+	#dim TeEncrypterenKlantSessieData As APPS.EC.dto.KlantSessieData  = ##class(vhTest.Utils.APPS.EC.dto.KlantSessieData).SFSKlantMetKorting()
+	set TeEncrypterenKlantSessieData.KlantID = 83723
+	set TeEncrypterenKlantSessieData.Korting = 10
+	Set KlantSessieDataBepaler = ##class(APPS.EC.impl.KlantSessieDataBepaler).%New()
+	#dim EncryptedKlantSessieData As %String = KlantSessieDataBepaler.GeefEncryptedKlantSessieDataVoorHandel(TeEncrypterenKlantSessieData, ##class(APPS.EC.enu.WebShopVerwerker).SFS())
+	
+	do $$$AssertEquals(EncryptedKlantSessieData,"y5iaUP9Dw3gra17arBg13plyyTH/Ny/PPEwzaFUYDG5bKTVIgLTkvtq8kbo2xo///mfOhh1XLj48IlwN5NjAAw--")
+	
+	#dim VerwachtKlantSessieData As APPS.EC.dto.KlantSessieData  = ##class(vhTest.Utils.APPS.EC.dto.KlantSessieData).SFSKlantMetKorting()
+	set VerwachtKlantSessieData.KlantID = 83723
+	set VerwachtKlantSessieData.Korting = 34.2
+	
+	Do ..AssertKlantSessieData(EncryptedKlantSessieData,##class(APPS.EC.enu.WebShopVerwerker).SFS(),VerwachtKlantSessieData)
+]]></Implementation>
+</Method>
+
 <Method name="AssertKlantSessieData">
 <FormalSpec>EncryptedKlantSessieData:%String,DomeinVerwerker:APPS.EC.enu.WebShopVerwerker,VerwachteKlantSessieData:%String</FormalSpec>
 <Private>1</Private>
Index: WSimpl/Vhisie4/Auth/HandelAuthenticator/ContactGegevensRegistreerder.cls.xml
===================================================================
diff -u -r45887 -r46006
--- WSimpl/Vhisie4/Auth/HandelAuthenticator/ContactGegevensRegistreerder.cls.xml	(.../ContactGegevensRegistreerder.cls.xml)	(revision 45887)
+++ WSimpl/Vhisie4/Auth/HandelAuthenticator/ContactGegevensRegistreerder.cls.xml	(.../ContactGegevensRegistreerder.cls.xml)	(revision 46006)
@@ -18,8 +18,8 @@
 <Private>1</Private>
 </Property>
 
-<Property name="KortingBewaarder">
-<Type>WSimpl.Unishop.Login.KortingBewaarder</Type>
+<Property name="KortingService">
+<Type>DOM.VKP.KortingService</Type>
 <Private>1</Private>
 </Property>
 
@@ -39,15 +39,15 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>HandelPersonalityRepository:DOM.common.impl.HandelPersonalityRepository,KlantDataBewaarder:APPS.VKP.KlantDataBewaarder,WebshopVerwerkerBepaler:WSimpl.Vhisie4.SettingsManager.WebshopVerwerkerBepaler,LoginKortingBewaarder:WSimpl.Unishop.Login.KortingBewaarder,KlantSessieDataBepaler:APPS.EC.KlantSessieDataBepaler,KlantDataBepaler:WSimpl.Vhisie4.Auth.HandelAuthenticator.ContactGegevensRegistreerder.KlantDataBepaler</FormalSpec>
+<FormalSpec>HandelPersonalityRepository:DOM.common.impl.HandelPersonalityRepository,KlantDataBewaarder:APPS.VKP.KlantDataBewaarder,WebshopVerwerkerBepaler:WSimpl.Vhisie4.SettingsManager.WebshopVerwerkerBepaler,KortingService:DOM.VKP.KortingService,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 ..KlantDataBewaarder = $$$Inject(KlantDataBewaarder,##class(APPS.ApplicatieContext).Instance().GeefVerkoopAPI().GeefKlantDataBewaarder())
-	Set ..KortingBewaarder = $$$Inject(LoginKortingBewaarder,##class(WSimpl.Unishop.Login.KortingBewaarder).%New())
+	Set ..KortingService = $$$Inject(KortingService,##class(DOM.VKP.impl.KortingService).%New())
 	Set ..KlantSessieDataBepaler = $$$Inject(KlantSessieDataBepaler,##class(APPS.EC.impl.KlantSessieDataBepaler).%New())
 	Set ..KlantDataBepaler = $$$Inject(KlantDataBepaler,##class(WSimpl.Vhisie4.Auth.HandelAuthenticator.ContactGegevensRegistreerder.KlantDataBepaler).%New())
 	Set ..WebshopVerwerkerBepaler = $$$Inject(WebshopVerwerkerBepaler,##class(WSimpl.Vhisie4.SettingsManager.WebshopVerwerkerBepaler).%New())
@@ -71,25 +71,24 @@
 		#dim KlantData As DOM.VKP.impl.HandelKlantData = ..KlantDataBepaler.Bepaal(RegistreerContactGegevensRequest, HandelPersonality)
 		
 		Set KlantData.Naam = RegistreerContactGegevensRequest.Naam
+		Set KlantData.Taal = RegistreerContactGegevensRequest.Header.Taal
 		Set KlantData.EmailAdres = RegistreerContactGegevensRequest.EmailAdres
 		Set KlantData.StraatEnNr = RegistreerContactGegevensRequest.StraatEnNr
 		Set KlantData.Postcode = RegistreerContactGegevensRequest.Postcode
 		Set KlantData.Gemeente = RegistreerContactGegevensRequest.Gemeente
 		Set KlantData.TelefoonNummer = RegistreerContactGegevensRequest.TelefoonNummer
 		Set KlantData.FaxNummer = RegistreerContactGegevensRequest.FaxNummer
-		Set KlantData.KlantId = RegistreerContactGegevensRequest.KlantId
-		Set KlantData.GebruikerId = RegistreerContactGegevensRequest.GebruikerId
-		Set KlantData.KortingFactor = RegistreerContactGegevensRequest.KortingFactor
+		Set KlantData.KlantId = HandelPersonality.GeefPrefix()_RegistreerContactGegevensRequest.KlantId
+		Set KlantData.GebruikerId = KlantData.KlantId_"_"_RegistreerContactGegevensRequest.GebruikerId
+		Set KlantData.KortingPercentage = RegistreerContactGegevensRequest.KortingPercentage
 		
 		Do ..BewaarKlant(HandelPersonality,KlantData)
 
-		Set Response.KlantId = ##class(TECH.StringUtils).Replace(KlantData.ID,HandelPersonality.GeefPrefix(),"")
-		Set Response.GebruikerId = 1
+		Set Response.KlantId = ##class(TECH.StringUtils).Replace(KlantData.KlantId,HandelPersonality.GeefPrefix(),"")
+		Set Response.GebruikerId = RegistreerContactGegevensRequest.GebruikerId
 		Set Response.GebruikerNaam = ""
 		Set Response.KlantNaam = KlantData.Naam
-		Set Response.DataOpt = ..GenereerDataOpt(..WebshopVerwerkerBepaler.Bepaal(HandelPersonality),Response.KlantId,Response.KlantNaam,Response.GebruikerId,RegistreerContactGegevensRequest.EmailAdres,RegistreerContactGegevensRequest.Header.Taal,RegistreerContactGegevensRequest.KortingFactor)
-		
-		Do ..KortingBewaarder.BewaarMeegegevenKorting(RegistreerContactGegevensRequest.Ref,Response.DataOpt)
+		Set Response.DataOpt = ..GenereerDataOpt(..WebshopVerwerkerBepaler.Bepaal(HandelPersonality),Response.KlantId,Response.KlantNaam,Response.GebruikerId,KlantData.EmailAdres,KlantData.Taal,KlantData.KortingPercentage)
 	}
 	
 	Quit Response
@@ -117,9 +116,26 @@
 <Method name="BewaarKlant">
 <FormalSpec>Personality:DOM.common.Personality,KlantData:DOM.common.dto.HandelKlantData</FormalSpec>
 <Private>1</Private>
-<Implementation><![CDATA[	Do ..KlantDataBewaarder.Bewaar(Personality, KlantData)
+<Implementation><![CDATA[
+	Do ..KlantDataBewaarder.Bewaar(Personality, KlantData)
+	Do ..BewaarKorting(Personality, KlantData , ##class(DOM.PM.enu.Variant).LegraboxPure())
+	Do ..BewaarKorting(Personality, KlantData , ##class(DOM.PM.enu.Variant).Taorbox())
 ]]></Implementation>
 </Method>
+
+<Method name="BewaarKorting">
+<FormalSpec>Personality:DOM.common.Personality,KlantData:DOM.common.dto.HandelKlantData,Variant:DOM.PM.enu.Variant</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set KortingSpecificatie = ##class(DOM.VKP.dto.KortingSpecificaties).%New()
+	Set KortingSpecificatie.Aantal = 1
+	Set KortingSpecificatie.Familie = ##class(DOM.PM.enu.Familie).Lade()
+	Set KortingSpecificatie.Variant = Variant
+	Set KortingSpecificatie.PersonalityID = Personality.GeefID()
+	Set KortingSpecificatie.KlantID = KlantData.KlantId
+	Do ..KortingService.StelInKorting(KortingSpecificatie,KlantData.KortingPercentage)
+]]></Implementation>
+</Method>
 </Class>