Pascal (Lazarus/Delphi)
Pascal (Lazarus/Delphi)
Xero Get Invoices
See more Xero Examples
Get Xero company invoices.Chilkat Pascal (Lazarus/Delphi) Downloads
program ChilkatDemo;
// Demonstrates using the Chilkat Pascal wrapper via the C bridge DLL.
// Builds as a console application under Lazarus (FPC) or Delphi.
{$IFDEF FPC}
{$MODE DELPHI}
{$ENDIF}
{$APPTYPE CONSOLE}
uses
{$IFDEF UNIX}
cthreads,
{$ENDIF}
SysUtils,
CkDllLoader,
Chilkat.Http,
Chilkat.HttpResponse,
Chilkat.JsonObject;
// ---------------------------------------------------------------------------
procedure RunDemo;
var
success: Boolean;
http: THttp;
jsonToken: TJsonObject;
resp: THttpResponse;
jsonResponse: TJsonObject;
Type: string;
InvoiceID: string;
InvoiceNumber: string;
Reference: string;
AmountDue: string;
AmountPaid: string;
AmountCredited: string;
IsDiscounted: Boolean;
HasAttachments: Boolean;
HasErrors: Boolean;
ContactContactID: string;
ContactName: string;
ContactHasValidationErrors: Boolean;
DateString: string;
Date: string;
DueDateString: string;
DueDate: string;
LineAmountTypes: string;
SubTotal: string;
TotalTax: string;
Total: string;
UpdatedDateUTC: string;
CurrencyCode: string;
FullyPaidOnDate: string;
CurrencyRate: string;
j: Integer;
count_j: Integer;
PaymentID: string;
Amount: string;
HasAccount: Boolean;
HasValidationErrors: Boolean;
CreditNoteID: string;
CreditNoteNumber: string;
ID: string;
AppliedAmount: string;
k: Integer;
count_k: Integer;
Id: string;
Status: string;
ProviderName: string;
DateTimeUTC: string;
i: Integer;
count_i: Integer;
begin
success := False;
// This example requires the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.
http := THttp.Create;
jsonToken := TJsonObject.Create;
success := jsonToken.LoadFile('qa_data/tokens/xero-access-token.json');
if (success = False) then
begin
WriteLn(jsonToken.LastErrorText);
Exit;
end;
http.AuthToken := jsonToken.StringOf('access_token');
// Replace the value here with an actual tenant ID obtained from this example:
// Get Xero Tenant IDs
http.SetRequestHeader('Xero-tenant-id','83299b9e-5747-4a14-a18a-a6c94f824eb7');
http.Accept := 'application/json';
resp := THttpResponse.Create;
success := http.HttpNoBody('GET','https://api.xero.com/api.xro/2.0/Invoices',resp);
if (success = False) then
begin
WriteLn(http.LastErrorText);
Exit;
end;
WriteLn('Response Status Code: ' + resp.StatusCode);
jsonResponse := TJsonObject.Create;
jsonResponse.Load(resp.BodyStr);
jsonResponse.EmitCompact := False;
WriteLn(jsonResponse.Emit());
if (resp.StatusCode <> 200) then
begin
WriteLn('Failed.');
Exit;
end;
// Sample output...
// (See the parsing code below..)
//
// Use the this online tool to generate parsing code from sample JSON:
// Generate Parsing Code from JSON
// {
// "Id": "bda1f62f-0d63-4178-8d54-e91fd226987a",
// "Status": "OK",
// "ProviderName": "Chilkat2222",
// "DateTimeUTC": "\/Date(1587210234493)\/",
// "Invoices": [
// {
// "Type": "ACCPAY",
// "InvoiceID": "0032f627-3156-4d30-9b1c-4d3b994dc921",
// "InvoiceNumber": "9871",
// "Reference": "",
// "Payments": [
// {
// "PaymentID": "22974891-3689-4694-9ee7-fd2ba917af55",
// "Date": "\/Date(1579737600000+0000)\/",
// "Amount": 148.50,
// "Reference": "Chq 409",
// "HasAccount": false,
// "HasValidationErrors": false
// }
// ],
// "CreditNotes": [
// ],
// "Prepayments": [
// ],
// "Overpayments": [
// ],
// "AmountDue": 0.00,
// "AmountPaid": 148.50,
// "AmountCredited": 0.00,
// "IsDiscounted": false,
// "HasAttachments": false,
// "HasErrors": false,
// "Contact": {
// "ContactID": "d6a384fb-f46f-41a3-8ac7-b7bc9e0b5efa",
// "Name": "Melrose Parking",
// "Addresses": [
// ],
// "Phones": [
// ],
// "ContactGroups": [
// ],
// "ContactPersons": [
// ],
// "HasValidationErrors": false
// },
// "DateString": "2020-01-15T00:00:00",
// "Date": "\/Date(1579046400000+0000)\/",
// "DueDateString": "2020-01-24T00:00:00",
// "DueDate": "\/Date(1579824000000+0000)\/",
// "Status": "PAID",
// "LineAmountTypes": "Exclusive",
// "LineItems": [
// ],
// "SubTotal": 135.00,
// "TotalTax": 13.50,
// "Total": 148.50,
// "UpdatedDateUTC": "\/Date(1221560931500+0000)\/",
// "CurrencyCode": "AUD",
// "FullyPaidOnDate": "\/Date(1579737600000+0000)\/"
// },
// {
// "Type": "ACCPAY",
// "InvoiceID": "673dd7cc-beb7-4697-83d4-0c47cb400cc2",
// "InvoiceNumber": "",
// "Reference": "",
// "Payments": [
// {
// "PaymentID": "4d06f609-5200-4364-9c8b-d4379a945252",
// "Date": "\/Date(1580688000000+0000)\/",
// "Amount": 974.60,
// "Reference": "DD # 96013",
// "HasAccount": false,
// "HasValidationErrors": false
// }
// ],
// "CreditNotes": [
// {
// "CreditNoteID": "7df8949c-b71f-40c0-bbcf-39f2f450f286",
// "CreditNoteNumber": "03391",
// "ID": "7df8949c-b71f-40c0-bbcf-39f2f450f286",
// "HasErrors": false,
// "AppliedAmount": 218.90,
// "DateString": "2020-01-29T00:00:00",
// "Date": "\/Date(1580256000000+0000)\/",
// "LineItems": [
// ],
// "Total": 218.90
// }
// ],
// "Prepayments": [
// ],
// "Overpayments": [
// ],
// "AmountDue": 0.00,
// "AmountPaid": 974.60,
// "AmountCredited": 218.90,
// "IsDiscounted": false,
// "HasAttachments": false,
// "HasErrors": false,
// "Contact": {
// "ContactID": "d0cd2c4f-18a0-4f7c-a32a-2db00f29d298",
// "Name": "PC Complete",
// "Addresses": [
// ],
// "Phones": [
// ],
// "ContactGroups": [
// ],
// "ContactPersons": [
// ],
// "HasValidationErrors": false
// },
// "DateString": "2020-01-28T00:00:00",
// "Date": "\/Date(1580169600000+0000)\/",
// "DueDateString": "2020-02-04T00:00:00",
// "DueDate": "\/Date(1580774400000+0000)\/",
// "Status": "PAID",
// "LineAmountTypes": "Exclusive",
// "LineItems": [
// ],
// "SubTotal": 1085.00,
// "TotalTax": 108.50,
// "Total": 1193.50,
// "UpdatedDateUTC": "\/Date(1221561913790+0000)\/",
// "CurrencyCode": "AUD",
// "FullyPaidOnDate": "\/Date(1580688000000+0000)\/"
// },
// {
// "Type": "ACCPAY",
// "InvoiceID": "c12aff7e-12bf-4185-8702-460929f19674",
// "InvoiceNumber": "",
// "Reference": "",
// "Payments": [
// ],
// "CreditNotes": [
// ],
// "Prepayments": [
// ],
// "Overpayments": [
// ],
// "AmountDue": 2166.99,
// "AmountPaid": 0.00,
// "AmountCredited": 0.00,
// "CurrencyRate": 1.000000,
// "IsDiscounted": false,
// "HasAttachments": false,
// "HasErrors": false,
// "Contact": {
// "ContactID": "d0cd2c4f-18a0-4f7c-a32a-2db00f29d298",
// "Name": "PC Complete",
// "Addresses": [
// ],
// "Phones": [
// ],
// "ContactGroups": [
// ],
// "ContactPersons": [
// ],
// "HasValidationErrors": false
// },
// "DateString": "2020-04-10T00:00:00",
// "Date": "\/Date(1586476800000+0000)\/",
// "DueDateString": "2020-05-05T00:00:00",
// "DueDate": "\/Date(1588636800000+0000)\/",
// "Status": "AUTHORISED",
// "LineAmountTypes": "Exclusive",
// "LineItems": [
// ],
// "SubTotal": 1969.99,
// "TotalTax": 197.00,
// "Total": 2166.99,
// "UpdatedDateUTC": "\/Date(1497965301980+0000)\/",
// "CurrencyCode": "AUD"
// }
// ]
// }
//
Id := jsonResponse.StringOf('Id');
Status := jsonResponse.StringOf('Status');
ProviderName := jsonResponse.StringOf('ProviderName');
DateTimeUTC := jsonResponse.StringOf('DateTimeUTC');
i := 0;
count_i := jsonResponse.SizeOfArray('Invoices');
while i < count_i do
begin
jsonResponse.I := i;
Type := jsonResponse.StringOf('Invoices[i].Type');
InvoiceID := jsonResponse.StringOf('Invoices[i].InvoiceID');
InvoiceNumber := jsonResponse.StringOf('Invoices[i].InvoiceNumber');
Reference := jsonResponse.StringOf('Invoices[i].Reference');
AmountDue := jsonResponse.StringOf('Invoices[i].AmountDue');
AmountPaid := jsonResponse.StringOf('Invoices[i].AmountPaid');
AmountCredited := jsonResponse.StringOf('Invoices[i].AmountCredited');
IsDiscounted := jsonResponse.BoolOf('Invoices[i].IsDiscounted');
HasAttachments := jsonResponse.BoolOf('Invoices[i].HasAttachments');
HasErrors := jsonResponse.BoolOf('Invoices[i].HasErrors');
ContactContactID := jsonResponse.StringOf('Invoices[i].Contact.ContactID');
ContactName := jsonResponse.StringOf('Invoices[i].Contact.Name');
ContactHasValidationErrors := jsonResponse.BoolOf('Invoices[i].Contact.HasValidationErrors');
DateString := jsonResponse.StringOf('Invoices[i].DateString');
Date := jsonResponse.StringOf('Invoices[i].Date');
DueDateString := jsonResponse.StringOf('Invoices[i].DueDateString');
DueDate := jsonResponse.StringOf('Invoices[i].DueDate');
Status := jsonResponse.StringOf('Invoices[i].Status');
LineAmountTypes := jsonResponse.StringOf('Invoices[i].LineAmountTypes');
SubTotal := jsonResponse.StringOf('Invoices[i].SubTotal');
TotalTax := jsonResponse.StringOf('Invoices[i].TotalTax');
Total := jsonResponse.StringOf('Invoices[i].Total');
UpdatedDateUTC := jsonResponse.StringOf('Invoices[i].UpdatedDateUTC');
CurrencyCode := jsonResponse.StringOf('Invoices[i].CurrencyCode');
FullyPaidOnDate := jsonResponse.StringOf('Invoices[i].FullyPaidOnDate');
CurrencyRate := jsonResponse.StringOf('Invoices[i].CurrencyRate');
j := 0;
count_j := jsonResponse.SizeOfArray('Invoices[i].Payments');
while j < count_j do
begin
jsonResponse.J := j;
PaymentID := jsonResponse.StringOf('Invoices[i].Payments[j].PaymentID');
Date := jsonResponse.StringOf('Invoices[i].Payments[j].Date');
Amount := jsonResponse.StringOf('Invoices[i].Payments[j].Amount');
Reference := jsonResponse.StringOf('Invoices[i].Payments[j].Reference');
HasAccount := jsonResponse.BoolOf('Invoices[i].Payments[j].HasAccount');
HasValidationErrors := jsonResponse.BoolOf('Invoices[i].Payments[j].HasValidationErrors');
j := j + 1;
end;
j := 0;
count_j := jsonResponse.SizeOfArray('Invoices[i].CreditNotes');
while j < count_j do
begin
jsonResponse.J := j;
CreditNoteID := jsonResponse.StringOf('Invoices[i].CreditNotes[j].CreditNoteID');
CreditNoteNumber := jsonResponse.StringOf('Invoices[i].CreditNotes[j].CreditNoteNumber');
ID := jsonResponse.StringOf('Invoices[i].CreditNotes[j].ID');
HasErrors := jsonResponse.BoolOf('Invoices[i].CreditNotes[j].HasErrors');
AppliedAmount := jsonResponse.StringOf('Invoices[i].CreditNotes[j].AppliedAmount');
DateString := jsonResponse.StringOf('Invoices[i].CreditNotes[j].DateString');
Date := jsonResponse.StringOf('Invoices[i].CreditNotes[j].Date');
Total := jsonResponse.StringOf('Invoices[i].CreditNotes[j].Total');
k := 0;
count_k := jsonResponse.SizeOfArray('Invoices[i].CreditNotes[j].LineItems');
while k < count_k do
begin
jsonResponse.K := k;
k := k + 1;
end;
j := j + 1;
end;
j := 0;
count_j := jsonResponse.SizeOfArray('Invoices[i].Prepayments');
while j < count_j do
begin
jsonResponse.J := j;
j := j + 1;
end;
j := 0;
count_j := jsonResponse.SizeOfArray('Invoices[i].Overpayments');
while j < count_j do
begin
jsonResponse.J := j;
j := j + 1;
end;
j := 0;
count_j := jsonResponse.SizeOfArray('Invoices[i].Contact.Addresses');
while j < count_j do
begin
jsonResponse.J := j;
j := j + 1;
end;
j := 0;
count_j := jsonResponse.SizeOfArray('Invoices[i].Contact.Phones');
while j < count_j do
begin
jsonResponse.J := j;
j := j + 1;
end;
j := 0;
count_j := jsonResponse.SizeOfArray('Invoices[i].Contact.ContactGroups');
while j < count_j do
begin
jsonResponse.J := j;
j := j + 1;
end;
j := 0;
count_j := jsonResponse.SizeOfArray('Invoices[i].Contact.ContactPersons');
while j < count_j do
begin
jsonResponse.J := j;
j := j + 1;
end;
j := 0;
count_j := jsonResponse.SizeOfArray('Invoices[i].LineItems');
while j < count_j do
begin
jsonResponse.J := j;
j := j + 1;
end;
i := i + 1;
end;
http.Free;
jsonToken.Free;
resp.Free;
jsonResponse.Free;
end;
// ---------------------------------------------------------------------------
begin
try
RunDemo;
except
on E: Exception do
WriteLn('Unhandled exception: ', E.ClassName, ': ', E.Message);
end;
WriteLn;
{$IFDEF MSWINDOWS}
WriteLn('Press Enter to exit...');
ReadLn;
{$ENDIF}
end.