1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27
|
BEGIN
/*Ajout des triggers*/
--@Triggers/TMO_DOCUMENT_REPONSE_LISTE.trg;
EXECUTE IMMEDIATE 'CREATE OR REPLACE TRIGGER TMO_DOCUMENT_REPONSE_LISTE'||
'AFTER UPDATE OF TITRE_MO_DOCUMENT ON MO_DOCUMENT REFERENCING NEW AS NEW OLD AS OLD'||
'FOR EACH ROW'||
'BEGIN'||
' DECLARE CURSOR C_DOCUMENT IS'||
' SELECT ID_MO_DOCUMENT,TITRE_MO_DOCUMENT FROM MO_REPONSE_LISTE'||
' WHERE NEW.ID_MO_DOCUMENT = MO_REPONSE_LISTE.ID_MO_DOCUMENT;'||
' BEGIN'||
' FOR R_DOCUMENT IN C_DOCUMENT LOOP'||
' UPDATE MO_REPONSE_LISTE'||
' SET MO_REPONSE_LISTE.TITRE_MO_DOCUMENT = NEW.TITRE_MO_DOCUMENT'||
' WHERE MO_REPONSE_LISTE.ID_MO_DOCUMENT = R_DOCUMENT.ID_MO_DOCUMENT;'||
' END LOOP;'||
' END;'||
'END;';
COMMIT;
EXCEPTION
WHEN OTHERS THEN ROLLBACK;
END; |
Partager