![]() | |
ConneXionFindFinancedTransactions Method |
Namespace: ConneXion
Dim oConneXion As New ConneXion.ConneXion Dim oFinanceTrans As New ConneXion.GeneralTrans.Transaction Dim oResult As ConneXion.ConneXionResult oFinanceTrans.TAMUserName = "EXEC" oFinanceTrans.TAMPassword = "PSWD" oFinanceTrans.EntityType = "F" oFinanceTrans.Agency = 1 oResult = oConneXion.FindFinancedTransactions(oFinanceTrans) If oResult.Success Then MessageBox.Show("Find Finance Transactions is Successful. " & oResult.Description & ".") dgrdResult.DataSource = oFinanceTrans.Transactions Else txtResult.Text = "Number: " & oResult.Number & vbCrLf & "Desc: " & oResult.Description & vbCrLf & "TAMErrorNumber: " & oResult.TAMErrorNumber & vbCrLf & "TAMErroDesc: " & oResult.TAMDescription End If