Lookup

[Greggy_imported]

Мне надо из таблицы вызвать форму и присвоить значение полю таблице = значению поля из формы.


WT_RECORD.SETFILTER(WT_RECORD.Code,s_res);
CLEAR(WT_FORM);
WT_FORM.LOOKUPMODE := TRUE;
WT_FORM.SETTABLEVIEW(WT_RECORD);
WT_FORM.SETRECORD(WT_RECORD);
IF WT_FORM.RUNMODAL = ACTION::LookupOK THEN
BEGIN
WT_CODE := WT_FORM.GetCurrCode;
MODIFY;
END;

И ничего не получается - в чем моя ошибке?