this is the event :-
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
Dim oForm As SAPbouiCOM.Form = SBO_Application.Forms.Item(FormUID)
Dim oCFL = oForm.ChooseFromLists.Item(sCFL_ID)
If (oCFLEvento.BeforeAction = False) Then
Else
Dim conds As SAPbouiCOM.Conditions = oCFL.GetConditions
Dim dbConnection As CRM_DevEntities1 = New CRM_DevEntities1
Dim cond As SAPbouiCOM.Condition
If (conds.Count > 0) Then
Return
End If
Dim cmpnyCats = (From e1 In dbConnection.C_CR_CA
Where e1.U_IS_SITE_ACC_REQ = "True"
Select e1.U_FK_CRMID).ToList
SAPbouiCOM.BoConditionOperation.co_EQUAL, "COMPANY,cmpnyCat.ElementAt(0)", SAPbouiCOM.BoConditionRelationship.cr_AND)
cond = conds.Add
cond.BracketOpenNum = 2
cond.Alias = "U_CONTACT_TYPE"
cond.Operation = SAPbouiCOM.BoConditionOperation.co_EQUAL
cond.CondVal = "COMPANY"
cond.BracketCloseNum = 1
cond.Relationship = SAPbouiCOM.BoConditionRelationship.cr_AND
For iCounter As Integer = 0 To (cmpnyCats.Count - 1)
If iCounter = 0 Then
cond = conds.Add
cond.BracketOpenNum = 1
cond.Alias = "U_XXXXX"
cond.Operation = SAPbouiCOM.BoConditionOperation.co_EQUAL
cond.CondVal = cmpnyCats.ElementAt(iCounter)
cond.Relationship = SAPbouiCOM.BoConditionRelationship.cr_OR
End If
If (iCounter = (cmpnyCats.Count - 1)) Then
cond = conds.Add
cond.Alias = "U_XXXXX"
cond.Operation = SAPbouiCOM.BoConditionOperation.co_EQUAL
cond.CondVal = cmpnyCats.ElementAt(iCounter)
cond.BracketCloseNum = 2
Else
cond = conds.Add
cond.Alias = "U_XXXX"
cond.Operation = SAPbouiCOM.BoConditionOperation.co_EQUAL
cond.CondVal = cmpnyCats.ElementAt(iCounter)
cond.Relationship = SAPbouiCOM.BoConditionRelationship.cr_OR
End If
Next
If (cmpnyCats.Count > 0) Then
End If
oCFL.SetConditions(conds)
End If
End If