create or replace TRIGGER USR_ATUALIZA_CODPROD
  AFTER UPDATE ON PRODUTO FOR EACH ROW
DECLARE
   V_CDPRODINTE USR_ITEM_AUTF.CDPRODINTE%TYPE;
   V_CDPRODUTO PRODUTO.CDPRODUTO%TYPE;
BEGIN
   V_CDPRODINTE := NVL(:NEW.CDPRODINTE, :OLD.CDPRODINTE);
   V_CDPRODUTO := NVL(:NEW.CDPRODUTO, :OLD.CDPRODUTO);
   BEGIN
      UPDATE USR_ITEM_AUTF
      SET CDPRODINTE  = V_CDPRODINTE
      WHERE CDPRODUTO = V_CDPRODUTO;
   EXCEPTION 
      WHEN OTHERS THEN
         NULL;
   END;
END USR_ATUALIZA_CODPROD;
/

-- VERSAO --
BEGIN ATUVEROBJ('USR_ATUALIZA_CODPROD','6.35.021'); END;
/
