[[Luis M.]]

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.