Fórum Transação Firebird DBExpress #317652

{ ... }
var
  TudoOK: Boolean;
  Transacao: TTransactionDesc; 
begin
  try
    { **** Iniciando a transação **** }
    Transacao.TransactionID:= 1;
    Transacao.IsolationLevel:=  xilReadCommitted;
    SeuSQLConnection.StartTransaction(Transacao);

    { **** Aplicando os updates **** }
    if ClientDataSet1.ApplyUpdates(0) = 0 then
    begin
      ClientDataSet2.Insert;
      PreencheClientDataSet2;
      ClientDataSet2.Post;
      if ClientDataSet2.ApplyUpdates(0) = 0 then
        TudoOK:= True;
      // TudoOK só será true se não houver erro em nenhum Update
    end;

    { **** Confirmando ou voltando a transação **** }
    if TudoOK then
      SeuSQLConnection.Commit(Transacao)
    else
      SeuSQLConnection.Rollback(Transacao);
  except
    // Ocorreu uma exceção qualquer no bloco ...
    SeuSQLConnection.Rollback(Transacao);
  end;
end;

var
  TudoOK: Boolean;
  Transacao: TTransactionDesc;
  I: Integer;
begin
  TudoOK:= False;
  
  // Definindo instrução para o update do estoque
  SQLDataSet1.CommandText := ´update ESTOQUE set QTDE = QTDE - :venda where IDPRODUTO = :idproduto´;

  Transacao.TransactionID:= 1;
  Transacao.IsolationLevel:=  xilReadCommitted;
  SQLConnection1.StartTransaction(Transacao);

  // Aplicando os updates
  if ClientDataSet1.ApplyUpdates(0) = 0 then
  begin
    if ClientDataSet2.ApplyUpdates(0) = 0 then
    begin
      try
        for I := 0 to ClientDataSet2.RecordCount - 1 do
        begin
          // Atualizando o estoque.
          SQLDataSet1.ParamByName(´venda´).AsInteger := 
            ClientDataSet2.FieldByName(´qtde´).AsInteger;
          SQLDataSet1.ParamByName(´idproduto´).AsInteger := 
            ClientDataSet2.FieldByName(´idproduto´).AsInteger;
          SQLDataSet1.ExecSQL;         
        end;
        TudoOK := True;  
      except
        // Erro ao atualizar o estoque
        TudoOK := False;
      end;
    end;
  end;
  // Note que TudoOK só será true se não houver nenhum erro em nenhum dos Updates
  if TudoOK then
  begin
    SQLConnection1.Commit(Transacao);
    ShowMessage(´Atualizações OK.´);
  end
  else
  begin
    SQLConnection1.Rollback(Transacao);
    ShowMessage(´Ocorreram erros. Alterações descartadas.´);
  end;
end;