CREATE OR REPLACE TRIGGER ATUALIZA_NIVELANT_PROD
BEFORE INSERT
ON PRODUTO FOR EACH ROW
DECLARE
   V_CDPAIPRODUTO VARCHAR(20);
   V_COUNT        NUMBER := 0;
BEGIN
   /* BUSCANDO O PAI DO PRODUTO */
   BEGIN
      SELECT P.CDARVPROD
        INTO V_CDPAIPRODUTO
        FROM PRODUTO P
       WHERE P.CDNVPRODUTO = (:NEW.CDNVPRODUTO - 1)
         AND :NEW.CDARVPROD LIKE P.CDARVPROD||'%';
   EXCEPTION
      WHEN OTHERS THEN V_CDPAIPRODUTO := NULL;
   END;
   /* UPDATANDO O PAI DO PRODUTO */
   :NEW.CDPRODNIVANTE := V_CDPAIPRODUTO;
END;
/