Не сохраняет значение при lookup на поле таблицы

[NeNavision_imported]

Цитата:

testfield - OnLookup()
Qualification1.RESET;
Qualification1.SETRANGE("Record Type",Qualification1."Record Type"::"Educational Institution");
Qualification_Form1.EDITABLE := FALSE;
Qualification_Form1.SETTABLEVIEW(Qualification1);
Qualification_Form1.LOOKUPMODE := TRUE;
IF Qualification_Form1.RUNMODAL = ACTION::LookupOK THEN BEGIN
Qualification_Form1.GETRECORD(Qualification1);
testfield := Qualification1.Description;
END;

Сотрите эту ботву.

напишите

Qualification1.RESET;
Qualification1.SETRANGE("Record Type",Qualification1."Record Type"::"Educational Institution");
IF FORM.RUNMODAL(0,Qualification1) = Action::LookUpOk THEN
   testfield := Qualification1.Description;