getuserlevel Method
Class: loginpicture
Expand/Collapse source code of procedure getuserlevel Source Code
LOCAL llCloseUserLevel, ;
      lcUserLevel

SET DATABASE TO TASTRADE

*-- Look up the group information
IF !USED("user_level")
  USE user_level IN 0
  llCloseUserLevel = .T.
ENDIF

lcUserLevel = LOOKUP(user_level.description, ;
                     employee.group_id, ;
                     user_level.group_id, ;
                     "group_id")

IF llCloseUserLevel
  USE IN user_level
ENDIF

RETURN lcUserLevel