Problem with disable menu [message #531981] |
Sat, 19 November 2011 00:23 |
|
aallan
Messages: 150 Registered: October 2011
|
Senior Member |
|
|
Dears;
i tried to disable menu but the code didnt work.
My Code:
Procedure Pu_Check_Open_Form_Prc(Pv_Menu_Code Varchar2) Is
vn_open_pvg Number(1) := 0;
vm_menu_id MenuItem;
Begin
Begin
Select Open_Pvg
Into vn_open_pvg
From Sec_Menu_Users_Privileges
Where Menu_Code = Pv_Menu_Code
And Group_Id = :Global.Group
And Owner = :Global.Owner
And User_Id = :Global.User;
Exception When No_Data_Found Then
vn_open_pvg := 0;
End;
vm_menu_id := Find_Menu_Item(Pv_Menu_Code);
If (vn_open_pvg = 1 And :Global.User <> 'ADMIN') Or (:Global.User = 'ADMIN') Then
Call_Form(Pv_Menu_Code, No_Hide, No_Replace, No_Query_Only);
Else
If Not Id_Null(vm_menu_id) Then
Set_Menu_Item_Property(vm_menu_id, Enabled, Property_False);
End If;
End If;
End;
and my menu in the attached pic.
Open_Pvg: is a user permision to open the form or not.
Thank you.
-
Attachment: Menu.PNG
(Size: 10.56KB, Downloaded 681 times)
[Updated on: Sat, 19 November 2011 00:40] Report message to a moderator
|
|
|
|