|
Ну почему же сразу "глюк"...просто нужно сообразить.
CLEAR(FieldList); // не забываем очищать по указателю
FieldList.LOOKUPMODE := TRUE;
IF FieldList.RUNMODAL = ACTION::LookupOK THEN
BEGIN
FieldList.GETRECORD(Fields);
loca_rec_current.LOCKTABLE; // это переменная той же записи что и //REC, лочим таблицу
loca_rec_current.GET(line); //выставляем нужную запись
loca_rec_current.Fieldno:= Fields."No.";//дальше понятно.
loca_rec_current.MODIFY;
COMMIT;
END;
|