Sample code for 30+ languages & platforms
Visual FoxPro

ETrade View Portfolio

See more ETrade Examples

Gets portfolio information for the selected brokerage account.

Chilkat Visual FoxPro Downloads

Download Chilkat for Visual FoxPro
Visual FoxPro 
LOCAL lnSuccess
LOCAL loHttp
LOCAL loJsonToken
LOCAL lcSandboxUrl
LOCAL lcLiveUrl
LOCAL loResp
LOCAL loXml
LOCAL lnAccountId
LOCAL lnPositionId
LOCAL lnExpiryDay
LOCAL lnExpiryMonth
LOCAL lnExpiryYear
LOCAL lcSecurityType
LOCAL lnStrikePrice
LOCAL lcSymbol
LOCAL lcSymbolDescription
LOCAL lcDateAcquired
LOCAL lcPricePaid
LOCAL lcCommissions
LOCAL lcOtherFees
LOCAL lnQuantity
LOCAL lcPositionIndicator
LOCAL lcPositionType
LOCAL lcDaysGain
LOCAL lcDaysGainPct
LOCAL lcMarketValue
LOCAL lcTotalCost
LOCAL lcTotalGain
LOCAL lcTotalGainPct
LOCAL lcPctOfPortfolio
LOCAL lcCostPerShare
LOCAL lnTodayCommissions
LOCAL lnTodayFees
LOCAL lnTodayPricePaid
LOCAL lnTodayQuantity
LOCAL lcChange
LOCAL lcChangePct
LOCAL lcLastTrade
LOCAL lnLastTradeTime
LOCAL lnVolume
LOCAL lcLotsDetails
LOCAL lcQuoteDetails
LOCAL lnTotalPages
LOCAL i
LOCAL lnCount_i

lnSuccess = 0

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

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
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}/portfolio"
lcLiveUrl = "https://api.etrade.com/v1/accounts/{$accountIdKey}/portfolio"

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

loResp = CreateObject('Chilkat.HttpResponse')
lnSuccess = loHttp.HttpNoBody("GET",lcSandboxUrl,loResp)
IF (lnSuccess = 0) THEN
    ? loHttp.LastErrorText
    RELEASE loHttp
    RELEASE loJsonToken
    RELEASE loResp
    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 loResp
    CANCEL
ENDIF

