How can I hide a menu options programatically in Forms 6i?

Question

Hi folks:
I am using a customized menu. Called AEMS001. I have four options: File, Maintenance, Operations, Administration.
Inside Maintenance, I have 15 different options and I need to hide five of them (Fees, Documents, Legal, Recors, Others) depending of the user role assined.
How can I do that?
I try to use set_menu_item_property('FEES', Visible, property_false)
but it give me an error: FRM-41067: Cannot find menu item: invalid Id
What do I did wrong?
thanks a lot.
Abdel

Answer 1

hi,
it might be that there is an initialization error in your code...
try something like this (you can use visible or enable property).
tell me your email and i will send you sample form and menu with the following code ...
declare
menu_item_name     varchar2(40) := 'MENU2.ITEM23';
menu_item_id     MenuItem;
begin
menu_item_id := find_menu_item(menu_item_name);
/*if (not id_null(menu_item_id)) then
if (GET_MENU_ITEM_PROPERTY(MENU_ITEM_NAME, visible)='TRUE') then
     set_menu_item_property(menu_item_id, visible, property_false);
else
     set_menu_item_property(menu_item_id, visible, property_true);     
end if;
else
message(' cannot find menu item!');          
     raise form_trigger_failure;
end if;     
if (not id_null(menu_item_id)) then
if (GET_MENU_ITEM_PROPERTY(MENU_ITEM_NAME, enabled)='TRUE') then
     set_menu_item_property(menu_item_id, enabled, property_false);
else
     set_menu_item_property(menu_item_id, enabled, property_true);     
end if;
else
     message(' cannot find menu item!');          
     raise form_trigger_failure;
end if;     
end;