Показать сообщение отдельно
Старый 16.02.2007, 14:31   #15  
grif is offline
grif
Участник
Аватар для grif
 
236 / 10 (1) +
Регистрация: 31.08.2006
Не знаю как с перерисовкой в этмо примере
<div class='CALtop'>C/AL</div><div class='CAL'>
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;
</div>
Но можно сделать проще - присвоить в rec и также сделать modify + commit и будет работать. Только что проверил