(Perl) QuickBooks - Create an Account

Demonstrates how to send an JSON request to create a QuickBooks account.

For more information, see https://developer.intuit.com/app/developer/qbo/docs/api/accounting/ecommerce/account#create-an-account

Chilkat Perl Downloads Perl Module for Windows, MacOS, Linux, Alpine Linux, Solaris

use chilkat();

# This example assumes the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.

# First get our previously obtained OAuth2 access token.
$jsonToken = chilkat::CkJsonObject->new();
$success = $jsonToken->LoadFile("qa_data/tokens/qb-access-token.json");

$rest = chilkat::CkRest->new();

$bAutoReconnect = 1;
$success = $rest->Connect("sandbox-quickbooks.api.intuit.com",443,1,$bAutoReconnect);
if ($success != 1) {
    print $rest->lastErrorText() . "\r\n";
    exit;
}

$sbAuth = chilkat::CkStringBuilder->new();
$sbAuth->Append("Bearer ");
$sbAuth->Append($jsonToken->stringOf("access_token"));
$rest->put_Authorization($sbAuth->getAsString());

$jsonRequest = chilkat::CkJsonObject->new();
$jsonRequest->AppendString("AccountType","Credit Card");
$jsonRequest->AppendString("Name","Banana Republic");
$requestBody = $jsonRequest->emit();

# "123146096291789" is the company ID.
$sbPath = chilkat::CkStringBuilder->new();
$sbPath->Append("/v3/company/123146096291789/account?minorversion=45");

$rest->AddHeader("Content-Type","application/json");
$rest->AddHeader("Accept","application/json");
$rest->put_AllowHeaderFolding(0);

$responseBody = $rest->fullRequestString("POST",$sbPath->getAsString(),$requestBody);
if ($rest->get_LastMethodSuccess() != 1) {
    print $rest->lastErrorText() . "\r\n";
    exit;
}

# We should expect a 200 response if successful.
if ($rest->get_ResponseStatusCode() != 200) {
    print "Request Header: " . "\r\n";
    print $rest->lastRequestHeader() . "\r\n";
    print "----" . "\r\n";
    print "Response StatusCode = " . $rest->get_ResponseStatusCode() . "\r\n";
    print "Response StatusLine: " . $rest->responseStatusText() . "\r\n";
    print "Response Header:" . "\r\n";
    print $rest->responseHeader() . "\r\n";
    print $responseBody . "\r\n";
    exit;
}

$jsonResponse = chilkat::CkJsonObject->new();
$jsonResponse->Load($responseBody);
$jsonResponse->put_EmitCompact(0);
print $jsonResponse->emit() . "\r\n";
print "Success." . "\r\n";

# A sample JSON response:

# Use this online tool to generate parsing code from sample JSON: 
# Generate Parsing Code from JSON

# {
#   "Account": {
#     "Name": "Banana Republic",
#     "SubAccount": false,
#     "FullyQualifiedName": "Banana Republic",
#     "Active": true,
#     "Classification": "Liability",
#     "AccountType": "Credit Card",
#     "AccountSubType": "CreditCard",
#     "CurrentBalance": 0,
#     "CurrentBalanceWithSubAccounts": 0,
#     "CurrencyRef": {
#       "value": "USD",
#       "name": "United States Dollar"
#     },
#     "domain": "QBO",
#     "sparse": false,
#     "Id": "97",
#     "SyncToken": "0",
#     "MetaData": {
#       "CreateTime": "2016-10-25T05:07:12-07:00",
#       "LastUpdatedTime": "2016-10-25T05:07:12-07:00"
#     }
#   },
#   "time": "2016-10-25T05:07:11.714-07:00"
# }