with qEventEdit do
  begin
    Transaction.StartTransaction;
    try
      ParamByName('AOPERATION').Value := 1;
      ParamByName('ID').Value := dsEvents.DataSet.FieldByName('ID').Value;
      ParamByName('ID_DOCUMENT').Value := dsEvents.DataSet.FieldByName('ID_DOCUMENT').Value;
      ParamByName('KIND').Value := dsEvents.DataSet.FieldByName('KIND').Value;
      ParamByName('TIME$EVENT').Value := dsEvents.DataSet.FieldByName('TIME$EVENT').Value;
      ParamByName('TIME$LAST_SEND').Value := dsEvents.DataSet.FieldByName('TIME$LAST_SEND').AsDateTime;
      ParamByName('SEND$RESULT').Value := dsEvents.DataSet.FieldByName('SEND$RESULT').Value;
      ParamByName('IS_SENDED').Value := Abs(Integer(dsEvents.DataSet.FieldByName('IS_SENDED').AsInteger));
      ParamByName('SEND$COUNTER').Value := dsEvents.DataSet.FieldByName('SEND$COUNTER').Value;
      ParamByName('STATE').Value := 0;
      Open;
      Refresh;//обязательно для записи нового значения

      Result := FieldByName('OUT_ID').Value;
      outError := FieldByName('OUT_ERROR').AsInteger;

      if (outError = 0) then
        UpdateTransaction.Commit
      else
        Transaction.Rollback;
    except
      Transaction.Rollback;
    end;
  end;

select
  out_id,
  out_error
from procedure

if Active then
  Close;