Delphi ActiveX

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. Delphi ActiveX

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Chilkat_TLB;

...

procedure TForm1.Button1Click(Sender: TObject);
var
success: Integer;
http: TChilkatHttp;
sbResponseBody: TChilkatStringBuilder;
respStatusCode: Integer;
json: TChilkatJsonObject;
invoiceDate: WideString;
number: WideString;
status: WideString;
statusDescription: WideString;
errorCode: WideString;
errorDescription: WideString;
id: WideString;
senderDescription: WideString;
senderCountryCode: WideString;
senderVatCode: WideString;
senderFiscalCode: WideString;
receiverDescription: WideString;
receiverCountryCode: WideString;
receiverVatCode: WideString;
receiverFiscalCode: WideString;
invoiceType: WideString;
docType: WideString;
file: WideString;
filename: WideString;
username: WideString;
lastUpdate: WideString;
creationDate: WideString;
idSdi: WideString;
pdfFile: WideString;
pddAvailable: Integer;
i: Integer;
count_i: Integer;

begin
success := 0;

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

http := TChilkatHttp.Create(Self);

// 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');

sbResponseBody := TChilkatStringBuilder.Create(Self);
success := http.QuickGetSb('https://ws.fatturazioneelettronica.aruba.it/services/invoice/out/getByIdSdi?idSdi=11110&includePdf=true',sbResponseBody.ControlInterface);
if (success = 0) then
  begin
    Memo1.Lines.Add(http.LastErrorText);
    Exit;
  end;

respStatusCode := http.LastStatus;
Memo1.Lines.Add('response status code = ' + IntToStr(respStatusCode));

json := TChilkatJsonObject.Create(Self);
json.LoadSb(sbResponseBody.ControlInterface);
json.EmitCompact := 1;

Memo1.Lines.Add('Response JSON:');
Memo1.Lines.Add(json.Emit());

if (respStatusCode <> 200) then
  begin
    Memo1.Lines.Add('Failed.');
    Exit;
  end;

// 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');
while i < count_i do
  begin
    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;
end;