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
(VBScript) SOAP Request to Issue Documents in Facto.clDemonstrates how to make a SOAP HTTP request to issue a document using the facto.cl webservice.
Dim fso, outFile Set fso = CreateObject("Scripting.FileSystemObject") 'Create a Unicode (utf-16) output text file. Set outFile = fso.CreateTextFile("output.txt", True, True) ' This example requires the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. ' -------------------------------------------------------------------------------- ' Also see Chilkat's Online WSDL Code Generator ' to generate code and SOAP Request and Response XML for each operation in a WSDL. ' -------------------------------------------------------------------------------- ' Here is an example of an HTTP POST Request we'll be sending: ' POST /documento.php HTTP/1.1 ' Content-Type: text/xml;charset=UTF-8 ' SOAPAction: https://conexion.facto.cl/documento.php/emitirDocumento ' ' <soapenv:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:urn="urn:server"> ' <soapenv:Header/> ' <soapenv:Body> ' <urn:emitirDocumento soapenv:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/"> ' <documento xsi:type="urn:emitir_dte"> ' <encabezado xsi:type="urn:encabezado"> ' <tipo_dte xsi:type="xsd:string">39</tipo_dte> ' <fecha_emision xsi:type="xsd:date">2019-08-03</fecha_emision> ' <condiciones_pago xsi:type="xsd:string">0</condiciones_pago> ' <receptor_email xsi:type="xsd:string">example@gmail.com</receptor_email> ' </encabezado> ' <detalles xsi:type="urn:detalles"> ' <detalle xsi:type="urn:detalle"> ' <cantidad xsi:type="xsd:int">3</cantidad> ' <glosa xsi:type="xsd:string">Recarga Agua Purificada</glosa> ' <monto_unitario xsi:type="xsd:decimal">1932.773109</monto_unitario> ' <exento_afecto xsi:type="xsd:boolean">1</exento_afecto> ' </detalle> ' </detalles> ' <totales xsi:type="urn:totales"> ' <total_exento xsi:type="xsd:int">0</total_exento> ' <total_afecto xsi:type="xsd:int">5798</total_afecto> ' <total_iva xsi:type="xsd:int">1102</total_iva> ' <total_final xsi:type="xsd:Int">6900</total_final> ' </totales> ' </documento> ' </urn:emitirDocumento> ' </soapenv:Body> ' </soapenv:Envelope> ' Use this online tool to generate code from sample XML: ' Generate Code to Create XML ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Xml") set xml = CreateObject("Chilkat.Xml") xml.Tag = "soapenv:Envelope" success = xml.AddAttribute("xmlns:xsi","http://www.w3.org/2001/XMLSchema-instance") success = xml.AddAttribute("xmlns:xsd","http://www.w3.org/2001/XMLSchema") success = xml.AddAttribute("xmlns:soapenv","http://schemas.xmlsoap.org/soap/envelope/") success = xml.AddAttribute("xmlns:urn","urn:server") xml.UpdateChildContent "soapenv:Header","" success = xml.UpdateAttrAt("soapenv:Body|urn:emitirDocumento",1,"soapenv:encodingStyle","http://schemas.xmlsoap.org/soap/encoding/") success = xml.UpdateAttrAt("soapenv:Body|urn:emitirDocumento|documento",1,"xsi:type","urn:emitir_dte") success = xml.UpdateAttrAt("soapenv:Body|urn:emitirDocumento|documento|encabezado",1,"xsi:type","urn:encabezado") success = xml.UpdateAttrAt("soapenv:Body|urn:emitirDocumento|documento|encabezado|tipo_dte",1,"xsi:type","xsd:string") xml.UpdateChildContent "soapenv:Body|urn:emitirDocumento|documento|encabezado|tipo_dte","39" success = xml.UpdateAttrAt("soapenv:Body|urn:emitirDocumento|documento|encabezado|fecha_emision",1,"xsi:type","xsd:date") xml.UpdateChildContent "soapenv:Body|urn:emitirDocumento|documento|encabezado|fecha_emision","2019-08-03" success = xml.UpdateAttrAt("soapenv:Body|urn:emitirDocumento|documento|encabezado|condiciones_pago",1,"xsi:type","xsd:string") xml.UpdateChildContent "soapenv:Body|urn:emitirDocumento|documento|encabezado|condiciones_pago","0" success = xml.UpdateAttrAt("soapenv:Body|urn:emitirDocumento|documento|encabezado|receptor_email",1,"xsi:type","xsd:string") xml.UpdateChildContent "soapenv:Body|urn:emitirDocumento|documento|encabezado|receptor_email","example@gmail.com" success = xml.UpdateAttrAt("soapenv:Body|urn:emitirDocumento|documento|detalles",1,"xsi:type","urn:detalles") success = xml.UpdateAttrAt("soapenv:Body|urn:emitirDocumento|documento|detalles|detalle",1,"xsi:type","urn:detalle") success = xml.UpdateAttrAt("soapenv:Body|urn:emitirDocumento|documento|detalles|detalle|cantidad",1,"xsi:type","xsd:int") xml.UpdateChildContent "soapenv:Body|urn:emitirDocumento|documento|detalles|detalle|cantidad","3" success = xml.UpdateAttrAt("soapenv:Body|urn:emitirDocumento|documento|detalles|detalle|glosa",1,"xsi:type","xsd:string") xml.UpdateChildContent "soapenv:Body|urn:emitirDocumento|documento|detalles|detalle|glosa","Recarga Agua Purificada" success = xml.UpdateAttrAt("soapenv:Body|urn:emitirDocumento|documento|detalles|detalle|monto_unitario",1,"xsi:type","xsd:decimal") xml.UpdateChildContent "soapenv:Body|urn:emitirDocumento|documento|detalles|detalle|monto_unitario","1932.773109" success = xml.UpdateAttrAt("soapenv:Body|urn:emitirDocumento|documento|detalles|detalle|exento_afecto",1,"xsi:type","xsd:boolean") xml.UpdateChildContent "soapenv:Body|urn:emitirDocumento|documento|detalles|detalle|exento_afecto","1" success = xml.UpdateAttrAt("soapenv:Body|urn:emitirDocumento|documento|totales",1,"xsi:type","urn:totales") success = xml.UpdateAttrAt("soapenv:Body|urn:emitirDocumento|documento|totales|total_exento",1,"xsi:type","xsd:int") xml.UpdateChildContent "soapenv:Body|urn:emitirDocumento|documento|totales|total_exento","0" success = xml.UpdateAttrAt("soapenv:Body|urn:emitirDocumento|documento|totales|total_afecto",1,"xsi:type","xsd:int") xml.UpdateChildContent "soapenv:Body|urn:emitirDocumento|documento|totales|total_afecto","5798" success = xml.UpdateAttrAt("soapenv:Body|urn:emitirDocumento|documento|totales|total_iva",1,"xsi:type","xsd:int") xml.UpdateChildContent "soapenv:Body|urn:emitirDocumento|documento|totales|total_iva","1102" success = xml.UpdateAttrAt("soapenv:Body|urn:emitirDocumento|documento|totales|total_final",1,"xsi:type","xsd:Int") xml.UpdateChildContent "soapenv:Body|urn:emitirDocumento|documento|totales|total_final","6900" ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Http") set http = CreateObject("Chilkat.Http") http.BasicAuth = 1 http.Login = "9.999.999-9/mylogin" http.Password = "mypassword" http.SetRequestHeader "Content-Type","text/xml;charset=UTF-8" http.SetRequestHeader "SoapAction","https://conexion.facto.cl/documento.php/emitirDocumento" ' resp is a Chilkat.HttpResponse Set resp = http.PostXml("https://conexion.facto.cl/documento.php",xml.GetXml(),"utf-8") If (http.LastMethodSuccess <> 1) Then outFile.WriteLine(http.LastErrorText) WScript.Quit End If ' A status code = 200 indicates success. outFile.WriteLine("Response status code = " & resp.StatusCode) ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Xml") set xmlResp = CreateObject("Chilkat.Xml") success = xmlResp.LoadXml(resp.BodyStr) outFile.WriteLine("Response body text:") outFile.WriteLine(xmlResp.GetXml()) ' The response will look like this: ' <?xml version="1.0" encoding="UTF-8"?> ' <SOAP-ENV:Envelope SOAP-ENV:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:SOAP-ENC="http://schemas.xmlsoap.org/soap/encoding/"> ' <SOAP-ENV:Body> ' <ns1:emitirDocumentoResponse xmlns:ns1="urn:server"> ' <return xsi:type="xsd:complexType"> ' <resultado> ' <status>0</status> ' <mensaje_error/> ' </resultado> ' <encabezado> ' <tipo_dte>39</tipo_dte> ' <folio>109999</folio> ' <fecha_emision>2019-08-03</fecha_emision> ' <condiciones_pago>0</condiciones_pago> ' <receptor_email>example@gmail.com</receptor_email> ' </encabezado> ' <detalles> ' <cantidad>3</cantidad> ' <glosa>Recarga Agua Purificada</glosa> ' <monto_unitario>1932.773109</monto_unitario> ' <exento_afecto>1</exento_afecto> ' </detalles> ' <totales> ' <total_exento>0</total_exento> ' <total_afecto>5798</total_afecto> ' <total_iva>1102</total_iva> ' <total_final>6900</total_final> ' </totales> ' <enlaces> ' <dte_xml>https://temporal.facto.cl/2019/08/999993022aa9e0733174e87086ade7d4.xml</dte_xml> ' <dte_pdf>https://temporal.facto.cl/2019/08/99999f52cf80c8ffc1fc22338dae022.pdf</dte_pdf> ' <dte_timbre>https://temporal.facto.cl/2019/08/999999856c08b3d24a83bf29add5364a.png</dte_timbre> ' </enlaces> ' </return> ' </ns1:emitirDocumentoResponse> ' </SOAP-ENV:Body> ' </SOAP-ENV:Envelope> outFile.Close |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.