Dataobject voor Toegang tot de Ecommerce site Beheert zowel users en wachtwoorden als de toegangsrechten als de toegelaten klanten persistent BL.EC.Common 1 %Persistent,VHSys.Lib.PersistentLog VanHoecke, Orgalux, ... %String $$$domVanHoecke Indirecte koppeling naar Derde.Klant.Pers %Integer Optioneel, dient alleen ingevuld te worden als PersID niet is gedefineerd %String Indirecte koppeling naar Res.InternePersoon Optioneel alleen in te vullen als de persoon bij de firma Van Hoecke werkt Res.InternePersoon %String Res.InternePersoon %String %String Wachtwoord met MD5 encryptie en Base64 encoding wordt gebruikt voor de VHisie applicatie %String Wachtwoord met EAS encryptie en Base64 encoding alleen gebruikt op het wachtwoord terug te reconstrueren wordt alleen INTERN gebruikt %String Res.PI.Taal $LB van de optie codes - Toon van productreferenties - Met ProductGroepsScheiding - Uitgebreid tonen %List $LB van de toegangscodes %List Lijst van regios De gebruiker heeft toegang tot de klanten van deze regios Alleen als Multiple = true %String list Lijst van klanten De gebruiker heeft toegang tot de klanten waarvan de rubriek KlantVan behoort tot deze array klantvan %String list Lijst van klanten De gebruiker heeft toegang tot deze klanten Alleen als Multiple = true %String list 1 Deze groep bepaalt de defaulting voor Toegang en Opties Mogelijk waarden zie ^RES("DERDE.EC","PI",Domein,"D",ToegangGroep) %String Deze groep bepaalt welke producten er moeten getoond worden Leeg = alle producten "OL" = alleen Orgalux producten %List Lijst van memo's die niet meer mogen getoond worden %List $LB met daarin alle interne mederwerkers wiens agenda mag bekeken worden door de huidige usernaam %List Volgende klanten kunnen een "interne persoon" hebben 6819/6820/6821/6822/9544/4682 Domein,UserNaam:AlphaUp 1 expression ToegangID:%String,NotFoundStr:%String="(onbekend: ?)" %String 1 expression ToegangID:%String %Boolean Ophalen van de klantnummer uit Derde.Klant.Pers of rechtstreeks uit Toegang PersID:%String,Klanten:%String %String KlantNr Ophalen van de naam uit Derde.Klant.Pers of rechtstreeks uit Toegang PersID:%String Ophalen van het email-adres uit Derde.Klant.Pers of rechtstreeks uit Toegang PersID:%String 1 expression KlantNr:%String %Boolean 1 ToegangsID:%String %Boolean 1 ToegangsID:%String 1 %Boolean insert:%Boolean 1 %Status 1e deel steeds 0, dus tweede deel moet 1 zijn, dat enkel wanneer kolom HasAccess=1 paShowHasAccessOnly=0 -> 1e deel van where OR altijd 1, dus alles wordt teruggegeven]]> %SQLQuery paShowHasAccessOnly:%Boolean=0 Naam As InternName,HasAccess,LastLoginTijdStip FROM Derde_EC.Toegang WHERE (:paShowHasAccessOnly=0) OR (HasAccess=1) ORDER BY UserNaam]]> %SQLQuery paDomein:%String,paUserNaam:%String,paExclID:%String :paExclID) AND (Domein=:paDomein) AND (UserNaam=:paUserNaam)]]> ============================================================================================================ QUERY QGetToegang ============================================================================================================ %Query paShowHasAccessOnly:%Boolean,paSortByLastLoginTime:%Boolean,paViaKlantNr:%String="" 1 0 %Status 0) $E(MeerdereKlantenStr,1)="R" . Set:(ToegangObj.Klanten.Count()>1) $E(MeerdereKlantenStr,2)="K" . Set:(ToegangObj.KlantenVan.Count()>0) $E(MeerdereKlantenStr,2)="V" . Set AccessInfoStr=$E(ToegangObj.ToegangGroep,1,3) . Set $E(AccessInfoStr,5)=$S($LL(ToegangObj.Toegang)=0:"",1:"!") . Set $E(AccessInfoStr,6)=$S($LL(ToegangObj.Opties)=0:"",1:"!") . Set aRow(SortKey)=$LB(ToegangID,KlantNaam,UserNaam,RS.Data("LastLoginTijdStip"),MeerdereKlantenStr,AccessInfoStr,KlantNr) Set SortKey="" Quit $$$OK ]]> 1 QGetToegangExecute 0 %Status 1 QGetToegangExecute 0 %Status %Library.CacheStorage ^Derde.EC.ToegangD ToegangDefaultData ^Derde.EC.ToegangD ^Derde.EC.ToegangI ^Derde.EC.ToegangS %%CLASSNAME Domein EmailAdres HasAccess InternePersoon Klanten KlantenVan LastLoginTijdStip Opties PersID Regio Taal Toegang UserNaam WachtWoord WijzigTijdStip WijzigUser ToegangGroep WachtWoordIntern ProductGroep AgendaMedewerkers DontShowMemo