Equivalencia de conexión Delphi - Lazarus.

[hoyosfelix]

Hola de nuevo y gracias a todos.

El código enviado por pacopenin es excelente.

Voy a extraer parte del mismo

Código Delphi [-]
      Dat.ZTarifas.Post;             
      QryO.Next;         
    end;        
    try         
    Dat.ZConn.Commit;        
    except

De este código se entiende que tenemos un TZConnection en un DataModulo y a ella están ligadas varias consultas de distintos formularios.

Supongamos que en otro formulario se este Insertando una Factura que ya ha hecho un Post sin Commit todavía, pero que se sigue editando.

En ese momento corremos el procedure:

Código Delphi [-]
 procedure duplicaTarifa(origen, destino: integer; Tipo: String);

y se ejecuta con éxito el Commit del procedure.

Este Commit afecta también a la conexión actual de Factura, es decir que guarda en la base de datos.

La propiedad de TZConnection es Autocommit = False.

Cómo hacer para no afectar a Factura?

Saludos cordiales.

[pacopenin]

Al iniciar manualmente una transacción, el commit afecta exclusivamente a los registros modificados dentro de ella. Si tienes una factura en edición, ese proceso habrá creado su propia transacción de forma implicita, por lo que entiendo que funcionarán como dos transacciones distintas. De todas formas, lo mejor es probar.

[hoyosfelix]

Buen día a todos.

Gracias pacopenin por las respuestas.

Una consulta: Cómo están las propiedades AutoCommit y TransactIsolationLevel de tu TZConnection?

Saludos cordiales.

[pacopenin]

AutoCommit = True

TransactIsolationLevel = tiReadCommitted