Add Choose From List to a Matrix

Question

Hi,
Need help on how to add a choose from list to a matrix column?
Thanks!

Answer 1

Hi,
Step1 :First step is to create the CFL as below
Private Sub AddChooseFromListToWorkOrder()
        '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 = oSBOApplication.CreateObject(SAPbouiCOM.BoCreatableObjectType.cot_ChooseFromListCreationParams)
        oCFLCreationParams.MultiSelection = False
        oCFLCreationParams.ObjectType = "4"
        oCFLCreationParams.UniqueID = "UDCFL1"
        oCFL = oCFLs.Add(oCFLCreationParams)
        ' Adding Conditions to CFL
        oCons = oCFL.GetConditions()
        oCon = oCons.Add()
        oCon.Alias = "U_HasPSC"
        oCon.Operation = SAPbouiCOM.BoConditionOperation.co_EQUAL
        oCon.CondVal = "Y"
        oCFL.SetConditions(oCons)
    End Sub
Step2: Then add this cfl in form load
AddChooseFromListToWorkOrder()
oMatrix = oForm.Items.Item("matItems").Specific
oColumns = oMatrix.Columns
oColumn = oColumns.Item("colItem")
oColumn.ChooseFromListUID = "UDCFL1"
oColumn.ChooseFromListAlias = "ItemCode"
Step 3: catch the CFL Event in Item events of the form
If pVal.EventType = SAPbouiCOM.BoEventTypes.et_CHOOSE_FROM_LIST Then
                        oForm = oSBOApplication.Forms.Item("IS_WKORDER")
                        Dim oCFLEvento As SAPbouiCOM.IChooseFromListEvent
                        oCFLEvento = pVal
                        Dim sCFL_ID As String
                        sCFL_ID = oCFLEvento.ChooseFromListUID
                        Dim oCFL As SAPbouiCOM.ChooseFromList
                        oCFL = oForm.ChooseFromLists.Item(sCFL_ID)
                        If oCFLEvento.BeforeAction = False Then
                            Dim oDataTable As SAPbouiCOM.DataTable = oCFLEvento.SelectedObjects
                            'oForm.DataSources.DBDataSources.Add("@IS_WKO_ROWS")
                            Try
                                If pVal.ItemUID = "matItems" And pVal.ColUID = "colItem" And oCFL.UniqueID = "UDCFL1" Then
                                    oMatrix = oForm.Items.Item("matItems").Specific
                                    oEdit = oMatrix.Columns.Item(2).Cells.Item(pVal.Row).Specific
                                    oEdit.Value = oDataTable.GetValue(1, 0).ToString()
                                    oEdit = oMatrix.Columns.Item(4).Cells.Item(pVal.Row).Specific
                                    oEdit.Value = strUOM
                                    oEdit = oMatrix.Columns.Item(5).Cells.Item(pVal.Row).Specific
                                    oEdit.Value = strPSCode
                                    oEdit = oMatrix.Columns.Item(1).Cells.Item(pVal.Row).Specific
                                    oEdit.Value = oDataTable.GetValue(0, 0).ToString()
                                End If
                            Catch ex As Exception
                            End Try
                        End If
                    End If
Hope This helps
Regards,
Noor
Edited by: noor_023 on Mar 31, 2010 10:55 AM