ConneXionFindClaimantsForCustomer Method

public ConneXionResult FindClaimantsForCustomer(
	Claimant Claimant,
	ref Claimant[] Claimants
)

Public Function FindClaimantsForCustomer ( 
	Claimant As Claimant,
	ByRef Claimants As Claimant()
) As ConneXionResult

Dim oConneXionClaimant As New ConneXion.ConneXion
Dim oClaimant As New ConneXion.Claimant
Dim oClaimants() As ConneXion.Claimant
Dim oResult As ConneXion.ConneXionResult

oClaimant.TAMUserName = "EXEC"
oClaimant.TAMPassword = "PSWD"
oClaimant.PolicyIndex = "ABBOJO1-4"
oClaimant.ClaimRec = "000028"

oResult = oConneXionClaimant.FindClaimantsForCustomer(oClaimant, oClaimants)

If oResult.Success Then
    txtResult.Text = oResult.Description
    dgrdResult.DataSource = oClaimants
Else
    txtResult.Text = "Number: " & oResult.Number & vbCrLf & "Desc: " & oResult.Description & vbCrLf & "TAMErrorNumber: " &
     oResult.TAMErrorNumber & vbCrLf & "TAMErroDesc: " & oResult.TAMDescription
End If