como saber transacciones pendientes

[mRoman]

Ok...les agradezco a ambos las respuestas que me dieron. Pondré en practica y luego les informo el resultado....

[ecfisa]

Hola mRoman.

Si tenes más de un IBTransaction que dependen de un IBDatabase y deseas trabajar con el conjunto de ellos, podes usar las propiedades TransactionCount y Transactions de este último componente.

A modo de ejemplo, este código pone inactivos a todos los IBTransactions activos relacionados con un IBDatabase:

Código Delphi [-]
...
var
  i: Integer;
begin
  with IBDatabase1 do
    for i:= 0 to TransactionCount-1 do
      if Transactions[i].InTransaction then
        Transactions[i].Active:= False;
end;

Saludos.

[ElMug]

En mi ver, lo mas prudente es que en una transaccion se compelete lo acometido o se haga roll-back.

Y con el cogigo no dar posibilidades de que haya transacciones pendientes.

Aunque si la pregunta fuese del total de transacciones pendientes de TODOS los usuarios, creo que eso no se ha abordado en las respuestas.

Y precisamente, por eso, es que cada usuario no pueda tener mas de una transaccion pendiente.

Pero me gustaria saber de casos en los cuales se requiera eso.

[mRoman]

Les agradezco las respuestas de ecfisa, elmug y de casimiro asi como de movorack y comentarles que ya lo solucione gracias a sus comentarios, los cuales aplique y me queda con la sugerencia de casimiro. En realidad es mas sencillo de lo que propone ElMug, lo que realmente necesitaba era solamente "avisarle" al usuario que se estaba saliendo sin grabar los movimientos realizados.

Total....asi quedo:

Código Delphi [-]
     if dsUnidadOperativa.Transaction.InTransaction then
     begin
        if Application.MessageBox('Desea GUARDAR los movimientos realizados?','Pregunta',mb_YesNo+mb_IconQuestion)=idYes then
        begin
            DataModule2.trsCasas.Commit;
        end Else
        begin
            DataModule2.trsCasas.Rollback;
            Action:=caFree;
        end;
     end;

Gracias a todos....Saludos !

[Casimiro Notevi]

Empezado por mRoman

Código Delphi [-]
if dsUnidadOperativa.Transaction.InTransaction then      
begin         
  if Application.MessageBox('Desea GUARDAR los movimientos realizados?','Pregunta',mb_YesNo+mb_IconQuestion)=idYes then         
  begin             
    DataModule2.trsCasas.Commit;         
  end 
  Else         
  begin             
    DataModule2.trsCasas.Rollback;             
    Action:=caFree;         
  end;      
end;

Y si el usuario contesta que sí, que se graben los cambios, haces commit y... ¿el Action:=caFree?

[mRoman]

jajaja....tienes razon !!!.....bueno, "Al mejor cazador se le va la liebre"....
entonces quedaria asi:

Código Delphi [-]
if dsUnidadOperativa.Transaction.InTransaction then      
begin         
  if Application.MessageBox('Desea GUARDAR los movimientos realizados?','Pregunta',mb_YesNo+mb_IconQuestion)=idYes then         
  begin             
    DataModule2.trsCasas.Commit;         
  end 
  Else         
  begin             
    DataModule2.trsCasas.Rollback;             
//    Action:=caFree;         (Este no va aqui)
  end;      
  Action:=caFree;
end;

[Casimiro Notevi]

Tampoco puede ir ahí

Supongo que si pones Action := caFree; es porque ese form lo has creado tú en tiempo de ejecución y tienes que liberarlo, en caso contrario no hace falta.
Pero de todas formas en ese código que has puesto, imagina que dsUnidadOperativa.Transaction.InTransaction es False, (que no hay ninguna transacción), ¿qué ocurriría?, que no se ejecutaría el Action := caFree;
Por lo tanto, debes sacarlo fuera de ese condicionante.

Código Delphi [-]
begin
  if dsUnidadOperativa.Transaction.InTransaction then 
  begin            
    if Application.MessageBox('Desea GUARDAR los movimientos realizados?','Pregunta',mb_YesNo+mb_IconQuestion)=idYes then            
      DataModule2.trsCasas.Commit
    else            
      DataModule2.trsCasas.Rollback;
  end;
  Action:=caFree;
end;