Procedimieto para averiguar el valor de un generador en firebird

[[Crandel]]

Hola Mauro, llego un poco tarde, por ahi ya lo resolviste pero aca te constesto.

Primero creamos el genrador:

Código SQL [-]
CREATE GENERATOR INC_GENERADOR;

luego procedimiento almacenado :

Código SQL [-]
CREATE PROCEDURE VALOR_GENERADOR RETURNS (COD INTEGER)
AS
BEGIN
  COD = gen_id (INC_GENERADOR, 0);
END^

y luego para leer el valor utilizamos el componente TIBStoredProc, y usamos este código:

Código Delphi [-]
Proc_Valor_Generador.ExecProc;
Num := Proc_Valor_Generador.ParamByName('COD').AsInteger;