CFL for user defined object in matrix

Question

I am creating CFL for city .For this I created a user defined table and later registred it to create the object of City.I created the CFL for City as ,
Private Sub AddCFL()
        Dim intI As Integer
        Dim objCFLsName As SAPbouiCOM.ChooseFromListCollection
        Dim objParaName As SAPbouiCOM.ChooseFromListCreationParams
        Dim objCFLName As SAPbouiCOM.ChooseFromList
        Dim objCons As SAPbouiCOM.Conditions
        Dim objCon As SAPbouiCOM.Condition
        Try
            objForm = SBO_Application.Forms.ActiveForm
            For intI = 0 To objForm.DataSources.UserDataSources.Count - 1
                If objForm.DataSources.UserDataSources.Item(intI).UID = "CityName" Then
                    Exit Sub
                End If
            Next
            objForm.DataSources.UserDataSources.Add("CityName", SAPbouiCOM.BoDataType.dt_SHORT_TEXT)
            objCFLsName = objForm.ChooseFromLists
            objParaName = SBO_Application.CreateObject(SAPbouiCOM.BoCreatableObjectType.cot_ChooseFromListCreationParams)
            objParaName.MultiSelection = False
            objParaName.UniqueID = "CFL"
            objParaName.ObjectType = "City"
            objCFLName = objCFLsName.Add(objParaName)
            objCons = objCFLName.GetConditions
            objCon = objCons.Add
            objCon.Alias = "U_Active"
            objCon.Operation = SAPbouiCOM.BoConditionOperation.co_EQUAL
            objCon.CondVal = "Y"
            objCFLName.SetConditions(objCons)
        Catch ex As Exception
            SBO_Application.MessageBox("AddCFL()=" & ex.Message)
        End Try
    End Sub
I want to load city names in matrix using this cfl.For this, I added few blank rows in matrix.Then I binded the matrix as ,
Private Sub BindMatrix()
        Dim objColumns As SAPbouiCOM.Columns
        Dim objColumn As SAPbouiCOM.Column
        Dim matDetails As SAPbouiCOM.Matrix
        objColumn = objColumns.Item("CityName")
            objColumn.DataBind.SetBound(True, "", "CityName")
            objColumn.ChooseFromListUID = "CFL"
            objColumn.ChooseFromListAlias = "CityName"
            objColumn.Editable = True
matDetails.LoadFromDataSource()
End Sub
Problem is created by ChooseFromListAlias .It gives error as,
Data Source - Alias Not Found
If I remove that statement, the cfl fires when I press tab in the matrix.But I can not set value in the matrix.

Answer 1

I created CFL as,
Private Sub AddCFL()
        Dim intI As Integer
        Dim objCFLsName As SAPbouiCOM.ChooseFromListCollection
        Dim objParaName As SAPbouiCOM.ChooseFromListCreationParams
        Dim objCFLName As SAPbouiCOM.ChooseFromList
        Dim objCons As SAPbouiCOM.Conditions
        Dim objCon As SAPbouiCOM.Condition
        Try
            objForm = SBO_Application.Forms.ActiveForm
            For intI = 0 To objForm.DataSources.UserDataSources.Count - 1
                If objForm.DataSources.UserDataSources.Item(intI).UID = "CityName" Then
                    Exit Sub
                End If
            Next
            objForm.DataSources.UserDataSources.Add("CityName", SAPbouiCOM.BoDataType.dt_SHORT_TEXT)
            objCFLsName = objForm.ChooseFromLists
            objParaName = SBO_Application.CreateObject(SAPbouiCOM.BoCreatableObjectType.cot_ChooseFromListCreationParams)
            objParaName.MultiSelection = False
            objParaName.UniqueID = "CFL"
            objParaName.ObjectType = "City"
            objCFLName = objCFLsName.Add(objParaName)
            objCons = objCFLName.GetConditions
            objCon = objCons.Add
            objCon.Alias = "U_Active"
            objCon.Operation = SAPbouiCOM.BoConditionOperation.co_EQUAL
            objCon.CondVal = "Y"
            objCFLName.SetConditions(objCons)
        Catch ex As Exception
            SBO_Application.MessageBox("AddCFL()=" & ex.Message)
        End Try
    End Sub
Private Sub BindMatrix()
        Dim objColumns As SAPbouiCOM.Columns
        Dim objColumn As SAPbouiCOM.Column
        Dim matDetails As SAPbouiCOM.Matrix
        Try
            If SBO_Application.Forms.ActiveForm.UniqueID = "TourDetails" Then
                matDetails = SBO_Application.Forms.ActiveForm.Items.Item("matDetails").Specific
            Else
                matDetails = objForm.Items.Item("matDetails").Specific
            End If
            objColumns = matDetails.Columns
            objColumn = objColumns.Item("#")
            objColumn.DataBind.Bind("objDT", "#")
            objColumn.Editable = False
            objColumn = objColumns.Item("CityName")
            'If strPara = "Edit" Then
            objColumn.DataBind.Bind("objDT", "CityName")
            'Else
            '    objColumn.DataBind.SetBound(True, "", "CityName")
            'End If
            objColumn.ChooseFromListUID = "CFL"
            'objColumn.ChooseFromListAlias = "CityName"
            objColumn.Editable = True
            objColumn.Width = 290
            objColumn = objColumns.Item("NoOfVisits")
            objColumn.DataBind.Bind("objDT", "NoOfVisits")
            objColumn.Editable = True
            objColumn = objColumns.Item("FromDate")
            objColumn.DataBind.Bind("objDT", "FromDate")
            objColumn.Editable = True
            objColumn.Width = 80
            objColumn = objColumns.Item("ToDate")
            objColumn.DataBind.Bind("objDT", "ToDate")
            objColumn.Editable = True
            objColumn.Width = 80
            matDetails.LoadFromDataSource()
        Catch ex As Exception
            SBO_Application.MessageBox("BindMatrix()=" & ex.Message)
        End Try
    End Sub
Edited by: Dilip Kumbhar on Mar 31, 2010 10:02 AM