Matrix with cfl

Question

hi friends,
                 i have created program which is matrix with clf. inthat program i have created 7 coloumns values as employee id, firstname,floor,desg,time,extrahour,otallowance. here i have created cfl in employee id column. when i press tab button in employee id the values like employee id,firstname,floor,desg should store in appropriate column. plz tell me how can i do that? can u tell me whats the coding?

Answer 1

hi
here is the complete coding .. it is working for me...
Public Class Class1
    Public WithEvents SBO_Application As SAPbouiCOM.Application
    Dim oform As SAPbouiCOM.Form
    Dim oitem As SAPbouiCOM.Item
    Dim oedit, oedit1 As SAPbouiCOM.EditText
    Dim ocompany As SAPbobsCOM.Company
    Dim olinked As SAPbouiCOM.LinkedButton
    Public Sub SetApplication()
        Dim SboGuiApi As SAPbouiCOM.SboGuiApi = New SAPbouiCOM.SboGuiApi
        Dim sConnectionString As String
        sConnectionString = Environment.GetCommandLineArgs.GetValue(1)
        SboGuiApi.Connect(sConnectionString)
        SBO_Application = SboGuiApi.GetApplication()
    End Sub
    Private Function SetConnectionContext() As Short
        Dim sCookie As String
        Dim sConnectionContext As String
        ocompany = New SAPbobsCOM.Company
        sCookie = ocompany.GetContextCookie
        sConnectionContext = SBO_Application.Company.GetConnectionContext(sCookie)
        If ocompany.Connected = True Then
            ocompany.Disconnect()
        End If
        SetConnectionContext = ocompany.SetSboLoginContext(sConnectionContext)
    End Function
    Public Sub LoadFromXML(ByRef FileName As String)
        Dim oXmlDoc As Xml.XmlDocument
        oXmlDoc = New Xml.XmlDocument
        Dim sPath As String
        sPath = IO.Directory.GetParent(Application.StartupPath).ToString
        oXmlDoc.Load(sPath & "\" & FileName)
        SBO_Application.LoadBatchActions(oXmlDoc.InnerXml)
    End Sub
    Private Function ConnectToCompany() As Short
        ConnectToCompany = ocompany.Connect
    End Function
    Public Sub con()
        If Not SetConnectionContext() = 0 Then
            SBO_Application.StatusBar.SetText("Connection Failed", SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Error)
            End
        End If
        If Not ConnectToCompany() = 0 Then
            SBO_Application.StatusBar.SetText("Connection Failed", SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Error)
            End
        End If
    End Sub
    Public Sub New()
        MyBase.New()
        SetApplication()
        con()
        LoadFromXML("manoj.srf")
        oform = SBO_Application.Forms.Item("sbo")
        oform.Visible = True
        AddChooseFromList()
        oedit = oform.Items.Item("t1").Specific
        oedit.DataBind.SetBound(True, "@INDIAN", "U_Name")
        oedit.ChooseFromListUID = "CFL1"
        oedit.ChooseFromListAlias = "DocNum"
        oitem = oform.Items.Item("l1")
        olinked = oitem.Specific
        olinked.LinkedObjectType = SAPbouiCOM.BoLinkedObject.lf_Order
    End Sub
    Public Sub SBO_Application_ItemEvent(ByVal FormUID As String, ByRef pVal As SAPbouiCOM.ItemEvent, ByRef BubbleEvent As Boolean) Handles SBO_Application.ItemEvent
        If pVal.ItemUID = "t1" And pVal.EventType = SAPbouiCOM.BoEventTypes.et_CHOOSE_FROM_LIST Then
            Dim oCFLEvento As SAPbouiCOM.IChooseFromListEvent
            oCFLEvento = pVal
            Dim sCFL_ID As String
            sCFL_ID = oCFLEvento.ChooseFromListUID
            Dim oForm As SAPbouiCOM.Form
            oForm = SBO_Application.Forms.Item(FormUID)
            Dim oCFL As SAPbouiCOM.ChooseFromList
            oCFL = oForm.ChooseFromLists.Item(sCFL_ID)
            If oCFLEvento.BeforeAction = False Then
                Dim oDataTable As SAPbouiCOM.DataTable
                oDataTable = oCFLEvento.SelectedObjects
                Dim val As String
                If pVal.ItemUID = "t1" Then
                    Try
                        oitem = oForm.Items.Item("t1")
                        oedit = oitem.Specific
                        val = oDataTable.GetValue("DocNum", 0)
                        oedit.Value = val
                    Catch ex As Exception
                    End Try
                End If
            End If
        End If
    End Sub
    Private Sub AddChooseFromList()
        Try
            Dim oCFLs As SAPbouiCOM.ChooseFromListCollection
            oCFLs = oForm.ChooseFromLists
            Dim oCFL As SAPbouiCOM.ChooseFromList
            Dim oCFLCreationParams As SAPbouiCOM.ChooseFromListCreationParams
            oCFLCreationParams = SBO_Application.CreateObject(SAPbouiCOM.BoCreatableObjectType.cot_ChooseFromListCreationParams)
            oCFLCreationParams.MultiSelection = False
            oCFLCreationParams.ObjectType = "17"
            oCFLCreationParams.UniqueID = "CFL1"
            oCFL = oCFLs.Add(oCFLCreationParams)
        Catch
            MsgBox(Err.Description)
        End Try
    End Sub
End Class