|
Chilkat • HOME • Android™ • Classic ASP • C • C++ • C# • Mono C# • .NET Core C# • C# UWP/WinRT • DataFlex • Delphi ActiveX • Delphi DLL • Visual FoxPro • Java • Lianja • MFC • Objective-C • Perl • PHP ActiveX • PHP Extension • PowerBuilder • PowerShell • PureBasic • CkPython • Chilkat2-Python • Ruby • SQL Server • Swift 2 • Swift 3,4,5... • Tcl • Unicode C • Unicode C++ • Visual Basic 6.0 • VB.NET • VB.NET UWP/WinRT • VBScript • Xojo Plugin • Node.js • Excel • Go
(Excel) ETrade - List Orders (JSON)Shows how to retrieve a list of orders for an ETrade account, and to iterate through the response. See https://developer.etrade.com/ctnt/dev-portal/getDetail?contentUri=V0_Documentation-OrderAPI-ListOrders for more information.
' This example assumes the Chilkat HTTP API to have been previously unlocked. ' See Global Unlock Sample for sample code. Dim http As Chilkat.Http Set http = Chilkat.NewHttp http.OAuth1 = True http.OAuthVerifier = "" http.OAuthConsumerKey = "ETRADE_CONSUMER_KEY" http.OAuthConsumerSecret = "ETRADE_CONSUMER_SECRET" ' Load the access token previously obtained via the OAuth1 3-Legged Authorization Dim jsonToken As Chilkat.JsonObject Set jsonToken = Chilkat.NewJsonObject success = jsonToken.LoadFile("qa_data/tokens/etrade.json") If (success <> True) Then Debug.Print "Failed to load OAuth1 token" Exit Sub End If http.OAuthToken = jsonToken.StringOf("oauth_token") http.OAuthTokenSecret = jsonToken.StringOf("oauth_token_secret") ' Tell ETrade we want a JSON response: http.Accept = "application/json" ' The live URL is https://etws.etrade.com/order/rest/orderlist/{accountId} ' We're using the sandbox URL.. Dim sbUrl As Chilkat.StringBuilder Set sbUrl = Chilkat.NewStringBuilder success = sbUrl.Append("https://etwssandbox.etrade.com/order/sandbox/rest/orderlist/") success = sbUrl.Append("MY_ETRADE_ACCOUNT_ID") respStr = http.QuickGetStr(sbUrl.GetAsString()) If (http.LastMethodSuccess <> True) Then Debug.Print http.LastErrorText Exit Sub End If ' Examine the response status code. statusCode = http.LastStatus Debug.Print "Status Code = "; statusCode ' The response is JSON. A sample response is shown below. Dim json As Chilkat.JsonObject Set json = Chilkat.NewJsonObject success = json.Load(respStr) json.EmitCompact = False ' If the status code was not 200, then it was an error.. If (statusCode <> 200) Then Debug.Print json.Emit() Debug.Print "List orders failed." Exit Sub End If ' Iterate over the orders. i = 0 numOrders = json.SizeOfArray("GetOrderListResponse.orderListResponse.orderDetails") Set orderList = json.ObjectOf("GetOrderListResponse.orderListResponse") Do While i < numOrders orderList.I = i Debug.Print "orderId: "; orderList.IntOf("orderDetails[i].order.orderId") Debug.Print "orderStatus: "; orderList.StringOf("orderDetails[i].order.orderStatus") If (orderList.HasMember("orderDetails[i].order.legDetails.executedPrice") = True) Then Debug.Print "executedPrice: "; orderList.StringOf("orderDetails[i].order.legDetails.executedPrice") End If ' Is the legDetails an array? If so, then iterate over it.. szLegDetails = orderList.SizeOfArray("orderDetails[i].order.legDetails") If (szLegDetails > 0) Then j = 0 Do While j < szLegDetails orderList.J = j Debug.Print "-- legNumber: "; orderList.IntOf("orderDetails[i].order.legDetails[j].legNumber") Debug.Print " orderAction: "; orderList.StringOf("orderDetails[i].order.legDetails[j].orderAction") Debug.Print " orderedQuantity: "; orderList.IntOf("orderDetails[i].order.legDetails[j].orderedQuantity") j = j + 1 Loop End If Debug.Print "----" i = i + 1 Loop Debug.Print "success." ' Sample JSON response: ' { ' "GetOrderListResponse": { ' "orderListResponse": { ' "count": 11, ' "marker": "", ' "orderDetails": [ ' { ' "order": { ' "orderId": 208, ' "orderPlacedTime": 1267660551466, ' "orderExecutedTime": 1267660558000, ' "orderValue": 0, ' "orderStatus": "EXECUTED", ' "orderType": "EQ", ' "orderTerm": "GOOD_FOR_DAY", ' "priceType": "MARKET", ' "limitPrice": 0, ' "stopPrice": 0, ' "legDetails": { ' "legNumber": 1, ' "symbolInfo": { ' "symbol": "CSCO" ' }, ' "symbolDescription": "CISCO SYS INC COM", ' "orderAction": "SELL", ' "orderedQuantity": 1, ' "filledQuantity": 1, ' "executedPrice": 24.84, ' "estimatedCommission": 5, ' "estimatedFees": 0 ' }, ' "allOrNone": false ' } ' }, ' { ' "order": { ' "orderId": 205, ' "orderPlacedTime": 1267099216308, ' "orderValue": 4999994.21, ' "orderStatus": "OPEN", ' "orderType": "OPTN", ' "orderTerm": "GOOD_FOR_DAY", ' "priceType": "LIMIT", ' "limitPrice": 50000, ' "stopPrice": 0, ' "legDetails": { ' "legNumber": 1, ' "symbolInfo": { ' "symbol": "MSQ", ' "callPut": "CALL", ' "expYear": 2010, ' "expMonth": 4, ' "expDay": 17, ' "strikePrice": 26 ' }, ' "symbolDescription": "MSFT APR 26 Call", ' "orderAction": "SELL_OPEN", ' "orderedQuantity": 1, ' "filledQuantity": 0, ' "executedPrice": 0, ' "estimatedCommission": 5.75, ' "estimatedFees": 0 ' }, ' "allOrNone": false ' } ' }, ' { ' "order": { ' "orderId": 200, ' "orderPlacedTime": 1267095453128, ' "orderValue": 210.79, ' "orderStatus": "CANCEL_REQUESTED", ' "orderType": "BUY_WRITES", ' "orderTerm": "GOOD_FOR_DAY", ' "priceType": "NET_DEBIT", ' "limitPrice": 2, ' "stopPrice": 0, ' "legDetails": [ ' { ' "legNumber": 1, ' "symbolInfo": { ' "symbol": "IBM" ' }, ' "symbolDescription": "INTERNATIONAL BUSINESS MACHS COM\n\t\t\t\t\t\t\t", ' "orderAction": "BUY", ' "orderedQuantity": 100, ' "filledQuantity": 0, ' "executedPrice": 0, ' "estimatedCommission": 5, ' "estimatedFees": 0 ' }, ' { ' "legNumber": 2, ' "symbolInfo": { ' "symbol": "IBM", ' ' "callPut": "CALL", ' "expYear": 2010, ' "expMonth": 4, ' "expDay": 17, ' "strikePrice": 115 ' }, ' "symbolDescription": "IBM APR 115 Call", ' "orderAction": "SELL_OPEN", ' "orderedQuantity": 1, ' "filledQuantity": 0, ' "executedPrice": 0, ' "estimatedCommission": 5.75, ' "estimatedFees": 0 ' } ' ], ' "allOrNone": false ' } ' }, ' { ' "order": { ' "orderId": 192, ' "orderPlacedTime": 1267089996809, ' "orderValue": 10.79, ' "orderStatus": "OPEN", ' "orderType": "OPTN", ' "orderTerm": "GOOD_FOR_DAY", ' "priceType": "LIMIT", ' "limitPrice": 0.05, ' "stopPrice": 0, ' "legDetails": { ' "legNumber": 1, ' "symbolInfo": { ' "symbol": "QQQ", ' "callPut": "CALL", ' "expYear": 2010, ' "expMonth": 3, ' "expDay": 20, ' "strikePrice": 43 ' }, ' "symbolDescription": "QQQQ MAR 43 Call", ' "orderAction": "BUY_OPEN", ' "orderedQuantity": 1, ' "filledQuantity": 0, ' "executedPrice": 0, ' "estimatedCommission": 5.75, ' "estimatedFees": 0 ' }, ' "allOrNone": false ' } ' }, ' { ' "order": { ' "orderId": 191, ' "orderPlacedTime": 1267089623587, ' "orderValue": 15, ' "orderStatus": "OPEN", ' "orderType": "EQ", ' "orderTerm": "GOOD_FOR_DAY", ' "priceType": "LIMIT", ' "limitPrice": 1, ' "stopPrice": 0, ' "legDetails": { ' "legNumber": 1, ' "symbolInfo": { ' "symbol": "MSFT" ' }, ' "symbolDescription": "MICROSOFT CORP COM\n\t\t\t\t\t\t\t", ' "orderAction": "BUY", ' "orderedQuantity": 10, ' "filledQuantity": 0, ' "executedPrice": 0, ' "estimatedCommission": 5, ' "estimatedFees": 0 ' }, ' "allOrNone": false ' } ' }, ' { ' "order": { ' "orderId": 190, ' "orderPlacedTime": 1267089606681, ' "orderValue": 15, ' "orderStatus": "OPEN", ' "orderType": "EQ", ' "orderTerm": "GOOD_FOR_DAY", ' "priceType": "LIMIT", ' "limitPrice": 1, ' "stopPrice": 0, ' "legDetails": { ' "legNumber": 1, ' "symbolInfo": { ' "symbol": "MSFT" ' }, ' "symbolDescription": "MICROSOFT CORP COM\n\t\t\t\t\t\t\t", ' "orderAction": "BUY", ' "orderedQuantity": 10, ' "filledQuantity": 0, ' "executedPrice": 0, ' "estimatedCommission": 5, ' "estimatedFees": 0 ' }, ' "allOrNone": false ' } ' }, ' { ' "order": { ' "orderId": 189, ' "orderPlacedTime": 1267089589812, ' "orderValue": 15, ' "orderStatus": "OPEN", ' "orderType": "EQ", ' "orderTerm": "GOOD_FOR_DAY", ' "priceType": "LIMIT", ' "limitPrice": 1, ' "stopPrice": 0, ' "legDetails": { ' "legNumber": 1, ' "symbolInfo": { ' "symbol": "IBM" ' }, ' "symbolDescription": "INTERNATIONAL BUSINESS MACHS COM\n\t\t\t\t\t\t\t", ' "orderAction": "BUY", ' "orderedQuantity": 10, ' "filledQuantity": 0, ' "executedPrice": 0, ' "estimatedCommission": 5, ' "estimatedFees": 0 ' }, ' "allOrNone": false ' } ' }, ' { ' "order": { ' "orderId": 188, ' "orderPlacedTime": 1267089356773, ' "orderValue": 132.59, ' "orderStatus": "OPEN", ' "orderType": "EQ", ' "orderTerm": "GOOD_FOR_DAY", ' "priceType": "MARKET", ' "limitPrice": 0, ' "stopPrice": 0, ' "legDetails": { ' "legNumber": 1, ' "symbolInfo": { ' "symbol": "IBM" ' }, ' "symbolDescription": "INTERNATIONAL BUSINESS MACHS COM\n\t\t\t\t\t\t\t", ' "orderAction": "BUY", ' "orderedQuantity": 1, ' "filledQuantity": 0, ' "executedPrice": 0, ' "estimatedCommission": 5, ' "estimatedFees": 0 ' }, ' "allOrNone": false ' } ' }, ' { ' "order": { ' "orderId": 187, ' "orderPlacedTime": 1266904795303, ' "orderValue": 10.79, ' "orderStatus": "OPEN", ' "orderType": "OPTN", ' "orderTerm": "GOOD_FOR_DAY", ' "priceType": "LIMIT", ' "limitPrice": 0.05, ' "stopPrice": 0, ' "legDetails": { ' "legNumber": 1, ' "symbolInfo": { ' "symbol": "MSQ", ' "callPut": "CALL", ' "expYear": 2010, ' "expMonth": 4, ' "expDay": 17, ' "strikePrice": 27 ' }, ' "symbolDescription": "MSFT APR 27 Call", ' "orderAction": "BUY_OPEN", ' "orderedQuantity": 1, ' "filledQuantity": 0, ' "executedPrice": 0, ' "estimatedCommission": 5.75, ' "estimatedFees": 0 ' }, ' "allOrNone": false ' } ' }, ' { ' "order": { ' "orderId": 170, ' "orderPlacedTime": 1266584434221, ' "orderValue": 391.944, ' "orderStatus": "OPEN", ' "orderType": "OPTN", ' "orderTerm": "GOOD_FOR_DAY", ' "priceType": "LIMIT", ' "limitPrice": 1, ' "stopPrice": 0, ' "legDetails": { ' "legNumber": 1, ' "symbolInfo": { ' "symbol": "IBM", ' "callPut": "CALL", ' "expYear": 2010, ' "expMonth": 2, ' "expDay": 20, ' "strikePrice": 130 ' }, ' "symbolDescription": "IBM FEB 130 Call", ' "orderAction": "SELL_OPEN", ' "orderedQuantity": 4, ' "filledQuantity": 0, ' "executedPrice": 0, ' "estimatedCommission": 8, ' "estimatedFees": 0 ' }, ' "allOrNone": false ' } ' }, ' { ' "order": { ' "orderId": 166, ' "orderPlacedTime": 1266583451241, ' "orderValue": 4020.28, ' "orderStatus": "OPEN", ' "orderType": "OPTN", ' "orderTerm": "GOOD_FOR_DAY", ' "priceType": "LIMIT", ' "limitPrice": 2, ' "stopPrice": 0, ' "legDetails": { ' "legNumber": 1, ' "symbolInfo": { ' "symbol": "IBM", ' "callPut": "CALL", ' "expYear": 2010, ' "expMonth": 2, ' "expDay": 20, ' "strikePrice": 130 ' }, ' "symbolDescription": "IBM FEB 130 Call", ' "orderAction": "BUY_CLOSE", ' "orderedQuantity": 20, ' "filledQuantity": 10, ' "executedPrice": 2, ' "estimatedCommission": 20, ' "estimatedFees": 0 ' }, ' "allOrNone": false ' } ' }, ' { ' "order": { ' "orderId": 162, ' "orderPlacedTime": 1266581179588, ' "orderValue": 4020.28, ' "orderStatus": "OPEN", ' "orderType": "OPTN", ' "orderTerm": "GOOD_FOR_DAY", ' "priceType": "LIMIT", ' "limitPrice": 2, ' "stopPrice": 0, ' "legDetails": { ' "legNumber": 1, ' "symbolInfo": { ' "symbol": "GOP", ' "callPut": "CALL", ' "expYear": 2010, ' "expMonth": 3, ' "expDay": 20, ' "strikePrice": 520 ' }, ' "symbolDescription": "GOOG MAR 520 Call", ' "orderAction": "BUY_CLOSE", ' "orderedQuantity": 20, ' "filledQuantity": 10, ' "executedPrice": 2, ' "estimatedCommission": 20, ' "estimatedFees": 0 ' }, ' "allOrNone": false ' } ' } ' ] ' } ' } ' } |
||||
© 2000-2022 Chilkat Software, Inc. All Rights Reserved.