Index: WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder.cls.xml
===================================================================
diff -u -r59434 -r73933
--- WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder.cls.xml	(.../Decrypteerder.cls.xml)	(revision 59434)
+++ WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder.cls.xml	(.../Decrypteerder.cls.xml)	(revision 73933)
@@ -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>
@@ -88,12 +94,11 @@
 	If ..VerwerkRefEnDataOptZonderProblemen(DecrypteerRequest) {
 		Try {
 			#dim LoginParameters As WSimpl.Unishop.Login.ParametersHandel = ..LoginParameterBepaler.GeefLoginParameters(DecrypteerRequest.Ref, DecrypteerRequest.DataOpt, DecrypteerRequest.Header.Taal, DecrypteerRequest.Header.GebruikerIp)
-			
 			//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 {
@@ -324,17 +329,21 @@
 	#dim HandelPersonality As DOM.common.impl.HandelPersonality = ..HandelPersonalityRepository.GeefViaID(LoginParameters.PersonalityID)
 	Set ..Response.KlantId = ##class(TECH.StringUtils).Replace(KlantData.ID,HandelPersonality.GeefPrefix(),"")
 	Set ..Response.KlantNaam = KlantData.Naam
-	
 	If $$$HasLength(DecrypteerRequest.DataOpt) {
 		Set ..Response.GebruikerId = $$$True
+		If $$$HasLength(LoginParameters.GebruikerID) {
+			Set ..Response.GebruikerId = $Piece(LoginParameters.GebruikerID,"_",3,$ListLength($ListFromString(LoginParameters.GebruikerID,"_")))
+		}
 	}
 	
 	Set ..Response.GebruikerNaam = ""
 	Set ..Response.Taal = LoginParameters.Taal
 	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.IsSalesMedewerker = 	LoginParameters.IsSalesMedewerker
 	Set ..Response.IsGeldig = $$$True
 ]]></Implementation>
 </Method>