(Visual FoxPro) Xero Get Payroll Employees

Download Xero employees information

For more information, see https://developer.xero.com/documentation/payroll-api/employees

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL loHttp
LOCAL loJsonToken
LOCAL lnSuccess
LOCAL loResp
LOCAL loJson
LOCAL lcEmployeeID
LOCAL lcFirstName
LOCAL lcLastName
LOCAL lcV_Email
LOCAL lcDateOfBirth
LOCAL lcGender
LOCAL lcPhone
LOCAL lcMobile
LOCAL lcStartDate
LOCAL lcOrdinaryEarningsRateID
LOCAL lcPayrollCalendarID
LOCAL lcUpdatedDateUTC
LOCAL lcId
LOCAL lcStatus
LOCAL lcProviderName
LOCAL lcDateTimeUTC
LOCAL i
LOCAL lnCount_i

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

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Http')
loHttp = CreateObject('Chilkat.Http')

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.JsonObject')
loJsonToken = CreateObject('Chilkat.JsonObject')
lnSuccess = loJsonToken.LoadFile("qa_data/tokens/xero-access-token.json")
IF (lnSuccess = 0) THEN
    ? loJsonToken.LastErrorText
    RELEASE loHttp
    RELEASE loJsonToken
    CANCEL
ENDIF

loHttp.AuthToken = loJsonToken.StringOf("access_token")

* Replace the value here with an actual tenant ID obtained from this example:
* Get Xero Tenant IDs
loHttp.SetRequestHeader("Xero-tenant-id","83299b9e-5747-4a14-a18a-a6c94f824eb7")

loHttp.Accept = "application/json"

loResp = loHttp.QuickRequest("GET","https://api.xero.com/payroll.xro/1.0/Employees")
IF (loHttp.LastMethodSuccess <> 1) THEN
    ? loHttp.LastErrorText
    RELEASE loHttp
    RELEASE loJsonToken
    CANCEL
ENDIF

? "Response Status Code: " + STR(loResp.StatusCode)

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.JsonObject')
loJson = CreateObject('Chilkat.JsonObject')
loJson.Load(loResp.BodyStr)
loJson.EmitCompact = 0
? loJson.Emit()

IF (loResp.StatusCode <> 200) THEN
    ? "Failed."
    RELEASE loResp
    RELEASE loHttp
    RELEASE loJsonToken
    RELEASE loJson
    CANCEL
ENDIF

RELEASE loResp

* 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)\/"
*     }
*   ]
* }

lcId = loJson.StringOf("Id")
lcStatus = loJson.StringOf("Status")
lcProviderName = loJson.StringOf("ProviderName")
lcDateTimeUTC = loJson.StringOf("DateTimeUTC")
i = 0
lnCount_i = loJson.SizeOfArray("Employees")
DO WHILE i < lnCount_i
    loJson.I = i
    lcEmployeeID = loJson.StringOf("Employees[i].EmployeeID")
    lcFirstName = loJson.StringOf("Employees[i].FirstName")
    lcLastName = loJson.StringOf("Employees[i].LastName")
    lcStatus = loJson.StringOf("Employees[i].Status")
    lcV_Email = loJson.StringOf("Employees[i].Email")
    lcDateOfBirth = loJson.StringOf("Employees[i].DateOfBirth")
    lcGender = loJson.StringOf("Employees[i].Gender")
    lcPhone = loJson.StringOf("Employees[i].Phone")
    lcMobile = loJson.StringOf("Employees[i].Mobile")
    lcStartDate = loJson.StringOf("Employees[i].StartDate")
    lcOrdinaryEarningsRateID = loJson.StringOf("Employees[i].OrdinaryEarningsRateID")
    lcPayrollCalendarID = loJson.StringOf("Employees[i].PayrollCalendarID")
    lcUpdatedDateUTC = loJson.StringOf("Employees[i].UpdatedDateUTC")
    i = i + 1
ENDDO

RELEASE loHttp
RELEASE loJsonToken
RELEASE loJson