ChooseList

Hi

  I have written the below code to select employee but it is not returning value employee code. Secondly i want that it should return name also and it should show only active employees in list.

Private Sub AddChooseFromList()

        Try

            Dim oCFLs As SAPbouiCOM.ChooseFromListCollection

            Dim oCons As SAPbouiCOM.Conditions

            Dim oCon As SAPbouiCOM.Condition

            oCFLs = oForm0.ChooseFromLists

            Dim oCFL As SAPbouiCOM.ChooseFromList

            Dim oCFLCreationParams As SAPbouiCOM.ChooseFromListCreationParams

            oCFLCreationParams = SBO_Application.CreateObject(SAPbouiCOM.BoCreatableObjectType.cot_ChooseFromListCreationParams)

            ' Adding 2 CFL, one for the button and one for the edit text.

            oCFLCreationParams.MultiSelection = False

            oCFLCreationParams.ObjectType = "171"

            oCFLCreationParams.UniqueID = "CFL1"

            oCFL = oCFLs.Add(oCFLCreationParams)

            ' Adding Conditions to CFL1

            'oCons = oCFL.GetConditions()

            'oCon = oCons.Add()

            'oCon.Alias = "CardType"

            'oCon.Operation = SAPbouiCOM.BoConditionOperation.co_EQUAL

            'oCon.CondVal = "C"

            'oCFL.SetConditions(oCons)

        Catch

            MsgBox(Err.Description)

        End Try

    End Sub