*  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" standalone="yes"?>
*  <PortfolioResponse>
*      <AccountPortfolio>
*          <accountId>83359700</accountId>
*          <Position>
*              <positionId>27005131</positionId>
*              <Product>
*                  <expiryDay>0</expiryDay>
*                  <expiryMonth>0</expiryMonth>
*                  <expiryYear>0</expiryYear>
*                  <securityType>EQ</securityType>
*                  <strikePrice>0</strikePrice>
*                  <symbol>BR</symbol>
*              </Product>
*              <symbolDescription>BR</symbolDescription>
*              <dateAcquired>-57600000</dateAcquired>
*              <pricePaid>0</pricePaid>
*              <commissions>0</commissions>
*              <otherFees>0</otherFees>
*              <quantity>10</quantity>
*              <positionIndicator>TYPE2</positionIndicator>
*              <positionType>LONG</positionType>
*              <daysGain>-2.7999</daysGain>
*              <daysGainPct>-1.3346</daysGainPct>
*              <marketValue>207</marketValue>
*              <totalCost>0</totalCost>
*              <totalGain>207</totalGain>
*              <totalGainPct>0</totalGainPct>
*              <pctOfPortfolio>0.0018</pctOfPortfolio>
*              <costPerShare>0</costPerShare>
*              <todayCommissions>0</todayCommissions>
*              <todayFees>0</todayFees>
*              <todayPricePaid>0</todayPricePaid>
*              <todayQuantity>0</todayQuantity>
*              <Quick>
*                  <change>-0.28</change>
*                  <changePct>-1.3346</changePct>
*                  <lastTrade>20.70</lastTrade>
*                  <lastTradeTime>1343160240</lastTradeTime>
*                  <volume>431591</volume>
*              </Quick>
*              <lotsDetails>https://apisb.etrade.com/v1/accounts/E5Nd4LJBsEi_UyHm4Vio9g/portfolio/27005131</lotsDetails>
*              <quoteDetails>https://apisb.etrade.com/v1/market/quote/BR</quoteDetails>
*          </Position>
*          <Position>
*              <positionId>4709131</positionId>
*              <Product>
*                  <expiryDay>0</expiryDay>
*                  <expiryMonth>0</expiryMonth>
*                  <expiryYear>0</expiryYear>
*                  <securityType>EQ</securityType>
*                  <strikePrice>0</strikePrice>
*                  <symbol>GLD</symbol>
*              </Product>
*              <symbolDescription>GLD</symbolDescription>
*              <dateAcquired>1335250800000</dateAcquired>
*              <pricePaid>1</pricePaid>
*              <commissions>5</commissions>
*              <otherFees>0</otherFees>
*              <quantity>2</quantity>
*              <positionIndicator>TYPE1</positionIndicator>
*              <positionType>LONG</positionType>
*              <daysGain>0.9799</daysGain>
*              <daysGainPct>0.3201</daysGainPct>
*              <marketValue>307.04</marketValue>
*              <totalCost>7</totalCost>
*              <totalGain>300.04</totalGain>
*              <totalGainPct>4286.2857</totalGainPct>
*              <pctOfPortfolio>0.0028</pctOfPortfolio>
*              <costPerShare>3.5</costPerShare>
*              <todayCommissions>0</todayCommissions>
*              <todayFees>0</todayFees>
*              <todayPricePaid>0</todayPricePaid>
*              <todayQuantity>0</todayQuantity>
*              <Quick>
*                  <change>0.49</change>
*                  <changePct>0.3201</changePct>
*                  <lastTrade>153.52</lastTrade>
*                  <lastTradeTime>1343160000</lastTradeTime>
*                  <volume>6510878</volume>
*              </Quick>
*              <lotsDetails>https://apisb.etrade.com/v1/accounts/E5Nd4LJBsEi_UyHm4Vio9g/portfolio/4709131</lotsDetails>
*              <quoteDetails>https://apisb.etrade.com/v1/market/quote/GLD</quoteDetails>
*          </Position>
*          <Position>
*              <positionId>4729131</positionId>
*              <Product>
*                  <expiryDay>0</expiryDay>
*                  <expiryMonth>0</expiryMonth>
*                  <expiryYear>0</expiryYear>
*                  <securityType>EQ</securityType>
*                  <strikePrice>0</strikePrice>
*                  <symbol>MSFT</symbol>
*              </Product>
*              <symbolDescription>MSFT</symbolDescription>
*              <dateAcquired>1335250800000</dateAcquired>
*              <pricePaid>1</pricePaid>
*              <commissions>5</commissions>
*              <otherFees>0</otherFees>
*              <quantity>1</quantity>
*              <positionIndicator>TYPE2</positionIndicator>
*              <positionType>LONG</positionType>
*              <daysGain>-0.13</daysGain>
*              <daysGainPct>-0.4439</daysGainPct>
*              <marketValue>29.1499</marketValue>
*              <totalCost>6</totalCost>
*              <totalGain>23.1499</totalGain>
*              <totalGainPct>385.8333</totalGainPct>
*              <pctOfPortfolio>0.0002</pctOfPortfolio>
*              <costPerShare>6</costPerShare>
*              <todayCommissions>0</todayCommissions>
*              <todayFees>0</todayFees>
*              <todayPricePaid>0</todayPricePaid>
*              <todayQuantity>0</todayQuantity>
*              <Quick>
*                  <change>-0.13</change>
*                  <changePct>-0.4439</changePct>
*                  <lastTrade>29.15</lastTrade>
*                  <lastTradeTime>1343160000</lastTradeTime>
*                  <volume>47711254</volume>
*              </Quick>
*              <lotsDetails>https://apisb.etrade.com/v1/accounts/E5Nd4LJBsEi_UyHm4Vio9g/portfolio/4729131</lotsDetails>
*              <quoteDetails>https://apisb.etrade.com/v1/market/quote/MSFT</quoteDetails>
*          </Position>
*          <Position>
*              <positionId>23971131</positionId>
*              <Product>
*                  <expiryDay>0</expiryDay>
*                  <expiryMonth>0</expiryMonth>
*                  <expiryYear>0</expiryYear>
*                  <securityType>EQ</securityType>
*                  <strikePrice>0</strikePrice>
*                  <symbol>MSFT</symbol>
*              </Product>
*              <symbolDescription>MSFT</symbolDescription>
*              <dateAcquired>-57600000</dateAcquired>
*              <pricePaid>0</pricePaid>
*              <commissions>0</commissions>
*              <otherFees>0</otherFees>
*              <quantity>-10</quantity>
*              <positionIndicator>TYPE5</positionIndicator>
*              <positionType>SHORT</positionType>
*              <daysGain>1.30</daysGain>
*              <daysGainPct>-0.4439</daysGainPct>
*              <marketValue>-291.5</marketValue>
*              <totalCost>0</totalCost>
*              <totalGain>-291.5</totalGain>
*              <totalGainPct>0</totalGainPct>
*              <pctOfPortfolio>-0.0026</pctOfPortfolio>
*              <costPerShare>0</costPerShare>
*              <todayCommissions>0</todayCommissions>
*              <todayFees>0</todayFees>
*              <todayPricePaid>0</todayPricePaid>
*              <todayQuantity>0</todayQuantity>
*              <Quick>
*                  <change>-0.13</change>
*                  <changePct>-0.4439</changePct>
*                  <lastTrade>29.15</lastTrade>
*                  <lastTradeTime>1343160000</lastTradeTime>
*                  <volume>47711254</volume>
*              </Quick>
*              <lotsDetails>https://apisb.etrade.com/v1/accounts/E5Nd4LJBsEi_UyHm4Vio9g/portfolio/23971131</lotsDetails>
*              <quoteDetails>https://apisb.etrade.com/v1/market/quote/MSFT</quoteDetails>
*          </Position>
*          <Position>
*              <positionId>4725131</positionId>
*              <Product>
*                  <expiryDay>0</expiryDay>
*                  <expiryMonth>0</expiryMonth>
*                  <expiryYear>0</expiryYear>
*                  <securityType>EQ</securityType>
*                  <strikePrice>0</strikePrice>
*                  <symbol>RBL</symbol>
*              </Product>
*              <symbolDescription>RBL</symbolDescription>
*              <dateAcquired>1335250800000</dateAcquired>
*              <pricePaid>1</pricePaid>
*              <commissions>5</commissions>
*              <otherFees>0</otherFees>
*              <quantity>2</quantity>
*              <positionIndicator>TYPE2</positionIndicator>
*              <positionType>LONG</positionType>
*              <daysGain>-0.52</daysGain>
*              <daysGainPct>-1.0252</daysGainPct>
*              <marketValue>50.20</marketValue>
*              <totalCost>7</totalCost>
*              <totalGain>43.20</totalGain>
*              <totalGainPct>617.1428</totalGainPct>
*              <pctOfPortfolio>0.0004</pctOfPortfolio>
*              <costPerShare>3.5</costPerShare>
*              <todayCommissions>0</todayCommissions>
*              <todayFees>0</todayFees>
*              <todayPricePaid>0</todayPricePaid>
*              <todayQuantity>0</todayQuantity>
*              <Quick>
*                  <change>-0.26</change>
*                  <changePct>-1.0252</changePct>
*                  <lastTrade>25.10</lastTrade>
*                  <lastTradeTime>1343159760</lastTradeTime>
*                  <volume>11827</volume>
*              </Quick>
*              <lotsDetails>https://apisb.etrade.com/v1/accounts/E5Nd4LJBsEi_UyHm4Vio9g/portfolio/4725131</lotsDetails>
*              <quoteDetails>https://apisb.etrade.com/v1/market/quote/RBL</quoteDetails>
*          </Position>
*          <Position>
*              <positionId>20841131</positionId>
*              <Product>
*                  <expiryDay>0</expiryDay>
*                  <expiryMonth>0</expiryMonth>
*                  <expiryYear>0</expiryYear>
*                  <securityType>EQ</securityType>
*                  <strikePrice>0</strikePrice>
*                  <symbol>RPI</symbol>
*              </Product>
*              <symbolDescription>RPI</symbolDescription>
*              <dateAcquired>1335250800000</dateAcquired>
*              <pricePaid>7.5599</pricePaid>
*              <commissions>5</commissions>
*              <otherFees>45</otherFees>
*              <quantity>2</quantity>
*              <positionIndicator>TYPE2</positionIndicator>
*              <positionType>LONG</positionType>
*              <daysGain>0</daysGain>
*              <daysGainPct>0</daysGainPct>
*              <marketValue>2.8599</marketValue>
*              <totalCost>65.12</totalCost>
*              <totalGain>-62.2599</totalGain>
*              <totalGainPct>-95.6081</totalGainPct>
*              <pctOfPortfolio>0.00</pctOfPortfolio>
*              <costPerShare>32.56</costPerShare>
*              <todayCommissions>0</todayCommissions>
*              <todayFees>0</todayFees>
*              <todayPricePaid>0</todayPricePaid>
*              <todayQuantity>0</todayQuantity>
*              <Quick>
*                  <change>0</change>
*                  <changePct>0</changePct>
*                  <lastTrade>1.43</lastTrade>
*                  <lastTradeTime>1343150700</lastTradeTime>
*                  <volume>1803</volume>
*              </Quick>
*              <lotsDetails>https://apisb.etrade.com/v1/accounts/E5Nd4LJBsEi_UyHm4Vio9g/portfolio/20841131</lotsDetails>
*              <quoteDetails>https://apisb.etrade.com/v1/market/quote/RPI</quoteDetails>
*          </Position>
*          <Position>
*              <positionId>4732131</positionId>
*              <Product>
*                  <expiryDay>0</expiryDay>
*                  <expiryMonth>0</expiryMonth>
*                  <expiryYear>0</expiryYear>
*                  <securityType>EQ</securityType>
*                  <strikePrice>0</strikePrice>
*                  <symbol>RXD</symbol>
*              </Product>
*              <symbolDescription>RXD</symbolDescription>
*              <dateAcquired>1335250800000</dateAcquired>
*              <pricePaid>1</pricePaid>
*              <commissions>2.99</commissions>
*              <otherFees>0.0099</otherFees>
*              <quantity>-3</quantity>
*              <positionIndicator>TYPE5</positionIndicator>
*              <positionType>SHORT</positionType>
*              <daysGain>-1.296</daysGain>
*              <daysGainPct>2.6799</daysGainPct>
*              <marketValue>-49.6559</marketValue>
*              <totalCost>0</totalCost>
*              <totalGain>-49.6559</totalGain>
*              <totalGainPct>-827.60</totalGainPct>
*              <pctOfPortfolio>-0.0004</pctOfPortfolio>
*              <costPerShare>0</costPerShare>
*              <todayCommissions>0</todayCommissions>
*              <todayFees>0</todayFees>
*              <todayPricePaid>0</todayPricePaid>
*              <todayQuantity>0</todayQuantity>
*              <Quick>
*                  <change>0.432</change>
*                  <changePct>2.6799</changePct>
*                  <lastTrade>16.552</lastTrade>
*                  <lastTradeTime>1343157480</lastTradeTime>
*                  <volume>2200</volume>
*              </Quick>
*              <lotsDetails>https://apisb.etrade.com/v1/accounts/E5Nd4LJBsEi_UyHm4Vio9g/portfolio/4732131</lotsDetails>
*              <quoteDetails>https://apisb.etrade.com/v1/market/quote/RXD</quoteDetails>
*          </Position>
*          <totalPages>1</totalPages>
*      </AccountPortfolio>
*  </PortfolioResponse>
*  

