(Lianja) Aruba Fatturazione Elettronica Find Invoice by Username

Finds a list of invoices. Returns invoices without content in base64 (lazy loading)

For more information, see https://fatturazioneelettronica.aruba.it/apidoc/docs_EN.html#_findbyusername_2

Chilkat Lianja Extension Download Chilkat Lianja Extension

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

loHttp = createobject("CkHttp")

// Implements the following CURL command:

// curl -X GET https://ws.fatturazioneelettronica.aruba.it/services/invoice/in/findByUsername?username=Username \
//   -H "Accept: application/json" \
//   -H "Authorization: Bearer NLOGDVXLVaF3tzmnVPkTwpkuh7dG0i09uSCcog3u+rE="

// Use the following online tool to generate HTTP code from a CURL command
// Convert a cURL Command to HTTP Source Code

// Adds the "Authorization: Bearer NLOGDVXLVaF3tzmnVPkTwpkuh7dG0i09uSCcog3u+rE=" header.
loHttp.AuthToken = "NLOGDVXLVaF3tzmnVPkTwpkuh7dG0i09uSCcog3u+rE="
loHttp.SetRequestHeader("Accept","application/json")

loSbResponseBody = createobject("CkStringBuilder")
llSuccess = loHttp.QuickGetSb("https://ws.fatturazioneelettronica.aruba.it/services/invoice/in/findByUsername?username=Username",loSbResponseBody)
if (llSuccess = .F.) then
    ? loHttp.LastErrorText
    release loHttp
    release loSbResponseBody
    return
endif

loJResp = createobject("CkJsonObject")
loJResp.LoadSb(loSbResponseBody)
loJResp.EmitCompact = .F.

? "Response Body:"
? loJResp.Emit()

lnRespStatusCode = loHttp.LastStatus
? "Response Status Code = " + str(lnRespStatusCode)
if (lnRespStatusCode >= 400) then
    ? "Response Header:"
    ? loHttp.LastHeader
    ? "Failed."
    release loHttp
    release loSbResponseBody
    release loJResp
    return
endif

// Sample JSON response:
// (Sample code for parsing the JSON response is shown below)

// {
//   "errorCode": "0000",
//   "errorDescription": null,
//   "content": [
//     {
//       "errorCode": null,
//       "errorDescription": null,
//       "id": "1",
//       "sender": {
//         "description": "Aruba SPA",
//         "countryCode": "IT",
//         "vatCode": "22222222",
//         "fiscalCode": "11111111111"
//       },
//       "receiver": {
//         "description": "Aruba SPA",
//         "countryCode": "IT",
//         "vatCode": "4444444",
//         "fiscalCode": "333333333"
//       },
//       "invoiceType": "FPR12",
//       "docType": "in",
//       "file": null,
//       "filename": "IT01879020517_jtlk0.xml.p7m",
//       "invoices": [
//         {
//           "invoiceDate": "2020-07-10T09:19:56.948+02:00",
//           "number": "2020/0001",
//           "status": "Inviata",
//           "statusDescription": ""
//         }
//       ],
//       "username": "Utente",
//       "lastUpdate": "2020-07-10T07:19:56.948+0000",
//       "creationDate": "2020-07-10T07:19:56.948+0000",
//       "idSdi": "11110",
//       "pddAvailable": true
//     },
//     {
//       "errorCode": null,
//       "errorDescription": null,
//       "id": "2",
//       "sender": {
//         "description": "Aruba SPA",
//         "countryCode": "IT",
//         "vatCode": "22222222",
//         "fiscalCode": "11111111111"
//       },
//       "receiver": {
//         "description": "Aruba SPA",
//         "countryCode": "IT",
//         "vatCode": "4444444",
//         "fiscalCode": "333333333"
//       },
//       "invoiceType": "FPR12",
//       "docType": "in",
//       "file": null,
//       "filename": "IT01879020517_jtlk1.xml.p7m",
//       "invoices": [
//         {
//           "invoiceDate": "2020-07-10T09:19:56.948+02:00",
//           "number": "2020/0002",
//           "status": "Inviata",
//           "statusDescription": ""
//         }
//       ],
//       "username": "Utente",
//       "lastUpdate": "2020-07-10T07:19:56.948+0000",
//       "creationDate": "2020-07-10T07:19:56.948+0000",
//       "idSdi": "11111",
//       "pddAvailable": true
//     },
//     {
//       "errorCode": null,
//       "errorDescription": null,
//       "id": "3",
//       "sender": {
//         "description": "Aruba SPA",
//         "countryCode": "IT",
//         "vatCode": "22222222",
//         "fiscalCode": "11111111111"
//       },
//       "receiver": {
//         "description": "Aruba SPA",
//         "countryCode": "IT",
//         "vatCode": "4444444",
//         "fiscalCode": "333333333"
//       },
//       "invoiceType": "FPR12",
//       "docType": "in",
//       "file": null,
//       "filename": "IT01879020517_jtlk2.xml.p7m",
//       "invoices": [
//         {
//           "invoiceDate": "2020-07-10T09:19:56.948+02:00",
//           "number": "2020/0003",
//           "status": "Inviata",
//           "statusDescription": ""
//         }
//       ],
//       "username": "Utente",
//       "lastUpdate": "2020-07-10T07:19:56.948+0000",
//       "creationDate": "2020-07-10T07:19:56.948+0000",
//       "idSdi": "11112",
//       "pddAvailable": true
//     },
//     {
//       "errorCode": null,
//       "errorDescription": null,
//       "id": "4",
//       "sender": {
//         "description": "Aruba SPA",
//         "countryCode": "IT",
//         "vatCode": "22222222",
//         "fiscalCode": "11111111111"
//       },
//       "receiver": {
//         "description": "Aruba SPA",
//         "countryCode": "IT",
//         "vatCode": "4444444",
//         "fiscalCode": "333333333"
//       },
//       "invoiceType": "FPR12",
//       "docType": "in",
//       "file": null,
//       "filename": "IT01879020517_jtlk3.xml.p7m",
//       "invoices": [
//         {
//           "invoiceDate": "2020-07-10T09:19:56.948+02:00",
//           "number": "2020/0004",
//           "status": "Inviata",
//           "statusDescription": ""
//         }
//       ],
//       "username": "Utente",
//       "lastUpdate": "2020-07-10T07:19:56.948+0000",
//       "creationDate": "2020-07-10T07:19:56.948+0000",
//       "idSdi": "11113",
//       "pddAvailable": true
//     }
//   ],
//   "last": true,
//   "totalElements": 4,
//   "totalPages": 1,
//   "size": 10,
//   "number": 1,
//   "first": true,
//   "numberOfElements": 4
// }

