DECLARE V_CDPRODINTE VARCHAR2(20);
BEGIN
   FOR C_REG IN (
                  SELECT CDPRODUTO, CDPRODINTE
                    FROM PRODUTO
                    WHERE CDNVPRODUTO = '5' AND
                        CDPRODINTE IS NOT NULL
                    ORDER BY CDPRODUTO )LOOP


      BEGIN
         SELECT CDBARRAPROD
           INTO V_CDPRODINTE
           FROM CDBARRAPROD
          WHERE
                CDBARRAPROD = C_REG.CDPRODINTE;
      EXCEPTION
         WHEN NO_DATA_FOUND THEN
            V_CDPRODINTE := 'W';
      END;

      IF(V_CDPRODINTE <> C_REG.CDPRODINTE) THEN
         INSERT INTO CDBARRAPROD( CDPRODUTO, CDBARRAPROD)
         VALUES(C_REG.CDPRODUTO, C_REG.CDPRODINTE);
      END IF;
   END LOOP;
COMMIT;
END;
/ 
