ConneXionUpdateClaimPayment Method

public ConneXionResult UpdateClaimPayment(
	ClaimPayment ClaimPayment
)

Public Function UpdateClaimPayment ( 
	ClaimPayment As ClaimPayment
) As ConneXionResult

Dim oConneXion As New ConneXion.ConneXion
Dim oClaimPayment As New ConneXion.ClaimPayment
Dim oResult As ConneXion.ConneXionResult

oClaimPayment.TAMUserName = "EXEC"
oClaimPayment.TAMPassword = "PSWD"
oClaimPayment.ClaimRec = "000030"
oClaimPayment.RecordNumber = "38"
oClaimPayment.PolicyIndex = "ABBOJO1-1"

oResult = oConneXion.FindClaimPayment(oClaimPayment)

If oResult.Success Then

    oClaimPayment.TAMUserName = "EXEC"
    oClaimPayment.TAMPassword = "PSWD"
    oClaimPayment.CheckNumber = "24356"

    oResult = oConneXion.UpdateClaimPayment(oClaimPayment)

    If oResult.Success Then
        MessageBox.Show("Update Claim Payment 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 Payment is false. " & oResult.Description & ".")
End If