[firebase-br] Problemas com procedure

[Flavio Vieira de Macedo]

Minha procedure so esta retornando 1 registro. Se alguem puder me ajudar ai
vai ela.

CREATE PROCEDURE CREP (CODIGO_PRODUTO CHAR(26))
                     RETURNS (PRODUTO CHAR(26),
                              valor float,
                              nivel integer)
AS
DECLARE VARIABLE COMPONENTE CHAR(26);
begin

   FOR SELECT
         P030.p030_l010_codigo_componente
      FROM
         P030
      WHERE
         P030.P030_L010_NIVEL_SUP = :codigo_produto
      INTO
         :COMPONENTE

      DO begin
         nivel = 1;
         CODIGO_PRODUTO = :COMPONENTE;
         produto = :componente;
         select
            l010.l010_valor_custo_cif
         from
            l010
         where
            l010.l010_codigo = :componente
         into
            :valor;
         suspend;
 
         for SELECT
            P030.p030_l010_codigo_componente
         FROM
            P030
         WHERE
            P030.P030_L010_NIVEL_SUP = :COMPONENTE
         INTO
            :COMPONENTE
         DO begin
            nivel = 2;
            CODIGO_PRODUTO = :COMPONENTE;
            produto = :componente;

            select
               l010.l010_valor_custo_cif
            from
               l010
            where
               l010.l010_codigo = :componente
            into
               :valor;
            suspend;
         end
     END
END;