Skip to Content

BO sessions not closing while after logon through Designer.application

I am trying to collect the objects that is tables, functions, views and stored procedures from the universe item. For that I am using Designer DLL and through Designer.application I am logging to BO(V4.2) CMC and getting universe root folder and then by using that universe root folder, collecting all the universe items and opening each item by Designer.application.universes.OpenFromEnterprise. Finally I am closing the application by using Designer.application.quit() and also making null.

Case 1: BO CMC sessions are not closing while after logon through Designer.application

case 2: BO CMC sessions are not closing while after retrieving the universe root folder by Designer.application.UniverseRootFolder.Folders.get_Item("<item>")

Case 3: BO CMC sessions are closing after getting universe details by Designer.application.universes.OpenFromEnterprise

Please help me on how to clear the BO sessions

Add comment
10|10000 characters needed characters exceeded

  • Get RSS Feed

1 Answer

  • Oct 18, 2018 at 05:06 PM

    Here is a code that I used to logout and it works fine.

    to close univ ---> univ.close

    to close Designer (logout) ---> desApp.Quit

    Public DesApp As Designer.Application           ' Designer App. Object
    Public Univ As Designer.Universe                ' Desinger Universe Object
    ...
    ...
    ...
    ....
    
    Sub Logout()
        ' if already login then
        ' close any opened Univ
        ' logout from BO Designer by close it
        ' set Variable with default Values (False, Nothing)
        If bLogin Then
            ' Show Status Msg in the Excel StatusBar
            Application.StatusBar = "Logging out..."
            
            ' set the excel's cursor to Default
            Application.Cursor = xlDefault
            
            ' close opened Univ.
            If bUniv Then
                Univ.Close
            End If
            Set Univ = Nothing
            bUniv = False
        End If
        
        ' close BO Designer
        If Not DesApp Is Nothing Then
            DesApp.Quit
        End If
        Set DesApp = Nothing
        
        ' clear excel's status bar
        Application.StatusBar = False
        
        bLogin = False
    End Sub
    
    Add comment
    10|10000 characters needed characters exceeded