Validate event performance problem

Question

Dear all,
My problem is B1 run with my addon when copy from purchase order (with a lot of items) to good receipt PO spend a lot of time.
I tested with 2 cases as follows:
case 1: add filter to 143
oFilter = oFilters.Add(SAPbouiCOM.BoEventTypes.et_VALIDATE)
oFilter.AddEx("143")
case 2: no filter to 143
oFilter = oFilters.Add(SAPbouiCOM.BoEventTypes.et_VALIDATE)
'no filter to 143    oFilter.AddEx("143")
case 1 time used is 26s, case 2 time used is 10s.
I have commented my code with validate event but still spend a lot of times to load. It seems a lot of system validate event go into addon and cause performance issue. but I need to check if some value change and then update value and so which other event I can used to replace validate event?
Regards,
David

Answer 1

Dear Eric,
B1 version: 8.82(8.82.075) PL 11
In my addon we need to do 2 things:
1. Update sum of Quantity in matrix on screen:
If pVal.ItemUID = "38" Then
                        If pVal.InnerEvent = False Then
                            Dim oForm As SAPbouiCOM.Form = SBO_Application.Forms.GetForm(pVal.FormTypeEx, pVal.FormTypeCount)
                            If (pVal.ColUID = "U_Itm_Desc" And pVal.EventType = SAPbouiCOM.BoEventTypes.et_VALIDATE And pVal.ItemChanged = True) Or _
                            (pVal.ColUID = "11" And pVal.EventType = SAPbouiCOM.BoEventTypes.et_VALIDATE And pVal.ItemChanged = True) Then
Dim mat As SAPbouiCOM.Matrix = oForm.Items.Item("38").Specific
        Dim sum As Integer = 0
        If mat.VisualRowCount > 0 Then
            For i As Integer = 1 To mat.VisualRowCount
                Dim curQty As Integer = CInt(mat.Columns.Item("11").Cells.Item(i).Specific.value)
                sum = sum + curQty
            Next
            oForm.DataSources.UserDataSources.Item("dsQty").ValueEx = sum
        Else
            oForm.DataSources.UserDataSources.Item("dsQty").ValueEx = 0
        End If
                            End If
                        End If
                    End If
2. set due date = posting date if posting date is changed
If (pVal.ItemUID = "10" And pVal.EventType = SAPbouiCOM.BoEventTypes.et_VALIDATE And pVal.ItemChanged = True) Then
                            Dim oForm As SAPbouiCOM.Form = SBO_Application.Forms.GetForm(pVal.FormTypeEx, pVal.FormTypeCount)
                            If oForm.Mode <> SAPbouiCOM.BoFormMode.fm_FIND_MODE And oForm.Items.Item("12").Specific.value <> oForm.Items.Item("10").Specific.value Then
                                oForm.Items.Item("12").Specific.value = oForm.Items.Item("10").Specific.value
                            End If
                        End If
Regards,
David