B4X
B4X
SOAP Request to Issue Documents in Facto.cl
See more HTTP Misc Examples
Demonstrates how to make a SOAP HTTP request to issue a document using the facto.cl webservice.Chilkat B4X Downloads
Dim success As Boolean = False
' 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
Dim xml As ChilkatXml
xml.Initialize
xml.Tag = "soapenv:Envelope"
xml.AddAttribute("xmlns:xsi", "http://www.w3.org/2001/XMLSchema-instance")
xml.AddAttribute("xmlns:xsd", "http://www.w3.org/2001/XMLSchema")
xml.AddAttribute("xmlns:soapenv", "http://schemas.xmlsoap.org/soap/envelope/")
xml.AddAttribute("xmlns:urn", "urn:server")
xml.UpdateChildContent("soapenv:Header", "")
xml.UpdateAttrAt("soapenv:Body|urn:emitirDocumento", True, "soapenv:encodingStyle", "http://schemas.xmlsoap.org/soap/encoding/")
xml.UpdateAttrAt("soapenv:Body|urn:emitirDocumento|documento", True, "xsi:type", "urn:emitir_dte")
xml.UpdateAttrAt("soapenv:Body|urn:emitirDocumento|documento|encabezado", True, "xsi:type", "urn:encabezado")
xml.UpdateAttrAt("soapenv:Body|urn:emitirDocumento|documento|encabezado|tipo_dte", True, "xsi:type", "xsd:string")
xml.UpdateChildContent("soapenv:Body|urn:emitirDocumento|documento|encabezado|tipo_dte", "39")
xml.UpdateAttrAt("soapenv:Body|urn:emitirDocumento|documento|encabezado|fecha_emision", True, "xsi:type", "xsd:date")
xml.UpdateChildContent("soapenv:Body|urn:emitirDocumento|documento|encabezado|fecha_emision", "2019-08-03")
xml.UpdateAttrAt("soapenv:Body|urn:emitirDocumento|documento|encabezado|condiciones_pago", True, "xsi:type", "xsd:string")
xml.UpdateChildContent("soapenv:Body|urn:emitirDocumento|documento|encabezado|condiciones_pago", "0")
xml.UpdateAttrAt("soapenv:Body|urn:emitirDocumento|documento|encabezado|receptor_email", True, "xsi:type", "xsd:string")
xml.UpdateChildContent("soapenv:Body|urn:emitirDocumento|documento|encabezado|receptor_email", "example@gmail.com")
xml.UpdateAttrAt("soapenv:Body|urn:emitirDocumento|documento|detalles", True, "xsi:type", "urn:detalles")
xml.UpdateAttrAt("soapenv:Body|urn:emitirDocumento|documento|detalles|detalle", True, "xsi:type", "urn:detalle")
xml.UpdateAttrAt("soapenv:Body|urn:emitirDocumento|documento|detalles|detalle|cantidad", True, "xsi:type", "xsd:int")
xml.UpdateChildContent("soapenv:Body|urn:emitirDocumento|documento|detalles|detalle|cantidad", "3")
xml.UpdateAttrAt("soapenv:Body|urn:emitirDocumento|documento|detalles|detalle|glosa", True, "xsi:type", "xsd:string")
xml.UpdateChildContent("soapenv:Body|urn:emitirDocumento|documento|detalles|detalle|glosa", "Recarga Agua Purificada")
xml.UpdateAttrAt("soapenv:Body|urn:emitirDocumento|documento|detalles|detalle|monto_unitario", True, "xsi:type", "xsd:decimal")
xml.UpdateChildContent("soapenv:Body|urn:emitirDocumento|documento|detalles|detalle|monto_unitario", "1932.773109")
xml.UpdateAttrAt("soapenv:Body|urn:emitirDocumento|documento|detalles|detalle|exento_afecto", True, "xsi:type", "xsd:boolean")
xml.UpdateChildContent("soapenv:Body|urn:emitirDocumento|documento|detalles|detalle|exento_afecto", "1")
xml.UpdateAttrAt("soapenv:Body|urn:emitirDocumento|documento|totales", True, "xsi:type", "urn:totales")
xml.UpdateAttrAt("soapenv:Body|urn:emitirDocumento|documento|totales|total_exento", True, "xsi:type", "xsd:int")
xml.UpdateChildContent("soapenv:Body|urn:emitirDocumento|documento|totales|total_exento", "0")
xml.UpdateAttrAt("soapenv:Body|urn:emitirDocumento|documento|totales|total_afecto", True, "xsi:type", "xsd:int")
xml.UpdateChildContent("soapenv:Body|urn:emitirDocumento|documento|totales|total_afecto", "5798")
xml.UpdateAttrAt("soapenv:Body|urn:emitirDocumento|documento|totales|total_iva", True, "xsi:type", "xsd:int")
xml.UpdateChildContent("soapenv:Body|urn:emitirDocumento|documento|totales|total_iva", "1102")
xml.UpdateAttrAt("soapenv:Body|urn:emitirDocumento|documento|totales|total_final", True, "xsi:type", "xsd:Int")
xml.UpdateChildContent("soapenv:Body|urn:emitirDocumento|documento|totales|total_final", "6900")
Dim http As ChilkatHttp
http.Initialize("http")
http.BasicAuth = True
http.Login = "9.999.999-9/mylogin"
http.Password = "mypassword"
http.SetRequestHeader("SoapAction", "https://conexion.facto.cl/documento.php/emitirDocumento")
Dim resp As ChilkatHttpResponse
resp.Initialize
success = http.HttpStr("POST", "https://conexion.facto.cl/documento.php", xml.GetXml, "utf-8", "text/xml", resp)
If success = False Then
Log(http.LastErrorText)
Return
End If
' A status code = 200 indicates success.
Log("Response status code = " & resp.StatusCode)
Dim xmlResp As ChilkatXml
xmlResp.Initialize
xmlResp.LoadXml(resp.BodyStr)
Log("Response body text:")
Log(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>