DataFlex
DataFlex
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 DataFlex Downloads
Use ChilkatAx-win32.pkg
Procedure Test
Boolean iSuccess
Handle hoHttp
Handle hoXml
String sStrXml
Integer iResponseStatusCode
String sEndPoint
Variant vResp
Handle hoResp
Handle hoXmlResp
String sTemp1
Move False To iSuccess
Get Create (RefClass(cComChilkatHttp)) To hoHttp
If (Not(IsComObjectCreated(hoHttp))) Begin
Send CreateComObject of hoHttp
End
// 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
Get Create (RefClass(cComChilkatXml)) To hoXml
If (Not(IsComObjectCreated(hoXml))) Begin
Send CreateComObject of hoXml
End
Set ComTag Of hoXml To "soapenv:Envelope"
Get ComAddAttribute Of hoXml "xmlns:soapenv" "http://schemas.xmlsoap.org/soap/envelope/" To iSuccess
Get ComAddAttribute Of hoXml "xmlns:tem" "http://tempuri.org/" To iSuccess
Get ComAddAttribute Of hoXml "xmlns:ser" "http://schemas.datacontract.org/2004/07/Services.ObjComprobante.v1_0" To iSuccess
Send ComUpdateChildContent To hoXml "soapenv:Header" ""
Send ComUpdateChildContent To hoXml "soapenv:Body|tem:Enviar|tem:tokenEmpresa" "SOLICITAR"
Send ComUpdateChildContent To hoXml "soapenv:Body|tem:Enviar|tem:tokenPassword" "SOLICITAR"
Send ComUpdateChildContent To hoXml "soapenv:Body|tem:Enviar|tem:documento|ser:codigoSucursalEmisor" "0000"
Send ComUpdateChildContent To hoXml "soapenv:Body|tem:Enviar|tem:documento|ser:tipoSucursal" "1"
Send ComUpdateChildContent To hoXml "soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:tipoEmision" "01"
Send ComUpdateChildContent To hoXml "soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:tipoDocumento" "01"
Send ComUpdateChildContent To hoXml "soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:numeroDocumentoFiscal" "176"
Send ComUpdateChildContent To hoXml "soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:puntoFacturacionFiscal" "505"
Send ComUpdateChildContent To hoXml "soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:fechaEmision" "2019-05-15T07:49:27-05:00"
Send ComUpdateChildContent To hoXml "soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:fechaSalida" "2019-05-15T07:49:27-05:00"
Send ComUpdateChildContent To hoXml "soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:naturalezaOperacion" "01"
Send ComUpdateChildContent To hoXml "soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:tipoOperacion" "1"
Send ComUpdateChildContent To hoXml "soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:destinoOperacion" "1"
Send ComUpdateChildContent To hoXml "soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:formatoCAFE" "1"
Send ComUpdateChildContent To hoXml "soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:entregaCAFE" "1"
Send ComUpdateChildContent To hoXml "soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:envioContenedor" "1"
Send ComUpdateChildContent To hoXml "soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:procesoGeneracion" "1"
Send ComUpdateChildContent To hoXml "soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:tipoVenta" "1"
Send ComUpdateChildContent To hoXml "soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:informacionInteres" "Informacion Interes"
Send ComUpdateChildContent To hoXml "soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:cliente|ser:tipoClienteFE" "02"
Send ComUpdateChildContent To hoXml "soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:cliente|ser:tipoContribuyente" "2"
Send ComUpdateChildContent To hoXml "soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:cliente|ser:numeroRUC" "155596713-2-2015"
Send ComUpdateChildContent To hoXml "soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:cliente|ser:digitoVerificadorRUC" "59"
Send ComUpdateChildContent To hoXml "soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:cliente|ser:razonSocial" "Ambiente de pruebas"
Send ComUpdateChildContent To hoXml "soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:cliente|ser:direccion" "Ave. La Paz"
Send ComUpdateChildContent To hoXml "soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:cliente|ser:codigoUbicacion" "1-1-1"
Send ComUpdateChildContent To hoXml "soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:cliente|ser:provincia" "Bocas del Toro"
Send ComUpdateChildContent To hoXml "soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:cliente|ser:distrito" "Bocas del Toro"
Send ComUpdateChildContent To hoXml "soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:cliente|ser:corregimiento" "Bocas del Toro"
Send ComUpdateChildContent To hoXml "soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:cliente|ser:tipoIdentificacion" ""
Send ComUpdateChildContent To hoXml "soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:cliente|ser:nroIdentificacionExtranjero" ""
Send ComUpdateChildContent To hoXml "soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:cliente|ser:paisExtranjero" ""
Send ComUpdateChildContent To hoXml "soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:cliente|ser:telefono1" "9999-9999"
Send ComUpdateChildContent To hoXml "soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:cliente|ser:correoElectronico1" "usuario@pruebas.com"
Send ComUpdateChildContent To hoXml "soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:cliente|ser:pais" "PA"
Send ComUpdateChildContent To hoXml "soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:cliente|ser:paisOtro" ""
Send ComUpdateChildContent To hoXml "soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:descripcion" "Lapiz"
Send ComUpdateChildContent To hoXml "soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:codigo" "CA-001"
Send ComUpdateChildContent To hoXml "soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:unidadMedida" "m"
Send ComUpdateChildContent To hoXml "soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:cantidad" "1.00"
Send ComUpdateChildContent To hoXml "soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:fechaFabricacion" "1999-05-10"
Send ComUpdateChildContent To hoXml "soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:fechaCaducidad" "2019-05-10"
Send ComUpdateChildContent To hoXml "soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:unidadMedidaCPBS" ""
Send ComUpdateChildContent To hoXml "soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:infoItem" "Lapiz con Goma"
Send ComUpdateChildContent To hoXml "soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:precioUnitario" "1234.12"
Send ComUpdateChildContent To hoXml "soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:precioUnitarioDescuento" ""
Send ComUpdateChildContent To hoXml "soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:precioItem" "1234.12"
Send ComUpdateChildContent To hoXml "soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:valorTotal" "1335.3384"
Send ComUpdateChildContent To hoXml "soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:codigoGTIN" "0"
Send ComUpdateChildContent To hoXml "soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:cantGTINCom" "0.99"
Send ComUpdateChildContent To hoXml "soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:codigoGTINInv" "0"
Send ComUpdateChildContent To hoXml "soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:cantGTINComInv" "1.00"
Send ComUpdateChildContent To hoXml "soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:tasaITBMS" "01"
Send ComUpdateChildContent To hoXml "soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:valorITBMS" "86.3884"
Send ComUpdateChildContent To hoXml "soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:listaItemOTI|ser:oti|ser:tasaOTI" "01"
Send ComUpdateChildContent To hoXml "soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:listaItemOTI|ser:oti|ser:valorTasa" "14.81"
Send ComUpdateChildContent To hoXml "soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:listaItemOTI|ser:oti[1]|ser:tasaOTI" "02"
Send ComUpdateChildContent To hoXml "soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:listaItemOTI|ser:oti[1]|ser:valorTasa" "0.02"
Send ComUpdateChildContent To hoXml "soapenv:Body|tem:Enviar|tem:documento|ser:totalesSubTotales|ser:totalPrecioNeto" "1234.12"
Send ComUpdateChildContent To hoXml "soapenv:Body|tem:Enviar|tem:documento|ser:totalesSubTotales|ser:totalITBMS" "86.39"
Send ComUpdateChildContent To hoXml "soapenv:Body|tem:Enviar|tem:documento|ser:totalesSubTotales|ser:totalISC" "0.00"
Send ComUpdateChildContent To hoXml "soapenv:Body|tem:Enviar|tem:documento|ser:totalesSubTotales|ser:totalMontoGravado" "101.22"
Send ComUpdateChildContent To hoXml "soapenv:Body|tem:Enviar|tem:documento|ser:totalesSubTotales|ser:totalDescuento" "0.00"
Send ComUpdateChildContent To hoXml "soapenv:Body|tem:Enviar|tem:documento|ser:totalesSubTotales|ser:totalAcarreoCobrado" ""
Send ComUpdateChildContent To hoXml "soapenv:Body|tem:Enviar|tem:documento|ser:totalesSubTotales|ser:valorSeguroCobrado" ""
Send ComUpdateChildContent To hoXml "soapenv:Body|tem:Enviar|tem:documento|ser:totalesSubTotales|ser:totalFactura" "1335.34"
Send ComUpdateChildContent To hoXml "soapenv:Body|tem:Enviar|tem:documento|ser:totalesSubTotales|ser:totalValorRecibido" "1335.34"
Send ComUpdateChildContent To hoXml "soapenv:Body|tem:Enviar|tem:documento|ser:totalesSubTotales|ser:tiempoPago" "1"
Send ComUpdateChildContent To hoXml "soapenv:Body|tem:Enviar|tem:documento|ser:totalesSubTotales|ser:nroItems" "1"
Send ComUpdateChildContent To hoXml "soapenv:Body|tem:Enviar|tem:documento|ser:totalesSubTotales|ser:totalTodosItems" "1335.34"
Send ComUpdateChildContent To hoXml "soapenv:Body|tem:Enviar|tem:documento|ser:totalesSubTotales|ser:listaFormaPago|ser:formaPago|ser:formaPagoFact" "02"
Send ComUpdateChildContent To hoXml "soapenv:Body|tem:Enviar|tem:documento|ser:totalesSubTotales|ser:listaFormaPago|ser:formaPago|ser:descFormaPago" ""
Send ComUpdateChildContent To hoXml "soapenv:Body|tem:Enviar|tem:documento|ser:totalesSubTotales|ser:listaFormaPago|ser:formaPago|ser:valorCuotaPagada" "1335.34"
Send ComUpdateChildContent To hoXml "soapenv:Body|tem:Enviar|tem:documento|ser:totalesSubTotales|ser:listaTotalOTI|ser:totalOti|ser:codigoTotalOTI" "01"
Send ComUpdateChildContent To hoXml "soapenv:Body|tem:Enviar|tem:documento|ser:totalesSubTotales|ser:listaTotalOTI|ser:totalOti|ser:valorTotalOTI" "14.81"
Send ComUpdateChildContent To hoXml "soapenv:Body|tem:Enviar|tem:documento|ser:totalesSubTotales|ser:listaTotalOTI|ser:totalOti[1]|ser:codigoTotalOTI" "02"
Send ComUpdateChildContent To hoXml "soapenv:Body|tem:Enviar|tem:documento|ser:totalesSubTotales|ser:listaTotalOTI|ser:totalOti[1]|ser:valorTotalOTI" "0.02"
Send ComUpdateChildContent To hoXml "soapenv:Body|tem:Enviar|tem:documento|ser:usoPosterior|ser:cufe" ""
Get ComGetXml Of hoXml To sStrXml
// We'll need to add this in the HTTP header:
// SOAPAction: http://tempuri.org/IService/Enviar
Send ComSetRequestHeader To hoHttp "SOAPAction" "http://tempuri.org/IService/Enviar"
// The endpoint for this soap service is:
Move "http://demoemision.thefactoryhka.com.pa/ws/obj/v1.0/Service.svc" To sEndPoint
Get Create (RefClass(cComChilkatHttpResponse)) To hoResp
If (Not(IsComObjectCreated(hoResp))) Begin
Send CreateComObject of hoResp
End
Get pvComObject of hoResp to vResp
Get ComHttpStr Of hoHttp "POST" sEndPoint sStrXml "utf-8" "text/xml" vResp To iSuccess
If (iSuccess = False) Begin
Get ComLastErrorText Of hoHttp To sTemp1
Showln sTemp1
Procedure_Return
End
Get ComStatusCode Of hoResp To iResponseStatusCode
// You may wish to verify that the responseStatusCode equals 200...
Showln "Response Status Code: " iResponseStatusCode
// You may examine the exact HTTP header sent with the POST like this:
Showln "LastHeader:"
Get ComLastHeader Of hoHttp To sTemp1
Showln sTemp1
// Examine the XML returned by the web service:
Showln "XML Response:"
Get Create (RefClass(cComChilkatXml)) To hoXmlResp
If (Not(IsComObjectCreated(hoXmlResp))) Begin
Send CreateComObject of hoXmlResp
End
Get ComBodyStr Of hoResp To sTemp1
Get ComLoadXml Of hoXmlResp sTemp1 To iSuccess
Get ComGetXml Of hoXmlResp To sTemp1
Showln sTemp1
// Use this online tool to generate parsing code from response XML:
// Generate Parsing Code from XML
End_Procedure