Chilkat HOME .NET Core C# Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi ActiveX Delphi DLL Go Java Lianja Mono C# Node.js Objective-C PHP ActiveX PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(VB.NET) Aruba Fatturazione Elettronica ppdIf pddAvailable is true then this method retrieves the Preservation package as a Zip file of financial messages, specifying its request ID (requestID). If however pddAvailable is false, in other words, the Preservation package is not available, the HTTP status code 404 is returned. For more information, see https://fatturazioneelettronica.aruba.it/apidoc/docs_EN.html#services-clientrequest-pdd
' 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 POST https://ws.fatturazioneelettronica.aruba.it/services/ClientRequest/pdd \ ' -H "Accept: application/json" \ ' -H "Content-Type: application/json;charset=UTF-8" \ ' -d '{ ' "userName" : "ARUBA0000", ' "password" : "ArubaPwd", ' "requestID" : "XZLA9SZ9ZW" ' }' ' Use the following online tool to generate HTTP code from a CURL command ' Convert a cURL Command to HTTP Source Code ' Use this online tool to generate code from sample JSON: ' Generate Code to Create JSON ' The following JSON is sent in the request body. ' { ' "userName": "ARUBA0000", ' "password": "ArubaPwd", ' "requestID": "XZLA9SZ9ZW" ' } Dim json As New Chilkat.JsonObject json.UpdateString("userName","ARUBA0000") json.UpdateString("password","ArubaPwd") json.UpdateString("requestID","XZLA9SZ9ZW") http.SetRequestHeader("Content-Type","application/json;charset=UTF-8") http.SetRequestHeader("Accept","application/json") Dim resp As Chilkat.HttpResponse = http.PostJson3("https://ws.fatturazioneelettronica.aruba.it/services/ClientRequest/pdd","application/json",json) If (http.LastMethodSuccess = False) Then Debug.WriteLine(http.LastErrorText) Exit Sub End If ' Returns a response that looks like this: ' HTTP/1.1 200 OK ' Content-Disposition: attachment; filename="IT01879020517_LI_0001.conservazione.zip" ' Content-Type: application/zip ' Accept-Ranges: bytes ' Content-Length: 8 ' ' <binary> If (resp.StatusCode <> 200) Then Debug.WriteLine("response status code = " & resp.StatusCode) Debug.WriteLine(resp.BodyStr) Exit Sub End If ' If we get here, the response contains a .zip. ' Save to the filename specified in the Content-Disposition. Dim zipFilename As String = resp.GetHeaderFieldAttr("Content-Disposition","filename") success = resp.SaveBodyBinary(zipFilename) Debug.WriteLine("Success.") |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.