How to add data through matrix from sales order row level to

Question

user defined document type table ...
i created matrix in user defined form, i placed one edit text box on that form
when i entered docnum of sales order the data of sales order row level should have to
upload to matrix , after fill up the some data in matrix that data should have to add to the user defined document type table
                            any one have code pls post it
                                        thanq

Answer 1

Hi rajeshwar
Here is a sample function related to ur senario. just check it out and use the concepts.
Here I have used a CFL to get the itemcode and I have used a query to  add data to matrix.
This is a function used.
Private Sub AddValuesInMatrix(ByRef name As String)
        Try
            'Dim quantemp As Double
            oForm = SBO_Application.Forms.Item("itemdts")
            oMatrix = oForm.Items.Item("matrix").Specific
            Dim rs As SAPbobsCOM.Recordset = ocompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset)
            '//gitemdesc = "SELECT T0.[ItemName] FROM OITM T0 WHERE T0.[ItemCode] ='" & name & "'"
            oMatrix.Clear()
            rs.DoQuery("SELECT T0.[DocEntry], T0.[ItemCode], T0.[Dscription], T0.[Quantity], T0.[Price], T0.[TaxCode] FROM dbo.[POR1] T0 WHERE T0.[ItemCode] ='" & name & "'")
            rscount = rs.RecordCount
            If (rscount < 1) Then
                SBO_Application.StatusBar.SetText("No Items Found", SAPbouiCOM.BoMessageTime.bmt_Short)
            Else
                oForm.Freeze(True)
                ITE = True
                For i As Integer = 1 To rs.RecordCount
                    oMatrix.AddRow()
                    oMatrix.Columns.Item("V_5").Cells.Item(i).Specific.Value = rs.Fields.Item("DocEntry").Value
                    oMatrix.Columns.Item("V_4").Cells.Item(i).Specific.Value = rs.Fields.Item("ItemCode").Value
                    oMatrix.Columns.Item("V_3").Cells.Item(i).Specific.Value = rs.Fields.Item("Dscription").Value
                    oMatrix.Columns.Item("V_2").Cells.Item(i).Specific.Value = rs.Fields.Item("Quantity").Value
                    'quansum = quansum + rs.Fields.Item("Quantity").Value
                    oMatrix.Columns.Item("V_1").Cells.Item(i).Specific.Value = rs.Fields.Item("Price").Value
                    'pricesum = pricesum + rs.Fields.Item("Price").Value
                    oMatrix.Columns.Item("V_0").Cells.Item(i).Specific.Value = rs.Fields.Item("TaxCode").Value
                    SBO_Application.SetStatusBarMessage("Data Loading In Progress Please Wait.....>>> " & i & " / " & rs.RecordCount, SAPbouiCOM.BoMessageTime.bmt_Short, False)
                    rs.MoveNext()
                Next
                ITE = False
                oMatrix.AutoResizeColumns()
                SBO_Application.StatusBar.SetText("Data Loading Completed", SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Success)
                oForm.Freeze(False)
                oForm.Refresh()
            End If
        Catch ex As Exception
            SBO_Application.MessageBox("Matrix Load Function : " & ex.Message)
            ITE = False
        End Try
    End Sub
-Anto