Примерно так...
На OnLookUp
CLEAR(LocationListForm);
LocationListForm.SetUserRestriction(TRUE);
LocationListForm.LOOKUPMODE(TRUE);
IF LocationListForm.RUNMODAL = ACTION::LookupOK THEN BEGIN
Text := LocationListForm.GetSelectionFilter();
EXIT(TRUE);
END;
В форме LocationListForm
global booUserLocFiler;
Function: SetUserRestriction(boolean AppUserFilter)
booUserLocFiler := AppUserFilter;
на OnOpen
if booUserLocFiler then begin
IF UserSetup.GET(USERID) THEN BEGIN
IF UserSetup."Location Filter" <> '' THEN BEGIN
FILTERGROUP(2);
SETFILTER(Code,UserSetup."Location Filter");
FILTERGROUP(0);
END ELSE
SETRANGE(Code);
END ELSE
SETRANGE(Code);
end;
Ну и в UserSetup добавить поле "Location Filter".
|