UserContext (Instance)
property UserContext:TfwUserContext;
Lecture seule
Cette propriété retourne le contexte utilisateur auquel est associé l'objet.
Exemple: Prend en compte les droits de l'utilisateur dans un filtre
{Procedure _AddRights(var vWhere:String; aClassName:String);}
begin
Result := FALSE;
if UserContext.Rights.HasClassRestrictions(aClassName) then
begin
if vWhere='' then
vWhere:='(' + UserContext.Rights.ClassRestrictions(aClassName) + ')'
else
vWhere:='('+ vWhere + ')and('+ UserContext.Rights.ClassRestrictions(aClassName) + ')';
end;
end;
Voir aussi: