Perl
Perl
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 Perl Downloads
use chilkat();
$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
$xml = chilkat::CkXml->new();
$xml->put_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",1,"soapenv:encodingStyle","http://schemas.xmlsoap.org/soap/encoding/");
$xml->UpdateAttrAt("soapenv:Body|urn:emitirDocumento|documento",1,"xsi:type","urn:emitir_dte");
$xml->UpdateAttrAt("soapenv:Body|urn:emitirDocumento|documento|encabezado",1,"xsi:type","urn:encabezado");
$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");
$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");
$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");
$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');
$xml->UpdateAttrAt("soapenv:Body|urn:emitirDocumento|documento|detalles",1,"xsi:type","urn:detalles");
$xml->UpdateAttrAt("soapenv:Body|urn:emitirDocumento|documento|detalles|detalle",1,"xsi:type","urn:detalle");
$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");
$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");
$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");
$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");
$xml->UpdateAttrAt("soapenv:Body|urn:emitirDocumento|documento|totales",1,"xsi:type","urn:totales");
$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");
$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");
$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");
$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");
$http = chilkat::CkHttp->new();
$http->put_BasicAuth(1);
$http->put_Login("9.999.999-9/mylogin");
$http->put_Password("mypassword");
$http->SetRequestHeader("SoapAction","https://conexion.facto.cl/documento.php/emitirDocumento");
$resp = chilkat::CkHttpResponse->new();
$success = $http->HttpStr("POST","https://conexion.facto.cl/documento.php",$xml->getXml(),"utf-8","text/xml",$resp);
if ($success == 0) {
print $http->lastErrorText() . "\r\n";
exit;
}
# A status code = 200 indicates success.
print "Response status code = " . $resp->get_StatusCode() . "\r\n";
$xmlResp = chilkat::CkXml->new();
$xmlResp->LoadXml($resp->bodyStr());
print "Response body text:" . "\r\n";
print $xmlResp->getXml() . "\r\n";
# 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>