Цитата:
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;