Xojo Plugin

ETrade Get Account Balances

See more ETrade Examples

Retrieves the current account balance and related details for a specified account. Xojo Plugin

Dim success As Boolean
success = False

// This requires the Chilkat 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 Authorization
Dim jsonToken As New Chilkat.JsonObject
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")

Dim sandboxUrl As String
sandboxUrl = "https://apisb.etrade.com/v1/accounts/{$accountIdKey}/balance?instType={$instType}&realTimeNAV=true"
Dim liveUrl As String
liveUrl = "https://api.etrade.com/v1/accounts/{$accountIdKey}/balance?instType={$instType}&realTimeNAV=true"

success = http.SetUrlVar("accountIdKey","6_Dpy0rmuQ9cu9IbTfvF2A")
success = http.SetUrlVar("instType","BROKERAGE")

Dim resp As New Chilkat.HttpResponse
success = http.HttpNoBody("GET",sandboxUrl,resp)
If (success = False) Then
    System.DebugLog(http.LastErrorText)
    Return
End If

// Make sure a successful response was received.
If (resp.StatusCode > 200) Then
    System.DebugLog(resp.StatusLine)
    System.DebugLog(resp.Header)
    System.DebugLog(resp.BodyStr)
    Return
End If

// Sample XML response:

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

// <?xml version="1.0" encoding="UTF-8"?>
// <BalanceResponse>
//    <accountId>83564979</accountId>
//    <accountType>PDT_ACCOUNT</accountType>
//    <optionLevel>LEVEL_4</optionLevel>
//    <accountDescription>KRITHH TT</accountDescription>
//    <quoteMode>6</quoteMode>
//    <dayTraderStatus>PDT_MIN_EQUITY_RES_1XK</dayTraderStatus>
//    <accountMode>PDT ACCOUNT</accountMode>
//    <Cash>
//       <fundsForOpenOrdersCash>0</fundsForOpenOrdersCash>
//       <moneyMktBalance>0</moneyMktBalance>
//    </Cash>
//    <Computed>
//       <cashAvailableForInvestment>0</cashAvailableForInvestment>
//       <netCash>93921.44</netCash>
//       <cashBalance>93921.44</cashBalance>
//       <settledCashForInvestment>0</settledCashForInvestment>
//       <unSettledCashForInvestment>0</unSettledCashForInvestment>
//       <fundsWithheldFromPurchasePower>0</fundsWithheldFromPurchasePower>
//       <fundsWithheldFromWithdrawal>0</fundsWithheldFromWithdrawal>
//       <marginBuyingPower>0</marginBuyingPower>
//       <cashBuyingPower>93921.44</cashBuyingPower>
//       <dtMarginBuyingPower>0</dtMarginBuyingPower>
//       <dtCashBuyingPower>0</dtCashBuyingPower>
//       <shortAdjustBalance>0</shortAdjustBalance>
//       <regtEquity>0</regtEquity>
//       <regtEquityPercent>0</regtEquityPercent>
//       <accountBalance>0</accountBalance>
//    </Computed>
//    <Margin>
//       <dtCashOpenOrderReserve>0</dtCashOpenOrderReserve>
//       <dtMarginOpenOrderReserve>0</dtMarginOpenOrderReserve>
//    </Margin>
// </BalanceResponse>

Dim xml As New Chilkat.Xml
success = xml.LoadXml(resp.BodyStr)
System.DebugLog(xml.GetXml())

Dim accountId As Int32
Dim accountType As String
Dim optionLevel As String
Dim accountDescription As String
Dim quoteMode As Int32
Dim dayTraderStatus As String
Dim accountMode As String
Dim fundsForOpenOrdersCash As Int32
Dim moneyMktBalance As Int32
Dim cashAvailableForInvestment As Int32
Dim netCash As String
Dim cashBalance As String
Dim settledCashForInvestment As Int32
Dim unSettledCashForInvestment As Int32
Dim fundsWithheldFromPurchasePower As Int32
Dim fundsWithheldFromWithdrawal As Int32
Dim marginBuyingPower As Int32
Dim cashBuyingPower As String
Dim dtMarginBuyingPower As Int32
Dim dtCashBuyingPower As Int32
Dim shortAdjustBalance As Int32
Dim regtEquity As Int32
Dim regtEquityPercent As Int32
Dim accountBalance As Int32
Dim dtCashOpenOrderReserve As Int32
Dim dtMarginOpenOrderReserve As Int32

accountId = xml.GetChildIntValue("accountId")
accountType = xml.GetChildContent("accountType")
optionLevel = xml.GetChildContent("optionLevel")
accountDescription = xml.GetChildContent("accountDescription")
quoteMode = xml.GetChildIntValue("quoteMode")
dayTraderStatus = xml.GetChildContent("dayTraderStatus")
accountMode = xml.GetChildContent("accountMode")
fundsForOpenOrdersCash = xml.GetChildIntValue("Cash|fundsForOpenOrdersCash")
moneyMktBalance = xml.GetChildIntValue("Cash|moneyMktBalance")
cashAvailableForInvestment = xml.GetChildIntValue("Computed|cashAvailableForInvestment")
netCash = xml.GetChildContent("Computed|netCash")
cashBalance = xml.GetChildContent("Computed|cashBalance")
settledCashForInvestment = xml.GetChildIntValue("Computed|settledCashForInvestment")
unSettledCashForInvestment = xml.GetChildIntValue("Computed|unSettledCashForInvestment")
fundsWithheldFromPurchasePower = xml.GetChildIntValue("Computed|fundsWithheldFromPurchasePower")
fundsWithheldFromWithdrawal = xml.GetChildIntValue("Computed|fundsWithheldFromWithdrawal")
marginBuyingPower = xml.GetChildIntValue("Computed|marginBuyingPower")
cashBuyingPower = xml.GetChildContent("Computed|cashBuyingPower")
dtMarginBuyingPower = xml.GetChildIntValue("Computed|dtMarginBuyingPower")
dtCashBuyingPower = xml.GetChildIntValue("Computed|dtCashBuyingPower")
shortAdjustBalance = xml.GetChildIntValue("Computed|shortAdjustBalance")
regtEquity = xml.GetChildIntValue("Computed|regtEquity")
regtEquityPercent = xml.GetChildIntValue("Computed|regtEquityPercent")
accountBalance = xml.GetChildIntValue("Computed|accountBalance")
dtCashOpenOrderReserve = xml.GetChildIntValue("Margin|dtCashOpenOrderReserve")
dtMarginOpenOrderReserve = xml.GetChildIntValue("Margin|dtMarginOpenOrderReserve")

System.DebugLog("Success.")