Chilkat Examples

ChilkatHOMEAndroid™Classic ASPCC++C#Mono C#.NET Core C#C# UWP/WinRTDataFlexDelphi ActiveXDelphi DLLVisual FoxProJavaLianjaMFCObjective-CPerlPHP ActiveXPHP ExtensionPowerBuilderPowerShellPureBasicCkPythonChilkat2-PythonRubySQL ServerSwift 2Swift 3/4TclUnicode CUnicode C++Visual Basic 6.0VB.NETVB.NET UWP/WinRTVBScriptXojo PluginNode.jsExcelGo

Tcl Web API Examples

Primary Categories

Facebook
GeoOp
Jira
PayPal
Peoplevox
QuickBooks

Shopify
Stripe
SugarCRM
Twitter
VoiceBase
Walmart
Xero
eBay
effectconnect

 

 

 

(Tcl) 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.

Chilkat Tcl Extension Downloads

Chilkat Tcl Extension Downloads

load ./chilkat.dll

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

# --------------------------------------------------------------
# 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>  

set xml [new_CkXml]

CkXml_put_Tag $xml "Timesheets"
CkXml_NewChild2 $xml "Timesheet|EmployeeID" "1f606d28-0537-42af-80ce-312d449458af"
CkXml_NewChild2 $xml "Timesheet|StartDate" "2016-11-22"
CkXml_NewChild2 $xml "Timesheet|EndDate" "2016-11-28"
CkXml_NewChild2 $xml "Timesheet|Status" "Draft"
CkXml_NewChild2 $xml "Timesheet|TimesheetLines|TimesheetLine|EarningsRateID" "2c4fbb29-aa68-4a8d-bc05-3f6366f75227"
set tagPath "Timesheet|TimesheetLines|TimesheetLine|NumberOfUnits|NumberOfUnit"
CkXml_NewChild2 $xml $tagPath "8.00"
CkXml_NewChild2 $xml $tagPath "8.00"
CkXml_NewChild2 $xml $tagPath "8.00"
CkXml_NewChild2 $xml $tagPath "8.00"
CkXml_NewChild2 $xml $tagPath "8.00"
CkXml_NewChild2 $xml $tagPath "0.00"
CkXml_NewChild2 $xml $tagPath "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"?>
CkXml_put_EmitXmlDecl $xml 0
puts [CkXml_getXml $xml]
puts "--"

CkXml_put_EmitCompact $xml 1

CkRest_AddQueryParam $rest "xml" [CkXml_getXml $xml]

set responseXml [CkRest_fullRequestFormUrlEncoded $rest "POST" "/payroll.xro/1.0/Timesheets"]
if {[expr [CkRest_get_LastMethodSuccess $rest] != 1]} then {
    puts [CkRest_lastErrorText $rest]
    delete_CkRest $rest
    delete_CkXml $xml
    exit
}

# A 200 response is expected for actual success.
if {[expr [CkRest_get_ResponseStatusCode $rest] != 200]} then {
    puts "$responseXml"
    delete_CkRest $rest
    delete_CkXml $xml
    exit
}

# Examine the XML response
CkXml_LoadXml $xml $responseXml
puts [CkXml_getXml $xml]

# 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

delete_CkRest $rest
delete_CkXml $xml

 

© 2000-2019 Chilkat Software, Inc. All Rights Reserved.