|
Код на триггере OnLookup соотв. элемента на реквестформе (для, скажем, товарных категорий):
CLEAR(ItemCats);
ItemCats.LOOKUPMODE(TRUE);
IF ItemCats.RUNMODAL = ACTION::LookupOK THEN BEGIN
ItemCats.GETRECORD(ItemCat);
Text := ItemCat.Code;
EXIT(TRUE);
END ELSE
EXIT(FALSE);
ItemCats - форма списка тов. категорий для Lookup по умолчанию (св-во LookupFormID соотв. табл., здесь - ItemCat).
Если такой список не подходит - придется создавать свою форму нужного списка.
|