Visual Basic 6.0

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 Basic 6.0

Dim success As Long
success = 0

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

Dim http As New ChilkatHttp

' 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 ChilkatStringBuilder
success = http.QuickGetSb("https://ws.fatturazioneelettronica.aruba.it/services/invoice/out/getByIdSdi?idSdi=11110&includePdf=true",sbResponseBody)
If (success = 0) Then
    Debug.Print http.LastErrorText
    Exit Sub
End If

Dim respStatusCode As Long
respStatusCode = http.LastStatus
Debug.Print "response status code = " & respStatusCode

Dim json As New ChilkatJsonObject
success = json.LoadSb(sbResponseBody)
json.EmitCompact = 1

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

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 Long
pddAvailable = json.BoolOf("pddAvailable")
Dim i As Long
i = 0
Dim count_i As Long
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