Perl
Perl
Quickbooks Create an Invoice
See more QuickBooks Examples
Demonstrates how to create an invoice via the Quickbooks REST API.Chilkat Perl Downloads
use chilkat();
$success = 0;
# This example requires 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();
# Connect to the REST server.
$bTls = 1;
$port = 443;
$bAutoReconnect = 1;
$success = $rest->Connect("sandbox-quickbooks.api.intuit.com",$port,$bTls,$bAutoReconnect);
$sbAuth = chilkat::CkStringBuilder->new();
$sbAuth->Append("Bearer ");
$sbAuth->Append($jsonToken->stringOf("access_token"));
$rest->put_Authorization($sbAuth->getAsString());
# --------------------------------------------------------------------------
# Note: The above code to setup the initial REST connection
# can be done once. After connecting, any number of REST calls can be made.
# If the connection is lost, the next REST method call will automatically
# reconnect if needed.
# --------------------------------------------------------------------------
# Create the following JSON:
# {
# "Line": [
# {
# "DetailType": "SalesItemLineDetail",
# "Amount": 100.0,
# "SalesItemLineDetail": {
# "ItemRef": {
# "name": "Services",
# "value": "1"
# }
# }
# }
# ],
# "CustomerRef": {
# "value": "1"
# }
# }
#
# Use the this online tool to generate the code from sample JSON:
# Generate Code to Create JSON
$jsonReq = chilkat::CkJsonObject->new();
$jsonReq->UpdateString("Line[0].DetailType","SalesItemLineDetail");
$jsonReq->UpdateNumber("Line[0].Amount","100.0");
$jsonReq->UpdateString("Line[0].SalesItemLineDetail.ItemRef.name","Services");
$jsonReq->UpdateString("Line[0].SalesItemLineDetail.ItemRef.value","1");
$jsonReq->UpdateString("CustomerRef.value","1");
$sbRequestBody = chilkat::CkStringBuilder->new();
$jsonReq->EmitSb($sbRequestBody);
$rest->AddHeader("Content-Type","application/json");
$rest->AddHeader("Accept","application/json");
$rest->put_AllowHeaderFolding(0);
$sbResponseBody = chilkat::CkStringBuilder->new();
$success = $rest->FullRequestSb("POST","/v3/company/<realmID>/invoice",$sbRequestBody,$sbResponseBody);
if ($success != 1) {
print $rest->lastErrorText() . "\r\n";
exit;
}
$respStatusCode = $rest->get_ResponseStatusCode();
# Success is indicated by a 200 response status code.
print "response status code = " . $respStatusCode . "\r\n";
$jsonResponse = chilkat::CkJsonObject->new();
$jsonResponse->LoadSb($sbResponseBody);
$jsonResponse->put_EmitCompact(0);
print $jsonResponse->emit() . "\r\n";
if ($rest->get_ResponseStatusCode() != 200) {
print "Failed." . "\r\n";
exit;
}
# Sample output...
# (See the parsing code below..)
#
# Use the this online tool to generate parsing code from sample JSON:
# Generate Parsing Code from JSON
# {
# "Invoice": {
# "DocNumber": "1069",
# "SyncToken": "0",
# "domain": "QBO",
# "Balance": 100.0,
# "BillAddr": {
# "City": "Bayshore",
# "Line1": "4581 Finch St.",
# "PostalCode": "94326",
# "Lat": "INVALID",
# "Long": "INVALID",
# "CountrySubDivisionCode": "CA",
# "Id": "2"
# },
# "TxnDate": "2015-07-24",
# "TotalAmt": 100.0,
# "CustomerRef": {
# "name": "Amy's Bird Sanctuary",
# "value": "1"
# },
# "ShipAddr": {
# "City": "Bayshore",
# "Line1": "4581 Finch St.",
# "PostalCode": "94326",
# "Lat": "INVALID",
# "Long": "INVALID",
# "CountrySubDivisionCode": "CA",
# "Id": "109"
# },
# "LinkedTxn": [
# ],
# "DueDate": "2015-08-23",
# "PrintStatus": "NeedToPrint",
# "Deposit": 0,
# "sparse": false,
# "EmailStatus": "NotSet",
# "Line": [
# {
# "LineNum": 1,
# "Amount": 100.0,
# "SalesItemLineDetail": {
# "TaxCodeRef": {
# "value": "NON"
# },
# "ItemRef": {
# "name": "Services",
# "value": "1"
# }
# },
# "Id": "1",
# "DetailType": "SalesItemLineDetail"
# },
# {
# "DetailType": "SubTotalLineDetail",
# "Amount": 100.0,
# "SubTotalLineDetail": {}
# }
# ],
# "ApplyTaxAfterDiscount": false,
# "CustomField": [
# {
# "DefinitionId": "1",
# "Type": "StringType",
# "Name": "Crew #"
# }
# ],
# "Id": "238",
# "TxnTaxDetail": {
# "TotalTax": 0
# },
# "MetaData": {
# "CreateTime": "2015-07-24T10:33:39-07:00",
# "LastUpdatedTime": "2015-07-24T10:33:39-07:00"
# }
# },
# "time": "2015-07-24T10:33:39.11-07:00"
# }
#
$InvoiceDocNumber = $jsonResponse->stringOf("Invoice.DocNumber");
$InvoiceSyncToken = $jsonResponse->stringOf("Invoice.SyncToken");
$InvoiceDomain = $jsonResponse->stringOf("Invoice.domain");
$InvoiceBalance = $jsonResponse->stringOf("Invoice.Balance");
$InvoiceBillAddrCity = $jsonResponse->stringOf("Invoice.BillAddr.City");
$InvoiceBillAddrLine1 = $jsonResponse->stringOf("Invoice.BillAddr.Line1");
$InvoiceBillAddrPostalCode = $jsonResponse->stringOf("Invoice.BillAddr.PostalCode");
$InvoiceBillAddrLat = $jsonResponse->stringOf("Invoice.BillAddr.Lat");
$InvoiceBillAddrLong = $jsonResponse->stringOf("Invoice.BillAddr.Long");
$InvoiceBillAddrCountrySubDivisionCode = $jsonResponse->stringOf("Invoice.BillAddr.CountrySubDivisionCode");
$InvoiceBillAddrId = $jsonResponse->stringOf("Invoice.BillAddr.Id");
$InvoiceTxnDate = $jsonResponse->stringOf("Invoice.TxnDate");
$InvoiceTotalAmt = $jsonResponse->stringOf("Invoice.TotalAmt");
$InvoiceCustomerRefName = $jsonResponse->stringOf("Invoice.CustomerRef.name");
$InvoiceCustomerRefValue = $jsonResponse->stringOf("Invoice.CustomerRef.value");
$InvoiceShipAddrCity = $jsonResponse->stringOf("Invoice.ShipAddr.City");
$InvoiceShipAddrLine1 = $jsonResponse->stringOf("Invoice.ShipAddr.Line1");
$InvoiceShipAddrPostalCode = $jsonResponse->stringOf("Invoice.ShipAddr.PostalCode");
$InvoiceShipAddrLat = $jsonResponse->stringOf("Invoice.ShipAddr.Lat");
$InvoiceShipAddrLong = $jsonResponse->stringOf("Invoice.ShipAddr.Long");
$InvoiceShipAddrCountrySubDivisionCode = $jsonResponse->stringOf("Invoice.ShipAddr.CountrySubDivisionCode");
$InvoiceShipAddrId = $jsonResponse->stringOf("Invoice.ShipAddr.Id");
$InvoiceDueDate = $jsonResponse->stringOf("Invoice.DueDate");
$InvoicePrintStatus = $jsonResponse->stringOf("Invoice.PrintStatus");
$InvoiceDeposit = $jsonResponse->IntOf("Invoice.Deposit");
$InvoiceSparse = $jsonResponse->BoolOf("Invoice.sparse");
$InvoiceEmailStatus = $jsonResponse->stringOf("Invoice.EmailStatus");
$InvoiceApplyTaxAfterDiscount = $jsonResponse->BoolOf("Invoice.ApplyTaxAfterDiscount");
$InvoiceId = $jsonResponse->stringOf("Invoice.Id");
$InvoiceTxnTaxDetailTotalTax = $jsonResponse->IntOf("Invoice.TxnTaxDetail.TotalTax");
$InvoiceMetaDataCreateTime = $jsonResponse->stringOf("Invoice.MetaData.CreateTime");
$InvoiceMetaDataLastUpdatedTime = $jsonResponse->stringOf("Invoice.MetaData.LastUpdatedTime");
$time = $jsonResponse->stringOf("time");
$i = 0;
$count_i = $jsonResponse->SizeOfArray("Invoice.LinkedTxn");
while ($i < $count_i) {
$jsonResponse->put_I($i);
$i = $i + 1;
}
$i = 0;
$count_i = $jsonResponse->SizeOfArray("Invoice.Line");
while ($i < $count_i) {
$jsonResponse->put_I($i);
$LineNum = $jsonResponse->IntOf("Invoice.Line[i].LineNum");
$Amount = $jsonResponse->stringOf("Invoice.Line[i].Amount");
$SalesItemLineDetailTaxCodeRefValue = $jsonResponse->stringOf("Invoice.Line[i].SalesItemLineDetail.TaxCodeRef.value");
$SalesItemLineDetailItemRefName = $jsonResponse->stringOf("Invoice.Line[i].SalesItemLineDetail.ItemRef.name");
$SalesItemLineDetailItemRefValue = $jsonResponse->stringOf("Invoice.Line[i].SalesItemLineDetail.ItemRef.value");
$Id = $jsonResponse->stringOf("Invoice.Line[i].Id");
$DetailType = $jsonResponse->stringOf("Invoice.Line[i].DetailType");
$i = $i + 1;
}
$i = 0;
$count_i = $jsonResponse->SizeOfArray("Invoice.CustomField");
while ($i < $count_i) {
$jsonResponse->put_I($i);
$DefinitionId = $jsonResponse->stringOf("Invoice.CustomField[i].DefinitionId");
$invType = $jsonResponse->stringOf("Invoice.CustomField[i].Type");
$Name = $jsonResponse->stringOf("Invoice.CustomField[i].Name");
$i = $i + 1;
}