DataFlex
DataFlex
QuickBooks - Query an Account
See more QuickBooks Examples
Demonstrates how to query the QuickBooks chart of accounts.Chilkat DataFlex Downloads
Use ChilkatAx-win32.pkg
Procedure Test
Boolean iSuccess
Handle hoJsonToken
Handle hoRest
Boolean iBAutoReconnect
Handle hoSbAuth
String sResponseBody
Handle hoJson
Handle hoDtime
Boolean iBLocalTime
Variant vDt
Handle hoDt
Integer iNumAccounts
Integer i
String sTemp1
Integer iTemp1
Integer iTemp2
Integer iTemp3
Integer iTemp4
Integer iTemp5
Boolean bTemp1
Move False To iSuccess
// 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"
// }
Get Create (RefClass(cComChilkatJsonObject)) To hoJsonToken
If (Not(IsComObjectCreated(hoJsonToken))) Begin
Send CreateComObject of hoJsonToken
End
Get ComLoadFile Of hoJsonToken "qa_data/tokens/qb-access-token.json" To iSuccess
Get Create (RefClass(cComChilkatRest)) To hoRest
If (Not(IsComObjectCreated(hoRest))) Begin
Send CreateComObject of hoRest
End
// 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.
Move True To iBAutoReconnect
Get ComConnect Of hoRest "sandbox-quickbooks.api.intuit.com" 443 True iBAutoReconnect To iSuccess
If (iSuccess = False) Begin
Get ComLastErrorText Of hoRest To sTemp1
Showln sTemp1
Procedure_Return
End
Get Create (RefClass(cComChilkatStringBuilder)) To hoSbAuth
If (Not(IsComObjectCreated(hoSbAuth))) Begin
Send CreateComObject of hoSbAuth
End
Get ComAppend Of hoSbAuth "Bearer " To iSuccess
Get ComStringOf Of hoJsonToken "access_token" To sTemp1
Get ComAppend Of hoSbAuth sTemp1 To iSuccess
Get ComGetAsString Of hoSbAuth To sTemp1
Set ComAuthorization Of hoRest To sTemp1
Get ComAddHeader Of hoRest "Accept" "application/json" To iSuccess
Set ComAllowHeaderFolding Of hoRest To False
// Add a SELECT statement
Get ComAddQueryParam Of hoRest "query" "select * from Account where Metadata.CreateTime > '2014-12-31'" To iSuccess
Get ComAddQueryParam Of hoRest "minorversion" "45" To iSuccess
// The company ID is 123146096291789
Get ComFullRequestNoBody Of hoRest "GET" "/v3/company/123146096291789/query" To sResponseBody
Get ComLastMethodSuccess Of hoRest To bTemp1
If (bTemp1 = False) Begin
Get ComLastErrorText Of hoRest To sTemp1
Showln sTemp1
Procedure_Return
End
Get ComClearAllQueryParams Of hoRest To iSuccess
// We should expect a 200 response if successful.
Get ComResponseStatusCode Of hoRest To iTemp1
If (iTemp1 <> 200) Begin
Showln "Request Header: "
Get ComLastRequestHeader Of hoRest To sTemp1
Showln sTemp1
Showln "----"
Get ComResponseStatusCode Of hoRest To iTemp1
Showln "Response StatusCode = " iTemp1
Get ComResponseStatusText Of hoRest To sTemp1
Showln "Response StatusLine: " sTemp1
Showln "Response Header:"
Get ComResponseHeader Of hoRest To sTemp1
Showln sTemp1
Showln sResponseBody
Procedure_Return
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.
Get Create (RefClass(cComChilkatJsonObject)) To hoJson
If (Not(IsComObjectCreated(hoJson))) Begin
Send CreateComObject of hoJson
End
Get ComLoad Of hoJson sResponseBody To iSuccess
// These will be used for parsing date/time strings..
Get Create (RefClass(cComCkDateTime)) To hoDtime
If (Not(IsComObjectCreated(hoDtime))) Begin
Send CreateComObject of hoDtime
End
Move True To iBLocalTime
Get Create (RefClass(cComChilkatDtObj)) To hoDt
If (Not(IsComObjectCreated(hoDt))) Begin
Send CreateComObject of hoDt
End
// Iterate over each account returned.
Get ComSizeOfArray Of hoJson "QueryResponse.Account" To iNumAccounts
Move 0 To i
While (i < iNumAccounts)
Set ComI Of hoJson To i
Get ComStringOf Of hoJson "QueryResponse.Account[i].Name" To sTemp1
Showln "Name: " sTemp1
Get ComStringOf Of hoJson "QueryResponse.Account[i].Id" To sTemp1
Showln "Id: " sTemp1
// Load the CreateTime into a CkDateTime...
Get ComStringOf Of hoJson "QueryResponse.Account[i].MetaData.CreateTime" To sTemp1
Get ComSetFromTimestamp Of hoDtime sTemp1 To iSuccess
Get pvComObject of hoDt to vDt
Send ComToDtObj To hoDtime iBLocalTime vDt
Get ComMonth Of hoDt To iTemp1
Get ComDay Of hoDt To iTemp2
Get ComYear Of hoDt To iTemp3
Get ComHour Of hoDt To iTemp4
Get ComMinute Of hoDt To iTemp5
Showln iTemp1 "/" iTemp2 "/" iTemp3 " " iTemp4 ":" iTemp5
Showln "----"
Move (i + 1) To i
Loop
Showln "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_Procedure