|
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
(Classic ASP) 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
<html> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8"> </head> <body> <% ' 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" ' } ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.JsonObject") set jsonToken = Server.CreateObject("Chilkat.JsonObject") success = jsonToken.LoadFile("qa_data/tokens/qb-access-token.json") ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Rest") set rest = Server.CreateObject("Chilkat.Rest") ' 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 Response.Write "<pre>" & Server.HTMLEncode( rest.LastErrorText) & "</pre>" Response.End End If ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.StringBuilder") set sbAuth = Server.CreateObject("Chilkat.StringBuilder") success = sbAuth.Append("Bearer ") success = sbAuth.Append(jsonToken.StringOf("access_token")) rest.Authorization = sbAuth.GetAsString() success = rest.AddHeader("Accept","application/json") rest.AllowHeaderFolding = 0 ' Add a SELECT statement success = rest.AddQueryParam("query","select * from Account where Metadata.CreateTime > '2014-12-31'") success = rest.AddQueryParam("minorversion","45") ' The company ID is 123146096291789 responseBody = rest.FullRequestNoBody("GET","/v3/company/123146096291789/query") If (rest.LastMethodSuccess <> 1) Then Response.Write "<pre>" & Server.HTMLEncode( rest.LastErrorText) & "</pre>" Response.End End If success = rest.ClearAllQueryParams() ' We should expect a 200 response if successful. If (rest.ResponseStatusCode <> 200) Then Response.Write "<pre>" & Server.HTMLEncode( "Request Header: ") & "</pre>" Response.Write "<pre>" & Server.HTMLEncode( rest.LastRequestHeader) & "</pre>" Response.Write "<pre>" & Server.HTMLEncode( "----") & "</pre>" Response.Write "<pre>" & Server.HTMLEncode( "Response StatusCode = " & rest.ResponseStatusCode) & "</pre>" Response.Write "<pre>" & Server.HTMLEncode( "Response StatusLine: " & rest.ResponseStatusText) & "</pre>" Response.Write "<pre>" & Server.HTMLEncode( "Response Header:") & "</pre>" Response.Write "<pre>" & Server.HTMLEncode( rest.ResponseHeader) & "</pre>" Response.Write "<pre>" & Server.HTMLEncode( responseBody) & "</pre>" Response.End End If ' 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. ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.JsonObject") set json = Server.CreateObject("Chilkat.JsonObject") success = json.Load(responseBody) ' These will be used for parsing date/time strings.. ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.CkDateTime") set dtime = Server.CreateObject("Chilkat.CkDateTime") bLocalTime = 1 ' Iterate over each account returned. numAccounts = json.SizeOfArray("QueryResponse.Account") i = 0 Do While i < numAccounts json.I = i Response.Write "<pre>" & Server.HTMLEncode( "Name: " & json.StringOf("QueryResponse.Account[i].Name")) & "</pre>" Response.Write "<pre>" & Server.HTMLEncode( "Id: " & json.StringOf("QueryResponse.Account[i].Id")) & "</pre>" ' Load the CreateTime into a CkDateTime... success = dtime.SetFromTimestamp(json.StringOf("QueryResponse.Account[i].MetaData.CreateTime")) ' dt is a Chilkat.DtObj Set dt = dtime.GetDtObj(bLocalTime) Response.Write "<pre>" & Server.HTMLEncode( dt.Month & "/" & dt.Day & "/" & dt.Year & " " & dt.Hour _ & ":" & dt.Minute) & "</pre>" Response.Write "<pre>" & Server.HTMLEncode( "----") & "</pre>" i = i + 1 Loop Response.Write "<pre>" & Server.HTMLEncode( "Success.") & "</pre>" ' ------------------------------------------------------ ' 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" ' %> </body> </html> |
||||
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.