Visual FoxPro

Xero Upload Attachment

See more Xero Examples

Demonstrates how to upload an attachment to Xero. Visual FoxPro

LOCAL lnSuccess
LOCAL loHttp
LOCAL loJsonToken
LOCAL lcUrl
LOCAL loBd
LOCAL loResp
LOCAL loJsonResponse

lnSuccess = 0

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

loHttp = CreateObject('Chilkat.Http')

* Important: Make sure your OAuth2 access token was obtained with the scope "accounting.attachments"
* included in the list of scopes.

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"

lcUrl = "https://api.xero.com/api.xro/2.0/{$Endpoint}/{$Guid}/Attachments/{$Filename}"

* Endpoint can be Invoices, Receipts, CreditNotes, PurchaseOrders, etc.
loHttp.SetUrlVar("Endpoint","Invoices")

* Guid is the ID of the item, such as the InvoiceID.
loHttp.SetUrlVar("Guid","0032f627-3156-4d30-9b1c-4d3b994dc921")

* Filename is the filename of the attachment you are uploading.
loHttp.SetUrlVar("Filename","penguins.jpg")

* Load the file to be uploaded (from the local filesystem).
loBd = CreateObject('Chilkat.BinData')
lnSuccess = loBd.LoadFile("qa_data/jpg/penguins.jpg")
IF (lnSuccess = 0) THEN
    ? "Failed to load attachment file."
    RELEASE loHttp
    RELEASE loJsonToken
    RELEASE loBd
    CANCEL
ENDIF

* Indicate the content-type according to the file content type.
* Common content-types are:   image/jpg, image/png, application/pdf, application/zip, application/msword
* If you don't know, use application/octet-stream
loResp = CreateObject('Chilkat.HttpResponse')
lnSuccess = loHttp.HttpBd("POST",lcUrl,loBd,"image/jpg",loResp)
IF (lnSuccess = 0) THEN
    ? loHttp.LastErrorText
    RELEASE loHttp
    RELEASE loJsonToken
    RELEASE loBd
    RELEASE loResp
    CANCEL
ENDIF

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

loJsonResponse = CreateObject('Chilkat.JsonObject')
loJsonResponse.Load(loResp.BodyStr)
loJsonResponse.EmitCompact = 0
? loJsonResponse.Emit()

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

* A sample response:

* Use this online tool to generate parsing code from sample JSON: 
* Generate Parsing Code from JSON

* {
*   "Id": "35333c64-4449-457b-bf6a-1b64d538e3c7",
*   "Status": "OK",
*   "ProviderName": "Chilkat2222",
*   "DateTimeUTC": "\/Date(1587212597758)\/",
*   "Attachments": [
*     {
*       "AttachmentID": "daf106e2-8634-4349-bfcc-86c1df0793b2",
*       "FileName": "penguins.jpg",
*       "Url": "https://api.xero.com/api.xro/2.0/Invoices/0032f627-3156-4d30-9b1c-4d3b994dc921/Attachments/penguins.jpg",
*       "MimeType": "image/jpg",
*       "ContentLength": 777835
*     }
*   ]
* }

RELEASE loHttp
RELEASE loJsonToken
RELEASE loBd
RELEASE loResp
RELEASE loJsonResponse