Код: Выделить всё
RefreshId := DocumentIns(200, Ar, Self, nil, qryMain);
try
qryMain.ReadOnly:= false;
qryMain.Insert;
qryMain.FieldByName('wa_remont_bills_aid').AsInteger:= DO_InternalID(RefreshId);
qryMain.Post;
finally
qryMain.ReadOnly:= true;
end;
Код: Выделить всё
qryMain.Locate('wa_remont_bills_aid', ID, []);
qryMain.RefreshRecord();