How to set condition in choose from list based on the combo selection

Question

Dear Members,
     i have a requirement to filter the item based on the itemgroup. After choosing the itemgroup in the dropdown list i have to filter the item for the particular group in the choose from the list.since i have tried in the combo select it doesnt work out for me.any body can suggest me is it doable. if so pls tell me the work around.
My coding is as follows..
Case SAPbouiCOM.BoEventTypes.et_COMBO_SELECT
if pval.itemUID="Cmb"
                            objChooseCollection = objForm.ChooseFromLists
                            objChooseFromList = objChooseCollection.Item("CFL1")
                            objConditions = objChooseFromList.GetConditions()
                            objcondition = objConditions.Add()
                            objcondition.Alias = "itmsgrpcod"
                            objcondition.Operation = SAPbouiCOM.BoConditionOperation.co_EQUAL
                            objcondition.CondVal = Form.items.item("Cmb").specific.selected.value
                            objChooseFromList.SetConditions(objConditions)
End if
With Regards,
jai.
Edited by: JaiShankarRaman on Dec 23, 2009 10:47 AM

Answer 1

Hello,
Following is a code sample which I am using:
        Dim oForm As SAPbouiCOM.Form
        Dim oMatrix As SAPbouiCOM.Matrix
        Dim oChooseFromList As SAPbouiCOM.ChooseFromList
        Dim oConditions As SAPbouiCOM.Conditions
        Dim oCondition As SAPbouiCOM.Condition
        Dim CodeType As Integer
        Try
            oForm = oPayOn.SBO_Application.Forms.GetForm(CflEvent.FormTypeEx, CflEvent.FormTypeCount)
            oMatrix = oForm.Items.Item("AC_MATRIX").Specific
            oChooseFromList = oForm.ChooseFromLists.Item("ACC_CFL1")
            CodeType = oMatrix.Columns.Item("AC_MC00").Cells.Item(CflEvent.Row).Specific.Selected.Value
            oConditions = oChooseFromList.GetConditions
            If oConditions.Count > 0 Then
                oCondition = oConditions.Item(0)
            Else
                oCondition = oConditions.Add
            End If
            oCondition.Alias = "U_CodeType"
            oCondition.Operation = SAPbouiCOM.BoConditionOperation.co_EQUAL
            oCondition.CondVal = CodeType
            oChooseFromList.SetConditions(oConditions)
        Catch ex As Exception
            'oPayOn.SBO_Application.SetStatusBarMessage(ex.Message, SAPbouiCOM.BoMessageTime.bmt_Medium, True)
        End Try
    End Sub
I am calling this in the CFL event - before action. So when the user clicks on CFL button - but before it opens - this code is called and the condition is applied. Here AC_MC00 is a combo column in a matrix.
Regards
Rahul Jain