UDO Form as CFL in the same UDO Form

Question

Hi,
I have created a user-defined form using UDO. In the same form I am using it as CFL  bound to a textbox.  I am unable to get the selected data in the textbox. I have written the CFL  event to capture the data in the textbox. Please let me know if its possible to use the same form(UDO) as CFL in the same form(UDO) or not ?  Any help is appreciated.
Regards,
Noor Hussain

Answer 1

Hi Janos,
I am able to create the CFL. But the selected value is not being copied to my textbox from the CFL. My code is as below.
Private Sub AddCMSBPChooseFromList()
        'Choose From List Collection object to store the collection
        Dim oCFLs As SAPbouiCOM.ChooseFromListCollection
        'Conditions object to set the conditons
        Dim oCons As SAPbouiCOM.Conditions
        'Condition object to set the conditons
        Dim oCon As SAPbouiCOM.Condition
        'Getting the Form Choose From Lists
        oCFLs = oForm.ChooseFromLists
        'Choose From List object to store the ChooseFromList
        Dim oCFL As SAPbouiCOM.ChooseFromList
        'ChooseFromListCreationParams to create the parameters for the CFL
        Dim oCFLCreationParams As SAPbouiCOM.ChooseFromListCreationParams
        oCFLCreationParams = SBO_Application.CreateObject(SAPbouiCOM.BoCreatableObjectType.cot_ChooseFromListCreationParams)
        oCFLCreationParams.MultiSelection = False
        oCFLCreationParams.ObjectType = "IS_CMS_BP"
        oCFLCreationParams.UniqueID = "CFL_3"
        oCFL = oCFLs.Add(oCFLCreationParams)      
    End Sub
oEdit = oForm.Items.Item("txtConsAcc").Specific
            oEdit.ChooseFromListUID = "CFL_4"
            oEdit.ChooseFromListAlias = "U_ConAcc"
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
                        oForm = SBO_Application.Forms.GetForm(pVal.FormTypeEx, pVal.FormTypeCount)
                        Dim oCFL As SAPbouiCOM.ChooseFromList
                        oCFL = oForm.ChooseFromLists.Item(sCFL_ID)
                        If oCFLEvento.BeforeAction = False Then
                            Dim oDataTable As SAPbouiCOM.DataTable = oCFLEvento.SelectedObjects
                            Dim val As String
                            Try                              
                                If pVal.ItemUID = "txtConsAcc" And oCFL.UniqueID = "CFL_4" Then
                                    With oForm.DataSources.DBDataSources.Item("@IS_CMS_BP") '@TABLE is the name of the DBDataSource the form's connect to
                                        .SetValue("U_ConAcc", .Offset, oDataTable.GetValue(0, 0)) 'U_txtGRNNo is the id of the field the EditText is connected to.
                                    End With
                                End If                                                                               
Catch ex As Exception
                            End Try
                        End If
                    End If
Regards,
Noor
Edited by: noor_023 on Jun 17, 2010 10:59 AM
Edited by: noor_023 on Jun 17, 2010 11:00 AM