Open form 140 from form 133 by a query in B1

Question

Hi @all!
I have a problem. When a user has opened form 133 for input and selceted a businesspartner, a query is checking if  a QryGroup1 is set. This works fine. When it is set, another query shout open the form 144 (and close form 133?). How can I realize it? I am using B1 2005.
Thanks a lot!
Greetings Juergen

Answer 1

Hi Jurgen,
Like Ad said - a query can't open or close forms. But the UI API can. Here is some code if you decide to fo that way:
The example is when form 140 open it should close and open 133 - you can change the logic to fit your needs.
Private Sub SBO_App_ItemEvent(ByVal FormUID As String, ByRef pVal As SAPbouiCOM.ItemEvent, ByRef BubbleEvent As Boolean) Handles SBO_App.ItemEvent
If pVal.EventType = SAPbouiCOM.BoEventTypes.et_FORM_LOAD And _
            pVal.FormTypeEx = 140 Then
Dim oForm As SAPbouiCOM.Form
'1. Cast the Form 140
oForm = SBO_App.Forms.Item(FormUID)
'Close the Form
oForm.Close
'2. Open the A/R Invoice Form (133)
oAppObj.SBO_App.ActivateMenuItem(2053)
End Sub