![]() | |
ConneXionFindFinanceCompany Method |
Namespace: ConneXion
Dim oConneXion As New ConneXion.ConneXion Dim oResult As New ConneXion.ConneXionResult Dim oFinance As New ConneXion.FinanceCompany oFinance.TAMUserName = "EXEC" oFinance.TAMPassword = "PSWD" oFinance.EntityID = "AFCOPR1" oResult = oConneXion.FindFinanceCompany(oFinance) If oResult.Success Then MessageBox.Show("Find Finance Company is successful") txtResult.Text = oResult.Description Else txtResult.Text = "Find Finance Company is false" & vbCrLf & "Number: " & oResult.Number & vbCrLf & "Desc: " & oResult.Description & vbCrLf & "TAMErrorNumber: " & oResult.TAMErrorNumber & vbCrLf & "TAMErroDesc: " & oResult.TAMDescription End If