General Options

Menu is not top levelTop Level
Location: Replace
Color Scheme: Menu Bar
Mark:

Expand/Collapse all menu codes Menu code
Expand/Collapse Procedure Procedure
*-- (c) Microsoft Corporation 1995
Expand/Collapse Setup Setup
#INCLUDE "INCLUDE\TASTRADE.H"
Expand/Collapse Clenaup Cleanup
*-RELEASE BAR 1 OF Window

IF UPPER(oApp.GetUserLevel()) <> USER_APPDEV_LOC
  RELEASE PAD Utilities OF _MSYSMENU
ENDIF

IF !INLIST(UPPER(oApp.GetUserLevel()) , USER_APPDEV_LOC, USER_OPSMGR_LOC)
  RELEASE BAR 1 OF ADMINBAR_LOC  && Login
  RELEASE BAR 2 OF ADMINBAR_LOC  && Change Password
  RELEASE BAR 3 OF ADMINBAR_LOC  && Separator
ENDIF