Pascal (Lazarus/Delphi)
Pascal (Lazarus/Delphi)
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 Pascal (Lazarus/Delphi) Downloads
program ChilkatDemo;
// Demonstrates using the Chilkat Pascal wrapper via the C bridge DLL.
// Builds as a console application under Lazarus (FPC) or Delphi.
{$IFDEF FPC}
{$MODE DELPHI}
{$ENDIF}
{$APPTYPE CONSOLE}
uses
{$IFDEF UNIX}
cthreads,
{$ENDIF}
SysUtils,
CkDllLoader,
Chilkat.Http,
Chilkat.HttpResponse,
Chilkat.Xml;
// ---------------------------------------------------------------------------
procedure RunDemo;
var
success: Boolean;
xml: TXml;
http: THttp;
resp: THttpResponse;
xmlResp: TXml;
begin
success := 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
xml := TXml.Create;
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');
http := THttp.Create;
http.BasicAuth := True;
http.Login := '9.999.999-9/mylogin';
http.Password := 'mypassword';
http.SetRequestHeader('SoapAction','https://conexion.facto.cl/documento.php/emitirDocumento');
resp := THttpResponse.Create;
success := http.HttpStr('POST','https://conexion.facto.cl/documento.php',xml.GetXml(),'utf-8','text/xml',resp);
if (success = False) then
begin
WriteLn(http.LastErrorText);
Exit;
end;
// A status code = 200 indicates success.
WriteLn('Response status code = ' + resp.StatusCode);
xmlResp := TXml.Create;
xmlResp.LoadXml(resp.BodyStr);
WriteLn('Response body text:');
WriteLn(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>
xml.Free;
http.Free;
resp.Free;
xmlResp.Free;
end;
// ---------------------------------------------------------------------------
begin
try
RunDemo;
except
on E: Exception do
WriteLn('Unhandled exception: ', E.ClassName, ': ', E.Message);
end;
WriteLn;
{$IFDEF MSWINDOWS}
WriteLn('Press Enter to exit...');
ReadLn;
{$ENDIF}
end.