Talk:Display Employee Name in Menu

I use this

'Added 4-02-08 If Not clause so it doesn't give error in IE when there is no document menu 'If the employee is in the purchasing department default to vendor, otherwise default to Company 4-6-2009

If Not (UIMaster.DocumentMenu Is Nothing) Then Set objmenu = UIMaster.documentMenu Set objElements = objmenu.getElementsByTagName("INPUT") For Each objElement in objElements If objElement.classname = "ComboFieldInput" Then If UIMaster.RSysClient.GetTable("Employee").Fields("Department").Index(UIMaster.RSysClient.EmployeeId) = "Purchasing" Then objElement.value = "Vendor" Else objElement.value = "Company" End If           objElement.focus Exit For End If      Next 'END ADD

' 4-9-2009 EDB Add BM Version & Name to the Business Object Menu and insert at the bottom of the Business Object List. Dim strVersion strVersion = " BM_5.9.2009.0403J" If strVersion <> "" Then Set objNewCell = UIMaster.documentMenu.getElementsByTagName("TABLE")(0).insertRow(3).insertCell(0) objNewCell.className = "FindTitleCell" objNewCell.innerText = UIMaster.RSysClient.GetTable("Employee").Fields("Rn_Descriptor").Index(UIMaster.RSysClient.EmployeeId) & strVersion End If    End If ' end add

Eric Baptist (Pivotal CRM Forum - ebaptist)