ConneXionUpdateClaimant Method

public ConneXionResult UpdateClaimant(
	Claimant Claimant
)

Public Function UpdateClaimant ( 
	Claimant As Claimant
) As ConneXionResult

Dim oConneXionClaimant As New ConneXion.ConneXion
Dim oClaimant As New ConneXion.Claimant
Dim oResult As ConneXion.ConneXionResult

oClaimant.TAMUserName = "EXEC"
oClaimant.TAMPassword = "PSWD"
oClaimant.ClaimRec = "000030"
oClaimant.RecordNumber = "22"

oResult = oConneXionClaimant.FindClaimant(oClaimant)
If oResult.Success Then
    oClaimant.TAMUserName = "EXEC"
    oClaimant.TAMPassword = "PSWD"
    oClaimant.PolicyIndex = "ABBOJO1-1"
    oClaimant.ClaimRec = "000030"
    oClaimant.Name = "Knuckles Mago"
    oClaimant.Street = "101 Main"
    oClaimant.City = "Gulf Shores"
    oClaimant.State = "AL"
    oClaimant.ZipCode = "36547"
    oClaimant.LossAmount = 575D
    oClaimant.RecordNumber = "22"

    oResult = oConneXionClaimant.UpdateClaimant(oClaimant)

    If oResult.Success Then
        MessageBox.Show("Update Claimant is Successful")
    Else
        txtResult.Text = "Number: " & oResult.Number & vbCrLf & "Desc: " & oResult.Description & vbCrLf &
            "TAMErrorNumber: " & oResult.TAMErrorNumber & vbCrLf & "TAMErroDesc: " & oResult.TAMDescription
    End If
Else
    MessageBox.Show("Find Claimant is false. " & oResult.Description & ".")
End If