Tcl
Xero Get Payroll Employees

Download Xero employees information
Chilkat Tcl Downloads

Tcl

load ./chilkat.dll

set success 0

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

set http [new_CkHttp]

set jsonToken [new_CkJsonObject]

set success [CkJsonObject_LoadFile $jsonToken "qa_data/tokens/xero-access-token.json"]
if {$success == 0} then {
    puts [CkJsonObject_lastErrorText $jsonToken]
    delete_CkHttp $http
    delete_CkJsonObject $jsonToken
    exit
}

CkHttp_put_AuthToken $http [CkJsonObject_stringOf $jsonToken "access_token"]

# Replace the value here with an actual tenant ID obtained from this example:
# Get Xero Tenant IDs
CkHttp_SetRequestHeader $http "Xero-tenant-id" "83299b9e-5747-4a14-a18a-a6c94f824eb7"

CkHttp_put_Accept $http "application/json"

set resp [new_CkHttpResponse]

set success [CkHttp_HttpNoBody $http "GET" "https://api.xero.com/payroll.xro/1.0/Employees" $resp]
if {$success == 0} then {
    puts [CkHttp_lastErrorText $http]
    delete_CkHttp $http
    delete_CkJsonObject $jsonToken
    delete_CkHttpResponse $resp
    exit
}

puts "Response Status Code: [CkHttpResponse_get_StatusCode $resp]"

set json [new_CkJsonObject]

CkJsonObject_Load $json [CkHttpResponse_bodyStr $resp]
CkJsonObject_put_EmitCompact $json 0
puts [CkJsonObject_emit $json]

if {[CkHttpResponse_get_StatusCode $resp] != 200} then {
    puts "Failed."
    delete_CkHttp $http
    delete_CkJsonObject $jsonToken
    delete_CkHttpResponse $resp
    delete_CkJsonObject $json
    exit
}

# Sample response
# (See the parsing code below..)
# 
# Use the this online tool to generate parsing code from sample JSON: 
# Generate Parsing Code from JSON

