Problema con un Contador.

[marcoszorrilla]

D7 y Firebird 2.5 conectando con las IBX.

Tengo un problema con un contador. Si abro altas facturas en dos equipos a la vez, el segundo que intenta grabar la factura no ve el contador actualizado y arroja un error de "Primary Key", repetida.

Al actualizar el contador hago "Post"

Este es el código:

Código Delphi [-]
procedure TDmConex.IBDtsConfAfterPost(DataSet: TDataSet);
begin
Actualizar_Transacion();
end;

Procedure Actualizar_Transacion();
begin
    if DmConex.IBTransaction.InTransaction then
    DmConex.IBTransaction.CommitRetaining;
end;

Los parámetros de la transación son:

read_committed
rec_version
nowait

Un Saludo.