Transacción no activa

[[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');
           Close;
           Transaction.Commit;
        finally
           Transaction.Free;
        end;
     finally
        Free;
     end;
  end;
end;

[Casimiro Noteví]

Una solución ¿temporal? un poco chapucera, pero que funcionará:
Cambia esto:
Query->Transaction->Commit();
Por
Query->Transaction->CommitRetaining();
Y cuando salgas de la pantalla de ventas haces un commit para asegurarte de que se cierran todas las transacciones.

[Angel.Matilla]

Gracias por vuestras respuestas.

Empezado por duilioisola

Al hacer Transaction->Commit / Rollback se cierra la transacción.
Luego de esto hay que hacer un Transaction->StartTransaction.

Supongo que tienes una sola transacción asociada a la base de datos.

No. Si te fijas en mi mensaje indico que tengo una transacción asociada a cada uno de los querys.

La otra sugerencia (StartTransaction) la había probado pero poniendo el código después del Close(); probaré como indicas.

Empezado por Casimiro Noteví

Una solución ¿temporal? un poco chapucera, pero que funcionará:

También probé con CommitRetaining(), pero me daba el mismo error.

No obstante, en el caso de querys sólo de consulta ¿es necesaria la transacción? Es una duda que siempre he tenido ya que estaba convencido que eran necesarias únicamente en caso de actualizar la BB.DD. Sé que tengo muchas carencias en estos temas y tiene que ver en al forma que he aprendido a programar, a puñetazos.

[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