Object: | frmemployee |
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