Transacción no activa

[Angel.Matilla]

Buenas tardes. A ver si me explico: Tengo dos tablas (Facturas Y Detfactura) en una base de datos FB; en la primera guardo los datos de cabecera de las facturas y en la segunda las líneas de detalle de cada una de ellas.

Para grabar en la primera tengo este query:

Código SQL [-]
Query->Close();
Query->SQL->Text = "INSERT INTO Factura (TipoDoc, Fecha, Cliente, ForPago) VALUES (:TipoDoc, :Fecha, :Cliente, :ForPago)";
Query->ParamByName("TipoDoc")->AsInteger = fFacturas->Tag;
Query->ParamByName("Fecha")->AsDateTime  = Fecha->Tag;
Query->ParamByName("Cliente")->AsInteger = fFacturas->Tag == 1 ? 1 : StrToInt(Panel4->Tag);
Query->ParamByName("ForPago")->AsInteger = fFacturas->Tag == 2 ? 1 : (int)(TObject*)fCieFac->Fpago->Items->Objects[fCieFac->Fpago->ItemIndex];
Query->ExecSQL();
if (fMenu->Query->RowsAffected < 1)
{
     cAux = "Error al grabar los datos de" + (fFacturas->Tag != 3 ?(String)"l " : (String)" la ") +
            (fFacturas->Tag == 1 ? (String)"tiquet" : (fFacturas->Tag == 2 ? (String)"albarán" : (String)"factura"));
     throw Exception(cAux);
}
Query->Transaction->Commit();

En la misma tabla guardo albaranes y facturas por comodidad. Una vez que he guardado estos datos hago esto con otro query antes de grabar el detalle del documento:

Código SQL [-]
Auxiliar->Close();
Auxiliar->SQL->Text = "SELECT GEN_ID(ID_" + (fFacturas->Tag == 1 ? (String)"Tiquet" : (fFacturas->Tag == 2 ? (String)"Albaran" : (String)"Factura")) +
                      ", 0) Valor FROM RDB$DATABASE";
Auxiliar->Open();

Lo curioso es que el primer query, el de grabación, se ejecuta sin problema pero al tratar de ejecutar el segundo para sacar el número de documento que se ha generado me da un error: me dice que la transacción asociada al query no está activa. El primer query tiene asociada una transacción que he llamado tTpv y el segundo otra distinta que he llamado tAuxiliar y que en ningún momento desactivo ni detengo ni nada.

Llevo todo el día dándome de tortas con estas líneas de código y no sé por qué se produce ese error. En el formulario donde tengo declarada la BB.DD. y demás hay esto:

Ejecutando con el depurador, antes de ejecutar el primer query puedo ver esto:

Después del ExecSQL() queda así:

La segunda transacción, que está activa, es la que está asociada al segundo query, pero me da ese error que indico.

[[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.

En ese caso, suelo poner antes de hacer e Query código que inicia la transacción si está cerrada.

if (not Auxiliar->Transaction.InTransaction) then
   Auxiliar->Transaction.StartTransaction;

Auxiliar->Close();
Auxiliar->SQL->Text = "SELECT GEN_ID(ID_" + (fFacturas->Tag == 1 ? (String)"Tiquet" : (fFacturas->Tag == 2 ? (String)"Albaran" : (String)"Factura")) +
                      ", 0) Valor FROM RDB$DATABASE";
Auxiliar->Open();

[[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.

[Angel.Matilla]

Auxiliar->SQL->Text = "SELECT GEN_ID(ID_" + (fFacturas->Tag == 1 ? (String)"Tiquet" : (fFacturas->Tag == 2 ? (String)"Albaran" : (String)"Factura")) +
", 0) Valor FROM RDB$DATABASE";

Después de mucho batallar resulta que el problema, a pesar del mensaje de error, no estaba en la transacción: estaba en la forma de construir el query. En vez de hacerlo como está puesto lo hago así:

Código SQL [-]
Auxiliar->Close();
switch (fFactura->Tag)
{
     case 1:
          fMenu->Auxiliar->SQL->Text = "SELECT GEN_ID(ID_Tiquet, 0) Valor FROM RDB$DATABASE";
          break;
     case 2:
          fMenu->Auxiliar->SQL->Text = "SELECT GEN_ID(ID_Albaran, 0) Valor FROM RDB$DATABASE";
          break;
     case 3:
          fMenu->Auxiliar->SQL->Text = "SELECT GEN_ID(ID_Factura, 0) Valor FROM RDB$DATABASE";
          break;
}
fMenu->Auxiliar->Open();

Y funciona perfectamente. Se ve que fFacturas->Tag == 1 ?..., que siempre me ha funcionado bien, ha decidido que a partir de ahora ya no vale.

[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