![]() | |
ConneXionFindClaim Method |
Namespace: ConneXion
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 Then MessageBox.Show("Find Claim is successful") txtResult.Text = oResult.Description Else txtResult.Text = "Number: " & oResult.Number & vbCrLf & "Desc: " & oResult.Description & vbCrLf & "TAMErrorNumber: " & oResult.TAMErrorNumber & vbCrLf & "TAMErroDesc: " & oResult.TAMDescription End If