|
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 EmployeesDemonstrates how to query the QuickBooks employee data. For more information, see https://developer.intuit.com/app/developer/qbo/docs/api/accounting/all-entities/employee#query-an-employee
<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 query = "select * from Employee" success = rest.AddQueryParam("query",query) 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 ' 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 ' 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) ' Show the full JSON response. json.EmitCompact = 0 Response.Write "<pre>" & Server.HTMLEncode( json.Emit()) & "</pre>" ' Use this online tool to generate parsing code from sample JSON: ' Generate Parsing Code from JSON ' 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. numRecords = json.SizeOfArray("QueryResponse.Employee") i = 0 Do While i < numRecords json.I = i Response.Write "<pre>" & Server.HTMLEncode( "DisplayName: " & json.StringOf("QueryResponse.Employee[i].DisplayName")) & "</pre>" Response.Write "<pre>" & Server.HTMLEncode( "Id: " & json.StringOf("QueryResponse.Employee[i].Id")) & "</pre>" Response.Write "<pre>" & Server.HTMLEncode( "Active: " & json.BoolOf("QueryResponse.Employee[i].Active")) & "</pre>" ' Load the CreateTime into a CkDateTime... success = dtime.SetFromTimestamp(json.StringOf("QueryResponse.Employee[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>" ' The the birth year, month, and day, if it exists. ' The BirthDate contains something like this: "1985-09-11" If (json.HasMember("QueryResponse.Employee[i].BirthDate") = 1) Then ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.StringTable") set sTab = Server.CreateObject("Chilkat.StringTable") success = sTab.SplitAndAppend(json.StringOf("QueryResponse.Employee[i].BirthDate"),"-",1,1) year = sTab.StringAt(0) month = sTab.StringAt(1) day = sTab.StringAt(2) Response.Write "<pre>" & Server.HTMLEncode( "BirthDate: " & month & "/" & day & "/" & year) & "</pre>" End If Response.Write "<pre>" & Server.HTMLEncode( "----") & "</pre>" i = i + 1 Loop Response.Write "<pre>" & Server.HTMLEncode( "Success.") & "</pre>" ' ------------------------------------------------------ ' The JSON response looks like this: ' { ' "QueryResponse": { ' "Employee": [ ' { ' "BillableTime": false, ' "domain": "QBO", ' "sparse": false, ' "Id": "55", ' "SyncToken": "0", ' "MetaData": { ' "CreateTime": "2016-09-15T11:21:48-07:00", ' "LastUpdatedTime": "2016-09-15T11:21:48-07:00" ' }, ' "GivenName": "Emily", ' "FamilyName": "Platt", ' "DisplayName": "Emily Platt", ' "PrintOnCheckName": "Emily Platt", ' "Active": true ' }, ' { ' "BillableTime": false, ' "BirthDate": "1985-09-11", ' "HiredDate": "2016-08-17", ' "domain": "QBO", ' "sparse": false, ' "Id": "54", ' "SyncToken": "1", ' "MetaData": { ' "CreateTime": "2016-09-15T11:21:28-07:00", ' "LastUpdatedTime": "2016-09-15T11:46:26-07:00" ' }, ' "GivenName": "John", ' "FamilyName": "Johnson", ' "DisplayName": "John Johnson", ' "PrintOnCheckName": "John Johnson", ' "Active": true, ' "PrimaryPhone": { ' "FreeFormNumber": "(540) 555-9645" ' } ' }, ' { ' "SSN": "XXX-XX-XXXX", ' "PrimaryAddr": { ' "Id": "98", ' "Line1": "45 N. Elm Street", ' "City": "Middlefield", ' "CountrySubDivisionCode": "CA", ' "PostalCode": "93242" ' }, ' "BillableTime": false, ' "domain": "QBO", ' "sparse": false, ' "Id": "60", ' "SyncToken": "0", ' "MetaData": { ' "CreateTime": "2016-10-25T14:08:18-07:00", ' "LastUpdatedTime": "2016-10-25T14:08:18-07:00" ' }, ' "GivenName": "John", ' "FamilyName": "Meuller", ' "DisplayName": "John Meuller", ' "PrintOnCheckName": "John Meuller", ' "Active": true, ' "PrimaryPhone": { ' "FreeFormNumber": "408-525-1234" ' } ' } ' ], ' "startPosition": 1, ' "maxResults": 3 ' }, ' "time": "2016-10-25T14:18:38.487-07:00" ' %> </body> </html> |
||||
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.