Refresh Method
Object: frmemployee
Expand/Collapse source code of procedure Refresh Source Code
LOCAL lcEmployeeID
lcEmployeeID = ""
IF TYPE("oApp") == "O"
  lcEmployeeID = oApp.GetEmployeeID()
ENDIF

*-- Do not allow deletion of employee who is currently
*-- logged in.
IF !EMPTY(lcEmployeeID) AND employee.employee_id = lcEmployeeID
  thisform.lAllowDelete = .F.
ELSE
  thisform.lAllowDelete = .T.
ENDIF