Start Saved Query through menuitem

Question

HI,
I have saved different queries, stored in the "queries manager". But saved queries are only accessible through that queries manager. It is also possible to define a formatted search behind an EditText control.
What I need is startup a saved query through code, by catching the button click event on a form or by catching a click event on an item in the modules menu. Are saved queries accessible through code?
Has anyone done this before and tell me how I can do this?
Thanks in advance
Eddy

Answer 1

Eddy,
Maybe you'll find the following snippets useful.
Just make sure that the name of your query is unique in the Menus -collection.
HTH
Juha
-- snip ---
SBOLaunchQuery("TheNameOfMyQuery")     
-- snip ---
Public Sub SBOLaunchQuery(ByVal strQueryName As String)
          Dim mnuitem As SAPbouiCOM.MenuItem
          mnuitem = GetMenuItemByTitle(strQueryName, SBOApplication.Menus)
          SBOApplication.ActivateMenuItem(mnuitem.UID)
     End Sub
-- snip ---
     Public Function GetMenuItemByTitle(ByVal strTitle As String, ByVal mnus As SAPbouiCOM.Menus) As SAPbouiCOM.MenuItem
          Dim mnuitem As SAPbouiCOM.MenuItem
          Dim mnuitem2 As SAPbouiCOM.MenuItem
          On Error GoTo EndFunction
          If mnus.Count = 0 Then Exit Function
          On Error GoTo 0
          For Each mnuitem In mnus
               With mnuitem
                    If .String = strTitle Then
                         GetMenuItemByTitle = mnuitem
                         Exit Function
                    Else
                         If .Type = SAPbouiCOM.BoMenuType.mt_POPUP Then
                              mnuitem2 = GetMenuItemByTitle(strTitle, .SubMenus)
                              If Not mnuitem2 Is Nothing Then
                                   Return mnuitem2
                              End If
                         End If
                    End If
               End With
          Next mnuitem
EndFunction:
     End Function
-- snip ---