Skip to Content
0
Former Member
Jun 03, 2008 at 06:19 AM

SystemForm SetValue

30 Views

Hi To All,

I had added a column in system matrix... According to the selection of item from the first column, the corresponding number should be get set in the column which i had created in that system matrix.....

Sub GridLoad(ByVal U_Ven As String, ByVal ItemID As String)
        Try
            Dim db2 As SAPbouiCOM.DBDataSource = objFrm.DataSources.DBDataSources.Item("HeaderTable")
            Dim objDB As SAPbouiCOM.DBDataSource = objFrm.DataSources.DBDataSources.Item("ChildTable")
            Dim mat As SAPbouiCOM.Matrix = objFrm.Items.Item("38").Specific
            Dim rs As SAPbobsCOM.Recordset = objCom.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset)
            Dim col As SAPbouiCOM.Column = mat.Columns.Item("U_CNo")
            rs.DoQuery("Select U_ID From [@TableName] Where U_Item = '" & ItemID & "' And U_Vendor = '" & U_Ven & "'")
            Debug.Print(rs.Fields.Item("U_ID").Value)
            objFrm.DataSources.UserDataSources.Item("U_CNo").ValueEx = rs.Fields.Item("U_ID").Value
            System.Runtime.InteropServices.Marshal.ReleaseComObject(rs)
            GC.WaitForPendingFinalizers()
            GC.Collect()
            rs = Nothing
        Catch ex As Exception
        End Try
    End Sub

i had called this fuction in

 Case SAPbouiCOM.BoEventTypes.et_CHOOSE_FROM_LIST
GridLoad(db.GetValue("CardCode", db.Offset).Trim, objDt.GetValue(0, 0))

I had already posted this question, but til nw i dint get any clear idea.....