Chilkat HOME Android™ Classic ASP C C++ C# Mono C# .NET Core C# C# UWP/WinRT DataFlex Delphi ActiveX Delphi DLL Visual FoxPro Java Lianja MFC Objective-C Perl PHP ActiveX PHP Extension PowerBuilder PowerShell PureBasic CkPython Chilkat2-Python Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ Visual Basic 6.0 VB.NET VB.NET UWP/WinRT VBScript Xojo Plugin Node.js Excel Go
(VB.NET UWP/WinRT) SII POST boleta.electronica.envioAlmacenamiento de un conjunto de boletas en el SII For more information, see https://www4c.sii.cl/bolcoreinternetui/api/
' 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://pangal.sii.cl/recursos/v1/boleta.electronica.envio" -H "accept: application/json" ' -H "User-Agent: Mozilla/4.0 ( compatible; PROG 1.0; Windows NT)" ' -H "Cookie: YZVQNQY4J5DT9" -H "Content-Type: multipart/form-data" ' -F "rutSender=1234" -F "dvSender=xyz" -F "rutCompany=9999" -F "dvCompany=abc" ' -F "archivo=@starfish20.jpg;type=image/jpeg" ' Use the following online tool to generate HTTP code from a CURL command ' Convert a cURL Command to HTTP Source Code Dim req As New Chilkat.HttpRequest req.HttpVerb = "POST" req.Path = "/recursos/v1/boleta.electronica.envio" req.ContentType = "multipart/form-data" req.AddParam("rutSender","66666666") req.AddParam("dvSender","6") req.AddParam("rutCompany","60803000") req.AddParam("dvCompany","K") ' Add an XML file that contains something like this: ' <?xml version="1.0" encoding="ISO-8859-1"?> ' <EnvioBOLETA version="1.0" xmlns="http://www.sii.cl/SiiDte" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="http://www.sii.cl/SiiDte EnvioBOLETA_v11.xsd"> ' <SetDTE ID="SetDocB0T39_20201103_131999"> ' <Caratula version="1.0"> ' ... Dim xmlStr As String = "..." success = req.AddStringForUpload2("archivo","envioBoleta.xml",xmlStr,"ISO-8859-1","text/xml") req.AddHeader("Expect","100-continue") req.AddHeader("User-Agent","Mozilla/4.0 ( compatible; PROG 1.0; Windows NT)") req.AddHeader("Cookie","TOKEN=YZVQNQY4J5DT9") req.AddHeader("accept","application/json") req.AddHeader("Content-Type","multipart/form-data") ' For debugging, you can save the exact HTTP request sent and response received ' to a session log file: http.SessionLogFilename = "someDir/sessionLog.txt" ' Use one of the following domains, depending on the environment: ' pangal.sii.cl - Certification Environment ' rahue.sii.cl - Production Environment Dim resp As Chilkat.HttpResponse = Await http.SynchronousRequestAsync("pangal.sii.cl",443,True,req) If (http.LastMethodSuccess = False) Then Debug.WriteLine(http.LastErrorText) Exit Sub End If Dim sbResponseBody As New Chilkat.StringBuilder resp.GetBodySb(sbResponseBody) Dim jResp As New Chilkat.JsonObject jResp.LoadSb(sbResponseBody) jResp.EmitCompact = False Debug.WriteLine("Response Body:") Debug.WriteLine(jResp.Emit()) Dim respStatusCode As Integer = resp.StatusCode Debug.WriteLine("Response Status Code = " & respStatusCode) If (respStatusCode >= 400) Then Debug.WriteLine("Response Header:") Debug.WriteLine(resp.Header) Debug.WriteLine("Failed.") Exit Sub End If ' Sample JSON response: ' (Sample code for parsing the JSON response is shown below) ' { ' "rut_emisor": "45000054-K", ' "rut_envia": "83154595-0", ' "trackid": 1014, ' "fecha_recepcion": "2020-09-01 20:30:10", ' "estado": "REC", ' "file": "boleta-2020-09-01-001.xml" ' } ' Sample code for parsing the JSON response... ' Use the following online tool to generate parsing code from sample JSON: ' Generate Parsing Code from JSON Dim rut_emisor As String = jResp.StringOf("rut_emisor") Dim rut_envia As String = jResp.StringOf("rut_envia") Dim trackid As Integer = jResp.IntOf("trackid") Dim fecha_recepcion As String = jResp.StringOf("fecha_recepcion") Dim estado As String = jResp.StringOf("estado") Dim file As String = jResp.StringOf("file") |
© 2000-2022 Chilkat Software, Inc. All Rights Reserved.