(Visual FoxPro) ETrade Cancel Order

The cancel order API is used to cancel an existing order.

For more information, see https://apisb.etrade.com/docs/api/order/api-order-v1.html#/definition/cancelOrder

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL loHttp
LOCAL loJsonToken
LOCAL lnSuccess
LOCAL lcSandboxUrl
LOCAL lcLiveUrl
LOCAL loXml
LOCAL loResp
LOCAL lnAccountId
LOCAL lnOrderId
LOCAL lcCancelTime
LOCAL lnCode
LOCAL lcDescription
LOCAL lcV_type

* This requires the Chilkat API to have been previously unlocked.
* See Global Unlock Sample for sample code.

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Http')
loHttp = CreateObject('Chilkat.Http')

loHttp.OAuth1 = 1
loHttp.OAuthVerifier = ""
loHttp.OAuthConsumerKey = "ETRADE_CONSUMER_KEY"
loHttp.OAuthConsumerSecret = "ETRADE_CONSUMER_SECRET"

* Load the access token previously obtained via the OAuth1 Authorization
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.JsonObject')
loJsonToken = CreateObject('Chilkat.JsonObject')
lnSuccess = loJsonToken.LoadFile("qa_data/tokens/etrade.json")
IF (lnSuccess <> 1) THEN
    ? "Failed to load OAuth1 token"
    RELEASE loHttp
    RELEASE loJsonToken
    CANCEL
ENDIF

loHttp.OAuthToken = loJsonToken.StringOf("oauth_token")
loHttp.OAuthTokenSecret = loJsonToken.StringOf("oauth_token_secret")

lcSandboxUrl = "https://apisb.etrade.com/v1/accounts/{$accountIdKey}/orders/cancel"
lcLiveUrl = "https://api.etrade.com/v1/accounts/{$accountIdKey}/orders/cancel"

loHttp.SetUrlVar("accountIdKey","6_Dpy0rmuQ9cu9IbTfvF2A")

* Send a PUT with the following XML body

* Use this online tool to generate the code from sample XML: 
* Generate Code to Create XML

* <CancelOrderRequest>
*    <orderId>11</orderId>
* </CancelOrderRequest>

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Xml')
loXml = CreateObject('Chilkat.Xml')
loXml.Tag = "CancelOrderRequest"
loXml.UpdateChildContent("orderId","11")
loXml.EmitCompact = 1

loResp = loHttp.PText("PUT",lcSandboxUrl,loXml.GetXml(),"utf-8","application/xml",0,0)
IF (loHttp.LastMethodSuccess <> 1) THEN
    ? loHttp.LastErrorText
    RELEASE loHttp
    RELEASE loJsonToken
    RELEASE loXml
    CANCEL
ENDIF

* Make sure a successful response was received.
IF (loResp.StatusCode > 200) THEN
    ? loResp.StatusLine
    ? loResp.Header
    ? loResp.BodyStr
    RELEASE loHttp
    RELEASE loJsonToken
    RELEASE loXml
    CANCEL
ENDIF

* Sample XML response:

* Use this online tool to generate parsing code from sample XML: 
* Generate Parsing Code from XML

* <CancelOrderResponse>
*    <accountId>63438617</accountId>
*    <orderId>11</orderId>
*    <cancelTime>1529563499081</cancelTime>
*    <Messages>
*       <Message>
*          <code>5011</code>
*          <description>200|Your request to cancel your order is being processed.</description>
*          <type>WARNING</type>
*       </Message>
*    </Messages>
* </CancelOrderResponse>

loXml.LoadXml(loResp.BodyStr)
? loXml.GetXml()

lnAccountId = loXml.GetChildIntValue("accountId")
lnOrderId = loXml.GetChildIntValue("orderId")
lcCancelTime = loXml.GetChildContent("cancelTime")
lnCode = loXml.GetChildIntValue("Messages|Message|code")
lcDescription = loXml.GetChildContent("Messages|Message|description")
lcV_type = loXml.GetChildContent("Messages|Message|type")

? "Success."

RELEASE loHttp
RELEASE loJsonToken
RELEASE loXml