Loading Matrix using XML Data Source

Question

Hi Experts,
I'm working on an addon where i need to fill up matrix with a set of data,
i'm doing that using 'for loop'. my question is can v fill matrix using XML File i.e, using XML as Data Source.
Thanks in Advance
Jaideep

Answer 1

Hi Jaideep !!!!
here is the sample code which could help u n solve ur problem.
if u got ny problem then please tell me ....
Public Sub CreateLoad()
        Try
            ''' Load form
            Dim xml As Xml.XmlDocument
            xml = New Xml.XmlDocument
            xml.Load("C:\Temp\update data to the base table\Allowance\Abacus.srf")
            SBO_Application1.LoadBatchActions(xml.InnerXml)
        Catch ex As Exception
            SBO_Application1.MessageBox(ex.Message)
        End Try
        AddDataSourcetoform()
        BindataSource()
        GetDatafromDB()
    End Sub
    Public Sub AddDataSourcetoform()
        Try
            oForm = SBO_Application1.Forms.Item("Allowance")
            DBtable = oForm.DataSources.DataTables.Add("Supplier")
            SQL = "SELECT [@Supplier].* FROM [@Supplier] ORDER BY Cast( [@Supplier].Code AS INT)"
            DBtable.ExecuteQuery(SQL)
            'oDBDataSource = oForm.DataSources.DBDataSources.Item("@Supplier")
        Catch ex As Exception
            SBO_Application1.MessageBox(ex.Message)
            'System.Windows.Forms.MessageBox.Show("Not Added Data Source to the Form")
        End Try
    End Sub
    Private Sub BindataSource()
        Try
            oForm = SBO_Application1.Forms.Item("Allowance")
            MatrixBind()
        Catch ex As Exception
            SBO_Application1.MessageBox(ex.Message)
        End Try
    End Sub
    Private Sub MatrixBind()
        Try
            'Dim txt As SAPbouiCOM.EditText
            o_Matrix = oForm.Items.Item("MatAllow").Specific
            oColumns = o_Matrix.Columns
            oColumn = oColumns.Item("ColCode")
            oColumn.DataBind.Bind("Supplier", "Code")
            oColumn = oColumns.Item("ColName")
            oColumn.DataBind.Bind("Supplier", "Name")
        Catch ex As Exception
            SBO_Application1.MessageBox(ex.Message)
        End Try
    End Sub
    Public Sub GetDatafromDB()
        Try
            oForm = SBO_Application1.Forms.Item("Allowance")
            o_Matrix = oForm.Items.Item("MatAllow").Specific
            Dim Code As String = 1
            o_Matrix.Clear()
            o_Matrix.LoadFromDataSource()
        Catch ex As Exception
            SBO_Application1.MessageBox(ex.Message)
        End Try
    End Sub