![]() | |
ConneXionFindClaimPaymentsForCustomer Method |
Namespace: ConneXion
public ConneXionResult FindClaimPaymentsForCustomer( ClaimPayment ClaimPayment, ref ClaimPayment[] ClaimPayments )
Dim oConneXionClaimPay As New ConneXion.ConneXion Dim oClaimPay As New ConneXion.ClaimPayment Dim oClaimPays() As ConneXion.ClaimPayment Dim oResult As ConneXion.ConneXionResult oClaimPay.TAMUserName = "EXEC" oClaimPay.TAMPassword = "PSWD" oClaimPay.PolicyIndex = "ABBOJO1-1" oClaimPay.ClaimRec = "000030" oResult = oConneXionClaimPay.FindClaimPaymentsForCustomer(oClaimPay, oClaimPays) If oResult.Success Then txtResult.Text = oResult.Description dgrdResult.DataSource = oClaimPays Else txtResult.Text = "Number: " & oResult.Number & vbCrLf & "Desc: " & oResult.Description & vbCrLf & "TAMErrorNumber: " & oResult.TAMErrorNumber & vbCrLf & "TAMErroDesc: " & oResult.TAMDescription End If