Index: WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder.cls.xml
===================================================================
diff -u -r59434 -r62133
--- WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder.cls.xml	(.../Decrypteerder.cls.xml)	(revision 59434)
+++ WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder.cls.xml	(.../Decrypteerder.cls.xml)	(revision 62133)
@@ -43,6 +43,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="HandelsKlantKortingsPercentageBepaler">
+<Type>WSimpl.Vhisie4.Auth.HandelAuthenticator.Decrypteerder.HandelsKlantKortingsPercentageBepaler</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="KlantDataBewaarder">
 <Type>APPS.VKP.impl.KlantDataBewaarder</Type>
 <Private>1</Private>
@@ -75,6 +80,7 @@
 	Set ..KlantDataBewaarder = $$$Inject(KlantDataBewaarder, ##class(APPS.VKP.impl.KlantDataBewaarder).%New())
 	Set ..KlantDataRepository = $$$Inject(KlantDataRepository, ##class(DOM.VKP.impl.KlantDataRepository).%New())
 	Set ..Logger = $$$Inject(Logger, ##class(vhLib.Logger).%New())
+	Set ..HandelsKlantKortingsPercentageBepaler = ##class(WSimpl.Vhisie4.Auth.HandelAuthenticator.Decrypteerder.HandelsKlantKortingsPercentageBepaler).%New()
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -91,9 +97,9 @@
 			
 			//Do ..ValideerHostnameMetRef(DecrypteerRequest, LoginParameters)
 			
+			Do ..KortingBewaarder.BewaarMeegegevenKorting(DecrypteerRequest.Ref,DecrypteerRequest.DataOpt)
 			Do ..VulReponseIn(DecrypteerRequest, LoginParameters)
 			//If $$$HasLength(DecrypteerRequest.Ref) {
-				Do ..KortingBewaarder.BewaarMeegegevenKorting(DecrypteerRequest.Ref,DecrypteerRequest.DataOpt)
 			//}
 			
 		} Catch {
@@ -334,7 +340,8 @@
 	If ..Response.Taal = "IT" {
 		Set ..Response.Taal = "I"
 	}
-	Set ..Response.ToegelatenLadetypes = ..HandelToegelatenLadetypesBepaler.Bepaal(LoginParameters.PersonalityID)	
+	Set ..Response.ToegelatenLadetypes = ..HandelToegelatenLadetypesBepaler.Bepaal(LoginParameters.PersonalityID)
+	Set ..Response.KortingPercentages = ..HandelsKlantKortingsPercentageBepaler.Bepaal(HandelPersonality,..Response.KlantId)	
 	Set ..Response.IsGeldig = $$$True
 ]]></Implementation>
 </Method>