Archive for August, 2007

Hide Business Object From Menu

August 20, 2007

Below is the function to hide business object from the left hand menu.

'**********************************************
' Name:    HideBusinessObject
' Purpose: To Hide Business Object 
'        from Left Hand Navigation
' Info:    To be called from OnMainWindowOpen 
'**********************************************
' 1.0            8/20/2007     JM        
'**********************************************
Sub HideBusinessObject(strBusinessObjectName)  
    Dim objHTMLDoc
    For Each objHTMLDoc in _ 
        UIMaster.documentMenu.all
        If objHTMLDoc.tagName = "DIV" _ 
            and UCase(objHTMLDoc.title) = _ 
        UCase(strBusinessObjectName) Then
            objHTMLDoc.parentElement.parentElement. _ 
                parentElement.parentElement. _ 
        parentElement.parentElement. _ 
        style.display="none"
        End If
    Next
End Sub
Advertisements