DataFlex
DataFlex
QuickBooks - Create an Employee
See more QuickBooks Examples
Demonstrates how to send an JSON request to create a QuickBooks employeeChilkat DataFlex Downloads
Use ChilkatAx-win32.pkg
Procedure Test
Boolean iSuccess
Token Handle hoJsonToken
Handle hoRest
Boolean iBAutoReconnect
Handle hoSbAuth
Handle hoJson
String sResponseBody
Response Handle hoJsonResponse
String sTemp1
Integer iTemp1
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 <> True) 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
// Create the following JSON:
// Use this online tool to generate code from sample JSON:
// Generate Code to Create JSON
// {
// "SSN": "444-55-6666",
// "PrimaryAddr": {
// "Id": "50",
// "Line1": "45 N. Elm Street",
// "City": "Middlefield",
// "CountrySubDivisionCode": "CA",
// "PostalCode": "93242"
// },
// "GivenName": "John",
// "FamilyName": "Meuller",
// "PrimaryPhone": {
// "FreeFormNumber": "408-525-1234"
// }
// }
//
Get Create (RefClass(cComChilkatJsonObject)) To hoJson
If (Not(IsComObjectCreated(hoJson))) Begin
Send CreateComObject of hoJson
End
Get ComUpdateString Of hoJson "SSN" "444-55-6666" To iSuccess
Get ComUpdateString Of hoJson "PrimaryAddr.Id" "50" To iSuccess
Get ComUpdateString Of hoJson "PrimaryAddr.Line1" "45 N. Elm Street" To iSuccess
Get ComUpdateString Of hoJson "PrimaryAddr.City" "Middlefield" To iSuccess
Get ComUpdateString Of hoJson "PrimaryAddr.CountrySubDivisionCode" "CA" To iSuccess
Get ComUpdateString Of hoJson "PrimaryAddr.PostalCode" "93242" To iSuccess
Get ComUpdateString Of hoJson "GivenName" "John" To iSuccess
Get ComUpdateString Of hoJson "FamilyName" "Meuller" To iSuccess
Get ComUpdateString Of hoJson "PrimaryPhone.FreeFormNumber" "408-525-1234" To iSuccess
Get ComAddHeader Of hoRest "Content-Type" "application/json" To iSuccess
Get ComAddHeader Of hoRest "Accept" "application/json" To iSuccess
Set ComAllowHeaderFolding Of hoRest To False
// The company ID is 123146096291789
Get ComEmit Of hoJson To sTemp1
Get ComFullRequestString Of hoRest "POST" "/v3/company/123146096291789/employee?minorversion=45" sTemp1 To sResponseBody
Get ComLastMethodSuccess Of hoRest To bTemp1
If (bTemp1 <> True) Begin
Get ComLastErrorText Of hoRest To sTemp1
Showln sTemp1
Procedure_Return
End
// 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
Get Create (RefClass(cComChilkatJsonObject)) To hoJsonResponse
If (Not(IsComObjectCreated(hoJsonResponse))) Begin
Send CreateComObject of hoJsonResponse
End
Get ComLoad Of hoJsonResponse sResponseBody To iSuccess
Set ComEmitCompact Of hoJsonResponse To False
Get ComEmit Of hoJsonResponse To sTemp1
Showln sTemp1
Showln "Success."
// Use this online tool to generate parsing code from sample JSON:
// Generate Parsing Code from JSON
// A sample JSON response:
// {
// "Employee": {
// "SSN": "XXX-XX-XXXX",
// "PrimaryAddr": {
// "Id": "97",
// "Line1": "45 N. Elm Street",
// "City": "Middlefield",
// "CountrySubDivisionCode": "CA",
// "PostalCode": "93242"
// },
// "BillableTime": false,
// "domain": "QBO",
// "sparse": false,
// "Id": "59",
// "SyncToken": "0",
// "MetaData": {
// "CreateTime": "2016-10-25T14:05:05-07:00",
// "LastUpdatedTime": "2016-10-25T14:05:05-07:00"
// },
// "GivenName": "John",
// "FamilyName": "Meuller",
// "DisplayName": "John Meuller",
// "PrintOnCheckName": "John Meuller",
// "Active": true,
// "PrimaryPhone": {
// "FreeFormNumber": "408-525-1234"
// }
// },
// "time": "2016-10-25T14:05:05.661-07:00"
// }
//
End_Procedure