B4X

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. B4X

Dim success As Boolean = False

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

Dim http As ChilkatHttp
http.Initialize("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 ChilkatStringBuilder
sbResponseBody.Initialize
success = http.QuickGetSb("https://ws.fatturazioneelettronica.aruba.it/services/invoice/out/getByIdSdi?idSdi=11110&includePdf=true", sbResponseBody)
If success = False Then
    Log(http.LastErrorText)
    Return
End If


Dim respStatusCode As Int = http.LastStatus
Log("response status code = " & respStatusCode)

Dim json As ChilkatJsonObject
json.Initialize
json.LoadSb(sbResponseBody)
json.EmitCompact = True

Log("Response JSON:")
Log(json.Emit)

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