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 + +