Xojo Plugin

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. Xojo Plugin

Dim success As Boolean
success = False

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

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

Dim sbResponseBody As New Chilkat.StringBuilder
success = http.QuickGetSb("https://ws.fatturazioneelettronica.aruba.it/services/invoice/out/getByIdSdi?idSdi=11110&includePdf=true",sbResponseBody)
If (success = False) Then
    System.DebugLog(http.LastErrorText)
    Return
End If

Dim respStatusCode As Int32
respStatusCode = http.LastStatus
System.DebugLog("response status code = " + Str(respStatusCode))

Dim json As New Chilkat.JsonObject
success = json.LoadSb(sbResponseBody)
json.EmitCompact = True

System.DebugLog("Response JSON:")
System.DebugLog(json.Emit())

If (respStatusCode <> 200) Then
    System.DebugLog("Failed.")
    Return
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
// }
// 

Dim invoiceDate As String
Dim number As String
Dim status As String
Dim statusDescription As String

Dim errorCode As String
errorCode = json.StringOf("errorCode")
Dim errorDescription As String
errorDescription = json.StringOf("errorDescription")
Dim id As String
id = json.StringOf("id")
Dim senderDescription As String
senderDescription = json.StringOf("sender.description")
Dim senderCountryCode As String
senderCountryCode = json.StringOf("sender.countryCode")
Dim senderVatCode As String
senderVatCode = json.StringOf("sender.vatCode")
Dim senderFiscalCode As String
senderFiscalCode = json.StringOf("sender.fiscalCode")
Dim receiverDescription As String
receiverDescription = json.StringOf("receiver.description")
Dim receiverCountryCode As String
receiverCountryCode = json.StringOf("receiver.countryCode")
Dim receiverVatCode As String
receiverVatCode = json.StringOf("receiver.vatCode")
Dim receiverFiscalCode As String
receiverFiscalCode = json.StringOf("receiver.fiscalCode")
Dim invoiceType As String
invoiceType = json.StringOf("invoiceType")
Dim docType As String
docType = json.StringOf("docType")
Dim file As String
file = json.StringOf("file")
Dim filename As String
filename = json.StringOf("filename")
Dim username As String
username = json.StringOf("username")
Dim lastUpdate As String
lastUpdate = json.StringOf("lastUpdate")
Dim creationDate As String
creationDate = json.StringOf("creationDate")
Dim idSdi As String
idSdi = json.StringOf("idSdi")
Dim pdfFile As String
pdfFile = json.StringOf("pdfFile")
Dim pddAvailable As Boolean
pddAvailable = json.BoolOf("pddAvailable")
Dim i As Int32
i = 0
Dim count_i As Int32
count_i = json.SizeOfArray("invoices")
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
Wend