Classic ASP

QuickBooks - Create an Employee

See more QuickBooks Examples

Demonstrates how to send an JSON request to create a QuickBooks employee Classic ASP

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
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 = Server.CreateObject("Chilkat.JsonObject")
success = jsonToken.LoadFile("qa_data/tokens/qb-access-token.json")

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

set sbAuth = Server.CreateObject("Chilkat.StringBuilder")
success = sbAuth.Append("Bearer ")
success = sbAuth.Append(jsonToken.StringOf("access_token"))
rest.Authorization = sbAuth.GetAsString()

'  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"
'    }
'  }
'  
set json = Server.CreateObject("Chilkat.JsonObject")
success = json.UpdateString("SSN","444-55-6666")
success = json.UpdateString("PrimaryAddr.Id","50")
success = json.UpdateString("PrimaryAddr.Line1","45 N. Elm Street")
success = json.UpdateString("PrimaryAddr.City","Middlefield")
success = json.UpdateString("PrimaryAddr.CountrySubDivisionCode","CA")
success = json.UpdateString("PrimaryAddr.PostalCode","93242")
success = json.UpdateString("GivenName","John")
success = json.UpdateString("FamilyName","Meuller")
success = json.UpdateString("PrimaryPhone.FreeFormNumber","408-525-1234")

success = rest.AddHeader("Content-Type","application/json")
success = rest.AddHeader("Accept","application/json")
rest.AllowHeaderFolding = 0

'  The company ID is 123146096291789
responseBody = rest.FullRequestString("POST","/v3/company/123146096291789/employee?minorversion=45",json.Emit())
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

set jsonResponse = Server.CreateObject("Chilkat.JsonObject")
success = jsonResponse.Load(responseBody)
jsonResponse.EmitCompact = 0
Response.Write "<pre>" & Server.HTMLEncode( jsonResponse.Emit()) & "</pre>"
Response.Write "<pre>" & Server.HTMLEncode( "Success.") & "</pre>"

'  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"
'  }
'  

%>
</body>
</html>