create or replace FUNCTION BUSCA_DADOSADIC_PED(
   P_CDFILIAL     IN FILIAL.CDFILIAL%TYPE,
   P_NRPEDIDO     IN PEDIDO.NRPEDIDO%TYPE) RETURN VARCHAR2 IS
   V_NRNOTAFISC NOTAFISCAL.NRNOTAFISC%TYPE;
   V_DTEMISSAO  NOTAFISCAL.DTEMISSAO%TYPE;
   V_NRLANCTONF NOTAFISCAL.NRLANCTONF%TYPE;
   V_RESULT VARCHAR2(600);
BEGIN
   V_RESULT := '';
   FOR C_DADOS IN (SELECT DISTINCT CDMENSAGEM, DSDADOADICPED
                     FROM DADOSADICPED
                    WHERE CDFILIAL = P_CDFILIAL
                      AND NRPEDIDO = P_NRPEDIDO)
   LOOP
      IF (V_RESULT IS NULL) THEN
         V_RESULT := V_RESULT ||C_DADOS.DSDADOADICPED;
      ELSE
         V_RESULT := V_RESULT ||' - '|| C_DADOS.DSDADOADICPED;
      END IF;
   END LOOP;
   RETURN(V_RESULT);
END;

