CREATE OR REPLACE FUNCTION LISTA_PEDIDOS_NF(
   P_CDFILIAL     IN ITEMPRODUTO.CDFILIAL%TYPE,
   P_NRLANCTONF   IN ITEMPRODUTO.NRLANCTONF%TYPE) RETURN VARCHAR2 IS

   V_RESULT       VARCHAR2(5000);
BEGIN
   V_RESULT := '';
   FOR C_PEDIDOS IN (SELECT DISTINCT CDFILIALPED, NRPEDIDO
                       FROM ITEMPRODUTO
                      WHERE CDFILIAL = P_CDFILIAL AND
                            NRLANCTONF = P_NRLANCTONF)
   LOOP 
      IF (LENGTH(V_RESULT) > 0) THEN
         V_RESULT := V_RESULT || ' - ' || C_PEDIDOS.NRPEDIDO;
      ELSE
         V_RESULT := C_PEDIDOS.NRPEDIDO;
      END IF;
   END LOOP;
   RETURN(V_RESULT);
END; 