Tcl
Tcl
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 Tcl Downloads
load ./chilkat.dll
set success 0
set http [new_CkHttp]
# 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
set xml [new_CkXml]
CkXml_put_Tag $xml "soapenv:Envelope"
CkXml_AddAttribute $xml "xmlns:soapenv" "http://schemas.xmlsoap.org/soap/envelope/"
CkXml_AddAttribute $xml "xmlns:tem" "http://tempuri.org/"
CkXml_AddAttribute $xml "xmlns:ser" "http://schemas.datacontract.org/2004/07/Services.ObjComprobante.v1_0"
CkXml_UpdateChildContent $xml "soapenv:Header" ""
CkXml_UpdateChildContent $xml "soapenv:Body|tem:Enviar|tem:tokenEmpresa" "SOLICITAR"
CkXml_UpdateChildContent $xml "soapenv:Body|tem:Enviar|tem:tokenPassword" "SOLICITAR"
CkXml_UpdateChildContent $xml "soapenv:Body|tem:Enviar|tem:documento|ser:codigoSucursalEmisor" "0000"
CkXml_UpdateChildContent $xml "soapenv:Body|tem:Enviar|tem:documento|ser:tipoSucursal" "1"
CkXml_UpdateChildContent $xml "soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:tipoEmision" "01"
CkXml_UpdateChildContent $xml "soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:tipoDocumento" "01"
CkXml_UpdateChildContent $xml "soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:numeroDocumentoFiscal" "176"
CkXml_UpdateChildContent $xml "soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:puntoFacturacionFiscal" "505"
CkXml_UpdateChildContent $xml "soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:fechaEmision" "2019-05-15T07:49:27-05:00"
CkXml_UpdateChildContent $xml "soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:fechaSalida" "2019-05-15T07:49:27-05:00"
CkXml_UpdateChildContent $xml "soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:naturalezaOperacion" "01"
CkXml_UpdateChildContent $xml "soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:tipoOperacion" "1"
CkXml_UpdateChildContent $xml "soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:destinoOperacion" "1"
CkXml_UpdateChildContent $xml "soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:formatoCAFE" "1"
CkXml_UpdateChildContent $xml "soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:entregaCAFE" "1"
CkXml_UpdateChildContent $xml "soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:envioContenedor" "1"
CkXml_UpdateChildContent $xml "soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:procesoGeneracion" "1"
CkXml_UpdateChildContent $xml "soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:tipoVenta" "1"
CkXml_UpdateChildContent $xml "soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:informacionInteres" "Informacion Interes"
CkXml_UpdateChildContent $xml "soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:cliente|ser:tipoClienteFE" "02"
CkXml_UpdateChildContent $xml "soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:cliente|ser:tipoContribuyente" "2"
CkXml_UpdateChildContent $xml "soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:cliente|ser:numeroRUC" "155596713-2-2015"
CkXml_UpdateChildContent $xml "soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:cliente|ser:digitoVerificadorRUC" "59"
CkXml_UpdateChildContent $xml "soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:cliente|ser:razonSocial" "Ambiente de pruebas"
CkXml_UpdateChildContent $xml "soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:cliente|ser:direccion" "Ave. La Paz"
CkXml_UpdateChildContent $xml "soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:cliente|ser:codigoUbicacion" "1-1-1"
CkXml_UpdateChildContent $xml "soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:cliente|ser:provincia" "Bocas del Toro"
CkXml_UpdateChildContent $xml "soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:cliente|ser:distrito" "Bocas del Toro"
CkXml_UpdateChildContent $xml "soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:cliente|ser:corregimiento" "Bocas del Toro"
CkXml_UpdateChildContent $xml "soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:cliente|ser:tipoIdentificacion" ""
CkXml_UpdateChildContent $xml "soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:cliente|ser:nroIdentificacionExtranjero" ""
CkXml_UpdateChildContent $xml "soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:cliente|ser:paisExtranjero" ""
CkXml_UpdateChildContent $xml "soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:cliente|ser:telefono1" "9999-9999"
CkXml_UpdateChildContent $xml "soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:cliente|ser:correoElectronico1" "usuario@pruebas.com"
CkXml_UpdateChildContent $xml "soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:cliente|ser:pais" "PA"
CkXml_UpdateChildContent $xml "soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:cliente|ser:paisOtro" ""
CkXml_UpdateChildContent $xml "soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:descripcion" "Lapiz"
CkXml_UpdateChildContent $xml "soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:codigo" "CA-001"
CkXml_UpdateChildContent $xml "soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:unidadMedida" "m"
CkXml_UpdateChildContent $xml "soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:cantidad" "1.00"
CkXml_UpdateChildContent $xml "soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:fechaFabricacion" "1999-05-10"
CkXml_UpdateChildContent $xml "soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:fechaCaducidad" "2019-05-10"
CkXml_UpdateChildContent $xml "soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:unidadMedidaCPBS" ""
CkXml_UpdateChildContent $xml "soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:infoItem" "Lapiz con Goma"
CkXml_UpdateChildContent $xml "soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:precioUnitario" "1234.12"
CkXml_UpdateChildContent $xml "soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:precioUnitarioDescuento" ""
CkXml_UpdateChildContent $xml "soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:precioItem" "1234.12"
CkXml_UpdateChildContent $xml "soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:valorTotal" "1335.3384"
CkXml_UpdateChildContent $xml "soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:codigoGTIN" "0"
CkXml_UpdateChildContent $xml "soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:cantGTINCom" "0.99"
CkXml_UpdateChildContent $xml "soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:codigoGTINInv" "0"
CkXml_UpdateChildContent $xml "soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:cantGTINComInv" "1.00"
CkXml_UpdateChildContent $xml "soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:tasaITBMS" "01"
CkXml_UpdateChildContent $xml "soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:valorITBMS" "86.3884"
CkXml_UpdateChildContent $xml "soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:listaItemOTI|ser:oti|ser:tasaOTI" "01"
CkXml_UpdateChildContent $xml "soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:listaItemOTI|ser:oti|ser:valorTasa" "14.81"
CkXml_UpdateChildContent $xml "soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:listaItemOTI|ser:oti[1]|ser:tasaOTI" "02"
CkXml_UpdateChildContent $xml "soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:listaItemOTI|ser:oti[1]|ser:valorTasa" "0.02"
CkXml_UpdateChildContent $xml "soapenv:Body|tem:Enviar|tem:documento|ser:totalesSubTotales|ser:totalPrecioNeto" "1234.12"
CkXml_UpdateChildContent $xml "soapenv:Body|tem:Enviar|tem:documento|ser:totalesSubTotales|ser:totalITBMS" "86.39"
CkXml_UpdateChildContent $xml "soapenv:Body|tem:Enviar|tem:documento|ser:totalesSubTotales|ser:totalISC" "0.00"
CkXml_UpdateChildContent $xml "soapenv:Body|tem:Enviar|tem:documento|ser:totalesSubTotales|ser:totalMontoGravado" "101.22"
CkXml_UpdateChildContent $xml "soapenv:Body|tem:Enviar|tem:documento|ser:totalesSubTotales|ser:totalDescuento" "0.00"
CkXml_UpdateChildContent $xml "soapenv:Body|tem:Enviar|tem:documento|ser:totalesSubTotales|ser:totalAcarreoCobrado" ""
CkXml_UpdateChildContent $xml "soapenv:Body|tem:Enviar|tem:documento|ser:totalesSubTotales|ser:valorSeguroCobrado" ""
CkXml_UpdateChildContent $xml "soapenv:Body|tem:Enviar|tem:documento|ser:totalesSubTotales|ser:totalFactura" "1335.34"
CkXml_UpdateChildContent $xml "soapenv:Body|tem:Enviar|tem:documento|ser:totalesSubTotales|ser:totalValorRecibido" "1335.34"
CkXml_UpdateChildContent $xml "soapenv:Body|tem:Enviar|tem:documento|ser:totalesSubTotales|ser:tiempoPago" "1"
CkXml_UpdateChildContent $xml "soapenv:Body|tem:Enviar|tem:documento|ser:totalesSubTotales|ser:nroItems" "1"
CkXml_UpdateChildContent $xml "soapenv:Body|tem:Enviar|tem:documento|ser:totalesSubTotales|ser:totalTodosItems" "1335.34"
CkXml_UpdateChildContent $xml "soapenv:Body|tem:Enviar|tem:documento|ser:totalesSubTotales|ser:listaFormaPago|ser:formaPago|ser:formaPagoFact" "02"
CkXml_UpdateChildContent $xml "soapenv:Body|tem:Enviar|tem:documento|ser:totalesSubTotales|ser:listaFormaPago|ser:formaPago|ser:descFormaPago" ""
CkXml_UpdateChildContent $xml "soapenv:Body|tem:Enviar|tem:documento|ser:totalesSubTotales|ser:listaFormaPago|ser:formaPago|ser:valorCuotaPagada" "1335.34"
CkXml_UpdateChildContent $xml "soapenv:Body|tem:Enviar|tem:documento|ser:totalesSubTotales|ser:listaTotalOTI|ser:totalOti|ser:codigoTotalOTI" "01"
CkXml_UpdateChildContent $xml "soapenv:Body|tem:Enviar|tem:documento|ser:totalesSubTotales|ser:listaTotalOTI|ser:totalOti|ser:valorTotalOTI" "14.81"
CkXml_UpdateChildContent $xml "soapenv:Body|tem:Enviar|tem:documento|ser:totalesSubTotales|ser:listaTotalOTI|ser:totalOti[1]|ser:codigoTotalOTI" "02"
CkXml_UpdateChildContent $xml "soapenv:Body|tem:Enviar|tem:documento|ser:totalesSubTotales|ser:listaTotalOTI|ser:totalOti[1]|ser:valorTotalOTI" "0.02"
CkXml_UpdateChildContent $xml "soapenv:Body|tem:Enviar|tem:documento|ser:usoPosterior|ser:cufe" ""
set strXml [CkXml_getXml $xml]
# We'll need to add this in the HTTP header:
# SOAPAction: http://tempuri.org/IService/Enviar
CkHttp_SetRequestHeader $http "SOAPAction" "http://tempuri.org/IService/Enviar"
# The endpoint for this soap service is:
set endPoint "http://demoemision.thefactoryhka.com.pa/ws/obj/v1.0/Service.svc"
set resp [new_CkHttpResponse]
set success [CkHttp_HttpStr $http "POST" $endPoint $strXml "utf-8" "text/xml" $resp]
if {$success == 0} then {
puts [CkHttp_lastErrorText $http]
delete_CkHttp $http
delete_CkXml $xml
delete_CkHttpResponse $resp
exit
}
set responseStatusCode [CkHttpResponse_get_StatusCode $resp]
# You may wish to verify that the responseStatusCode equals 200...
puts "Response Status Code: $responseStatusCode"
# You may examine the exact HTTP header sent with the POST like this:
puts "LastHeader:"
puts [CkHttp_lastHeader $http]
# Examine the XML returned by the web service:
puts "XML Response:"
set xmlResp [new_CkXml]
CkXml_LoadXml $xmlResp [CkHttpResponse_bodyStr $resp]
puts [CkXml_getXml $xmlResp]
# Use this online tool to generate parsing code from response XML:
# Generate Parsing Code from XML
delete_CkHttp $http
delete_CkXml $xml
delete_CkHttpResponse $resp
delete_CkXml $xmlResp