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
(Xojo Plugin) ETrade - Place Equity Order (XML version)Shows how to place an equity order using ETrade with OAuth1 authorization. This example demonstrates sending an XML request and getting an XML response (rather than JSON). See https://developer.etrade.com/ctnt/dev-portal/getDetail?contentUri=V0_Documentation-OrderAPI-PlaceEquityOrder 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 New Chilkat.Http 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 New Chilkat.JsonObject Dim success As Boolean success = jsonToken.LoadFile("qa_data/tokens/etrade.json") If (success <> True) Then System.DebugLog("Failed to load OAuth1 token") Return End If http.OAuthToken = jsonToken.StringOf("oauth_token") http.OAuthTokenSecret = jsonToken.StringOf("oauth_token_secret") // Build the XML request body Dim xml As New Chilkat.Xml xml.Tag = "PlaceEquityOrder" success = xml.AddAttribute("xmlns","http://order.etws.etrade.com") // The accountId should be an 8-digit number such as "83405188" xml.UpdateChildContent "EquityOrderRequest|accountId","MY_ETRADE_ACCOUNT_ID" xml.UpdateChildContent "EquityOrderRequest|clientOrderId","45" xml.UpdateChildContent "EquityOrderRequest|limitPrice","3" xml.UpdateChildContent "EquityOrderRequest|previewId","" xml.UpdateChildContent "EquityOrderRequest|stopPrice","" xml.UpdateChildContent "EquityOrderRequest|allOrNone","" xml.UpdateChildContent "EquityOrderRequest|quantity","4" xml.UpdateChildContent "EquityOrderRequest|reserveOrder","" xml.UpdateChildContent "EquityOrderRequest|reserveQuantity","" xml.UpdateChildContent "EquityOrderRequest|symbol","ETFC" xml.UpdateChildContent "EquityOrderRequest|orderAction","BUY" xml.UpdateChildContent "EquityOrderRequest|priceType","LIMIT" xml.UpdateChildContent "EquityOrderRequest|routingDestination","" xml.UpdateChildContent "EquityOrderRequest|marketSession","REGULAR" xml.UpdateChildContent "EquityOrderRequest|orderTerm","GOOD_FOR_DAY" xml.EmitXmlDecl = False System.DebugLog(xml.GetXml()) // The above code builds the following XML: // <PlaceEquityOrder xmlns="http://order.etws.etrade.com"> // <EquityOrderRequest> // <accountId>83405188</accountId> // <clientOrderId>45</clientOrderId> // <limitPrice>3</limitPrice> // <previewId /> // <stopPrice /> // <allOrNone /> // <quantity>4</quantity> // <reserveOrder /> // <reserveQuantity /> // <symbol>ETFC</symbol> // <orderAction>BUY</orderAction> // <priceType>LIMIT</priceType> // <routingDestination /> // <marketSession>REGULAR</marketSession> // <orderTerm>GOOD_FOR_DAY</orderTerm> // </EquityOrderRequest> // </PlaceEquityOrder> // POST the XML and get the response. xml.EmitCompact = True // Set the Accept property to get any response. http.Accept = "application/xml" // The PostXml method will (by default) set the Content-Type request header to "text/xml". // ETrade does not like it. Use "application/xml" instead. http.SetRequestHeader "Content-Type","application/xml" http.SetRequestHeader "Content-Type","application/xml" // This example uses the sandbox URL. The live URL is "https://etws.etrade.com/order/rest/placeequityorder" Dim resp As Chilkat.HttpResponse resp = http.PostXml("https://etwssandbox.etrade.com/order/sandbox/rest/placeequityorder",xml.GetXml(),"utf-8") If (http.LastMethodSuccess <> True) Then System.DebugLog(http.LastErrorText) Return End If // Examine the response status code. Dim statusCode As Int32 statusCode = resp.StatusCode System.DebugLog("Status Code = " + Str(statusCode)) // Load the XML response body: Dim xmlResp As New Chilkat.Xml success = xmlResp.LoadXml(resp.BodyStr) // If the status code was not 200, then it was an error.. If (statusCode <> 200) Then System.DebugLog(resp.BodyStr) System.DebugLog("Equity order failed.") Return End If System.DebugLog(xmlResp.GetXml()) // To examine some information from the XML response: System.DebugLog("quantity: " + xmlResp.GetChildContent("equityOrderResponse|quantity")) System.DebugLog("msgDesc: " + xmlResp.GetChildContent("equityOrderResponse|messageList|message|msgDesc")) // etc .. // This is a sample response: // <PlaceEquityOrderResponse> // <equityOrderResponse> // <accountId>83310056</accountId> // <allOrNone>false</allOrNone> // <estimatedCommission>9.99</estimatedCommission> // <estimatedTotalAmount>1909.99</estimatedTotalAmount> // <messageList> // <message> // <msgDesc>Your order was successfully entered during market hours.</msgDesc> // <msgCode>1026</msgCode> // </message> // </messageList> // <orderNum>277</orderNum> // <orderTime>1240982042179</orderTime> // <quantity>100</quantity> // <reserveOrder>false</reserveOrder> // <reserveQuantity>0</reserveQuantity> // <orderTerm>GOOD_UNTIL_CANCEL</orderTerm> // <limitPrice>18</limitPrice> // <stopPrice>0</stopPrice> // <symbolDesc>CISCO SYS INC COM</symbolDesc> // <symbol>CSCO</symbol> // <orderAction>BUY</orderAction> // <priceType>LIMIT</priceType> // </equityOrderResponse> // </PlaceEquityOrderResponse> |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.