Chilkat HOME .NET Core C# Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi ActiveX Delphi DLL Go Java Lianja Mono C# Node.js Objective-C PHP ActiveX PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(Delphi ActiveX) QuickBooks - Query an AccountDemonstrates how to query the QuickBooks chart of accounts. For more information, see https://developer.intuit.com/app/developer/qbo/docs/api/accounting/ecommerce/account#query-an-account
uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Chilkat_TLB; ... procedure TForm1.Button1Click(Sender: TObject); var jsonToken: TChilkatJsonObject; success: Integer; rest: TChilkatRest; bAutoReconnect: Integer; sbAuth: TChilkatStringBuilder; responseBody: WideString; json: TChilkatJsonObject; dtime: TCkDateTime; bLocalTime: Integer; dt: IDtObj; numAccounts: Integer; i: Integer; begin // This example assumes the Chilkat API to have been previously unlocked. // See Global Unlock Sample for sample code. // Get our previously obtained OAuth2 access token, which should contain JSON like this: // { // "expires_in": 3600, // "x_refresh_token_expires_in": 8726400, // "refresh_token": "L011546037639r ... 3vR2DrbOmg0Sdagw", // "access_token": "eyJlbmMiOiJBMTI4Q0 ... oETJEMbeggg", // "token_type": "bearer" // } jsonToken := TChilkatJsonObject.Create(Self); success := jsonToken.LoadFile('qa_data/tokens/qb-access-token.json'); rest := TChilkatRest.Create(Self); // Connect using TLS. // A single REST object, once connected, can be used for many Quickbooks REST API calls. // The auto-reconnect indicates that if the already-established HTTPS connection is closed, // then it will be automatically re-established as needed. bAutoReconnect := 1; success := rest.Connect('sandbox-quickbooks.api.intuit.com',443,1,bAutoReconnect); if (success <> 1) then begin Memo1.Lines.Add(rest.LastErrorText); Exit; end; sbAuth := TChilkatStringBuilder.Create(Self); sbAuth.Append('Bearer '); sbAuth.Append(jsonToken.StringOf('access_token')); rest.Authorization := sbAuth.GetAsString(); rest.AddHeader('Accept','application/json'); rest.AllowHeaderFolding := 0; // Add a SELECT statement rest.AddQueryParam('query','select * from Account where Metadata.CreateTime > ''2014-12-31'''); rest.AddQueryParam('minorversion','45'); // The company ID is 123146096291789 responseBody := rest.FullRequestNoBody('GET','/v3/company/123146096291789/query'); if (rest.LastMethodSuccess <> 1) then begin Memo1.Lines.Add(rest.LastErrorText); Exit; end; rest.ClearAllQueryParams(); // We should expect a 200 response if successful. if (rest.ResponseStatusCode <> 200) then begin Memo1.Lines.Add('Request Header: '); Memo1.Lines.Add(rest.LastRequestHeader); Memo1.Lines.Add('----'); Memo1.Lines.Add('Response StatusCode = ' + IntToStr(rest.ResponseStatusCode)); Memo1.Lines.Add('Response StatusLine: ' + rest.ResponseStatusText); Memo1.Lines.Add('Response Header:'); Memo1.Lines.Add(rest.ResponseHeader); Memo1.Lines.Add(responseBody); Exit; end; // Use this online tool to generate parsing code from sample JSON: // Generate Parsing Code from JSON // Load the JSON response into a JSON object for parsing. // A sample JSON response is shown below. json := TChilkatJsonObject.Create(Self); json.Load(responseBody); // These will be used for parsing date/time strings.. dtime := TCkDateTime.Create(Self); bLocalTime := 1; // Iterate over each account returned. numAccounts := json.SizeOfArray('QueryResponse.Account'); i := 0; while i < numAccounts do begin json.I := i; Memo1.Lines.Add('Name: ' + json.StringOf('QueryResponse.Account[i].Name')); Memo1.Lines.Add('Id: ' + json.StringOf('QueryResponse.Account[i].Id')); // Load the CreateTime into a CkDateTime... dtime.SetFromTimestamp(json.StringOf('QueryResponse.Account[i].MetaData.CreateTime')); dt := dtime.GetDtObj(bLocalTime); Memo1.Lines.Add(IntToStr(dt.Month) + '/' + IntToStr(dt.Day) + '/' + IntToStr(dt.Year) + ' ' + IntToStr(dt.Hour) + ':' + IntToStr(dt.Minute)); Memo1.Lines.Add('----'); i := i + 1; end; Memo1.Lines.Add('Success.'); // ------------------------------------------------------ // The JSON response looks like this: // { // "QueryResponse": { // "Account": [ // { // "Name": "Accounts Payable (A/P)", // "SubAccount": false, // "FullyQualifiedName": "Accounts Payable (A/P)", // "Active": true, // "Classification": "Liability", // "AccountType": "Accounts Payable", // "AccountSubType": "AccountsPayable", // "CurrentBalance": -1602.67, // "CurrentBalanceWithSubAccounts": -1602.67, // "CurrencyRef": { // "value": "USD", // "name": "United States Dollar" // }, // "domain": "QBO", // "sparse": false, // "Id": "33", // "SyncToken": "0", // "MetaData": { // "CreateTime": "2016-09-10T10:12:02-07:00", // "LastUpdatedTime": "2016-09-17T13:10:36-07:00" // } // }, // { // "Name": "Accounts Receivable (A/R)", // "SubAccount": false, // "FullyQualifiedName": "Accounts Receivable (A/R)", // "Active": true, // "Classification": "Asset", // "AccountType": "Accounts Receivable", // "AccountSubType": "AccountsReceivable", // "CurrentBalance": 5281.52, // "CurrentBalanceWithSubAccounts": 5281.52, // "CurrencyRef": { // "value": "USD", // "name": "United States Dollar" // }, // "domain": "QBO", // "sparse": false, // "Id": "84", // "SyncToken": "0", // "MetaData": { // "CreateTime": "2016-09-14T14:49:29-07:00", // "LastUpdatedTime": "2016-09-17T13:16:17-07:00" // } // }, // { // "Name": "Advertising", // "SubAccount": false, // "FullyQualifiedName": "Advertising", // "Active": true, // "Classification": "Expense", // "AccountType": "Expense", // "AccountSubType": "AdvertisingPromotional", // "CurrentBalance": 0, // "CurrentBalanceWithSubAccounts": 0, // "CurrencyRef": { // "value": "USD", // "name": "United States Dollar" // }, // "domain": "QBO", // "sparse": false, // "Id": "7", // "SyncToken": "0", // "MetaData": { // "CreateTime": "2016-09-09T14:42:07-07:00", // "LastUpdatedTime": "2016-09-09T14:42:07-07:00" // } // }, // ... // "time": "2016-10-24T15:35:25.067-07:00" // end; |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.