ConneXionUpdateClaimNote Method

public ConneXionResult UpdateClaimNote(
	ClaimNote ClaimNote
)

Public Function UpdateClaimNote ( 
	ClaimNote As ClaimNote
) As ConneXionResult

Dim oConneXion As New ConneXion.ConneXion
Dim oClaimNote As New ConneXion.ClaimNote
Dim oResult As ConneXion.ConneXionResult

oClaimNote.TAMUserName = "EXEC"
oClaimNote.TAMPassword = "PSWD"
oClaimNote.ClaimRec = "000030"
oClaimNote.RecordNumber = "15"
oClaimNote.PolicyIndex = "ABBOJO1-1"

oResult = oConneXion.FindClaimNote(oClaimNote)

If oResult.Success Then
    oClaimNote.TAMUserName = "EXEC"
    oClaimNote.TAMPassword = "PSWD"
    oClaimNote.Note = "Update to original note"

    oResult = oConneXion.UpdateClaimNote(oClaimNote)

    If oResult.Success Then
        MessageBox.Show("Update Claim Note 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 Claim Note is False")
End If