Index: WSimpl/Unishop/Login/ParameterBepaler.cls.xml =================================================================== diff -u -r73289 -r73933 --- WSimpl/Unishop/Login/ParameterBepaler.cls.xml (.../ParameterBepaler.cls.xml) (revision 73289) +++ WSimpl/Unishop/Login/ParameterBepaler.cls.xml (.../ParameterBepaler.cls.xml) (revision 73933) @@ -68,10 +68,11 @@ #dim PersonalityID As %String = WebshopSessionService.GeefPersonalityIDVoorDomeinVerwerker(..DomeinVerwerker) set ..Personality = ##class(DOM.DomeinContext).Instance().GeefCommonAPI().GeefPersonality(PersonalityID) Do ..Personality.Accept($this) - + set ..LoginParameters.PersonalityID = ..Personality.GeefID() Set ..LoginParameters.Taal = ..GeefConverteerTaalStringNaarTaalEnu(Taal) Set ..LoginParameters.RemoteIP = RemoteIP + Set ..LoginParameters.IsSalesMedewerker = ..KlantSessieData.IsSalesMedewerker Quit ..LoginParameters ]]> @@ -81,7 +82,7 @@ 1 1 Index: WS/Vhisie4/Auth/DecrypteerResponse.cls.xml =================================================================== diff -u -r62079 -r73933 --- WS/Vhisie4/Auth/DecrypteerResponse.cls.xml (.../DecrypteerResponse.cls.xml) (revision 62079) +++ WS/Vhisie4/Auth/DecrypteerResponse.cls.xml (.../DecrypteerResponse.cls.xml) (revision 73933) @@ -59,6 +59,10 @@ WS.Vhisie4.Auth.DecrypteerResponse.KortingPercentages + +TECH.String + + %Library.CacheSerialState DecrypteerResponseState @@ -97,6 +101,9 @@ KortingPercentages + +IsSalesMedewerker + Index: WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder.cls.xml =================================================================== diff -u -r62942 -r73933 --- WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder.cls.xml (.../Decrypteerder.cls.xml) (revision 62942) +++ WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder.cls.xml (.../Decrypteerder.cls.xml) (revision 73933) @@ -94,7 +94,6 @@ 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) @@ -343,7 +342,8 @@ Set ..Response.Taal = "I" } Set ..Response.ToegelatenLadetypes = ..HandelToegelatenLadetypesBepaler.Bepaal(LoginParameters.PersonalityID) - Set ..Response.KortingPercentages = ..HandelsKlantKortingsPercentageBepaler.Bepaal(HandelPersonality,..Response.KlantId) + Set ..Response.KortingPercentages = ..HandelsKlantKortingsPercentageBepaler.Bepaal(HandelPersonality,..Response.KlantId) + Set ..Response.IsSalesMedewerker = LoginParameters.IsSalesMedewerker Set ..Response.IsGeldig = $$$True ]]> Index: WSimpl/Vhisie4/QRcodeNaarKenmerkenService.cls.xml =================================================================== diff -u -r70793 -r73933 --- WSimpl/Vhisie4/QRcodeNaarKenmerkenService.cls.xml (.../QRcodeNaarKenmerkenService.cls.xml) (revision 70793) +++ WSimpl/Vhisie4/QRcodeNaarKenmerkenService.cls.xml (.../QRcodeNaarKenmerkenService.cls.xml) (revision 73933) @@ -230,6 +230,13 @@ Quit LadeRegistratieData ]]> + + +OorsprongKetting:%String +%String + + Index: WSimpl/Unishop/Login/Parameters.cls.xml =================================================================== diff -u -r33278 -r73933 --- WSimpl/Unishop/Login/Parameters.cls.xml (.../Parameters.cls.xml) (revision 33278) +++ WSimpl/Unishop/Login/Parameters.cls.xml (.../Parameters.cls.xml) (revision 73933) @@ -23,6 +23,10 @@ %String + + +%String +