Transacción no activa

[olbeup]

Empezado por duilioisola

También puedes ejecutar cada sql en una transacción distinta.
Yo lo hago así en Delphi:

Código Delphi [-]
// Devuelve una transacción Read Write asociada a la base de datos
function DameTransactionRW(BaseDeDatos: TFIBDatabase; Q: TComponent = nil): TFIBTransaction;
begin
  Result := TFIBTransaction.Create(Q);
  with Result do
  begin
     DefaultDatabase := BaseDeDatos;
     TRParams.Clear;
     TRParams.Add('read_committed');
     TRParams.Add('rec_version');
     TRParams.Add('nowait');
  end;
end;

// Devuelve una transacción Read Only asociada a la base de datos
function DameTransactionRO(BaseDeDatos: TFIBDatabase; Q: TComponent = nil): TFIBTransaction;
begin
  Result := TFIBTransaction.Create(Q);
  with Result do
  begin
     DefaultDatabase := BaseDeDatos;
     TRParams.Clear;
     TRParams.Add('read_committed');
     TRParams.Add('read');
  end;
end;


// Ejemplo dentro del código
function DameId(Generador : string) : integer;
begin
  with THYFIBQuery.Create(nil) do
  begin
     try
        Close;
        DataBase := DMMain.DataBase;
        Transaction := DameTransactionRW(DMMain.DataBase);
        try
           if (not Transaction.InTransaction) then
              Transaction.StartTransaction;
           SelectSQL.Add('SELECT GEN_ID(' + Generador + ', 1) FROM RDB$DATABASE');
           ExecQuery;
           Result := FieldByName('GEN_ID');  <--- Pero aquí estás devolviendo un objeto y no un número que sería (FieldByName('GEN_ID').AsInteger) --> Esto sería lo correcto o estoy equivocado.
           Close;
           Transaction.Commit;
        finally
           Transaction.Free;
        end;
     finally
        Free;
     end;
  end;
end;

Pues me gusta la forma que tienes de desvincular y, en caso de error de creación del componente, puedes poner también un except y devolver -1 en caso de error y, eso es para dejarlo fino.

Un saludo.

[[duilioisola]]

Tienes razón @olbeup. El campo debe devolverse como entero mediante .AsInteger. He adaptado a mano un código similar que tengo para obtener descripciones de cosas dado un código.

Lo de capturar la excepción depende del contexto. En este caso en particular yo prefiero dejar que la excepción llegue a evitar que se ejecute lo que venga dentrás.
Es más fácil que hacer if resultado <> -1 then ... para cada petición.

Código Delphi [-]
function crear_cabecera_factura(...) : integer;
var
  ...
begin
  Result := 0;
  try
    id := DameId('ID_CABECERA');
    FormaPago := DameFormaPagoDefecto(...);
    Cliente := DameClienteDefecto(...);
    Almacen := DameAlmacenDefecto(...);
    ...

    xCabecera.Insert;
    ... Asigno parámetros
    xCabecera.Post;

    // Si llega hasta aquí todo ha salido bien
    Result := id;
  except
    on e:Exception do
      ShowMessage('Fallo al crear cabecera' + sLineBreak + e.Message);
  end;
end