Терь пишет что ошибка в том что транзакция активна... я много фигни наворотил да? :'(
Код
Query.Open;
try
Transaction.StartTransaction;
Query.Last;
Query.Insert;
Query.FieldByName('goods.CODE').AsInteger := StrToInt(Edit1.Text);
Query.FieldByName('goods.QUANTITY').AsInteger := StrToInt(Edit2.Text);
Query.FieldByName('goods.MASS').AsInteger := StrToInt(Edit3.Text);
Query.FieldByName('goods.CAPACITY').AsInteger := StrToInt(Edit4.Text);
Query.FieldByName('goods.DESCRIPTION').AsString := Edit5.Text;
Query.FieldByName('goods.IMPORT_DATE').AsDateTime := StrToDate(Mask.Text);
Query.FieldByName('goods.TRUCK_NUMBER').AsInteger := StrToInt(Edit7.Text);
Query.FieldByName('storage.ZONE').AsInteger := i;
Query.FieldByName('storage.GOOD').AsInteger := Query.FieldValues['goods.ID'];
Transaction.CommitRetaining;
Query.Refresh;
except
Transaction.RollbackRetaining;
end;
Query.Close;
Query.Active := False;
зы прочитал что если Query.Open то Transaction.StartTransaction вызовет исключение
так как всёже сделать?
( ещё пишут что для этого над юзать TIBUpdateSQL... а как? :[