PureBasic
PureBasic
ETrade View Portfolio
See more ETrade Examples
Gets portfolio information for the selected brokerage account.Chilkat PureBasic Downloads
IncludeFile "CkHttpResponse.pb"
IncludeFile "CkHttp.pb"
IncludeFile "CkJsonObject.pb"
IncludeFile "CkXml.pb"
Procedure ChilkatExample()
success.i = 0
; This requires the Chilkat API to have been previously unlocked.
; See Global Unlock Sample for sample code.
http.i = CkHttp::ckCreate()
If http.i = 0
Debug "Failed to create object."
ProcedureReturn
EndIf
CkHttp::setCkOAuth1(http, 1)
CkHttp::setCkOAuthVerifier(http, "")
CkHttp::setCkOAuthConsumerKey(http, "ETRADE_CONSUMER_KEY")
CkHttp::setCkOAuthConsumerSecret(http, "ETRADE_CONSUMER_SECRET")
; Load the access token previously obtained via the OAuth1 Authorization
jsonToken.i = CkJsonObject::ckCreate()
If jsonToken.i = 0
Debug "Failed to create object."
ProcedureReturn
EndIf
success = CkJsonObject::ckLoadFile(jsonToken,"qa_data/tokens/etrade.json")
If success <> 1
Debug "Failed to load OAuth1 token"
CkHttp::ckDispose(http)
CkJsonObject::ckDispose(jsonToken)
ProcedureReturn
EndIf
CkHttp::setCkOAuthToken(http, CkJsonObject::ckStringOf(jsonToken,"oauth_token"))
CkHttp::setCkOAuthTokenSecret(http, CkJsonObject::ckStringOf(jsonToken,"oauth_token_secret"))
sandboxUrl.s = "https://apisb.etrade.com/v1/accounts/{$accountIdKey}/portfolio"
liveUrl.s = "https://api.etrade.com/v1/accounts/{$accountIdKey}/portfolio"
CkHttp::ckSetUrlVar(http,"accountIdKey","6_Dpy0rmuQ9cu9IbTfvF2A")
resp.i = CkHttpResponse::ckCreate()
If resp.i = 0
Debug "Failed to create object."
ProcedureReturn
EndIf
success = CkHttp::ckHttpNoBody(http,"GET",sandboxUrl,resp)
If success = 0
Debug CkHttp::ckLastErrorText(http)
CkHttp::ckDispose(http)
CkJsonObject::ckDispose(jsonToken)
CkHttpResponse::ckDispose(resp)
ProcedureReturn
EndIf
; Make sure a successful response was received.
If CkHttpResponse::ckStatusCode(resp) > 200
Debug CkHttpResponse::ckStatusLine(resp)
Debug CkHttpResponse::ckHeader(resp)
Debug CkHttpResponse::ckBodyStr(resp)
CkHttp::ckDispose(http)
CkJsonObject::ckDispose(jsonToken)
CkHttpResponse::ckDispose(resp)
ProcedureReturn
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>
;
xml.i = CkXml::ckCreate()
If xml.i = 0
Debug "Failed to create object."
ProcedureReturn
EndIf
CkXml::ckLoadXml(xml,CkHttpResponse::ckBodyStr(resp))
Debug CkXml::ckGetXml(xml)
accountId.i
positionId.i
expiryDay.i
expiryMonth.i
expiryYear.i
securityType.s
strikePrice.i
symbol.s
symbolDescription.s
dateAcquired.s
pricePaid.s
commissions.s
otherFees.s
quantity.i
positionIndicator.s
positionType.s
daysGain.s
daysGainPct.s
marketValue.s
totalCost.s
totalGain.s
totalGainPct.s
pctOfPortfolio.s
costPerShare.s
todayCommissions.i
todayFees.i
todayPricePaid.i
todayQuantity.i
change.s
changePct.s
lastTrade.s
lastTradeTime.i
volume.i
lotsDetails.s
quoteDetails.s
totalPages.i
accountId = CkXml::ckGetChildIntValue(xml,"AccountPortfolio|accountId")
i.i = 0
count_i.i = CkXml::ckNumChildrenHavingTag(xml,"AccountPortfolio|Position")
While i < count_i
CkXml::setCkI(xml, i)
positionId = CkXml::ckGetChildIntValue(xml,"AccountPortfolio|Position[i]|positionId")
expiryDay = CkXml::ckGetChildIntValue(xml,"AccountPortfolio|Position[i]|Product|expiryDay")
expiryMonth = CkXml::ckGetChildIntValue(xml,"AccountPortfolio|Position[i]|Product|expiryMonth")
expiryYear = CkXml::ckGetChildIntValue(xml,"AccountPortfolio|Position[i]|Product|expiryYear")
securityType = CkXml::ckGetChildContent(xml,"AccountPortfolio|Position[i]|Product|securityType")
strikePrice = CkXml::ckGetChildIntValue(xml,"AccountPortfolio|Position[i]|Product|strikePrice")
symbol = CkXml::ckGetChildContent(xml,"AccountPortfolio|Position[i]|Product|symbol")
symbolDescription = CkXml::ckGetChildContent(xml,"AccountPortfolio|Position[i]|symbolDescription")
dateAcquired = CkXml::ckGetChildContent(xml,"AccountPortfolio|Position[i]|dateAcquired")
pricePaid = CkXml::ckGetChildContent(xml,"AccountPortfolio|Position[i]|pricePaid")
commissions = CkXml::ckGetChildContent(xml,"AccountPortfolio|Position[i]|commissions")
otherFees = CkXml::ckGetChildContent(xml,"AccountPortfolio|Position[i]|otherFees")
quantity = CkXml::ckGetChildIntValue(xml,"AccountPortfolio|Position[i]|quantity")
positionIndicator = CkXml::ckGetChildContent(xml,"AccountPortfolio|Position[i]|positionIndicator")
positionType = CkXml::ckGetChildContent(xml,"AccountPortfolio|Position[i]|positionType")
daysGain = CkXml::ckGetChildContent(xml,"AccountPortfolio|Position[i]|daysGain")
daysGainPct = CkXml::ckGetChildContent(xml,"AccountPortfolio|Position[i]|daysGainPct")
marketValue = CkXml::ckGetChildContent(xml,"AccountPortfolio|Position[i]|marketValue")
totalCost = CkXml::ckGetChildContent(xml,"AccountPortfolio|Position[i]|totalCost")
totalGain = CkXml::ckGetChildContent(xml,"AccountPortfolio|Position[i]|totalGain")
totalGainPct = CkXml::ckGetChildContent(xml,"AccountPortfolio|Position[i]|totalGainPct")
pctOfPortfolio = CkXml::ckGetChildContent(xml,"AccountPortfolio|Position[i]|pctOfPortfolio")
costPerShare = CkXml::ckGetChildContent(xml,"AccountPortfolio|Position[i]|costPerShare")
todayCommissions = CkXml::ckGetChildIntValue(xml,"AccountPortfolio|Position[i]|todayCommissions")
todayFees = CkXml::ckGetChildIntValue(xml,"AccountPortfolio|Position[i]|todayFees")
todayPricePaid = CkXml::ckGetChildIntValue(xml,"AccountPortfolio|Position[i]|todayPricePaid")
todayQuantity = CkXml::ckGetChildIntValue(xml,"AccountPortfolio|Position[i]|todayQuantity")
change = CkXml::ckGetChildContent(xml,"AccountPortfolio|Position[i]|Quick|change")
changePct = CkXml::ckGetChildContent(xml,"AccountPortfolio|Position[i]|Quick|changePct")
lastTrade = CkXml::ckGetChildContent(xml,"AccountPortfolio|Position[i]|Quick|lastTrade")
lastTradeTime = CkXml::ckGetChildIntValue(xml,"AccountPortfolio|Position[i]|Quick|lastTradeTime")
volume = CkXml::ckGetChildIntValue(xml,"AccountPortfolio|Position[i]|Quick|volume")
lotsDetails = CkXml::ckGetChildContent(xml,"AccountPortfolio|Position[i]|lotsDetails")
quoteDetails = CkXml::ckGetChildContent(xml,"AccountPortfolio|Position[i]|quoteDetails")
i = i + 1
Wend
totalPages = CkXml::ckGetChildIntValue(xml,"AccountPortfolio|totalPages")
Debug "Success."
CkHttp::ckDispose(http)
CkJsonObject::ckDispose(jsonToken)
CkHttpResponse::ckDispose(resp)
CkXml::ckDispose(xml)
ProcedureReturn
EndProcedure