Index: APPS/EC/dto/KlantSessieData.cls.xml
===================================================================
diff -u -r46230 -r73929
--- APPS/EC/dto/KlantSessieData.cls.xml (.../KlantSessieData.cls.xml) (revision 46230)
+++ APPS/EC/dto/KlantSessieData.cls.xml (.../KlantSessieData.cls.xml) (revision 73929)
@@ -26,6 +26,10 @@
%String
+
+
+%String
+
Index: APPS/EC/impl/KlantSessieDataBepaler.cls.xml
===================================================================
diff -u -r61139 -r73929
--- APPS/EC/impl/KlantSessieDataBepaler.cls.xml (.../KlantSessieDataBepaler.cls.xml) (revision 61139)
+++ APPS/EC/impl/KlantSessieDataBepaler.cls.xml (.../KlantSessieDataBepaler.cls.xml) (revision 73929)
@@ -18,6 +18,7 @@
Set KlantSessieData.KlantID = $Get(DataOptArray("KLNummer"))
Set KlantSessieData.KlantNaam = $Get(DataOptArray("KLNaam"))
Set KlantSessieData.Korting = $Get(DataOptArray("Korting"))
+ Set KlantSessieData.IsSalesMedewerker = $Get(DataOptArray("IsSalesMedewerker"))
If (DomeinVerwerker = ##class(APPS.EC.enu.WebShopVerwerker).VHEPN()) {
Set KlantSessieData.KlantID = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantPartijID($Get(DataOptArray("KLNummer")))
@@ -67,13 +68,36 @@
}
#dim DataOpt As %String = KlantSessieData.Taal _ "\" _ KlantNr _ "\" _ KlantSessieData.KlantNaam _ "\" _ KlantSessieData.Email _ "\" _ KlantSessieData.Korting _ "\" _ GebruikerNr
+ If (..IsEenHaefeleWebshopVerwerker(DomeinVerwerker) && $$$Not(KlantSessieData.IsSalesMedewerker = "")) {
+ Set DataOpt = DataOpt _ "\" _ KlantSessieData.IsSalesMedewerker
+ }
+
Set %blnBuildRef = 1
#dim DataOptEncrypted As %String = $$EncryptDataOpt^cspBasis.TBX.Lib(DataOpt,DomeinVerwerker)
Kill %blnBuildRef
Quit DataOptEncrypted
]]>
+
+
+DomeinVerwerker:APPS.EC.enu.WebShopVerwerker
+%Boolean
+
+