(Excel) 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.

For more information, see https://fatturazioneelettronica.aruba.it/apidoc/docs.html#services-invoice-out-getByIdSdi

Download Excel Class Modules Chilkat Excel Class Modules

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

Dim http As Chilkat.Http
Set http = Chilkat.NewHttp

' 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.
http.AuthToken = "NLOGDVXLVaF3tzmnVPkTwpkuh7dG0i09uSCcog3u+rE="
http.SetRequestHeader "Accept","application/json"

Dim sbResponseBody As Chilkat.StringBuilder
Set sbResponseBody = Chilkat.NewStringBuilder
success = http.QuickGetSb("https://ws.fatturazioneelettronica.aruba.it/services/invoice/out/getByIdSdi?idSdi=11110&includePdf=true",sbResponseBody)
If (success = False) Then
    Debug.Print http.LastErrorText
    Exit Sub
End If


respStatusCode = http.LastStatus
Debug.Print "response status code = "; respStatusCode

Dim json As Chilkat.JsonObject
Set json = Chilkat.NewJsonObject
Dim success As Boolean
success = json.LoadSb(sbResponseBody)
json.EmitCompact = True

Debug.Print "Response JSON:"
Debug.Print json.Emit()

If (respStatusCode <> 200) Then
    Debug.Print "Failed."
    Exit Sub
End If

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


errorCode = json.StringOf("errorCode")

errorDescription = json.StringOf("errorDescription")

id = json.StringOf("id")

senderDescription = json.StringOf("sender.description")

senderCountryCode = json.StringOf("sender.countryCode")

senderVatCode = json.StringOf("sender.vatCode")

senderFiscalCode = json.StringOf("sender.fiscalCode")

receiverDescription = json.StringOf("receiver.description")

receiverCountryCode = json.StringOf("receiver.countryCode")

receiverVatCode = json.StringOf("receiver.vatCode")

receiverFiscalCode = json.StringOf("receiver.fiscalCode")

invoiceType = json.StringOf("invoiceType")

docType = json.StringOf("docType")

file = json.StringOf("file")

filename = json.StringOf("filename")

username = json.StringOf("username")

lastUpdate = json.StringOf("lastUpdate")

creationDate = json.StringOf("creationDate")

idSdi = json.StringOf("idSdi")

pdfFile = json.StringOf("pdfFile")

pddAvailable = json.BoolOf("pddAvailable")

i = 0

count_i = json.SizeOfArray("invoices")
Do While i < count_i
    json.I = i
    invoiceDate = json.StringOf("invoices[i].invoiceDate")
    number = json.StringOf("invoices[i].number")
    status = json.StringOf("invoices[i].status")
    statusDescription = json.StringOf("invoices[i].statusDescription")
    i = i + 1
Loop