ConneXionInsertClaimPayment Method

public ConneXionResult InsertClaimPayment(
	ref ClaimPayment ClaimPayment
)

Public Function InsertClaimPayment ( 
	ByRef ClaimPayment As ClaimPayment
) As ConneXionResult

Dim oConneXionClaimPay As New ConneXion.ConneXion
Dim oClaimPay As New ConneXion.ClaimPayment
Dim oResult As ConneXion.ConneXionResult

oClaimPay.TAMUserName = "EXEC"
oClaimPay.TAMPassword = "PSWD"
oClaimPay.PolicyIndex = "ABBOJO1-1"
oClaimPay.ClaimRec = "000030"
oClaimPay.Amount = 500D
oClaimPay.CheckNumber = "1234"
oClaimPay.CheckSentDate = "20200104"
oClaimPay.Coverage = "HOME"
oClaimPay.Description = "payment for vase claim"

oResult = oConneXionClaimPay.InsertClaimPayment(oClaimPay)

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