// Sample code for parsing the JSON response...
// Use the following online tool to generate parsing code from sample JSON:
// Generate Parsing Code from JSON

lcErrorCode = loJResp.StringOf("errorCode")
lcErrorDescription = loJResp.StringOf("errorDescription")
llLast = loJResp.BoolOf("last")
lnTotalElements = loJResp.IntOf("totalElements")
lnTotalPages = loJResp.IntOf("totalPages")
lnSize = loJResp.IntOf("size")
lnNumber = loJResp.IntOf("number")
llFirst = loJResp.BoolOf("first")
lnNumberOfElements = loJResp.IntOf("numberOfElements")
i = 0
lnCount_i = loJResp.SizeOfArray("content")
do while i < lnCount_i
    loJResp.I = i
    lcErrorCode = loJResp.StringOf("content[i].errorCode")
    lcErrorDescription = loJResp.StringOf("content[i].errorDescription")
    lcId = loJResp.StringOf("content[i].id")
    lcSenderDescription = loJResp.StringOf("content[i].sender.description")
    lcSenderCountryCode = loJResp.StringOf("content[i].sender.countryCode")
    lcSenderVatCode = loJResp.StringOf("content[i].sender.vatCode")
    lcSenderFiscalCode = loJResp.StringOf("content[i].sender.fiscalCode")
    lcReceiverDescription = loJResp.StringOf("content[i].receiver.description")
    lcReceiverCountryCode = loJResp.StringOf("content[i].receiver.countryCode")
    lcReceiverVatCode = loJResp.StringOf("content[i].receiver.vatCode")
    lcReceiverFiscalCode = loJResp.StringOf("content[i].receiver.fiscalCode")
    lcInvoiceType = loJResp.StringOf("content[i].invoiceType")
    lcDocType = loJResp.StringOf("content[i].docType")
    lcFile = loJResp.StringOf("content[i].file")
    lcFilename = loJResp.StringOf("content[i].filename")
    lcUsername = loJResp.StringOf("content[i].username")
    lcLastUpdate = loJResp.StringOf("content[i].lastUpdate")
    lcCreationDate = loJResp.StringOf("content[i].creationDate")
    lcIdSdi = loJResp.StringOf("content[i].idSdi")
    llPddAvailable = loJResp.BoolOf("content[i].pddAvailable")
    j = 0
    lnCount_j = loJResp.SizeOfArray("content[i].invoices")
    do while j < lnCount_j
        loJResp.J = j
        lcInvoiceDate = loJResp.StringOf("content[i].invoices[j].invoiceDate")
        lcNumber_str = loJResp.StringOf("content[i].invoices[j].number")
        lcStatus = loJResp.StringOf("content[i].invoices[j].status")
        lcStatusDescription = loJResp.StringOf("content[i].invoices[j].statusDescription")
        j = j + 1
    enddo
    i = i + 1
enddo


release loHttp
release loSbResponseBody
release loJResp