CREATE OR REPLACE TRIGGER BLOQUEIA_ALTERACAO_AF
BEFORE DELETE OR UPDATE OR INSERT ON ITEMAUTF FOR EACH ROW
DECLARE
   V_CDFILDEST  VARCHAR2(4);
   V_CDFILLANC  VARCHAR2(4);
   V_NRAUTOFORN VARCHAR2(10);
   V_COUNT      INTEGER;
BEGIN
   V_CDFILDEST  := :OLD.CDFILDEST;
   V_CDFILLANC  := :OLD.CDFILLANC;
   V_NRAUTOFORN := :OLD.NRAUTOFORN;
   
   SELECT COUNT(1)
     INTO V_COUNT
     FROM PRODPEDXAF
    WHERE CDFILLANC  = V_CDFILDEST
      AND CDFILDEST  = V_CDFILLANC
      AND NRAUTOFORN = V_NRAUTOFORN;
   
   IF V_COUNT > 0 THEN
      RAISE_APPLICATION_ERROR(-20501, 'N'||CHR(227)||'o foi poss'||CHR(237)||'vel alterar a autoriza'||CHR(231)||CHR(227)||'o de fornecimento porque a 
                                       mesma est'||CHR(225)||' vinculada a um pedido.', True);
   END IF;
   
END;
/

-- VERSAO --
BEGIN ATUVEROBJ('BLOQUEIA_ALTERACAO_AF','6.25.xxx'); END;
/