![]() | |
ConneXionFindClaimNotesForCustomer Method |
Namespace: ConneXion
public ConneXionResult FindClaimNotesForCustomer( ClaimNote ClaimNote, ref ClaimNote[] ClaimNotes )
Dim oConneXionClaimNote As New ConneXion.ConneXion Dim oClaimNote As New ConneXion.ClaimNote Dim oClaimNotes() As ConneXion.ClaimNote Dim oResult As ConneXion.ConneXionResult oClaimNote.TAMUserName = "EXEC" oClaimNote.TAMPassword = "PSWD" oClaimNote.PolicyIndex = "ABBOJO1-1" oClaimNote.ClaimRec = "000030" oResult = oConneXionClaimNote.FindClaimNotesForCustomer(oClaimNote, oClaimNotes) If oResult.Success Then txtResult.Text = oResult.Description Else txtResult.Text = "Number: " & oResult.Number & vbCrLf & "Desc: " & oResult.Description & vbCrLf & "TAMErrorNumber: " & oResult.TAMErrorNumber & vbCrLf & "TAMErroDesc: " & oResult.TAMDescription End If