Set Conditions to CFL in Copy From

Question

I didn't find any ways to set conditions on this CFL, that shows when f.i. in AR Invoices deliveries is chosen as basedocument. What i found are only modifications to the BP CFL in Marketing Documents. That's not what i need. I simply need hints or code provided for my solution. Thanks in advance.

Answer 1

I found the correct ItemUID via a MsgBox showing it when the event is cought.
I can set the conditions without problems. The problem now is that setting the condition has no effect on the CFL i want to filter.
Here is my code:
If pVal.FormTypeEx = 133 Then
            oOrderForm = SBO_Application.Forms.GetFormByTypeAndCount(pVal.FormType, pVal.FormTypeCount)
            If pVal.EventType = SAPbouiCOM.BoEventTypes.et_CHOOSE_FROM_LIST And pVal.BeforeAction = True Then
                If pVal.ItemUID = "35" Then
                    BubbleEvent = False
                    Try
                        Dim oCons As SAPbouiCOM.Conditions
                        Dim oCFL As SAPbouiCOM.ChooseFromList
                        Dim oCon As SAPbouiCOM.Condition
                        oCFL = oOrderForm.ChooseFromLists.Item("15")
                        oCons = oCFL.GetConditions
                        If 0 = oCons.Count Then
                            oCon = oCons.Add()
                            oCon.Alias = "U_WP_STAT"
                            oCon.Operation = SAPbouiCOM.BoConditionOperation.co_EQUAL
                            oCon.CondVal = "J"
                            oCFL.SetConditions(oCons)
                        End If
                        BubbleEvent = True
                    Catch ex As Exception
                        SBO_Application.StatusBar.SetText(ex.Message, SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Error)
                    End Try
                End If
            End If
        End If