Advice on using BDE 2.1 with SAP 8.81

Question

Hi
I am writing a program for SAP 8.81 using BDE 2.1 which performs operations on the sales order matrix. I have added an addon component of the sales order form and matrix and then added a listener to trap when various columns have left focus etc
All works well but the customer wants this logic on all marketing documents
Do I need to repeat the above for all other form types, ie sales quote, sales delivery etc or is there a quicker neater way, ie -
If the form is a sales quote or sales order or etc ....   then perform logic
If you have any suggestions that would be most welcome
Thanks
Regards Andy

Answer 1

Hi Arun
Here is the code
Thanks for your help
Regards Andy
' <auto-generated>
'     This code was generated by a tool.
'     Runtime Version:2.0.50727.5446
'     Changes to this file may cause incorrect behavior and will be lost if
'     the code is regenerated.
' </auto-generated>
Option Strict Off
Option Explicit On
Imports B1WizardBase
Imports SAPbobsCOM
Imports SAPbouiCOM
Namespace eurofilms
    Public Class EventsHandler
        Inherits B1Event
        Public Sub New()
            MyBase.New
        End Sub
        <B1Listener(BoEventTypes.et_CHOOSE_FROM_LIST, False, New String() {"720", "721", "139", "140"})> _
                Public Overridable Sub OnAfterChooseFromList(ByVal pVal As ItemEvent)
            Dim ActionSuccess As Boolean = pVal.ActionSuccess
            Dim form As Form = B1Connections.theAppl.Forms.Item(pVal.FormUID)
            'ADD YOUR ACTION CODE HERE ...
            Select Case form.TypeEx.Trim
                Case "139", "140"  ' 139 > Invoice,  140> Delivery
                    If (pVal.ItemUID = "4" Or pVal.ItemUID = "54") Then
                        'your code
                        Debug.Print("gotcha")
                    End If
                Case "721"
                Case "720"
            End Select
        End Sub
    End Class
End Namespace