Еще раз о фильтрах

[zm]

Примерно так...

На 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".