Pascal (Lazarus/Delphi)
Pascal (Lazarus/Delphi)
Panama Electronic Invoice Send (SOAP Request)
See more HTTP Misc Examples
Demonstrate sending an electronic invoice (XML) to http://demoemision.thefactoryhka.com.pa/ws/obj/v1.0/Service.svcChilkat 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;
http: THttp;
xml: TXml;
strXml: string;
responseStatusCode: Integer;
endPoint: string;
resp: THttpResponse;
xmlResp: TXml;
begin
success := False;
http := THttp.Create;
// 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.
// --------------------------------------------------------------------------------
// The SOAP XML will look like this:
// <soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:tem="http://tempuri.org/" xmlns:ser="http://schemas.datacontract.org/2004/07/Services.ObjComprobante.v1_0">
// <soapenv:Header/>
// <soapenv:Body>
// <tem:Enviar>
// <tem:tokenEmpresa>SOLICITAR</tem:tokenEmpresa>
// <tem:tokenPassword>SOLICITAR</tem:tokenPassword>
// <tem:documento>
// <ser:codigoSucursalEmisor>0000</ser:codigoSucursalEmisor>
// <ser:tipoSucursal>1</ser:tipoSucursal>
// <ser:datosTransaccion>
// <ser:tipoEmision>01</ser:tipoEmision>
// <ser:tipoDocumento>01</ser:tipoDocumento>
// <ser:numeroDocumentoFiscal>176</ser:numeroDocumentoFiscal>
// <ser:puntoFacturacionFiscal>505</ser:puntoFacturacionFiscal>
// <ser:fechaEmision>2019-05-15T07:49:27-05:00</ser:fechaEmision>
// <ser:fechaSalida>2019-05-15T07:49:27-05:00</ser:fechaSalida>
// <ser:naturalezaOperacion>01</ser:naturalezaOperacion>
// <ser:tipoOperacion>1</ser:tipoOperacion>
// <ser:destinoOperacion>1</ser:destinoOperacion> <!--1: Panama 2: Extranjero-->
// <ser:formatoCAFE>1</ser:formatoCAFE>
// <ser:entregaCAFE>1</ser:entregaCAFE>
// <ser:envioContenedor>1</ser:envioContenedor>
// <ser:procesoGeneracion>1</ser:procesoGeneracion>
// <ser:tipoVenta>1</ser:tipoVenta>
// <ser:informacionInteres>Informacion Interes</ser:informacionInteres>
// <ser:cliente>
// <ser:tipoClienteFE>02</ser:tipoClienteFE> <!--iTipoREC-->
// <ser:tipoContribuyente>2</ser:tipoContribuyente>
// <ser:numeroRUC>155596713-2-2015</ser:numeroRUC>
// <ser:digitoVerificadorRUC>59</ser:digitoVerificadorRUC>
// <ser:razonSocial>Ambiente de pruebas</ser:razonSocial>
// <ser:direccion>Ave. La Paz</ser:direccion>
// <ser:codigoUbicacion>1-1-1</ser:codigoUbicacion>
// <ser:provincia>Bocas del Toro</ser:provincia>
// <ser:distrito>Bocas del Toro</ser:distrito>
// <ser:corregimiento>Bocas del Toro</ser:corregimiento>
// <ser:tipoIdentificacion></ser:tipoIdentificacion>
// <ser:nroIdentificacionExtranjero></ser:nroIdentificacionExtranjero>
// <ser:paisExtranjero></ser:paisExtranjero>
// <ser:telefono1>9999-9999</ser:telefono1>
// <ser:correoElectronico1>usuario@pruebas.com</ser:correoElectronico1>
// <ser:pais>PA</ser:pais>
// <ser:paisOtro/>
// </ser:cliente>
// </ser:datosTransaccion>
// <ser:listaItems>
// <ser:item>
// <ser:descripcion>Lapiz</ser:descripcion>
// <ser:codigo>CA-001</ser:codigo>
// <ser:unidadMedida>m</ser:unidadMedida>
// <ser:cantidad>1.00</ser:cantidad>
// <ser:fechaFabricacion>1999-05-10</ser:fechaFabricacion>
// <ser:fechaCaducidad>2019-05-10</ser:fechaCaducidad>
// <ser:unidadMedidaCPBS></ser:unidadMedidaCPBS>
// <ser:infoItem>Lapiz con Goma</ser:infoItem>
// <ser:precioUnitario>1234.12</ser:precioUnitario>
// <ser:precioUnitarioDescuento></ser:precioUnitarioDescuento>
// <ser:precioItem>1234.12</ser:precioItem>
// <ser:valorTotal>1335.3384</ser:valorTotal> <!--dvalTotItem-->
// <ser:codigoGTIN>0</ser:codigoGTIN>
// <ser:cantGTINCom>0.99</ser:cantGTINCom>
// <ser:codigoGTINInv>0</ser:codigoGTINInv>
// <ser:cantGTINComInv>1.00</ser:cantGTINComInv>
// <ser:tasaITBMS>01</ser:tasaITBMS>
// <ser:valorITBMS>86.3884</ser:valorITBMS>
// <ser:listaItemOTI>
// <ser:oti>
// <ser:tasaOTI>01</ser:tasaOTI>
// <ser:valorTasa>14.81</ser:valorTasa>
// </ser:oti>
// <ser:oti>
// <ser:tasaOTI>02</ser:tasaOTI>
// <ser:valorTasa>0.02</ser:valorTasa>
// </ser:oti>
// </ser:listaItemOTI>
// </ser:item>
// </ser:listaItems>
// <ser:totalesSubTotales>
// <ser:totalPrecioNeto>1234.12</ser:totalPrecioNeto>
// <ser:totalITBMS>86.39</ser:totalITBMS>
// <ser:totalISC>0.00</ser:totalISC>
// <ser:totalMontoGravado>101.22</ser:totalMontoGravado>
// <ser:totalDescuento>0.00</ser:totalDescuento>
// <ser:totalAcarreoCobrado/>
// <ser:valorSeguroCobrado/>
// <ser:totalFactura>1335.34</ser:totalFactura>
// <ser:totalValorRecibido>1335.34</ser:totalValorRecibido>
// <ser:tiempoPago>1</ser:tiempoPago>
// <ser:nroItems>1</ser:nroItems>
// <ser:totalTodosItems>1335.34</ser:totalTodosItems>
// <ser:listaFormaPago>
// <ser:formaPago>
// <ser:formaPagoFact>02</ser:formaPagoFact>
// <ser:descFormaPago/>
// <ser:valorCuotaPagada>1335.34</ser:valorCuotaPagada>
// </ser:formaPago>
// </ser:listaFormaPago>
// <ser:listaTotalOTI>
// <ser:totalOti>
// <ser:codigoTotalOTI>01</ser:codigoTotalOTI>
// <ser:valorTotalOTI>14.81</ser:valorTotalOTI>
// </ser:totalOti>
// <ser:totalOti>
// <ser:codigoTotalOTI>02</ser:codigoTotalOTI>
// <ser:valorTotalOTI>0.02</ser:valorTotalOTI>
// </ser:totalOti>
// </ser:listaTotalOTI>
// </ser:totalesSubTotales>
// <ser:usoPosterior>
// <ser:cufe></ser:cufe>
// </ser:usoPosterior>
// </tem:documento>
// </tem:Enviar>
// </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:soapenv','http://schemas.xmlsoap.org/soap/envelope/');
xml.AddAttribute('xmlns:tem','http://tempuri.org/');
xml.AddAttribute('xmlns:ser','http://schemas.datacontract.org/2004/07/Services.ObjComprobante.v1_0');
xml.UpdateChildContent('soapenv:Header','');
xml.UpdateChildContent('soapenv:Body|tem:Enviar|tem:tokenEmpresa','SOLICITAR');
xml.UpdateChildContent('soapenv:Body|tem:Enviar|tem:tokenPassword','SOLICITAR');
xml.UpdateChildContent('soapenv:Body|tem:Enviar|tem:documento|ser:codigoSucursalEmisor','0000');
xml.UpdateChildContent('soapenv:Body|tem:Enviar|tem:documento|ser:tipoSucursal','1');
xml.UpdateChildContent('soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:tipoEmision','01');
xml.UpdateChildContent('soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:tipoDocumento','01');
xml.UpdateChildContent('soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:numeroDocumentoFiscal','176');
xml.UpdateChildContent('soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:puntoFacturacionFiscal','505');
xml.UpdateChildContent('soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:fechaEmision','2019-05-15T07:49:27-05:00');
xml.UpdateChildContent('soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:fechaSalida','2019-05-15T07:49:27-05:00');
xml.UpdateChildContent('soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:naturalezaOperacion','01');
xml.UpdateChildContent('soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:tipoOperacion','1');
xml.UpdateChildContent('soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:destinoOperacion','1');
xml.UpdateChildContent('soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:formatoCAFE','1');
xml.UpdateChildContent('soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:entregaCAFE','1');
xml.UpdateChildContent('soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:envioContenedor','1');
xml.UpdateChildContent('soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:procesoGeneracion','1');
xml.UpdateChildContent('soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:tipoVenta','1');
xml.UpdateChildContent('soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:informacionInteres','Informacion Interes');
xml.UpdateChildContent('soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:cliente|ser:tipoClienteFE','02');
xml.UpdateChildContent('soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:cliente|ser:tipoContribuyente','2');
xml.UpdateChildContent('soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:cliente|ser:numeroRUC','155596713-2-2015');
xml.UpdateChildContent('soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:cliente|ser:digitoVerificadorRUC','59');
xml.UpdateChildContent('soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:cliente|ser:razonSocial','Ambiente de pruebas');
xml.UpdateChildContent('soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:cliente|ser:direccion','Ave. La Paz');
xml.UpdateChildContent('soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:cliente|ser:codigoUbicacion','1-1-1');
xml.UpdateChildContent('soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:cliente|ser:provincia','Bocas del Toro');
xml.UpdateChildContent('soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:cliente|ser:distrito','Bocas del Toro');
xml.UpdateChildContent('soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:cliente|ser:corregimiento','Bocas del Toro');
xml.UpdateChildContent('soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:cliente|ser:tipoIdentificacion','');
xml.UpdateChildContent('soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:cliente|ser:nroIdentificacionExtranjero','');
xml.UpdateChildContent('soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:cliente|ser:paisExtranjero','');
xml.UpdateChildContent('soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:cliente|ser:telefono1','9999-9999');
xml.UpdateChildContent('soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:cliente|ser:correoElectronico1','usuario@pruebas.com');
xml.UpdateChildContent('soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:cliente|ser:pais','PA');
xml.UpdateChildContent('soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:cliente|ser:paisOtro','');
xml.UpdateChildContent('soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:descripcion','Lapiz');
xml.UpdateChildContent('soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:codigo','CA-001');
xml.UpdateChildContent('soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:unidadMedida','m');
xml.UpdateChildContent('soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:cantidad','1.00');
xml.UpdateChildContent('soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:fechaFabricacion','1999-05-10');
xml.UpdateChildContent('soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:fechaCaducidad','2019-05-10');
xml.UpdateChildContent('soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:unidadMedidaCPBS','');
xml.UpdateChildContent('soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:infoItem','Lapiz con Goma');
xml.UpdateChildContent('soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:precioUnitario','1234.12');
xml.UpdateChildContent('soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:precioUnitarioDescuento','');
xml.UpdateChildContent('soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:precioItem','1234.12');
xml.UpdateChildContent('soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:valorTotal','1335.3384');
xml.UpdateChildContent('soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:codigoGTIN','0');
xml.UpdateChildContent('soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:cantGTINCom','0.99');
xml.UpdateChildContent('soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:codigoGTINInv','0');
xml.UpdateChildContent('soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:cantGTINComInv','1.00');
xml.UpdateChildContent('soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:tasaITBMS','01');
xml.UpdateChildContent('soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:valorITBMS','86.3884');
xml.UpdateChildContent('soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:listaItemOTI|ser:oti|ser:tasaOTI','01');
xml.UpdateChildContent('soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:listaItemOTI|ser:oti|ser:valorTasa','14.81');
xml.UpdateChildContent('soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:listaItemOTI|ser:oti[1]|ser:tasaOTI','02');
xml.UpdateChildContent('soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:listaItemOTI|ser:oti[1]|ser:valorTasa','0.02');
xml.UpdateChildContent('soapenv:Body|tem:Enviar|tem:documento|ser:totalesSubTotales|ser:totalPrecioNeto','1234.12');
xml.UpdateChildContent('soapenv:Body|tem:Enviar|tem:documento|ser:totalesSubTotales|ser:totalITBMS','86.39');
xml.UpdateChildContent('soapenv:Body|tem:Enviar|tem:documento|ser:totalesSubTotales|ser:totalISC','0.00');
xml.UpdateChildContent('soapenv:Body|tem:Enviar|tem:documento|ser:totalesSubTotales|ser:totalMontoGravado','101.22');
xml.UpdateChildContent('soapenv:Body|tem:Enviar|tem:documento|ser:totalesSubTotales|ser:totalDescuento','0.00');
xml.UpdateChildContent('soapenv:Body|tem:Enviar|tem:documento|ser:totalesSubTotales|ser:totalAcarreoCobrado','');
xml.UpdateChildContent('soapenv:Body|tem:Enviar|tem:documento|ser:totalesSubTotales|ser:valorSeguroCobrado','');
xml.UpdateChildContent('soapenv:Body|tem:Enviar|tem:documento|ser:totalesSubTotales|ser:totalFactura','1335.34');
xml.UpdateChildContent('soapenv:Body|tem:Enviar|tem:documento|ser:totalesSubTotales|ser:totalValorRecibido','1335.34');
xml.UpdateChildContent('soapenv:Body|tem:Enviar|tem:documento|ser:totalesSubTotales|ser:tiempoPago','1');
xml.UpdateChildContent('soapenv:Body|tem:Enviar|tem:documento|ser:totalesSubTotales|ser:nroItems','1');
xml.UpdateChildContent('soapenv:Body|tem:Enviar|tem:documento|ser:totalesSubTotales|ser:totalTodosItems','1335.34');
xml.UpdateChildContent('soapenv:Body|tem:Enviar|tem:documento|ser:totalesSubTotales|ser:listaFormaPago|ser:formaPago|ser:formaPagoFact','02');
xml.UpdateChildContent('soapenv:Body|tem:Enviar|tem:documento|ser:totalesSubTotales|ser:listaFormaPago|ser:formaPago|ser:descFormaPago','');
xml.UpdateChildContent('soapenv:Body|tem:Enviar|tem:documento|ser:totalesSubTotales|ser:listaFormaPago|ser:formaPago|ser:valorCuotaPagada','1335.34');
xml.UpdateChildContent('soapenv:Body|tem:Enviar|tem:documento|ser:totalesSubTotales|ser:listaTotalOTI|ser:totalOti|ser:codigoTotalOTI','01');
xml.UpdateChildContent('soapenv:Body|tem:Enviar|tem:documento|ser:totalesSubTotales|ser:listaTotalOTI|ser:totalOti|ser:valorTotalOTI','14.81');
xml.UpdateChildContent('soapenv:Body|tem:Enviar|tem:documento|ser:totalesSubTotales|ser:listaTotalOTI|ser:totalOti[1]|ser:codigoTotalOTI','02');
xml.UpdateChildContent('soapenv:Body|tem:Enviar|tem:documento|ser:totalesSubTotales|ser:listaTotalOTI|ser:totalOti[1]|ser:valorTotalOTI','0.02');
xml.UpdateChildContent('soapenv:Body|tem:Enviar|tem:documento|ser:usoPosterior|ser:cufe','');
strXml := xml.GetXml();
// We'll need to add this in the HTTP header:
// SOAPAction: http://tempuri.org/IService/Enviar
http.SetRequestHeader('SOAPAction','http://tempuri.org/IService/Enviar');
// The endpoint for this soap service is:
endPoint := 'http://demoemision.thefactoryhka.com.pa/ws/obj/v1.0/Service.svc';
resp := THttpResponse.Create;
success := http.HttpStr('POST',endPoint,strXml,'utf-8','text/xml',resp);
if (success = False) then
begin
WriteLn(http.LastErrorText);
Exit;
end;
responseStatusCode := resp.StatusCode;
// You may wish to verify that the responseStatusCode equals 200...
WriteLn('Response Status Code: ' + responseStatusCode);
// You may examine the exact HTTP header sent with the POST like this:
WriteLn('LastHeader:');
WriteLn(http.LastHeader);
// Examine the XML returned by the web service:
WriteLn('XML Response:');
xmlResp := TXml.Create;
xmlResp.LoadXml(resp.BodyStr);
WriteLn(xmlResp.GetXml());
// Use this online tool to generate parsing code from response XML:
// Generate Parsing Code from XML
http.Free;
xml.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.