Chilkat HOME .NET Core C# Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi ActiveX Delphi DLL Go Java Lianja Mono C# Node.js Objective-C PHP ActiveX PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(Visual Basic 6.0) ETrade v1 List TransactionsGet information about the transactions in an ETrade brokerage account.
' This example requires the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. Dim http As New ChilkatHttp http.OAuth1 = 1 http.OAuthVerifier = "" http.OAuthConsumerKey = "ETRADE_CONSUMER_KEY" http.OAuthConsumerSecret = "ETRADE_CONSUMER_SECRET" ' Load the access token previously obtained via the OAuth1 3-Legged Authorization examples Step1 and Step2. Dim json As New ChilkatJsonObject Dim success As Long success = json.LoadFile("qa_data/tokens/etrade.json") If (success <> 1) Then Debug.Print "Failed to load OAuth1 token" Exit Sub End If http.OAuthToken = json.StringOf("oauth_token") http.OAuthTokenSecret = json.StringOf("oauth_token_secret") ' See the ETrade v1 API documentation HERE. success = http.SetUrlVar("accountIdKey","vsnhtF7d9jXxBy6HyaAC4vQ") Dim respStr As String respStr = http.QuickGetStr("https://apisb.etrade.com/v1/accounts/{$accountIdKey}/transactions") If (http.LastMethodSuccess <> 1) Then Debug.Print http.LastErrorText Exit Sub End If ' A 200 status code indicates success. Dim statusCode As Long statusCode = http.LastStatus Debug.Print "statusCode = " & statusCode ' Use the following online tool to generate parsing code from sample XML: ' Generate Parsing Code from XML ' A sample XML response is shown below... Dim xml As New ChilkatXml success = xml.LoadXml(respStr) Dim i As Long Dim count_i As Long Dim tagPath As String Dim transactionId As String Dim accountId As Long Dim transactionDate As String Dim postDate As String Dim amount As Long Dim description As String Dim description2 As Long Dim transactionType As String Dim imageFlag As String Dim instType As String Dim quantity As Long Dim price As Long Dim settlementCurrency As String Dim paymentCurrency As String Dim fee As Long Dim settlementDate As String Dim detailsURI As String Dim pageMarkers As String Dim moreTransactions As String Dim transactionCount As Long Dim totalCount As Long i = 0 count_i = xml.NumChildrenHavingTag("Transaction") Do While i < count_i xml.I = i transactionId = xml.GetChildContent("Transaction[i]|transactionId") accountId = xml.GetChildIntValue("Transaction[i]|accountId") transactionDate = xml.GetChildContent("Transaction[i]|transactionDate") postDate = xml.GetChildContent("Transaction[i]|postDate") amount = xml.GetChildIntValue("Transaction[i]|amount") description = xml.GetChildContent("Transaction[i]|description") description2 = xml.GetChildIntValue("Transaction[i]|description2") transactionType = xml.GetChildContent("Transaction[i]|transactionType") imageFlag = xml.GetChildContent("Transaction[i]|imageFlag") instType = xml.GetChildContent("Transaction[i]|instType") quantity = xml.GetChildIntValue("Transaction[i]|brokerage|quantity") price = xml.GetChildIntValue("Transaction[i]|brokerage|price") settlementCurrency = xml.GetChildContent("Transaction[i]|brokerage|settlementCurrency") paymentCurrency = xml.GetChildContent("Transaction[i]|brokerage|paymentCurrency") fee = xml.GetChildIntValue("Transaction[i]|brokerage|fee") settlementDate = xml.GetChildContent("Transaction[i]|brokerage|settlementDate") detailsURI = xml.GetChildContent("Transaction[i]|detailsURI") i = i + 1 Loop pageMarkers = xml.GetChildContent("pageMarkers") moreTransactions = xml.GetChildContent("moreTransactions") transactionCount = xml.GetChildIntValue("transactionCount") totalCount = xml.GetChildIntValue("totalCount") ' <?xml version="1.0" encoding="UTF-8"?> ' <TransactionListResponse> ' <Transaction> ' <transactionId>18165100001766</transactionId> ' <accountId>83564979</accountId> ' <transactionDate>1528948800000</transactionDate> ' <postDate>1528948800000</postDate> ' <amount>-2</amount> ' <description>ACH WITHDRAWL REFID:109187276;</description> ' <description2>109187276</description2> ' <transactionType>Transfer</transactionType> ' <memo /> ' <imageFlag>false</imageFlag> ' <instType>BROKERAGE</instType> ' <brokerage> ' <product /> ' <quantity>0</quantity> ' <price>0</price> ' <settlementCurrency>USD</settlementCurrency> ' <paymentCurrency>USD</paymentCurrency> ' <fee>0</fee> ' <settlementDate>1528948800000</settlementDate> ' </brokerage> ' <detailsURI>https://api.etrade.com/v1/accounts/yIFaUoJ81qyAhgxLWRQ42g/transactions/18165100001766</detailsURI> ' </Transaction> ' <Transaction> ' <transactionId>18158100000983</transactionId> ' <accountId>83564979</accountId> ' <transactionDate>1528344000000</transactionDate> ' <postDate>1528344000000</postDate> ' <amount>-2</amount> ' <description>ACH WITHDRAWL REFID:98655276;</description> ' <description2>98655276</description2> ' <transactionType>Transfer</transactionType> ' <memo /> ' <imageFlag>false</imageFlag> ' <instType>BROKERAGE</instType> ' <brokerage> ' <product /> ' <quantity>0</quantity> ' <price>0</price> ' <settlementCurrency>USD</settlementCurrency> ' <paymentCurrency>USD</paymentCurrency> ' <fee>0</fee> ' <settlementDate>1528344000000</settlementDate> ' </brokerage> ' <detailsURI>https://api.etrade.com/v1/accounts/yIFaUoJ81qyAhgxLWRQ42g/transactions/18158100000983</detailsURI> ' </Transaction> ' <pageMarkers>eNpTsAlITE91zi%2FNK%2FHMc04syi8tTs2xM7TRxybMpWATkl%2BSmBOUmpxflAKWtTO10ccQg6mDmwEyEE0EqAbE8SvNTUotCk4tLE3NS061M9Ax0DEEYgOIA9BkuRQgmjxTfDKLQUYoQAV8E4uyU4vsDC0MzUwNDYDA0NzMrKamBmIKVJYLphpiKsyTUB7IbH1kwwFa7F0D</pageMarkers> ' <moreTransactions>false</moreTransactions> ' <transactionCount>5</transactionCount> ' <totalCount>5</totalCount> ' </TransactionListResponse |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.