ayuda al llamar un procedimiento...

[celades]

Hola

supongamos tener el procedimiento

create procedure genera_codi_id
returns
( codigo_id integer)
as
begin
codigo_id=gen_id(generador,1);
suspend;
end

desde delphi con un componente ibquery u otro

ibquery.sql.text:=' select codigo_id from genera_codi_id'
ibquery.open;
variable_x:=ibquery.fieldbyname('codigo_id').asinteger;

o sea el procedimiento se puede consultar igual que una tabla cualquiera
pero debe tener returns y suspend

Hay mas formas de hacerlo con ibquery o IBStoredProc
ibquery.sql.text:='execute procedure genera_codi_id';
ibquery.execproc;
variable_x:=ibquery.parambyname('codigo_id').asinteger;

Lo he hecho sin probarlo pero espero no haber cometido errores de sintaxis

Saludos