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.