![]() | |
ConneXionDeleteClaimant Method |
Namespace: ConneXion
Dim oConneXionClaimant As New ConneXion.ConneXion Dim oClaimant As New ConneXion.Claimant Dim oResult As ConneXion.ConneXionResult oClaimant.TAMUserName = "EXEC" oClaimant.TAMPassword = "PSWD" oClaimant.PolicyIndex = "ABBOJO1-1" oClaimant.ClaimRec = "000030" oClaimant.RecordNumber = "20" oResult = oConneXionClaimant.DeleteClaimant(oClaimant) If oResult.Success = True Then MessageBox.Show("Delete Claimant is Successful") Else txtResult.Text = "Number: " & oResult.Number & vbCrLf & "Desc: " & oResult.Description & vbCrLf & "TAMErrorNumber: " & oResult.TAMErrorNumber & vbCrLf & "TAMErroDesc: " & oResult.TAMDescription End If