Visual FoxPro
Visual FoxPro
Xero Get Payroll Employees
See more Xero Examples
Download Xero employees informationChilkat Visual FoxPro Downloads
LOCAL lnSuccess
LOCAL loHttp
LOCAL loJsonToken
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
lnSuccess = 0
* This example requires the Chilkat API to have been previously unlocked.
* See Global Unlock Sample for sample code.
loHttp = CreateObject('Chilkat.Http')
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 = CreateObject('Chilkat.HttpResponse')
lnSuccess = loHttp.HttpNoBody("GET","https://api.xero.com/payroll.xro/1.0/Employees",loResp)
IF (lnSuccess = 0) THEN
? loHttp.LastErrorText
RELEASE loHttp
RELEASE loJsonToken
RELEASE loResp
CANCEL
ENDIF
? "Response Status Code: " + STR(loResp.StatusCode)
loJson = CreateObject('Chilkat.JsonObject')
loJson.Load(loResp.BodyStr)
loJson.EmitCompact = 0
? loJson.Emit()
IF (loResp.StatusCode <> 200) THEN
? "Failed."
RELEASE loHttp
RELEASE loJsonToken
RELEASE loResp
RELEASE loJson
CANCEL
ENDIF
* 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 loResp
RELEASE loJson