![]() | |
ConneXionFindContactsForEntity Method |
Namespace: ConneXion
LicenseLineX (where X is the License Line number) is returned as a bitwise number. Below is code to do the bitwise comparison and translate what Lines of Business options have been selected.
lLines = oContact.LicenseLines1
If (lLines And LINES_PROPERTY) = LINES_PROPERTY Then
'the property line is selected
End If
If (lLines And LINES_CASUALTY) = LINES_CASUALTY Then
'the casualty line is selected
End If
If (lLines And LINES_LIMITED_PROPERTY_CASUALTY) = LINES_LIMITED_PROPERTY_CASUALTY Then
'the limited property casualty line is selected
End If
If (lLines And LINES_MULTI_LINES_PROPERTY_CASUALTY) = LINES_MULTI_LINES_PROPERTY_CASUALTY Then
'the multi line property casualty lines is selected
End If
If (lLines And LINES_LIFE) = LINES_LIFE Then
'the life line is selected
End If
If (lLines And LINES_ACCIDENT_HEALTH) = LINES_ACCIDENT_HEALTH Then
'the accident health line is selected
End If
If (lLines And LINES_SURPLUS_LINES) = LINES_SURPLUS_LINES Then
'the surplus line is selected
End If
If (lLines And LINES_OTHER) = LINES_OTHER Then
'other is selected
End If
Dim oConneXion As New ConneXion.ConneXion Dim oResult As New ConneXion.ConneXionResult Dim oContact As New ConneXion.Contact Dim oContacts() As ConneXion.Contact oContact.TAMUserName = "EXEC" oContact.TAMPassword = "PSWD" oContact.EntityKey = "p" oContact.EntityID = "CJH" oResult = oConneXion.FindContactsForEntity(oContact, oContacts) If oResult.Success = False Then txtContacts.Text = "FindContactsForEntity is false. " & oResult.Description & oResult.TAMDescription Else txtContacts.Text = "FindContactsForEntity is successful. " & oResult.Description & oResult.TAMDescription End If