To password a menu item

[mannah07]

I want to password a single menu item.
For example if my menu is like below:

Transaction- Reports - Utilities

I want the password to be on only on utilities as above so that when I click on the Utilities menu it demand a password.

Thanks in advance.

 

[EzLogic]

ON SELECTION POPUP UtilityPoPuP do UtilMenuProc With POPUP(),BAR()
*************
PROCEDURE UtilMenuProc
PARAMETERS mPopup,nBar
MenuBar = nBar
MenuPopup = mPopup
DO case
CASE mPopUP = UPPER('UtilityPopUp') AND nBar = 3 && Utility
lTrue = .f.
do Form PassEntry to lTrue && Pass form that return .t., or .f.
if lTrue
DO FORM TextMessage
endif
CASE mPopUp = UPPER('EmailPopUp') AND nBar = 2
DO FORM bla bla
ENDCASE

ENDPROC


Ali Koumaiha
TeknoSoft Inc
Farmington Hills, Michigan