CREATE OR REPLACE TRIGGER USR_ATU_PRAZOFORNEXPEFILPR_NGD
BEFORE DELETE OR UPDATE OF QTDIASPRAZOEXPED, VRMINFORNREG, QTMINFORNREG
ON PRAZOFORNEXPEDFILPROD  FOR EACH ROW
BEGIN
   IF DELETING THEN
      FOR C_PRAZOFORNEXPEDFILPROD IN (SELECT PRODFORNCOMP.ROWID ROWID_COMP
                                        FROM PRODFORNCOMP, PRODUTO PRODUTO_COMP, PRODUTO PRODUTO_EXPED
                                       WHERE PRODFORNCOMP.CDPRODCOMPL = PRODUTO_COMP.CDPRODUTO
                                         AND PRODUTO_EXPED.CDPRODUTO  = :OLD.CDPRODUTO
                                         AND PRODFORNCOMP.CDFORNECED  = :OLD.CDFORNECED
                                         AND PRODUTO_COMP.CDARVPROD LIKE PRODUTO_EXPED.CDARVPROD||'%'
                                         AND (NVL(PRODFORNCOMP.USR_NGD_INTEGRADO, 'N') = 'S'))
      LOOP
         UPDATE PRODFORNCOMP
            SET PRODFORNCOMP.USR_NGD_INTEGRADO = 'N'
          WHERE PRODFORNCOMP.ROWID = C_PRAZOFORNEXPEDFILPROD.ROWID_COMP
            AND (NVL(PRODFORNCOMP.USR_NGD_INTEGRADO, 'N') = 'S');
      END LOOP;
   ELSE
      :NEW.USR_NGD_INTEGRADO := 'N';
   END IF;
END;
/

-- VERSAO --
BEGIN ATUVEROBJ('USR_ATU_PRAZOFORNEXPEFILPR_NGD','6.45.048'); END;
/
