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 28 29
| DECLARE
Tp_id1 tab_page;
Tp_id2 tab_page;
Tp_id3 tab_page;
BEGIN
Tp_id1 :=find_tab_page('CANVAS0.Anglet1');
Tp_id2 :=find_tab_page('CANVAS0.Anglet2');
Tp_id3 :=find_tab_page('CANVAS0.Anglet3');
IF :TYPE = 'statique' THEN
SET_TAB_PAGE_PROPERTY(Tp_id1, enabled, property_FALSE);
SET_TAB_PAGE_PROPERTY(Tp_id2, enabled, property_TRUE);
SET_TAB_PAGE_PROPERTY(Tp_id3, enabled, property_TRUE);
ELSE IF :TYPE = 'dynamique' THEN
SET_TAB_PAGE_PROPERTY(Tp_id1, enabled, property_TRUE);
SET_TAB_PAGE_PROPERTY(Tp_id2, enabled, property_FALSE);
SET_TAB_PAGE_PROPERTY(Tp_id3, enabled, property_TRUE);
ELSE
SET_TAB_PAGE_PROPERTY(Tp_id1, enabled, property_FALSE);
SET_TAB_PAGE_PROPERTY(Tp_id2, enabled, property_FALSE);
SET_TAB_PAGE_PROPERTY(Tp_id3, enabled, property_FALSE);
END IF;
END IF;
exception when others then
null;
END; |
Partager