![]() |
Chilkat HOME Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi DLL Go Java Node.js Objective-C PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(Tcl) QuickBooks - Read an EmployeeDemonstrates how to fetch the information for a specific Quickbooks employee. The employee information is fetched by Id. The employee Ids can be obtained by querying the employees and parsing the JSON that is returned. Note: This example requires Chilkat v11.0.0 or greater. For more information, see https://developer.intuit.com/app/developer/qbo/docs/api/accounting/all-entities/employee#read-an-employee
load ./chilkat.dll set success 0 # 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" # } set jsonToken [new_CkJsonObject] set success [CkJsonObject_LoadFile $jsonToken "qa_data/tokens/qb-access-token.json"] set rest [new_CkRest] # 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. set bAutoReconnect 1 set success [CkRest_Connect $rest "sandbox-quickbooks.api.intuit.com" 443 1 $bAutoReconnect] if {$success == 0} then { puts [CkRest_lastErrorText $rest] delete_CkJsonObject $jsonToken delete_CkRest $rest exit } set sbAuth [new_CkStringBuilder] CkStringBuilder_Append $sbAuth "Bearer " CkStringBuilder_Append $sbAuth [CkJsonObject_stringOf $jsonToken "access_token"] CkRest_put_Authorization $rest [CkStringBuilder_getAsString $sbAuth] CkRest_AddHeader $rest "Accept" "application/json" CkRest_put_AllowHeaderFolding $rest 0 # The company ID is 123146096291789 # The employee ID is 58 set responseBody [CkRest_fullRequestNoBody $rest "GET" "/v3/company/123146096291789/employee/58?minorversion=45"] if {[CkRest_get_LastMethodSuccess $rest] == 0} then { puts [CkRest_lastErrorText $rest] delete_CkJsonObject $jsonToken delete_CkRest $rest delete_CkStringBuilder $sbAuth exit } # We should expect a 200 response if successful. if {[CkRest_get_ResponseStatusCode $rest] != 200} then { puts "Request Header: " puts [CkRest_lastRequestHeader $rest] puts "----" puts "Response StatusCode = [CkRest_get_ResponseStatusCode $rest]" puts "Response StatusLine: [CkRest_responseStatusText $rest]" puts "Response Header:" puts [CkRest_responseHeader $rest] puts "$responseBody" delete_CkJsonObject $jsonToken delete_CkRest $rest delete_CkStringBuilder $sbAuth exit } # Load the JSON response into a JSON object for parsing. # A sample JSON response is shown below. set json [new_CkJsonObject] CkJsonObject_Load $json $responseBody # These will be used for parsing date/time strings.. set dtime [new_CkDateTime] # Show the JSON. CkJsonObject_put_EmitCompact $json 0 puts [CkJsonObject_emit $json] # Get some information from the JSON.. puts "Name: [CkJsonObject_stringOf $json Employee.DisplayName]" puts "Id: [CkJsonObject_stringOf $json Employee.Id]" puts "City: [CkJsonObject_stringOf $json Employee.PrimaryAddr.City]" puts "PostalCode: [CkJsonObject_stringOf $json Employee.PrimaryAddr.PostalCode]" # Load the CreateTime into a CkDateTime... CkDateTime_SetFromTimestamp $dtime [CkJsonObject_stringOf $json "Employee.MetaData.CreateTime"] set bLocalTime 1 set dt [new_CkDtObj] CkDateTime_ToDtObj $dtime $bLocalTime $dt puts [CkDtObj_get_Month $dt]/[CkDtObj_get_Day $dt]/[CkDtObj_get_Year $dt] [CkDtObj_get_Hour $dt]:[CkDtObj_get_Minute $dt] puts "Success." # Use this online tool to generate parsing code from sample JSON: # Generate Parsing Code from JSON # ------------------------------------------------------ # The JSON response looks like this: # { # "Employee": { # "SSN": "XXX-XX-XXXX", # "PrimaryAddr": { # "Id": "116", # "Line1": "45 N. Elm Street", # "City": "Middlefield", # "CountrySubDivisionCode": "CA", # "PostalCode": "93242" # }, # "BillableTime": false, # "domain": "QBO", # "sparse": false, # "Id": "98", # "SyncToken": "0", # "MetaData": { # "CreateTime": "2015-07-24T09:34:35-07:00", # "LastUpdatedTime": "2015-07-24T09:34:35-07:00" # }, # "GivenName": "Bill", # "FamilyName": "Miller", # "DisplayName": "Bill Miller", # "PrintOnCheckName": "Bill Miller", # "Active": true, # "PrimaryPhone": { # "FreeFormNumber": "234-525-1234" # } # }, # "time": "2015-07-24T09:35:54.805-07:00" # delete_CkJsonObject $jsonToken delete_CkRest $rest delete_CkStringBuilder $sbAuth delete_CkJsonObject $json delete_CkDateTime $dtime delete_CkDtObj $dt |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.