Tcl
Tcl
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 Tcl Downloads
load ./chilkat.dll
set success 0
# 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
set xml [new_CkXml]
CkXml_put_Tag $xml "soapenv:Envelope"
CkXml_AddAttribute $xml "xmlns:xsi" "http://www.w3.org/2001/XMLSchema-instance"
CkXml_AddAttribute $xml "xmlns:xsd" "http://www.w3.org/2001/XMLSchema"
CkXml_AddAttribute $xml "xmlns:soapenv" "http://schemas.xmlsoap.org/soap/envelope/"
CkXml_AddAttribute $xml "xmlns:urn" "urn:server"
CkXml_UpdateChildContent $xml "soapenv:Header" ""
CkXml_UpdateAttrAt $xml "soapenv:Body|urn:emitirDocumento" 1 "soapenv:encodingStyle" "http://schemas.xmlsoap.org/soap/encoding/"
CkXml_UpdateAttrAt $xml "soapenv:Body|urn:emitirDocumento|documento" 1 "xsi:type" "urn:emitir_dte"
CkXml_UpdateAttrAt $xml "soapenv:Body|urn:emitirDocumento|documento|encabezado" 1 "xsi:type" "urn:encabezado"
CkXml_UpdateAttrAt $xml "soapenv:Body|urn:emitirDocumento|documento|encabezado|tipo_dte" 1 "xsi:type" "xsd:string"
CkXml_UpdateChildContent $xml "soapenv:Body|urn:emitirDocumento|documento|encabezado|tipo_dte" "39"
CkXml_UpdateAttrAt $xml "soapenv:Body|urn:emitirDocumento|documento|encabezado|fecha_emision" 1 "xsi:type" "xsd:date"
CkXml_UpdateChildContent $xml "soapenv:Body|urn:emitirDocumento|documento|encabezado|fecha_emision" "2019-08-03"
CkXml_UpdateAttrAt $xml "soapenv:Body|urn:emitirDocumento|documento|encabezado|condiciones_pago" 1 "xsi:type" "xsd:string"
CkXml_UpdateChildContent $xml "soapenv:Body|urn:emitirDocumento|documento|encabezado|condiciones_pago" "0"
CkXml_UpdateAttrAt $xml "soapenv:Body|urn:emitirDocumento|documento|encabezado|receptor_email" 1 "xsi:type" "xsd:string"
CkXml_UpdateChildContent $xml "soapenv:Body|urn:emitirDocumento|documento|encabezado|receptor_email" "example@gmail.com"
CkXml_UpdateAttrAt $xml "soapenv:Body|urn:emitirDocumento|documento|detalles" 1 "xsi:type" "urn:detalles"
CkXml_UpdateAttrAt $xml "soapenv:Body|urn:emitirDocumento|documento|detalles|detalle" 1 "xsi:type" "urn:detalle"
CkXml_UpdateAttrAt $xml "soapenv:Body|urn:emitirDocumento|documento|detalles|detalle|cantidad" 1 "xsi:type" "xsd:int"
CkXml_UpdateChildContent $xml "soapenv:Body|urn:emitirDocumento|documento|detalles|detalle|cantidad" "3"
CkXml_UpdateAttrAt $xml "soapenv:Body|urn:emitirDocumento|documento|detalles|detalle|glosa" 1 "xsi:type" "xsd:string"
CkXml_UpdateChildContent $xml "soapenv:Body|urn:emitirDocumento|documento|detalles|detalle|glosa" "Recarga Agua Purificada"
CkXml_UpdateAttrAt $xml "soapenv:Body|urn:emitirDocumento|documento|detalles|detalle|monto_unitario" 1 "xsi:type" "xsd:decimal"
CkXml_UpdateChildContent $xml "soapenv:Body|urn:emitirDocumento|documento|detalles|detalle|monto_unitario" "1932.773109"
CkXml_UpdateAttrAt $xml "soapenv:Body|urn:emitirDocumento|documento|detalles|detalle|exento_afecto" 1 "xsi:type" "xsd:boolean"
CkXml_UpdateChildContent $xml "soapenv:Body|urn:emitirDocumento|documento|detalles|detalle|exento_afecto" "1"
CkXml_UpdateAttrAt $xml "soapenv:Body|urn:emitirDocumento|documento|totales" 1 "xsi:type" "urn:totales"
CkXml_UpdateAttrAt $xml "soapenv:Body|urn:emitirDocumento|documento|totales|total_exento" 1 "xsi:type" "xsd:int"
CkXml_UpdateChildContent $xml "soapenv:Body|urn:emitirDocumento|documento|totales|total_exento" "0"
CkXml_UpdateAttrAt $xml "soapenv:Body|urn:emitirDocumento|documento|totales|total_afecto" 1 "xsi:type" "xsd:int"
CkXml_UpdateChildContent $xml "soapenv:Body|urn:emitirDocumento|documento|totales|total_afecto" "5798"
CkXml_UpdateAttrAt $xml "soapenv:Body|urn:emitirDocumento|documento|totales|total_iva" 1 "xsi:type" "xsd:int"
CkXml_UpdateChildContent $xml "soapenv:Body|urn:emitirDocumento|documento|totales|total_iva" "1102"
CkXml_UpdateAttrAt $xml "soapenv:Body|urn:emitirDocumento|documento|totales|total_final" 1 "xsi:type" "xsd:Int"
CkXml_UpdateChildContent $xml "soapenv:Body|urn:emitirDocumento|documento|totales|total_final" "6900"
set http [new_CkHttp]
CkHttp_put_BasicAuth $http 1
CkHttp_put_Login $http "9.999.999-9/mylogin"
CkHttp_put_Password $http "mypassword"
CkHttp_SetRequestHeader $http "SoapAction" "https://conexion.facto.cl/documento.php/emitirDocumento"
set resp [new_CkHttpResponse]
set success [CkHttp_HttpStr $http "POST" "https://conexion.facto.cl/documento.php" [CkXml_getXml $xml] "utf-8" "text/xml" $resp]
if {$success == 0} then {
puts [CkHttp_lastErrorText $http]
delete_CkXml $xml
delete_CkHttp $http
delete_CkHttpResponse $resp
exit
}
# A status code = 200 indicates success.
puts "Response status code = [CkHttpResponse_get_StatusCode $resp]"
set xmlResp [new_CkXml]
CkXml_LoadXml $xmlResp [CkHttpResponse_bodyStr $resp]
puts "Response body text:"
puts [CkXml_getXml $xmlResp]
# 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>
delete_CkXml $xml
delete_CkHttp $http
delete_CkHttpResponse $resp
delete_CkXml $xmlResp