loXml = CreateObject('Chilkat.Xml')
loXml.LoadXml(loResp.BodyStr)
? loXml.GetXml()

lnAccountId = loXml.GetChildIntValue("AccountPortfolio|accountId")
i = 0
lnCount_i = loXml.NumChildrenHavingTag("AccountPortfolio|Position")
DO WHILE i < lnCount_i
    loXml.I = i
    lnPositionId = loXml.GetChildIntValue("AccountPortfolio|Position[i]|positionId")
    lnExpiryDay = loXml.GetChildIntValue("AccountPortfolio|Position[i]|Product|expiryDay")
    lnExpiryMonth = loXml.GetChildIntValue("AccountPortfolio|Position[i]|Product|expiryMonth")
    lnExpiryYear = loXml.GetChildIntValue("AccountPortfolio|Position[i]|Product|expiryYear")
    lcSecurityType = loXml.GetChildContent("AccountPortfolio|Position[i]|Product|securityType")
    lnStrikePrice = loXml.GetChildIntValue("AccountPortfolio|Position[i]|Product|strikePrice")
    lcSymbol = loXml.GetChildContent("AccountPortfolio|Position[i]|Product|symbol")
    lcSymbolDescription = loXml.GetChildContent("AccountPortfolio|Position[i]|symbolDescription")
    lcDateAcquired = loXml.GetChildContent("AccountPortfolio|Position[i]|dateAcquired")
    lcPricePaid = loXml.GetChildContent("AccountPortfolio|Position[i]|pricePaid")
    lcCommissions = loXml.GetChildContent("AccountPortfolio|Position[i]|commissions")
    lcOtherFees = loXml.GetChildContent("AccountPortfolio|Position[i]|otherFees")
    lnQuantity = loXml.GetChildIntValue("AccountPortfolio|Position[i]|quantity")
    lcPositionIndicator = loXml.GetChildContent("AccountPortfolio|Position[i]|positionIndicator")
    lcPositionType = loXml.GetChildContent("AccountPortfolio|Position[i]|positionType")
    lcDaysGain = loXml.GetChildContent("AccountPortfolio|Position[i]|daysGain")
    lcDaysGainPct = loXml.GetChildContent("AccountPortfolio|Position[i]|daysGainPct")
    lcMarketValue = loXml.GetChildContent("AccountPortfolio|Position[i]|marketValue")
    lcTotalCost = loXml.GetChildContent("AccountPortfolio|Position[i]|totalCost")
    lcTotalGain = loXml.GetChildContent("AccountPortfolio|Position[i]|totalGain")
    lcTotalGainPct = loXml.GetChildContent("AccountPortfolio|Position[i]|totalGainPct")
    lcPctOfPortfolio = loXml.GetChildContent("AccountPortfolio|Position[i]|pctOfPortfolio")
    lcCostPerShare = loXml.GetChildContent("AccountPortfolio|Position[i]|costPerShare")
    lnTodayCommissions = loXml.GetChildIntValue("AccountPortfolio|Position[i]|todayCommissions")
    lnTodayFees = loXml.GetChildIntValue("AccountPortfolio|Position[i]|todayFees")
    lnTodayPricePaid = loXml.GetChildIntValue("AccountPortfolio|Position[i]|todayPricePaid")
    lnTodayQuantity = loXml.GetChildIntValue("AccountPortfolio|Position[i]|todayQuantity")
    lcChange = loXml.GetChildContent("AccountPortfolio|Position[i]|Quick|change")
    lcChangePct = loXml.GetChildContent("AccountPortfolio|Position[i]|Quick|changePct")
    lcLastTrade = loXml.GetChildContent("AccountPortfolio|Position[i]|Quick|lastTrade")
    lnLastTradeTime = loXml.GetChildIntValue("AccountPortfolio|Position[i]|Quick|lastTradeTime")
    lnVolume = loXml.GetChildIntValue("AccountPortfolio|Position[i]|Quick|volume")
    lcLotsDetails = loXml.GetChildContent("AccountPortfolio|Position[i]|lotsDetails")
    lcQuoteDetails = loXml.GetChildContent("AccountPortfolio|Position[i]|quoteDetails")
    i = i + 1
ENDDO
lnTotalPages = loXml.GetChildIntValue("AccountPortfolio|totalPages")

? "Success."

RELEASE loHttp
RELEASE loJsonToken
RELEASE loResp
RELEASE loXml