Display Employee Name in Menu

This code will place the current users employee name in the smartportal, just below the company logo. It actually uses the Rn_Descriptor of the Employee table, which OOB contains the employee first name and last name. This example can be expanded to put whatever you want in this field, including displaying the current date and time

Dim objNewCell

Set objNewCell = UIMaster.documentMenu.getElementsByTagName("TABLE")(0).insertRow(1).insertCell(0)

objNewCell.className = "FindTitleCell"

objNewCell.innerText = UIMaster.RSysClient.GetTable("Employee").Fields("Rn_Descriptor").Index(UIMaster.RSysClient.EmployeeId)


 * This can be expanded on to display whatever you want, using multiple fields or other functionality.
 * View Discussion Tab for Additional Examples

Thanks to Pierre Custeau for the original code, here