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

[LIV]

Ситуация такая

Есть текущая форма (допустим накладной). В ней есть поле Код склада, связанное с полем Location Code таблицы формы. Location Code, понятно, связан с таблицей Location через ее поле Code.

Теперь вопрос: как прогаммно, находясь в форме накладной, повесить фильтр на таблицу Location, чтобы тыкаясь в поле Код склада у пользователя высвечивались не все склады, а только разрешенные конкретному пользователю?

[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".

[LIV]

Работает, большое спасибо!
А то я на Navision всего недели две как смотрю, и сам ни за что бы не додумал