ConneXionUpdateClaim Method

public ConneXionResult UpdateClaim(
	Claim Claim
)

Public Function UpdateClaim ( 
	Claim As Claim
) As ConneXionResult

Dim oConneXion As New ConneXion.ConneXion
Dim oClaim As New ConneXion.Claim
Dim oResult As ConneXion.ConneXionResult

oClaim.TAMUsername = "EXEC"
oClaim.TAMPassword = "PSWD"
oClaim.PolicyIndex = "ABBOJO1-4"
oClaim.ClaimRec = "000033"

oResult = oConneXion.FindClaim(oClaim)

If oResult.Success = False Then
    MessageBox.Show("FindClaim is false. " & oResult.Description & ".")
Else
    oClaim.TAMUsername = "EXEC"
    oClaim.TAMPassword = "PSWD"
    oClaim.Closed = True
    oClaim.Closedate = "20201101"

    oResult = oConneXion.UpdateClaim(oClaim)

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