Hola.
No se si te servirá esto, yo lo utilizo para saber la última línea de un detalle de una tabla cualquiera, según el parámetro que le paso.
Código Delphi
[-]SET TERM ^ ;
create or alter procedure ULTIMA_LINEA (
CAMPO_LINEA varchar(15),
TABLA varchar(15),
CAMPO_DOCU varchar(15),
NUMERO_DOCU varchar(15))
returns (
ULTIMA varchar(10))
as
begin
/* Procedure Text */
EXECUTE STATEMENT 'SELECT max('||:campo_linea||') FROM '||:tabla||' where '
||:campo_docu||' = '||:numero_docu INTO :ultima;
suspend;
end^
SET TERM ; ^
GRANT EXECUTE ON PROCEDURE ULTIMA_LINEA TO SYSDBA;
Un saludo.