Fórum Abort naum quer abortar #279246

procedure TfrmCadNotaFiscalEntrada.Gravar;
begin
  {atualiza informações do item}
  AtualizaItem;
  {checa total da Nota fiscal}
  ChecaTotalNF;
  inherited;
  DmNfEntrada.tNfEntrada.CommitRetaining;
end;

{****************************************************************************}

procedure TfrmCadNotaFiscalEntrada.cdsCadastroReconcileError(
  DataSet: TCustomClientDataSet; E: EReconcileError;
  UpdateKind: TUpdateKind; var Action: TReconcileAction);
begin
  DmNfEntrada.tNfEntrada.RollbackRetaining;
  inherited;
  Abort;
end;