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
num_error number :=0;
dat date;
BEGIN
IF (:system.trigger_item ='BLK_DATE.DATCGH2') THEN
BEGIN
-- controle format de la date
begin
SET_ITEM_PROPERTY(:system.cursor_item,ITEM_IS_VALID,PROPERTY_FALSE);
VALIDATE(ITEM_SCOPE);
if (not form_success or form_failure)then
raise form_trigger_failure;
end if;
dat:=to_date(:system.cursor_value,'FMDD/MM/RRRR');
EXCEPTION
WHEN OTHERS THEN
MESSAGE('Le format de la date d''intégration est ''DD/MM/YYYY''');
RAISE FORM_TRIGGER_FAILURE;
end ;
next_block;
END;
END IF;
END ; |
Partager