Visual FoxPro

Xero Add a Payroll Timesheet with Lines

Demonstrates how to POST a timesheet with lines (for Xero Payroll).

Note: This example requires Chilkat v9.5.0.64 or greater.

Visual FoxPro

LOCAL lnSuccess
LOCAL loRest
LOCAL loXml
LOCAL lcTagPath
LOCAL lcResponseXml

lnSuccess = 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.

loRest = CreateObject('Chilkat.Rest')

* 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..

* --------------------------------------------------------------
* Build the following XML:

* 	<Timesheets> 
* 	  <Timesheet>  
* 	    <EmployeeID>1f606d28-0537-42af-80ce-312d449458af</EmployeeID> 
* 	    <StartDate>2016-11-22</StartDate> 
* 	    <EndDate>2016-11-28</EndDate> 
* 	    <Status>Draft</Status> 
* 	    <TimesheetLines> 
* 	        <TimesheetLine> 
* 	            <EarningsRateID>2c4fbb29-aa68-4a8d-bc05-3f6366f75227</EarningsRateID> 
* 	            <NumberOfUnits> 
* 	                <NumberOfUnit>8.00</NumberOfUnit> 
* 	                <NumberOfUnit>8.00</NumberOfUnit> 
* 	                <NumberOfUnit>8.00</NumberOfUnit> 
* 	                <NumberOfUnit>8.00</NumberOfUnit> 
* 	                <NumberOfUnit>8.00</NumberOfUnit> 
* 	                <NumberOfUnit>0.00</NumberOfUnit> 
* 	                <NumberOfUnit>0.00</NumberOfUnit> 
* 	            </NumberOfUnits> 
* 	        </TimesheetLine> 
* 	    </TimesheetLines> 
* 	  </Timesheet> 
* 	</Timesheets>  

loXml = CreateObject('Chilkat.Xml')
loXml.Tag = "Timesheets"
loXml.NewChild2("Timesheet|EmployeeID","1f606d28-0537-42af-80ce-312d449458af")
loXml.NewChild2("Timesheet|StartDate","2016-11-22")
loXml.NewChild2("Timesheet|EndDate","2016-11-28")
loXml.NewChild2("Timesheet|Status","Draft")
loXml.NewChild2("Timesheet|TimesheetLines|TimesheetLine|EarningsRateID","2c4fbb29-aa68-4a8d-bc05-3f6366f75227")
lcTagPath = "Timesheet|TimesheetLines|TimesheetLine|NumberOfUnits|NumberOfUnit"
loXml.NewChild2(lcTagPath,"8.00")
loXml.NewChild2(lcTagPath,"8.00")
loXml.NewChild2(lcTagPath,"8.00")
loXml.NewChild2(lcTagPath,"8.00")
loXml.NewChild2(lcTagPath,"8.00")
loXml.NewChild2(lcTagPath,"0.00")
loXml.NewChild2(lcTagPath,"0.00")

* Do not emit the XML declarator. Xero does not accept the XML if it
* has the initial line: <?xml version="1.0" encoding="utf-8"?>
loXml.EmitXmlDecl = 0
? loXml.GetXml()
? "--"

loXml.EmitCompact = 1

loRest.AddQueryParam("xml",loXml.GetXml())

lcResponseXml = loRest.FullRequestFormUrlEncoded("POST","/payroll.xro/1.0/Timesheets")
IF (loRest.LastMethodSuccess <> 1) THEN
    ? loRest.LastErrorText
    RELEASE loRest
    RELEASE loXml
    CANCEL
ENDIF

* A 200 response is expected for actual success.
IF (loRest.ResponseStatusCode <> 200) THEN
    ? lcResponseXml
    RELEASE loRest
    RELEASE loXml
    CANCEL
ENDIF

* Examine the XML response
loXml.LoadXml(lcResponseXml)
? loXml.GetXml()

* A successful XML response is as follows:

* 	<Response xmlns:i="http://www.w3.org/2001/XMLSchema-instance">
* 	    <Id>f213ed01-5a70-4adf-b11f-1aa0c74b96ac</Id>
* 	    <Status>OK</Status>
* 	    <ProviderName>ChilkatAU</ProviderName>
* 	    <DateTimeUTC>2016-11-11T22:39:10.2293174Z</DateTimeUTC>
* 	    <Timesheets>
* 	        <Timesheet>
* 	            <TimesheetID>f62b4437-62b8-4d21-b0c6-791999652712</TimesheetID>
* 	            <EmployeeID>1f606d28-0537-42af-80ce-312d449458af</EmployeeID>
* 	            <StartDate>2016-11-22T00:00:00</StartDate>
* 	            <EndDate>2016-11-28T00:00:00</EndDate>
* 	            <Status>DRAFT</Status>
* 	            <Hours>40.00</Hours>
* 	            <TimesheetLines>
* 	                <TimesheetLine>
* 	                    <EarningsRateID>2c4fbb29-aa68-4a8d-bc05-3f6366f75227</EarningsRateID>
* 	                    <NumberOfUnits>
* 	                        <NumberOfUnit>8.00</NumberOfUnit>
* 	                        <NumberOfUnit>8.00</NumberOfUnit>
* 	                        <NumberOfUnit>8.00</NumberOfUnit>
* 	                        <NumberOfUnit>8.00</NumberOfUnit>
* 	                        <NumberOfUnit>8.00</NumberOfUnit>
* 	                        <NumberOfUnit>0.00</NumberOfUnit>
* 	                        <NumberOfUnit>0.00</NumberOfUnit>
* 	                    </NumberOfUnits>
* 	                    <UpdatedDateUTC>2016-11-11T22:39:10.1824429</UpdatedDateUTC>
* 	                </TimesheetLine>
* 	            </TimesheetLines>
* 	            <UpdatedDateUTC>2016-11-11T22:39:10.1824429</UpdatedDateUTC>
* 	        </Timesheet>
* 	    </Timesheets>
* 	</Response

RELEASE loRest
RELEASE loXml