| 12
 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