Click or drag to resize

ConneXionFindContactsForEntity Method

Finds the Contacts for Entity.

Namespace:  ConneXion
Assembly:  ConneXion (in ConneXion.dll) Version: 2020.0
Syntax
public ConneXionResult FindContactsForEntity(
	Contact oContact,
	ref Contact[] oContacts
)

Parameters

oContact
Type: ConneXionContact
Contact object to Find
oContacts
Type: ConneXionContact
List of Contacts for Entity

Return Value

Type: ConneXionResult
ConneXionResult.
Remarks

Required Fields

  • TAMUserName
  • TAMPassword
  • TAMCentralAgency - only if agency is on AppliedOnline
  • LicenseKey - only if agency is an Agency of Vendor
  • EntityKey
  • EntityID

Additional Programming Notes

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

Examples
VB
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
See Also