Como darle un Tiempo de Vida a un Bloqueo ????

[[maeyanes]]

Lo que sucede es que en realidad tengo creado un tipo de framework para trabajar con objetos en lugar de registros...

Entonces, en lugar de hacer DataSet.Post, en realidad hago algo como Objeto.Store, entonces, internamente el método mencionado hace el manejo de las transacciones...

Ahora, cuando quiero manejar inserciones masivas, vamos a decirle así, por ejemplo tipo master-detail, lo que hago es iniciar una transacción, realizar el ciclo de inserciones (Objeto.Store) y al final el Commit o Rollback dependiendo de si todo estuvo bien u ocurrió un error.

Mi código es más o menos ásí:

Código Delphi [-]
var
  Objeto: TObjetoFrameWork;

begin
  Connection.StartTransaction;
  try
    for I := 0 to ListaObjetos.Count - 1 do // ListaObjetos es un TList
    begin
      Objeto := TObjetoFrameWork(ListaObjetos[i]);
      repeat
        Stored := True;
        try
          Objeto.Store
        except
          on E: EIBInterBaseError do
          begin
            // Si existe DeadLock, cambio a False Stored para repetir la inserción...
            Stored := not E.SQLCode = -901; 
            if Stored then // Si Stored sigue siendo verdadero, la excepción fue otra y la relanzo...
              raise
          end
        end
      until
        Stored
    end;
    Connection.CommitTransaction
  except
    Connection.RollbackTransaction
  end
end;

Espero que con esto te aclare mejor las cosas...



Saludos...

[ronalg]

bueno no se si te servira, yo uso generadores, pero el cliente pide un numero, y lo guardo en el registro de windows, hasta que lo necesito, una simple variable de cod_factura en el regitro, si esta variable es vacia pido un nuevo numero al generador, si esta llena uso ese valos, si hay error no vacio la variable y si no lo hay la vacio y asi garantizo que aunque se corte la luz como esta en el registro de windows puedo rescatar el número que pedí.

Espero que te sirva

[AGAG4]

Vuelvo a reabrir este hilo que hace más de 2 años lo abri, sigo con este problema de los bloqueos pesimistas, no me funciona el parametro DeadlockTimeout dentro de firebird.conf, no mata los bloqueos que duran el tiempo que especifico, lo que ha de esperar firebird es que ocurra un problema en el bloqueo pero no especifica que problemas considera para activar el DeadlockTimeout, espero a alguien haya encontrado algo para RE-matar un bloqueo muerto ....

DeadlockTimeout = Número de segundos (entero) que el gestor de bloqueos 
esperará despues de la aparición de un conflicto antes de purgar todos los 
bloqueos de procesos muertos y realizar un ciclo posterior de detección de 
deadlocks. Normalmente el motor detecta instantáneamente los deadlocks. 
El timeout de deadlocks solo se dispara cuando algo va mal.El valor 
por defecto de 10 segundos es adecuado para la mayoría de las situaciones. 
Configurar un valor menos no aumenta necesariamente la velocidad a la que 
los deadlocks problemáticos devuelven una excepción de conflicto. Si es 
demasiado bajo, el efecto puede ser escaneos extra innecesarios que 
degraden el rendimiento del sistema.

[RolphyReyes]

Saludos.

No se si migraste o podrías migrar a FB >= 2.

En esta versión existe la clausula LOCK TIMEOUT.

Lock Timeout for WAIT Transactions
A. Karyakin, D. Yemanov
All Firebird versions provide two transaction wait modes: NO WAIT and WAIT. NO WAIT mode means that
lock conflicts and deadlocks are reported immediately, while WAIT performs a blocking wait which times out
only when the conflicting concurrent transaction ends by being committed or rolled back.
The new feature extends the WAIT mode by making provision to set a finite time interval to wait for the concurrent
transactions. If the timeout has passed, an error (isc_lock_timeout) is reported.
Timeout intervals are specified per transaction, using the new TPB constant isc_tpb_lock_timeout in the API or,
in DSQL, the LOCK TIMEOUT <value> clause of the SET TRANSACTION statement.

Y también:

Lock Timeout for WAIT Transactions
A. Karyakin, D. Yemanov
The new feature extends the WAIT mode by making provision to set a finite time interval to wait for the concurrent
transactions. If the timeout has passed, an error (isc_lock_timeout) is reported.
Timeout intervals can now be specified per transaction, using the new TPB constant isc_tpb_lock_timeout in
the API.
Note
The DSQL equivalent is implemented via the LOCK TIMEOUT <value> clause of the SET TRANSACTION

Un ejemplo:

SET TRANSACTION WAIT SNAPSHOT NO AUTO UNDO LOCK TIMEOUT 10

Extraído de Firebird 2.0.1 Release Notes.

Hasta luego.

[AGAG4]

Te agradezco la sugerencia, ya lo habia pensado, en este momento estoy en la version 1.5.5 tengo que hacer varios cambios en los trigger's para cambiarme a la version 2.0, cosa que estoy evaluando.... por el momento estoy investigando si en la versión 1.5.5. se puede hacer algo similar....