Home » Developer & Programmer » Forms » "FRM-41067 Cannot find menu item Invalid id"
"FRM-41067 Cannot find menu item Invalid id" [message #620028] Mon, 28 July 2014 01:02
mist598
Messages: 953
Registered: February 2013
Location: Hyderabad
Senior Member
Hi all,

Getting "FRM-41067 Cannot find menu item Invalid id"

DECLARE
    mi_id MENUITEM;
   v_mi_id MENUITEM;
   v_id MENUITEM;
 
    CURSOR c
    IS
      SELECT menu_name
      FROM   st_menu_sec
      WHERE  st_menu_sec.userid = :GLOBAL.userid
             AND access_y_n = 1;
BEGIN
    for crec in c
              mi_id := Find_Menu_Item('SETUP_MENU');
 
              v_mi_id := Find_Menu_Item('TRANSACTIONS_MENU');
 
              v_id := Find_Menu_Item('ADMIN_MENU');
 
      IF NOT ID_NULL(mi_id) THEN
      loop
 
      IF Get_Menu_Item_Property(mi_id,ENABLED) = 'TRUE' THEN
         Set_menu_item_property('SETUP_MENU.' ||crec .menu_name, enabled, property_true);
      ELSE
         Message(' No such menu item: SETUP_MENU');
      END IF;
      IF Get_Menu_Item_Property(v_mi_id,ENABLED) = 'TRUE' THEN
      Set_menu_item_property('TRANSACTIONS_MENU.' ||crec .menu_name, enabled, property_true);
      ELSE
         Message(' No such menu item: TRANSACTIONS_MENU');
      END IF;
      IF Get_Menu_Item_Property(v_id,ENABLED) = 'TRUE' THEN
      Set_menu_item_property('ADMIN_MENU.' ||crec .menu_name, enabled, property_true);
      ELSE
         Message(' No such menu item: ADMIN_MENU');
      END IF;
      end loop;
     END IF;
END;


Thanks
Previous Topic: Key mapping
Next Topic: System_Editor
Goto Forum:
  


Current Time: Thu Oct 02 01:31:09 CDT 2014

Total time taken to generate the page: 0.15783 seconds