1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
| DECLARE
cur_rec number:=Get_Block_Property( 'ACTIVITE_TACHE', CURRENT_RECORD);
cur_tache number:=:ACTIVITE_TACHE.ID_TACHE;
i number;
trouve_tache boolean:=FALSE;
BEGIN
For i IN 1..(cur_rec-1) LOOP
GO_RECORD(i);
IF :ACTIVITE_TACHE.ID_TACHE=cur_tache THEN
trouve_tache:=TRUE;
END IF;
P_MSGBOX('INFORMATION','MME-TEST','Le N° de la Tache est courante :' || to_char(:ACTIVITE_TACHE.ID_TACHE));
END LOOP;
IF trouve_tache=TRUE THEN
P_MSGBOX('INFORMATION','MME-ERREUR','Cette tache existe déjà');
Raise Form_trigger_failure;
ELSE
null;
END IF;
END; |
Partager