CREATE OR REPLACE
TRIGGER USR_BLOQ_GRUPFILI BEFORE DELETE OR UPDATE ON GRUPFILI
FOR EACH ROW
DECLARE
  V_CONTADOR NUMBER;
  V_DSREMOTEADDR VARCHAR2(15);
  V_DSREMOTEHOST VARCHAR2(15);
  V_DSSERVERRDM  VARCHAR2(20);
  V_DSSERVMETHOD VARCHAR2(30);
  V_DSREMOTEOPER VARCHAR2(12);
BEGIN
  WEBTUNNING(V_DSREMOTEADDR,
             V_DSREMOTEHOST,
             V_DSSERVERRDM,
             V_DSSERVMETHOD,
             V_DSREMOTEOPER);              
  IF ((V_DSSERVMETHOD <> 'SetRotaTrans') AND (SUBSTR(V_DSSERVERRDM, 0 , 13) <> 'rdmFilialRota')) THEN
    SELECT COUNT(1)
      INTO V_CONTADOR
      FROM ROTATRANS
     WHERE NMROTATRANS = :OLD.NMGRUPFILI;
    IF V_CONTADOR > 0 THEN
      RAISE_APPLICATION_ERROR(-20000, 'A alteração/exclusão deve ser realizada na tela Filial por Rota');
    END IF;
  END IF;
END;
/

-- VERSAO --
BEGIN ATUVEROBJ('USR_BLOQ_GRUPFILI','6.19.XXX'); END;
/