Tcl

Xero Export Accounts to CSV

Demonstrates how to export Accounts data to a CSV.

Note: Requires Chilkat v9.5.0.64 or greater.

Tcl

load ./chilkat.dll

set success 0

# Note: Requires Chilkat v9.5.0.64 or greater.

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

set rest [new_CkRest]

# Before sending REST API calls, the REST object needs to be
# initialized for OAuth1.
# See Xero 2-Legged OAuth1 Setup for sample code.

# Assuming the REST object's OAuth1 authenticator is setup, and the initial
# connection was made, we may now send REST HTTP requests..

# Get the full list of accounts.
set sbXml [new_CkStringBuilder]

set success [CkRest_FullRequestNoBodySb $rest "GET" "/api.xro/2.0/Accounts" $sbXml]
if {$success != 1} then {
    puts [CkRest_lastErrorText $rest]
    delete_CkRest $rest
    delete_CkStringBuilder $sbXml
    exit
}

# A 200 response is expected for actual success.
if {[CkRest_get_ResponseStatusCode $rest] != 200} then {
    puts [CkStringBuilder_getAsString $sbXml]
    delete_CkRest $rest
    delete_CkStringBuilder $sbXml
    exit
}

# Build a CSV containing a few Account fields.
set csv [new_CkCsv]

CkCsv_put_HasColumnNames $csv 1
CkCsv_SetColumnName $csv 0 "AccountID"
CkCsv_SetColumnName $csv 1 "Name"
CkCsv_SetColumnName $csv 2 "Code"
CkCsv_SetColumnName $csv 3 "EnablePaymentsToAccount"

# Iterate over the accounts and build the CSV.
set bAutoTrim 0
set xml [new_CkXml]

CkXml_LoadSb $xml $sbXml $bAutoTrim

set numAccounts [CkXml_NumChildrenAt $xml "Accounts"]
set i 0
while {$i < $numAccounts} {
    CkXml_put_I $xml $i
    CkCsv_SetCellByName $csv $i "AccountID" [CkXml_getChildContent $xml "Accounts|Account[i]|AccountID"]
    CkCsv_SetCellByName $csv $i "Name" [CkXml_getChildContent $xml "Accounts|Account[i]|Name"]
    CkCsv_SetCellByName $csv $i "Code" [CkXml_getChildContent $xml "Accounts|Account[i]|Code"]
    CkCsv_SetCellByName $csv $i "EnablePaymentsToAccount" [CkXml_getChildContent $xml "Accounts|Account[i]|EnablePaymentsToAccount"]
    set i [expr $i + 1]
}

# Examine the CSV.
puts [CkCsv_saveToString $csv]

# Save the CSV to a file.
CkCsv_SaveFile $csv "qa_output/xero_accounts.csv"

delete_CkRest $rest
delete_CkStringBuilder $sbXml
delete_CkCsv $csv
delete_CkXml $xml