# {
#   "Id": "796cae61-a7c3-425b-a621-372ab1f29460",
#   "Status": "OK",
#   "ProviderName": "Chilkat2222",
#   "DateTimeUTC": "\/Date(1587075322768)\/",
#   "Employees": [
#     {
#       "EmployeeID": "f12e3b0b-4b4c-4523-b8c0-f481a07bfd13",
#       "FirstName": "James",
#       "LastName": "Lebron",
#       "Status": "ACTIVE",
#       "Email": "JL@madeup.email.com",
#       "DateOfBirth": "\/Date(492739200000+0000)\/",
#       "Gender": "M",
#       "Phone": "0400-000-123",
#       "Mobile": " 408-230-9732",
#       "StartDate": "\/Date(1548806400000+0000)\/",
#       "OrdinaryEarningsRateID": "e648f7bf-af43-41bc-98ea-e7ca94c3e3b1",
#       "PayrollCalendarID": "2cf6326a-d48b-41bf-bf36-7a73b42dd71b",
#       "UpdatedDateUTC": "\/Date(1587075120000+0000)\/"
#     },
#     {
#       "EmployeeID": "d9f5979f-1de8-4040-aa1d-f1fdd327f893",
#       "FirstName": "Odette",
#       "LastName": "Garrison",
#       "Status": "ACTIVE",
#       "Email": "ogg@madeup.email.com",
#       "DateOfBirth": "\/Date(390528000000+0000)\/",
#       "Gender": "F",
#       "Phone": "9000 1234",
#       "StartDate": "\/Date(1554422400000+0000)\/",
#       "OrdinaryEarningsRateID": "e648f7bf-af43-41bc-98ea-e7ca94c3e3b1",
#       "PayrollCalendarID": "ec0f2f68-f4d1-4490-af70-78e5d7f5dcbd",
#       "UpdatedDateUTC": "\/Date(1587075120000+0000)\/"
#     },
#     {
#       "EmployeeID": "22879fb4-d13b-46ed-9c07-e43aba25b576",
#       "FirstName": "Oliver",
#       "LastName": "Gray",
#       "Status": "ACTIVE",
#       "Email": "og@madeup.email.com",
#       "DateOfBirth": "\/Date(94176000000+0000)\/",
#       "Gender": "M",
#       "Phone": "0401 123 456",
#       "StartDate": "\/Date(1562112000000+0000)\/",
#       "OrdinaryEarningsRateID": "e648f7bf-af43-41bc-98ea-e7ca94c3e3b1",
#       "PayrollCalendarID": "2cf6326a-d48b-41bf-bf36-7a73b42dd71b",
#       "UpdatedDateUTC": "\/Date(1587075120000+0000)\/"
#     },
#     {
#       "EmployeeID": "c4d82c18-b1a9-4b6c-982c-14b45b95c10a",
#       "FirstName": "Sally ",
#       "LastName": "Martin",
#       "Status": "ACTIVE",
#       "Email": "sm@madeup3993.com",
#       "DateOfBirth": "\/Date(659577600000+0000)\/",
#       "Gender": "F",
#       "Phone": "0400 123 456",
#       "StartDate": "\/Date(1577750400000+0000)\/",
#       "OrdinaryEarningsRateID": "e648f7bf-af43-41bc-98ea-e7ca94c3e3b1",
#       "PayrollCalendarID": "2cf6326a-d48b-41bf-bf36-7a73b42dd71b",
#       "UpdatedDateUTC": "\/Date(1587075120000+0000)\/"
#     },
#     {
#       "EmployeeID": "e1a5eed0-721e-482d-b1f1-0b73506f26fb",
#       "FirstName": "Sonia",
#       "LastName": "Michaels",
#       "Status": "ACTIVE",
#       "Email": "som@madeup3993.com",
#       "DateOfBirth": "\/Date(727660800000+0000)\/",
#       "Gender": "F",
#       "Phone": "02 2345 6789",
#       "Mobile": " ",
#       "UpdatedDateUTC": "\/Date(1587075120000+0000)\/"
#     },
#     {
#       "EmployeeID": "882587ac-1cfe-4f55-9b37-932b0705cd04",
#       "FirstName": "Tracy",
#       "LastName": "Green",
#       "Status": "ACTIVE",
#       "Email": "tg@madeup.email.com",
#       "DateOfBirth": "\/Date(712886400000+0000)\/",
#       "Gender": "F",
#       "Phone": "0402 123 456",
#       "StartDate": "\/Date(1556755200000+0000)\/",
#       "OrdinaryEarningsRateID": "e648f7bf-af43-41bc-98ea-e7ca94c3e3b1",
#       "PayrollCalendarID": "ec0f2f68-f4d1-4490-af70-78e5d7f5dcbd",
#       "UpdatedDateUTC": "\/Date(1587075120000+0000)\/"
#     }
#   ]
# }

set Id [CkJsonObject_stringOf $json "Id"]
set Status [CkJsonObject_stringOf $json "Status"]
set ProviderName [CkJsonObject_stringOf $json "ProviderName"]
set DateTimeUTC [CkJsonObject_stringOf $json "DateTimeUTC"]
set i 0
set count_i [CkJsonObject_SizeOfArray $json "Employees"]
while {$i < $count_i} {
    CkJsonObject_put_I $json $i
    set EmployeeID [CkJsonObject_stringOf $json "Employees[i].EmployeeID"]
    set FirstName [CkJsonObject_stringOf $json "Employees[i].FirstName"]
    set LastName [CkJsonObject_stringOf $json "Employees[i].LastName"]
    set Status [CkJsonObject_stringOf $json "Employees[i].Status"]
    set v_Email [CkJsonObject_stringOf $json "Employees[i].Email"]
    set DateOfBirth [CkJsonObject_stringOf $json "Employees[i].DateOfBirth"]
    set Gender [CkJsonObject_stringOf $json "Employees[i].Gender"]
    set Phone [CkJsonObject_stringOf $json "Employees[i].Phone"]
    set Mobile [CkJsonObject_stringOf $json "Employees[i].Mobile"]
    set StartDate [CkJsonObject_stringOf $json "Employees[i].StartDate"]
    set OrdinaryEarningsRateID [CkJsonObject_stringOf $json "Employees[i].OrdinaryEarningsRateID"]
    set PayrollCalendarID [CkJsonObject_stringOf $json "Employees[i].PayrollCalendarID"]
    set UpdatedDateUTC [CkJsonObject_stringOf $json "Employees[i].UpdatedDateUTC"]
    set i [expr $i + 1]
}

delete_CkHttp $http
delete_CkJsonObject $jsonToken
delete_CkHttpResponse $resp
delete_CkJsonObject $json