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
+