cancel
Turn on suggestions
Auto-suggest helps you quickly narrow down your search results by suggesting possible matches as you type.
Showing results for 
Search instead for 
Did you mean: 

Please Help Me Find The Reason for The Repeating Event!

Go to solution
Former Member

on ‎01-04-2006 5:54 PM

0 Kudos

The following code is intended to calculate and set metrics at the row-level and document-level of our sales documents (quotation, order, delivery note and invoice) when a new item is added to a line.

If I include 'any' of the assignment statements in this code for the oPrintGrp, oCAGM, oCAGMP, oDocCAGM, oDocCAGMP and oDocCOGS EditText fields (all included below), then the system repeats that item event 50+ times until my code (apparently) times out and crashes. I can't figure out why this might be happening. Any ideas?

If the six assignment statements for these respective variables are commented out, execution through this code snippet flows as expected, without errors and without the 50+ repeated validation events for the ItemCode field in the matrix.

Thank you, in advance, for any and all assistance!

Kind Regards,

Scott


    Private Sub oApplication_ItemEvent(ByVal FormUID As String, ByRef pVal As SAPbouiCOM.ItemEvent, ByRef BubbleEvent As Boolean) Handles oApplication.ItemEvent

        Dim oForm As SAPbouiCOM.Form

        Debug.WriteLine("FormType=" & pVal.FormTypeEx & Chr(9) & "FormUID=" & pVal.FormUID & _
                        Chr(9) & "ItemUID=" & pVal.ItemUID & Chr(9) & "ColUID=" & pVal.ColUID & _
                        Chr(9) & "EventType=" & pVal.EventType & Chr(9) & "ItemChanged=" & pVal.ItemChanged & _
                        Chr(9) & "BeforeAction=" & pVal.BeforeAction & Chr(9) & "Row=" & pVal.Row & _
                        Chr(9) & "CharPressed=" & pVal.CharPressed & Chr(9) & "PopUpIndicator=" & pVal.PopUpIndicator & _
                        Chr(9) & "Modifiers=" & pVal.Modifiers & Chr(9) & "ActionSuccess=" & pVal.ActionSuccess)

        Try

            If (pVal.FormTypeEx = "149" Or pVal.FormTypeEx = "139" Or pVal.FormTypeEx = "140" Or pVal.FormTypeEx = "133") _
                And pVal.EventType = et_VALIDATE And pVal.ItemUID = "38" And pVal.ColUID = "1" Then

                oForm = oApplication.Forms.GetForm(pVal.FormTypeEx, pVal.FormTypeCount)
                Dim oMtx As SAPbouiCOM.Matrix
                Dim oEditText, oCAGMP, oCAGM, oLineTotal, oCommAmt, oQty, oPrintGrp, oLineNum As SAPbouiCOM.EditText
                Dim Price, COGM, LP, LineTotal, CommAmt, CAGMPcnt, CAGM As Double
                Dim oCOT As SAPbouiCOM.ComboBox

                oForm.Freeze(True)
                oMtx = oForm.Items.Item("38").Specific
                oPrintGrp = oMtx.Columns.Item("U_PrintGrp").Cells.Item(pVal.Row).Specific  ' Print Group
                oLineNum = oMtx.Columns.Item("0").Cells.Item(pVal.Row).Specific
                oPrintGrp.String = oLineNum.Value    ' pVal.Row 
                oEditText = oMtx.Columns.Item("17").Cells.Item(pVal.Row).Specific
                Price = CDbl(Replace(oEditText.Value, "USD", ""))
                oEditText = oMtx.Columns.Item("37").Cells.Item(pVal.Row).Specific
                COGM = CDbl(Replace(oEditText.Value, "USD", ""))
                oCAGM = oMtx.Columns.Item("U_CAGM").Cells.Item(pVal.Row).Specific        ' Commission-Adjusted Gross Margin (CAGM)
                oCAGMP = oMtx.Columns.Item("U_CAGMPcnt").Cells.Item(pVal.Row).Specific   ' CAGM %
                oLineTotal = oMtx.Columns.Item("21").Cells.Item(pVal.Row).Specific
                LineTotal = CDbl(Replace(oLineTotal.Value, "USD", ""))
                oCommAmt = oMtx.Columns.Item("U_CommAmt").Cells.Item(pVal.Row).Specific  ' Commission Amount
                CommAmt = CDbl(Replace(oCommAmt.Value, "USD", ""))
                oCOT = oMtx.Columns.Item("U_COT").Cells.Item(pVal.Row).Specific
                oQty = oMtx.Columns.Item("11").Cells.Item(pVal.Row).Specific
                If oCOT.Selected.Value <> "Type 2" Then
                    CAGM = oQty.Value * (Price - COGM + CommAmt)
                Else
                    CAGM = CommAmt
                End If
                If Price <> 0 Then
                    CAGMPcnt = Math.Round(100 * (CAGM / LineTotal), 2)
                Else
                    CAGMPcnt = 0
                End If
                oCAGM.String = CStr(CAGM)
                oCAGMP.String = CStr(CAGMPcnt)

                Dim Doc_COGS, Doc_SubTotal, Doc_SubTotal2 As Double
                Dim oPrice, oCOGS, oDocCAGM, oDocCAGMP, oDocCOGS As SAPbouiCOM.EditText
                Dim oLinetype As SAPbouiCOM.ComboBox
                Dim i As Integer
                CAGM = 0
                CAGMPcnt = 0
                Doc_COGS = 0
                Doc_SubTotal = 0
                For i = 1 To oMtx.VisualRowCount - 1
                    oLineType = oMtx.Columns.Item("257").Cells.Item(i).Specific
                    If (oLineType.Selected.Value = "") Then
                        oPrice = oMtx.Columns.Item("17").Cells.Item(i).Specific()             ' Price
                        Price = CDbl(Replace(oPrice.Value, "USD", ""))
                        oCOGS = oMtx.Columns.Item("37").Cells.Item(i).Specific()              ' COGS
                        COGM = CDbl(Replace(oCOGS.Value, "USD", ""))
                        oQty = oMtx.Columns.Item("11").Cells.Item(i).Specific()               ' Quantity
                        oCommAmt = oMtx.Columns.Item("U_CommAmt").Cells.Item(i).Specific()    ' Commission
                        CommAmt = CDbl(Replace(oCommAmt.Value, "USD", ""))
                        oCOT = oMtx.Columns.Item("U_COT").Cells.Item(i).Specific
                        If oCOT.Selected.Value <> "Type 2" Then
                            CAGM = CAGM + oQty.Value * (Price - COGM + CommAmt)
                            Doc_COGS = Doc_COGS + (oQty.Value * COGM)
                        Else
                            CAGM = CAGM + oQty.Value * CommAmt
                        End If
                        oLineTotal = oMtx.Columns.Item("21").Cells.Item(i).Specific()
                        Doc_SubTotal = Doc_SubTotal + CDbl(Replace(oLineTotal.Value, "USD", ""))
                    End If
                Next
                oEditText = oForm.Items.Item("42").Specific     ' <= Document-Level Discounts
                Doc_SubTotal = Doc_SubTotal - CDbl(Replace(oEditText.Value, "USD", ""))
                CAGM = CAGM - CDbl(Replace(oEditText.Value, "USD", ""))
                If Doc_SubTotal <> 0 Then
                    CAGMPcnt = 100 * (Doc_SubTotal - Doc_COGS) / Doc_SubTotal
                Else
                    CAGMPcnt = 0
                End If
                oDocCAGMP = oForm.Items.Item("CAGMPcnt").Specific
                oDocCAGMP.String = CStr(Math.Round(CAGMPcnt, 2))
                oDocCAGM = oForm.Items.Item("CAGM").Specific
                oDocCAGM.String = CStr(Math.Round(CAGM, 2))
                oDocCOGS = oForm.Items.Item("TTL_COGS").Specific
                oDocCOGS.String = CStr(Math.Round(Doc_COGS, 2))
                oForm.Freeze(False)
                oMtx.AutoResizeColumns()
            End If

        Catch ex As Exception
            oApplication.MessageBox("ItemEvent():" & vbNewLine & _
                                             "Source = " & ex.Source & vbNewLine & _
                                             "Message = " & ex.Message & vbNewLine & _
                                             "HelpLink = " & ex.HelpLink.ToString & vbNewLine & _
                                             "StackTrace = " & ex.StackTrace.ToString)
        End Try

    End Sub

