Is it possible to execute a code in my program based on a click event in SAP B1?

Question

Hi!, everybody
I may be doing some wishful dreaming, but I ask my question nevertheless. We never know...
My pictures are self explanatory, but I explain my requirement below:
I have a grid which is populated by a query. Briefly, it is a list of Invoices to be reconciled.
The user selects the invoice to be reconciled by selecting the row. Then he presses the Reconcile? button.
This is what the Reconcile? button does:
         It colors the background of the selected row Red - just to indicate all rows which have already been selected (because reconciliation has to be
         done one row at a time).
         Then it opens the Internal Reconciliation screen in SAP B1 to allow the user to reconcile his items.
Ideally, I should color the  selected row Red only after the user has done his reconciliation.
         If he decides not to proceed, he can cancel, and the selected row will not be colored red.
         But I don't know how to do this. (Is it possible???). So I color the selected row assuming the user will proceed with the recon.
Can anyone tell me if I can fire my program (color the background red) only if the user clicks the reconcile and OK buttons in SAP B1?
Thanks
Leon Lai

Answer 1

Hi Pedro,
Your VB.NET code finally runs without syntax error.
However, I still have a problem. The program does not behave as intended.
See the attached picture.
And my code is below.
I am sure you are very near the correct solution.
So, please tell me what is not working in my code.
I notice you have removed the lines concerning Handler. Is this the problem?
My objective is to display the Reconciliation Completed MsgBox (or row coloring in the real project) if the Reconciliation is successful.
Best Regards,
Leon
Option Strict Off
Option Explicit On
Module SubMain
    Friend WithEvents Action As ABC = New ABC()
    Public Sub Main()
     Action.Reconcile()
    End Sub
    Private Sub OnReconcileComplete(ByVal sender As Object, ByVal e As EventArgs) Handles Action.ReconcileComplete
        MsgBox("Reconciliation completed")
    End Sub
End Module
Dim BPForm2 As SAPbouiCOM.Form
Public Event ReconcileComplete As EventHandler
    Private Sub RaiseReconcileComplete(ByVal e As EventArgs)
        RaiseEvent ReconcileComplete(Me, e)
        '//Dim Handler As EventHandler = Me.ReconcileComplete
        '// If Not Handler Is Nothing Then
        '//  Handler(Me, EventArgs.Empty)
        '// End If
    End Sub
    Public Sub Reconcile()
        SBO_Application.ActivateMenuItem("9459")
        '// 9459 = Modules -> Business Partners -> Internal Reconciliations
        BPForm2 = SBO_Application.Forms.ActiveForm
        Dim oCode As String
        oCode = "LV10010"
        Dim oBPCode As SAPbouiCOM.EditText = CType(BPForm2.Items.Item("120000008").Specific, SAPbouiCOM.EditText)  ' 120000008 = Business Partner Field
        oBPCode.Value = oCode
        BPForm2.Items.Item("120000001").Click()
        RaiseReconcileComplete(New EventArgs())
    End Sub