simple firebird paginate

SET TERM ^ ;
ALTER PROCEDURE SP_CDSPSQ_PED (
    VFIRST INTEGER,
    VSKIP INTEGER,
    VID_EMPRESA INTEGER,
    VCLI_RAZAO VARCHAR(60) )
RETURNS (
    PED_DATA_EMISSAO DATE,
    ID_PEDIDO INTEGER,
    ID_CLIENTE INTEGER,
    CLI_RAZAO VARCHAR(60),
    CLI_RAZAO_COMPLETA VARCHAR(65),
    TELEFONES VARCHAR(30),
    PED_W16_VNF NUMERIC(18,2),
    ID_CFOP VARCHAR(5),
    PED_DATA_BAIXA DATE )

AS
BEGIN
  FOR
    SELECT FIRST (:vFirst) skip (:vSkip)
        vnd_pedidos.ped_data_emissao,
        vnd_pedidos.id_pedido,
        vnd_pedidos.id_cliente,
        cad_clientes.cli_razao,
        cad_clientes.cli_razao||' / '||cad_clientes.cli_log_uf AS cli_razao_completa,
        '('||CLI_DDD||') '||CLI_FONE_1||' / ' ||CLI_FONE_2 AS telefones,
        vnd_pedidos.ped_w16_vnf,
        vnd_pedidos.id_cfop,
        vnd_pedidos.ped_data_baixa
    FROM cad_clientes
       INNER JOIN vnd_pedidos ON (cad_clientes.id_cliente = vnd_pedidos.id_cliente)
    WHERE
       (
          (vnd_pedidos.id_empresa = :vid_empresa)
       AND
          (cad_clientes.cli_razao LIKE :vcli_razao)
       )
    ORDER BY vnd_pedidos.id_pedido DESC
    INTO :PED_DATA_EMISSAO,
         :ID_PEDIDO,
         :ID_CLIENTE,
         :CLI_RAZAO,
         :CLI_RAZAO_COMPLETA,
         :TELEFONES,
         :PED_W16_VNF,
         :ID_CFOP,
         :PED_DATA_BAIXA
  DO
  BEGIN
    SUSPEND;
  END
END
^
SET TERM ; ^


GRANT EXECUTE
 ON PROCEDURE SP_CDSPSQ_PED TO  SYSDBA;