After entering all my data into the header of the quotation form and having placed the first item into the ItemCode field on the first row of the item matrix, I proceed to hit <TAB>. This is the output from the add-on program to the Debug window in Visual Studio at the point of hitting the <TAB> until a modal dialogue box is presented to me in Business One reading "UI Add-on server is down" with selections to "Continue working without Add-ons" or "Log off current company".

FormType=149	FormUID=F_23	ItemUID=38	ColUID=1	EventType=2	ItemChanged=False	BeforeAction=True	Row=1	CharPressed=9	PopUpIndicator=0	Modifiers=0	ActionSuccess=False
FormType=149	FormUID=F_23	ItemUID=38	ColUID=1	EventType=10	ItemChanged=False	BeforeAction=False	Row=1	CharPressed=0	PopUpIndicator=0	Modifiers=0	ActionSuccess=False
FormType=149	FormUID=F_23	ItemUID=38	ColUID=1	EventType=10	ItemChanged=False	BeforeAction=False	Row=1	CharPressed=0	PopUpIndicator=0	Modifiers=0	ActionSuccess=False
FormType=149	FormUID=F_23	ItemUID=38	ColUID=1	EventType=10	ItemChanged=False	BeforeAction=False	Row=1	CharPressed=0	PopUpIndicator=0	Modifiers=0	ActionSuccess=False
FormType=149	FormUID=F_23	ItemUID=38	ColUID=1	EventType=10	ItemChanged=False	BeforeAction=False	Row=1	CharPressed=0	PopUpIndicator=0	Modifiers=0	ActionSuccess=False
The thread '<No Name>' (0xa8c) has exited with code 0 (0x0).
FormType=149	FormUID=F_23	ItemUID=38	ColUID=1	EventType=10	ItemChanged=False	BeforeAction=False	Row=1	CharPressed=0	PopUpIndicator=0	Modifiers=0	ActionSuccess=False
FormType=149	FormUID=F_23	ItemUID=38	ColUID=1	EventType=10	ItemChanged=False	BeforeAction=False	Row=1	CharPressed=0	PopUpIndicator=0	Modifiers=0	ActionSuccess=False
FormType=149	FormUID=F_23	ItemUID=38	ColUID=1	EventType=10	ItemChanged=False	BeforeAction=False	Row=1	CharPressed=0	PopUpIndicator=0	Modifiers=0	ActionSuccess=False
FormType=149	FormUID=F_23	ItemUID=38	ColUID=1	EventType=10	ItemChanged=False	BeforeAction=False	Row=1	CharPressed=0	PopUpIndicator=0	Modifiers=0	ActionSuccess=False
FormType=149	FormUID=F_23	ItemUID=38	ColUID=1	EventType=10	ItemChanged=False	BeforeAction=False	Row=1	CharPressed=0	PopUpIndicator=0	Modifiers=0	ActionSuccess=False
FormType=149	FormUID=F_23	ItemUID=38	ColUID=1	EventType=10	ItemChanged=False	BeforeAction=False	Row=1	CharPressed=0	PopUpIndicator=0	Modifiers=0	ActionSuccess=False
FormType=149	FormUID=F_23	ItemUID=38	ColUID=1	EventType=10	ItemChanged=False	BeforeAction=False	Row=1	CharPressed=0	PopUpIndicator=0	Modifiers=0	ActionSuccess=False
FormType=149	FormUID=F_23	ItemUID=38	ColUID=1	EventType=10	ItemChanged=False	BeforeAction=False	Row=1	CharPressed=0	PopUpIndicator=0	Modifiers=0	ActionSuccess=False
FormType=149	FormUID=F_23	ItemUID=38	ColUID=1	EventType=10	ItemChanged=False	BeforeAction=False	Row=1	CharPressed=0	PopUpIndicator=0	Modifiers=0	ActionSuccess=False
FormType=149	FormUID=F_23	ItemUID=38	ColUID=1	EventType=10	ItemChanged=False	BeforeAction=False	Row=1	CharPressed=0	PopUpIndicator=0	Modifiers=0	ActionSuccess=False
FormType=149	FormUID=F_23	ItemUID=38	ColUID=1	EventType=10	ItemChanged=False	BeforeAction=False	Row=1	CharPressed=0	PopUpIndicator=0	Modifiers=0	ActionSuccess=False
FormType=149	FormUID=F_23	ItemUID=38	ColUID=1	EventType=10	ItemChanged=False	BeforeAction=False	Row=1	CharPressed=0	PopUpIndicator=0	Modifiers=0	ActionSuccess=False
FormType=149	FormUID=F_23	ItemUID=38	ColUID=1	EventType=10	ItemChanged=False	BeforeAction=False	Row=1	CharPressed=0	PopUpIndicator=0	Modifiers=0	ActionSuccess=False
FormType=149	FormUID=F_23	ItemUID=38	ColUID=1	EventType=10	ItemChanged=False	BeforeAction=False	Row=1	CharPressed=0	PopUpIndicator=0	Modifiers=0	ActionSuccess=False
FormType=149	FormUID=F_23	ItemUID=38	ColUID=1	EventType=10	ItemChanged=False	BeforeAction=False	Row=1	CharPressed=0	PopUpIndicator=0	Modifiers=0	ActionSuccess=False
FormType=149	FormUID=F_23	ItemUID=38	ColUID=1	EventType=10	ItemChanged=False	BeforeAction=False	Row=1	CharPressed=0	PopUpIndicator=0	Modifiers=0	ActionSuccess=False
FormType=149	FormUID=F_23	ItemUID=38	ColUID=1	EventType=10	ItemChanged=False	BeforeAction=False	Row=1	CharPressed=0	PopUpIndicator=0	Modifiers=0	ActionSuccess=False
FormType=149	FormUID=F_23	ItemUID=38	ColUID=1	EventType=10	ItemChanged=False	BeforeAction=False	Row=1	CharPressed=0	PopUpIndicator=0	Modifiers=0	ActionSuccess=False
FormType=149	FormUID=F_23	ItemUID=38	ColUID=1	EventType=10	ItemChanged=False	BeforeAction=False	Row=1	CharPressed=0	PopUpIndicator=0	Modifiers=0	ActionSuccess=False
FormType=149	FormUID=F_23	ItemUID=38	ColUID=1	EventType=10	ItemChanged=False	BeforeAction=False	Row=1	CharPressed=0	PopUpIndicator=0	Modifiers=0	ActionSuccess=False
FormType=149	FormUID=F_23	ItemUID=38	ColUID=1	EventType=10	ItemChanged=False	BeforeAction=False	Row=1	CharPressed=0	PopUpIndicator=0	Modifiers=0	ActionSuccess=False
FormType=149	FormUID=F_23	ItemUID=38	ColUID=1	EventType=10	ItemChanged=False	BeforeAction=False	Row=1	CharPressed=0	PopUpIndicator=0	Modifiers=0	ActionSuccess=False
FormType=149	FormUID=F_23	ItemUID=38	ColUID=1	EventType=10	ItemChanged=False	BeforeAction=False	Row=1	CharPressed=0	PopUpIndicator=0	Modifiers=0	ActionSuccess=False
FormType=149	FormUID=F_23	ItemUID=38	ColUID=1	EventType=10	ItemChanged=False	BeforeAction=False	Row=1	CharPressed=0	PopUpIndicator=0	Modifiers=0	ActionSuccess=False
FormType=149	FormUID=F_23	ItemUID=38	ColUID=1	EventType=10	ItemChanged=False	BeforeAction=False	Row=1	CharPressed=0	PopUpIndicator=0	Modifiers=0	ActionSuccess=False
FormType=149	FormUID=F_23	ItemUID=38	ColUID=1	EventType=10	ItemChanged=False	BeforeAction=False	Row=1	CharPressed=0	PopUpIndicator=0	Modifiers=0	ActionSuccess=False
FormType=149	FormUID=F_23	ItemUID=38	ColUID=1	EventType=10	ItemChanged=False	BeforeAction=False	Row=1	CharPressed=0	PopUpIndicator=0	Modifiers=0	ActionSuccess=False
FormType=149	FormUID=F_23	ItemUID=38	ColUID=1	EventType=10	ItemChanged=False	BeforeAction=False	Row=1	CharPressed=0	PopUpIndicator=0	Modifiers=0	ActionSuccess=False
FormType=149	FormUID=F_23	ItemUID=38	ColUID=1	EventType=10	ItemChanged=False	BeforeAction=False	Row=1	CharPressed=0	PopUpIndicator=0	Modifiers=0	ActionSuccess=False
FormType=149	FormUID=F_23	ItemUID=38	ColUID=1	EventType=10	ItemChanged=False	BeforeAction=False	Row=1	CharPressed=0	PopUpIndicator=0	Modifiers=0	ActionSuccess=False
FormType=149	FormUID=F_23	ItemUID=38	ColUID=1	EventType=10	ItemChanged=False	BeforeAction=False	Row=1	CharPressed=0	PopUpIndicator=0	Modifiers=0	ActionSuccess=False
FormType=149	FormUID=F_23	ItemUID=38	ColUID=1	EventType=10	ItemChanged=False	BeforeAction=False	Row=1	CharPressed=0	PopUpIndicator=0	Modifiers=0	ActionSuccess=False
FormType=149	FormUID=F_23	ItemUID=38	ColUID=1	EventType=10	ItemChanged=False	BeforeAction=False	Row=1	CharPressed=0	PopUpIndicator=0	Modifiers=0	ActionSuccess=False
FormType=149	FormUID=F_23	ItemUID=38	ColUID=1	EventType=10	ItemChanged=False	BeforeAction=False	Row=1	CharPressed=0	PopUpIndicator=0	Modifiers=0	ActionSuccess=False
FormType=149	FormUID=F_23	ItemUID=38	ColUID=1	EventType=10	ItemChanged=False	BeforeAction=False	Row=1	CharPressed=0	PopUpIndicator=0	Modifiers=0	ActionSuccess=False
FormType=149	FormUID=F_23	ItemUID=38	ColUID=1	EventType=10	ItemChanged=False	BeforeAction=False	Row=1	CharPressed=0	PopUpIndicator=0	Modifiers=0	ActionSuccess=False
FormType=149	FormUID=F_23	ItemUID=38	ColUID=1	EventType=10	ItemChanged=False	BeforeAction=False	Row=1	CharPressed=0	PopUpIndicator=0	Modifiers=0	ActionSuccess=False
FormType=149	FormUID=F_23	ItemUID=38	ColUID=1	EventType=10	ItemChanged=False	BeforeAction=False	Row=1	CharPressed=0	PopUpIndicator=0	Modifiers=0	ActionSuccess=False
FormType=149	FormUID=F_23	ItemUID=38	ColUID=1	EventType=10	ItemChanged=False	BeforeAction=False	Row=1	CharPressed=0	PopUpIndicator=0	Modifiers=0	ActionSuccess=False
FormType=149	FormUID=F_23	ItemUID=38	ColUID=1	EventType=10	ItemChanged=False	BeforeAction=False	Row=1	CharPressed=0	PopUpIndicator=0	Modifiers=0	ActionSuccess=False
FormType=149	FormUID=F_23	ItemUID=38	ColUID=1	EventType=10	ItemChanged=False	BeforeAction=False	Row=1	CharPressed=0	PopUpIndicator=0	Modifiers=0	ActionSuccess=False
FormType=149	FormUID=F_23	ItemUID=38	ColUID=1	EventType=10	ItemChanged=False	BeforeAction=False	Row=1	CharPressed=0	PopUpIndicator=0	Modifiers=0	ActionSuccess=False
FormType=149	FormUID=F_23	ItemUID=38	ColUID=1	EventType=10	ItemChanged=False	BeforeAction=False	Row=1	CharPressed=0	PopUpIndicator=0	Modifiers=0	ActionSuccess=False
FormType=149	FormUID=F_23	ItemUID=38	ColUID=1	EventType=10	ItemChanged=False	BeforeAction=False	Row=1	CharPressed=0	PopUpIndicator=0	Modifiers=0	ActionSuccess=False
FormType=149	FormUID=F_23	ItemUID=38	ColUID=1	EventType=10	ItemChanged=False	BeforeAction=False	Row=1	CharPressed=0	PopUpIndicator=0	Modifiers=0	ActionSuccess=False
FormType=149	FormUID=F_23	ItemUID=38	ColUID=1	EventType=10	ItemChanged=False	BeforeAction=False	Row=1	CharPressed=0	PopUpIndicator=0	Modifiers=0	ActionSuccess=False
FormType=149	FormUID=F_23	ItemUID=38	ColUID=1	EventType=10	ItemChanged=False	BeforeAction=False	Row=1	CharPressed=0	PopUpIndicator=0	Modifiers=0	ActionSuccess=False
FormType=149	FormUID=F_23	ItemUID=38	ColUID=1	EventType=10	ItemChanged=False	BeforeAction=False	Row=1	CharPressed=0	PopUpIndicator=0	Modifiers=0	ActionSuccess=False
FormType=149	FormUID=F_23	ItemUID=38	ColUID=1	EventType=10	ItemChanged=False	BeforeAction=False	Row=1	CharPressed=0	PopUpIndicator=0	Modifiers=0	ActionSuccess=False
FormType=149	FormUID=F_23	ItemUID=38	ColUID=1	EventType=10	ItemChanged=False	BeforeAction=False	Row=1	CharPressed=0	PopUpIndicator=0	Modifiers=0	ActionSuccess=False
FormType=149	FormUID=F_23	ItemUID=38	ColUID=1	EventType=10	ItemChanged=False	BeforeAction=False	Row=1	CharPressed=0	PopUpIndicator=0	Modifiers=0	ActionSuccess=False
FormType=149	FormUID=F_23	ItemUID=38	ColUID=1	EventType=10	ItemChanged=False	BeforeAction=False	Row=1	CharPressed=0	PopUpIndicator=0	Modifiers=0	ActionSuccess=False
FormType=149	FormUID=F_23	ItemUID=38	ColUID=1	EventType=10	ItemChanged=False	BeforeAction=False	Row=1	CharPressed=0	PopUpIndicator=0	Modifiers=0	ActionSuccess=False
FormType=149	FormUID=F_23	ItemUID=38	ColUID=1	EventType=10	ItemChanged=False	BeforeAction=False	Row=1	CharPressed=0	PopUpIndicator=0	Modifiers=0	ActionSuccess=False
FormType=149	FormUID=F_23	ItemUID=38	ColUID=1	EventType=10	ItemChanged=False	BeforeAction=False	Row=1	CharPressed=0	PopUpIndicator=0	Modifiers=0	ActionSuccess=False
FormType=149	FormUID=F_23	ItemUID=38	ColUID=1	EventType=10	ItemChanged=False	BeforeAction=False	Row=1	CharPressed=0	PopUpIndicator=0	Modifiers=0	ActionSuccess=False
FormType=149	FormUID=F_23	ItemUID=38	ColUID=1	EventType=10	ItemChanged=False	BeforeAction=False	Row=1	CharPressed=0	PopUpIndicator=0	Modifiers=0	ActionSuccess=False
FormType=149	FormUID=F_23	ItemUID=38	ColUID=1	EventType=10	ItemChanged=False	BeforeAction=False	Row=1	CharPressed=0	PopUpIndicator=0	Modifiers=0	ActionSuccess=False
FormType=149	FormUID=F_23	ItemUID=38	ColUID=1	EventType=10	ItemChanged=False	BeforeAction=False	Row=1	CharPressed=0	PopUpIndicator=0	Modifiers=0	ActionSuccess=False
FormType=149	FormUID=F_23	ItemUID=38	ColUID=1	EventType=10	ItemChanged=False	BeforeAction=False	Row=1	CharPressed=0	PopUpIndicator=0	Modifiers=0	ActionSuccess=False
FormType=149	FormUID=F_23	ItemUID=38	ColUID=1	EventType=10	ItemChanged=False	BeforeAction=False	Row=1	CharPressed=0	PopUpIndicator=0	Modifiers=0	ActionSuccess=False
FormType=149	FormUID=F_23	ItemUID=38	ColUID=1	EventType=10	ItemChanged=False	BeforeAction=False	Row=1	CharPressed=0	PopUpIndicator=0	Modifiers=0	ActionSuccess=False
FormType=149	FormUID=F_23	ItemUID=38	ColUID=1	EventType=10	ItemChanged=False	BeforeAction=False	Row=1	CharPressed=0	PopUpIndicator=0	Modifiers=0	ActionSuccess=False
FormType=149	FormUID=F_23	ItemUID=38	ColUID=1	EventType=10	ItemChanged=False	BeforeAction=False	Row=1	CharPressed=0	PopUpIndicator=0	Modifiers=0	ActionSuccess=False
FormType=149	FormUID=F_23	ItemUID=38	ColUID=1	EventType=10	ItemChanged=False	BeforeAction=False	Row=1	CharPressed=0	PopUpIndicator=0	Modifiers=0	ActionSuccess=False
FormType=149	FormUID=F_23	ItemUID=38	ColUID=1	EventType=10	ItemChanged=False	BeforeAction=False	Row=1	CharPressed=0	PopUpIndicator=0	Modifiers=0	ActionSuccess=False
FormType=149	FormUID=F_23	ItemUID=38	ColUID=1	EventType=10	ItemChanged=False	BeforeAction=False	Row=1	CharPressed=0	PopUpIndicator=0	Modifiers=0	ActionSuccess=False
FormType=149	FormUID=F_23	ItemUID=38	ColUID=1	EventType=10	ItemChanged=False	BeforeAction=False	Row=1	CharPressed=0	PopUpIndicator=0	Modifiers=0	ActionSuccess=False
FormType=149	FormUID=F_23	ItemUID=38	ColUID=1	EventType=10	ItemChanged=False	BeforeAction=False	Row=1	CharPressed=0	PopUpIndicator=0	Modifiers=0	ActionSuccess=False
FormType=149	FormUID=F_23	ItemUID=38	ColUID=1	EventType=10	ItemChanged=False	BeforeAction=False	Row=1	CharPressed=0	PopUpIndicator=0	Modifiers=0	ActionSuccess=False
FormType=149	FormUID=F_23	ItemUID=38	ColUID=1	EventType=10	ItemChanged=False	BeforeAction=False	Row=1	CharPressed=0	PopUpIndicator=0	Modifiers=0	ActionSuccess=False
FormType=149	FormUID=F_23	ItemUID=38	ColUID=1	EventType=10	ItemChanged=False	BeforeAction=False	Row=1	CharPressed=0	PopUpIndicator=0	Modifiers=0	ActionSuccess=False
FormType=149	FormUID=F_23	ItemUID=38	ColUID=1	EventType=10	ItemChanged=False	BeforeAction=False	Row=1	CharPressed=0	PopUpIndicator=0	Modifiers=0	ActionSuccess=False
FormType=149	FormUID=F_23	ItemUID=38	ColUID=1	EventType=10	ItemChanged=False	BeforeAction=False	Row=1	CharPressed=0	PopUpIndicator=0	Modifiers=0	ActionSuccess=False
FormType=149	FormUID=F_23	ItemUID=38	ColUID=1	EventType=10	ItemChanged=False	BeforeAction=False	Row=1	CharPressed=0	PopUpIndicator=0	Modifiers=0	ActionSuccess=False
FormType=149	FormUID=F_23	ItemUID=38	ColUID=1	EventType=10	ItemChanged=False	BeforeAction=False	Row=1	CharPressed=0	PopUpIndicator=0	Modifiers=0	ActionSuccess=False
FormType=149	FormUID=F_23	ItemUID=38	ColUID=1	EventType=10	ItemChanged=False	BeforeAction=False	Row=1	CharPressed=0	PopUpIndicator=0	Modifiers=0	ActionSuccess=False
FormType=149	FormUID=F_23	ItemUID=38	ColUID=1	EventType=10	ItemChanged=False	BeforeAction=False	Row=1	CharPressed=0	PopUpIndicator=0	Modifiers=0	ActionSuccess=False
FormType=149	FormUID=F_23	ItemUID=38	ColUID=1	EventType=10	ItemChanged=False	BeforeAction=False	Row=1	CharPressed=0	PopUpIndicator=0	Modifiers=0	ActionSuccess=False
FormType=149	FormUID=F_23	ItemUID=38	ColUID=1	EventType=10	ItemChanged=False	BeforeAction=False	Row=1	CharPressed=0	PopUpIndicator=0	Modifiers=0	ActionSuccess=False
FormType=149	FormUID=F_23	ItemUID=38	ColUID=1	EventType=10	ItemChanged=False	BeforeAction=False	Row=1	CharPressed=0	PopUpIndicator=0	Modifiers=0	ActionSuccess=False
FormType=149	FormUID=F_23	ItemUID=38	ColUID=1	EventType=10	ItemChanged=False	BeforeAction=False	Row=1	CharPressed=0	PopUpIndicator=0	Modifiers=0	ActionSuccess=False
FormType=149	FormUID=F_23	ItemUID=38	ColUID=1	EventType=10	ItemChanged=False	BeforeAction=False	Row=1	CharPressed=0	PopUpIndicator=0	Modifiers=0	ActionSuccess=False
FormType=149	FormUID=F_23	ItemUID=38	ColUID=1	EventType=10	ItemChanged=False	BeforeAction=False	Row=1	CharPressed=0	PopUpIndicator=0	Modifiers=0	ActionSuccess=False
FormType=149	FormUID=F_23	ItemUID=38	ColUID=1	EventType=10	ItemChanged=False	BeforeAction=False	Row=1	CharPressed=0	PopUpIndicator=0	Modifiers=0	ActionSuccess=False
FormType=149	FormUID=F_23	ItemUID=38	ColUID=1	EventType=10	ItemChanged=False	BeforeAction=False	Row=1	CharPressed=0	PopUpIndicator=0	Modifiers=0	ActionSuccess=False
FormType=149	FormUID=F_23	ItemUID=38	ColUID=1	EventType=10	ItemChanged=False	BeforeAction=False	Row=1	CharPressed=0	PopUpIndicator=0	Modifiers=0	ActionSuccess=False
FormType=149	FormUID=F_23	ItemUID=38	ColUID=1	EventType=10	ItemChanged=False	BeforeAction=False	Row=1	CharPressed=0	PopUpIndicator=0	Modifiers=0	ActionSuccess=False
FormType=149	FormUID=F_23	ItemUID=38	ColUID=1	EventType=10	ItemChanged=False	BeforeAction=False	Row=1	CharPressed=0	PopUpIndicator=0	Modifiers=0	ActionSuccess=False
FormType=149	FormUID=F_23	ItemUID=38	ColUID=1	EventType=10	ItemChanged=False	BeforeAction=False	Row=1	CharPressed=0	PopUpIndicator=0	Modifiers=0	ActionSuccess=False
FormType=149	FormUID=F_23	ItemUID=38	ColUID=1	EventType=10	ItemChanged=False	BeforeAction=False	Row=1	CharPressed=0	PopUpIndicator=0	Modifiers=0	ActionSuccess=False
FormType=149	FormUID=F_23	ItemUID=38	ColUID=1	EventType=10	ItemChanged=False	BeforeAction=False	Row=1	CharPressed=0	PopUpIndicator=0	Modifiers=0	ActionSuccess=False
FormType=149	FormUID=F_23	ItemUID=38	ColUID=1	EventType=10	ItemChanged=False	BeforeAction=False	Row=1	CharPressed=0	PopUpIndicator=0	Modifiers=0	ActionSuccess=False
FormType=149	FormUID=F_23	ItemUID=38	ColUID=1	EventType=10	ItemChanged=False	BeforeAction=False	Row=1	CharPressed=0	PopUpIndicator=0	Modifiers=0	ActionSuccess=False
FormType=149	FormUID=F_23	ItemUID=38	ColUID=1	EventType=10	ItemChanged=False	BeforeAction=False	Row=1	CharPressed=0	PopUpIndicator=0	Modifiers=0	ActionSuccess=False
FormType=149	FormUID=F_23	ItemUID=38	ColUID=1	EventType=10	ItemChanged=False	BeforeAction=False	Row=1	CharPressed=0	PopUpIndicator=0	Modifiers=0	ActionSuccess=False
FormType=149	FormUID=F_23	ItemUID=38	ColUID=1	EventType=10	ItemChanged=False	BeforeAction=False	Row=1	CharPressed=0	PopUpIndicator=0	Modifiers=0	ActionSuccess=False
FormType=149	FormUID=F_23	ItemUID=38	ColUID=1	EventType=10	ItemChanged=False	BeforeAction=False	Row=1	CharPressed=0	PopUpIndicator=0	Modifiers=0	ActionSuccess=False
FormType=149	FormUID=F_23	ItemUID=38	ColUID=1	EventType=10	ItemChanged=False	BeforeAction=False	Row=1	CharPressed=0	PopUpIndicator=0	Modifiers=0	ActionSuccess=False
The program '[2076] ABYMods.exe' has exited with code 0 (0x0).

Show replies
Show replies
Answer

Accepted Solutions (1)

Accepted Solutions (1)

Former Member
‎01-04-2006 7:18 PM
0 Kudos

I finally found the answer. One must additionally filter for pVal.InnerEvent = False in order to avoid the infinite events being thrown. I still would "greatly" appreciate someone explaining "WHY?" this fixed the problem.

Thank you, again, in advance.

Scott

Show replies
Show replies
AdKerremans
Active Contributor
‎01-05-2006 7:53 AM
0 Kudos

Hi Scott,

the innerEvent means that the event is triggered from within another event.

If you by example check for a lost focus of column1 and in the lost focus event column3 is changed, than from within the lost focus for column1 a got focus and lost focus for column3 is generated. Hence the innerEvent = true.

We had the same problem and solved it also this way.

Kind regards,

Ad

Answers (0)

Ask a Question