How to add a button in Sales Order screen?

Question

Hi,
Basically I want to add a new button "Show My lookup" in sales order screen and when clicking the button I want to show a form.
Please anyone tell me how to do this?.
thanks in advance
Mina

Answer 1

Here is a sample ItemEvent that adds a custom button to Sales Order Entry, and loads a form from XML when it is clicked.  Make sure you give the forms unique identifiers when you create them - the sample just uses a hardcoded value.
Hope it helps,
John
Private Sub sboApp_ItemEvent(ByVal FormUID As String, pVal As SAPbouiCOM.IItemEvent, BubbleEvent As Boolean)
    On Error GoTo ErrorHandler
    Dim sboForm                 As SAPbouiCOM.Form
    Dim sboItem                 As SAPbouiCOM.Item
    Dim sboBtn                  As SAPbouiCOM.Button
    Dim objXMLDoc               As MSXML2.DOMDocument
    Dim objXMLErr               As IXMLDOMParseError
    Dim objXMLElem              As MSXML2.IXMLDOMElement
    Dim strIdentifier           As String
    If pVal.EventType = et_FORM_LOAD And pVal.Before_Action = False And pVal.FormType = 139 Then
        'Add Custom Button
        Set sboForm = sboApp.Forms(FormUID)
        Set sboItem = sboForm.Items.Add("AZU_BTN", it_BUTTON)
        sboItem.Top = sboForm.Items("1").Top
        sboItem.Width = "80"
        sboItem.Left = sboForm.Width - 105
        Set sboBtn = sboItem.Specific
        sboBtn.Caption = "Custom Button"
    End If
    If pVal.EventType = et_ITEM_PRESSED And pVal.Before_Action = False And pVal.ItemUID = "AZU_BTN" And pVal.FormType = 139 Then
        strIdentifier = "AZU_XXX" 'You should set this to a unique value each time
        Set objXMLDoc = New MSXML2.DOMDocument
        objXMLDoc.async = False
        objXMLDoc.validateOnParse = True
        objXMLDoc.Load (App.Path & "\Config\AZU_CUSTOM.srf")
        Set objXMLErr = objXMLDoc.parseError
        If (objXMLErr <> 0) Then
            MsgBox "Failed to load XML screen definition."
            Exit Sub
        Else
            For Each objXMLElem In objXMLDoc.getElementsByTagName("form")
                objXMLElem.setAttribute "uid", strIdentifier
            Next
            sboApp.LoadBatchActions objXMLDoc.xml
        End If
    End If
    Exit Sub
ErrorHandler:
    MsgBox Err.Number & " " & Err.Description
End Sub