CFL For the edit text using screen painter

Question

Dear All,
I had created CFL for the Edit box to display CardCode
if i press tab button the list for the specified object type is obtained
but the selected value is not binded with the edit box,i have attached the code here,
Private Sub SBO_Application_ItemEvent(ByVal FormUID As String, ByRef pVal As SAPbouiCOM.ItemEvent, ByRef BubbleEvent As Boolean) Handles SBO_Application.ItemEvent
        If 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
                Try
                    val = oDataTable.GetValue(1, 0)
                Catch ex As Exception
                End Try
                If (pVal.ItemUID = "23") Then
                    oForm.DataSources.UserDataSources.Item("CardCode").ValueEx = val
                End If
            End If
        End If
Regards,
Vijay

Answer 1

Is the event generated ? What is the value of your "val" variable ?