Transaciones IBX

[Loviedo]

Este es el procedimiento

Código Delphi [-]
Procedimiento P_INCFAMILIA
EGIN
  UPDATE codigos SET familia=familia+1;
END

El problema es que en el bucle, no se incrementa el 'FDM.CodigosFAMILIA.AsInteger' y me sale
violación clave primaria al insertar el siguiente registro.
'FDM.CodigosFAMILIA.AsInteger' se refresca después del commit.
Gracias.