|
Lo he probado y me ha sido de gran ayuda...
Además de usar esa técnica(la del Trigger) he probado otra con una función.
En la del Trigger he usado la inserción provisional de un cero. Así se llena el campo que por ser NOT NULL no puede dejarse vació. Luego el Trigger lo detecta e inserta el nº que toca en la serie.
Como segunda técnica, en otro .FBD he usado una función de usuario que llama al GEN_ID.
SELECT GEN_iD( GEN_JOT, 0) FROM RDB$DATABASE
El botón de ALTAS usa la variable EsAlta (boolean). Así si el ALTA se confirma con el botón GUARDAR, se pasa al generador un +1 y si no se queda como está
La función es
nRec:=REVISA_GEN( IBQuery1: TIBQuery; SeRevisa: Boolean; TLabel1:TLabel): integer;
El nº se ve en el TLabel para controlar los registros de la tabla y el resto es historia.
Si alguien quiere el código...
Saludos y gracias a todos los que han intervenido. Ha sido un mazazo saber de los parámetros de entrada y salida en IBQuery... Muy bueno.
Doy, pues, el hilo por acabado.
|