CREATE OR REPLACE PROCEDURE ATUALIZA_COLETA_PED(
    P_FILIAL IN NOTAFISCAL.CDFILIAL%TYPE,
    P_LANCTONF IN NOTAFISCAL.NRLANCTONF%TYPE)

IS

BEGIN
   /*LISTA OS PEDIDO DA NF E MODIFICA O STATUS DE LEITURA DE CODIGO DE BARRAS E QRCODE PARA NAO LIDO */
   FOR C_PEDIDONF IN (SELECT DISTINCT IT.CDFILIALPED, IT.NRPEDIDO
                        FROM NOTAFISCAL NF, ITEMPRODUTO IT
                       WHERE NF.CDFILIAL = P_FILIAL
                         AND NF.NRLANCTONF = P_LANCTONF
                         AND NF.CDFILIAL = IT.CDFILIAL
                         AND NF.NRLANCTONF = IT.NRLANCTONF
   ) LOOP
      UPDATE PEDIDO
         SET IDEXPCOLETOR = 'N'
       WHERE CDFILIAL = C_PEDIDONF.CDFILIALPED
         AND NRPEDIDO = C_PEDIDONF.NRPEDIDO;


   END LOOP;
END;
/