Changing column value on every row in invoice matrix

Question

Hi,
I'm trying to change the value of the GLaccount column for every row in the invoice matrix when the user changes the document owner.  The code seems to work for the first row  but then on other rows I get a message that says the item can't be changed because it can't get focus.  I know there are similar posts on the forum already, but nothing that solves this problem that I can see.
My code follows:
        <B1Listener(BoEventTypes.et_CHOOSE_FROM_LIST, False)> _
        Public Overridable Sub OnAfterChooseFromList(ByVal pVal As ItemEvent)
            Dim ActionSuccess As Boolean = pVal.ActionSuccess
            Dim form As Form = B1Connections.theAppl.Forms.Item(pVal.FormUID)
            Dim item As Item = form.Items.Item("222") 'document owner
            Dim item2 As Item = form.Items.Item("38")
            Dim Matrix As Matrix = CType(item2.Specific, Matrix)
            Dim userID As String
            userID = ChooseFromList_Value(pVal)
            If ActionSuccess And pVal.InnerEvent Then
                ChangeMatrixAccounts(Matrix, userID)
            End If
        End Sub
    Friend Function ChangeMatrixAccounts(ByVal zMatrix As SAPbouiCOM.Matrix, ByVal zDocOwner As String) As ReturnStatus
            For x = 1 To zMatrix.RowCount
                Dim cell As SAPbouiCOM.Cell = zMatrix.Columns.Item("159").Cells.Item(x)
                Dim oedit As SAPbouiCOM.EditText = zMatrix.Columns.Item("159").Cells.Item(x).Specific
                cell.Click(SAPbouiCOM.BoCellClickType.ct_Regular) 'force focus, I hope
                ChangeRevenueAccountInCell(oedit, WhseGLLocCode)
            Next
end function
    Private Function ChangeRevenueAccountInCell(ByVal zGLAcct As SAPbouiCOM.EditText, ByVal zWhseGLLocCode As String) As ReturnStatus
        Dim tempwork(2) As String
        'change the value of the matrix cell passed in to the new gl acct
        tempwork = zGLAcct.Value.Split("-")
        <b>zGLAcct.Value = tempwork(0) & "-" & tempwork(1) & "-" & zWhseGLLocCode</b>
        Console.Write(" Changed GL value")
    End Function
Is there more to it than that?  -- THANKS!

Answer 1

Hi John,
I don't know if this is of use, but here's the code I used to set the project code value on each row of a marketing document through the UI (which is similar to what you are looking to do). The Project Code column needs to be visible and editable for this to work:
Private Function SetProjectCodeOnRows(ByVal oForm As SAPbouiCOM.Form, ByVal oMatrix As SAPbouiCOM.Matrix, ByVal sProjectCode As String) As Boolean
        Dim bSuccess As Boolean = True
        Dim sItemCode As String
        Dim sExistingProjCode
        Dim i As Int32
        Dim oCol As SAPbouiCOM.Column
        Dim oEdit As SAPbouiCOM.EditText
        Dim oFolder As SAPbouiCOM.Folder
        'Select the Contents folder before updating any project codes
        oFolder = oForm.Items.Item("112").Specific
        oFolder.Select()
        For i = 1 To oMatrix.RowCount
            Try
                ' Check to see if an item code has been entered (last line will always be empty)
                oCol = oMatrix.Columns.Item("1")
                oEdit = oCol.Cells.Item(i).Specific
                sItemCode = oEdit.String
                ' Read the project code from the row
                oCol = oMatrix.Columns.Item("31")
                oEdit = oCol.Cells.Item(i).Specific
                sExistingProjCode = oEdit.String
                If sExistingProjCode = "" And sItemCode <> "" Then
                    oEdit.Value = sProjectCode
                End If
            Catch ex As Exception
                m_sboApp.SetStatusBarMessage(ex.Message, SAPbouiCOM.BoMessageTime.bmt_Medium, True)
                bSuccess = False
            End Try
        Next i
        SetProjectCodeOnRows = bSuccess
    End Function
Kind Regards,
Owen