Visual FoxPro

Aruba Fatturazione Elettronica getByIdSdi

See more Aruba Fatturazione Examples

This method returns the complete status detail of an electronic invoice. Search for a single invoice by SdI identifier. Visual FoxPro

LOCAL lnSuccess
LOCAL loHttp
LOCAL loSbResponseBody
LOCAL lnRespStatusCode
LOCAL loJson
LOCAL lcInvoiceDate
LOCAL lcNumber
LOCAL lcStatus
LOCAL lcStatusDescription
LOCAL lcErrorCode
LOCAL lcErrorDescription
LOCAL lcId
LOCAL lcSenderDescription
LOCAL lcSenderCountryCode
LOCAL lcSenderVatCode
LOCAL lcSenderFiscalCode
LOCAL lcReceiverDescription
LOCAL lcReceiverCountryCode
LOCAL lcReceiverVatCode
LOCAL lcReceiverFiscalCode
LOCAL lcInvoiceType
LOCAL lcDocType
LOCAL lcFile
LOCAL lcFilename
LOCAL lcUsername
LOCAL lcLastUpdate
LOCAL lcCreationDate
LOCAL lcIdSdi
LOCAL lcPdfFile
LOCAL lnPddAvailable
LOCAL i
LOCAL lnCount_i

lnSuccess = 0

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

loHttp = CreateObject('Chilkat.Http')

* Implements the following CURL command:

* curl -X GET https://ws.fatturazioneelettronica.aruba.it/services/invoice/out/getByIdSdi?idSdi=11110&includePdf=true \
*   -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('Chilkat.StringBuilder')
lnSuccess = loHttp.QuickGetSb("https://ws.fatturazioneelettronica.aruba.it/services/invoice/out/getByIdSdi?idSdi=11110&includePdf=true",loSbResponseBody)
IF (lnSuccess = 0) THEN
    ? loHttp.LastErrorText
    RELEASE loHttp
    RELEASE loSbResponseBody
    CANCEL
ENDIF

lnRespStatusCode = loHttp.LastStatus
? "response status code = " + STR(lnRespStatusCode)

loJson = CreateObject('Chilkat.JsonObject')
loJson.LoadSb(loSbResponseBody)
loJson.EmitCompact = 1

? "Response JSON:"
? loJson.Emit()

IF (lnRespStatusCode <> 200) THEN
    ? "Failed."
    RELEASE loHttp
    RELEASE loSbResponseBody
    RELEASE loJson
    CANCEL
ENDIF

* Sample response:

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

* {
*   "errorCode" : "0000",
*   "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" : "dGVzdA==",
*   "filename" : "IT01879020517_jtlk0.xml.p7m",
*   "invoices" : [ {
*     "invoiceDate" : "2021-08-24T12:35:45.363+02:00",
*     "number" : "2021/0001",
*     "status" : "Inviata",
*     "statusDescription" : ""
*   } ],
*   "username" : "Utente",
*   "lastUpdate" : "2021-08-24T10:35:45.363+0000",
*   "creationDate" : "2021-08-24T10:35:45.363+0000",
*   "idSdi" : "11110",
*   "pdfFile" : "ZEdWemRGQmtaZz09",
*   "pddAvailable" : true
* }
* 

lcErrorCode = loJson.StringOf("errorCode")
lcErrorDescription = loJson.StringOf("errorDescription")
lcId = loJson.StringOf("id")
lcSenderDescription = loJson.StringOf("sender.description")
lcSenderCountryCode = loJson.StringOf("sender.countryCode")
lcSenderVatCode = loJson.StringOf("sender.vatCode")
lcSenderFiscalCode = loJson.StringOf("sender.fiscalCode")
lcReceiverDescription = loJson.StringOf("receiver.description")
lcReceiverCountryCode = loJson.StringOf("receiver.countryCode")
lcReceiverVatCode = loJson.StringOf("receiver.vatCode")
lcReceiverFiscalCode = loJson.StringOf("receiver.fiscalCode")
lcInvoiceType = loJson.StringOf("invoiceType")
lcDocType = loJson.StringOf("docType")
lcFile = loJson.StringOf("file")
lcFilename = loJson.StringOf("filename")
lcUsername = loJson.StringOf("username")
lcLastUpdate = loJson.StringOf("lastUpdate")
lcCreationDate = loJson.StringOf("creationDate")
lcIdSdi = loJson.StringOf("idSdi")
lcPdfFile = loJson.StringOf("pdfFile")
lnPddAvailable = loJson.BoolOf("pddAvailable")
i = 0
lnCount_i = loJson.SizeOfArray("invoices")
DO WHILE i < lnCount_i
    loJson.I = i
    lcInvoiceDate = loJson.StringOf("invoices[i].invoiceDate")
    lcNumber = loJson.StringOf("invoices[i].number")
    lcStatus = loJson.StringOf("invoices[i].status")
    lcStatusDescription = loJson.StringOf("invoices[i].statusDescription")
    i = i + 1
ENDDO

RELEASE loHttp
RELEASE loSbResponseBody
RELEASE loJson