PL/MONITORIA/AULA 4

//Primeira

SET serveroutput on;

CREATE TRIGGER comps
AFTER INSERT OR UPDATE OR DELETE ON projeto
FOR EACH ROW
	
BEGIN

dbms_output.put_line('<<Dados Antigos>>');
dbms_output.put_line('COD: ' || :OLD.codigo_projeto);
dbms_output.put_line('TIT: ' || :OLD.titulo);
dbms_output.put_line('CON: ' || :OLD.conceito);
dbms_output.put_line('HP: ' || :OLD.hp);
dbms_output.put_line(' ');
dbms_output.put_line('<<Dados Novos>>');
dbms_output.put_line('COD: ' || :NEW.codigo_projeto);
dbms_output.put_line('TIT: ' || :NEW.titulo);
dbms_output.put_line('CON: ' || :NEW.conceito);
dbms_output.put_line('HP: ' || :NEW.hp);

END;

/


//Segunda
SET serveroutput on;

CREATE TRIGGER permiss
BEFORE INSERT ON disciplina
FOR EACH ROW

DECLARE
coordenador disciplina.matricula_professor%TYPE;

BEGIN
SELECT matricula_professor INTO coordenador FROM disciplina 
WHERE matricula_professor = :NEW.matricula_professor 

IF coordenador IS NOT NULL THEN
RAISE APPLICATION ERROR(-20101, 'Nao eh possivel ministrar mais de uma disciplina');
END IF;

EXCEPTION
WHEN NO_DATA_FOUND THEN
dms_output.put_line('Coordenacao aceita');
END;
/