login Method
Class: tastrade
Expand/Collapse source code of procedure login Source Code
LOCAL lcEmployeeID, ;
      lcUserLevel

*-- Save the current values of these vars in case user is logging in
*-- again but decides to cancel
lcEmployeeID = this.cEmployeeID
lcUserLevel = this.cUserLevel
lcLoginString = this.DoFormRetVal("loginpicture")

this.cEmployeeID = LEFT(lcLoginString, AT(",", lcLoginString) - 1)
this.cUserLevel = SUBSTR(lcLoginString, AT(",", lcLoginString) + 1)

IF EMPTY(this.cUserLevel)
  this.cEmployeeID = lcEmployeeID 
  this.cUserLevel = lcUserLevel
ENDIF

*-- The user level is what determines if the user successfully logged
*-- in or not, and determines what menu pads are shown.
RETURN !EMPTY(this.cUserLevel)