(VB.NET) 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

Chilkat .NET Downloads Chilkat .NET Framework Chilkat for .NET Core

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

Dim http As New Chilkat.Http
Dim success As Boolean

' 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
    Debug.WriteLine(http.LastErrorText)
    Exit Sub
End If


Dim respStatusCode As Integer = http.LastStatus
Debug.WriteLine("response status code = " & respStatusCode)

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

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

If (respStatusCode <> 200) Then
    Debug.WriteLine("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
' }
' 



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 Integer = 0
Dim count_i As Integer = 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
End While