2 randrews да прописан. Не совсем понял что вы имели ввиду.
вот код
Name DataType Subtype Length
Qualification1 Record Qualification
Qualification_Form1 Form Qualifications
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;
|