Chilkat HOME .NET Core C# Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi ActiveX Delphi DLL Go Java Lianja Mono C# Node.js Objective-C PHP ActiveX PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(Lianja) Panama Electronic Invoice Send (SOAP Request)Demonstrate sending an electronic invoice (XML) to http://demoemision.thefactoryhka.com.pa/ws/obj/v1.0/Service.svc
loHttp = createobject("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 loXml = createobject("CkXml") loXml.Tag = "soapenv:Envelope" loXml.AddAttribute("xmlns:soapenv","http://schemas.xmlsoap.org/soap/envelope/") loXml.AddAttribute("xmlns:tem","http://tempuri.org/") loXml.AddAttribute("xmlns:ser","http://schemas.datacontract.org/2004/07/Services.ObjComprobante.v1_0") loXml.UpdateChildContent("soapenv:Header","") loXml.UpdateChildContent("soapenv:Body|tem:Enviar|tem:tokenEmpresa","SOLICITAR") loXml.UpdateChildContent("soapenv:Body|tem:Enviar|tem:tokenPassword","SOLICITAR") loXml.UpdateChildContent("soapenv:Body|tem:Enviar|tem:documento|ser:codigoSucursalEmisor","0000") loXml.UpdateChildContent("soapenv:Body|tem:Enviar|tem:documento|ser:tipoSucursal","1") loXml.UpdateChildContent("soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:tipoEmision","01") loXml.UpdateChildContent("soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:tipoDocumento","01") loXml.UpdateChildContent("soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:numeroDocumentoFiscal","176") loXml.UpdateChildContent("soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:puntoFacturacionFiscal","505") loXml.UpdateChildContent("soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:fechaEmision","2019-05-15T07:49:27-05:00") loXml.UpdateChildContent("soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:fechaSalida","2019-05-15T07:49:27-05:00") loXml.UpdateChildContent("soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:naturalezaOperacion","01") loXml.UpdateChildContent("soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:tipoOperacion","1") loXml.UpdateChildContent("soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:destinoOperacion","1") loXml.UpdateChildContent("soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:formatoCAFE","1") loXml.UpdateChildContent("soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:entregaCAFE","1") loXml.UpdateChildContent("soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:envioContenedor","1") loXml.UpdateChildContent("soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:procesoGeneracion","1") loXml.UpdateChildContent("soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:tipoVenta","1") loXml.UpdateChildContent("soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:informacionInteres","Informacion Interes") loXml.UpdateChildContent("soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:cliente|ser:tipoClienteFE","02") loXml.UpdateChildContent("soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:cliente|ser:tipoContribuyente","2") loXml.UpdateChildContent("soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:cliente|ser:numeroRUC","155596713-2-2015") loXml.UpdateChildContent("soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:cliente|ser:digitoVerificadorRUC","59") loXml.UpdateChildContent("soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:cliente|ser:razonSocial","Ambiente de pruebas") loXml.UpdateChildContent("soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:cliente|ser:direccion","Ave. La Paz") loXml.UpdateChildContent("soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:cliente|ser:codigoUbicacion","1-1-1") loXml.UpdateChildContent("soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:cliente|ser:provincia","Bocas del Toro") loXml.UpdateChildContent("soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:cliente|ser:distrito","Bocas del Toro") loXml.UpdateChildContent("soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:cliente|ser:corregimiento","Bocas del Toro") loXml.UpdateChildContent("soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:cliente|ser:tipoIdentificacion","") loXml.UpdateChildContent("soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:cliente|ser:nroIdentificacionExtranjero","") loXml.UpdateChildContent("soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:cliente|ser:paisExtranjero","") loXml.UpdateChildContent("soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:cliente|ser:telefono1","9999-9999") loXml.UpdateChildContent("soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:cliente|ser:correoElectronico1","usuario@pruebas.com") loXml.UpdateChildContent("soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:cliente|ser:pais","PA") loXml.UpdateChildContent("soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:cliente|ser:paisOtro","") loXml.UpdateChildContent("soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:descripcion","Lapiz") loXml.UpdateChildContent("soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:codigo","CA-001") loXml.UpdateChildContent("soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:unidadMedida","m") loXml.UpdateChildContent("soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:cantidad","1.00") loXml.UpdateChildContent("soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:fechaFabricacion","1999-05-10") loXml.UpdateChildContent("soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:fechaCaducidad","2019-05-10") loXml.UpdateChildContent("soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:unidadMedidaCPBS","") loXml.UpdateChildContent("soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:infoItem","Lapiz con Goma") loXml.UpdateChildContent("soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:precioUnitario","1234.12") loXml.UpdateChildContent("soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:precioUnitarioDescuento","") loXml.UpdateChildContent("soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:precioItem","1234.12") loXml.UpdateChildContent("soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:valorTotal","1335.3384") loXml.UpdateChildContent("soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:codigoGTIN","0") loXml.UpdateChildContent("soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:cantGTINCom","0.99") loXml.UpdateChildContent("soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:codigoGTINInv","0") loXml.UpdateChildContent("soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:cantGTINComInv","1.00") loXml.UpdateChildContent("soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:tasaITBMS","01") loXml.UpdateChildContent("soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:valorITBMS","86.3884") loXml.UpdateChildContent("soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:listaItemOTI|ser:oti|ser:tasaOTI","01") loXml.UpdateChildContent("soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:listaItemOTI|ser:oti|ser:valorTasa","14.81") loXml.UpdateChildContent("soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:listaItemOTI|ser:oti[1]|ser:tasaOTI","02") loXml.UpdateChildContent("soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:listaItemOTI|ser:oti[1]|ser:valorTasa","0.02") loXml.UpdateChildContent("soapenv:Body|tem:Enviar|tem:documento|ser:totalesSubTotales|ser:totalPrecioNeto","1234.12") loXml.UpdateChildContent("soapenv:Body|tem:Enviar|tem:documento|ser:totalesSubTotales|ser:totalITBMS","86.39") loXml.UpdateChildContent("soapenv:Body|tem:Enviar|tem:documento|ser:totalesSubTotales|ser:totalISC","0.00") loXml.UpdateChildContent("soapenv:Body|tem:Enviar|tem:documento|ser:totalesSubTotales|ser:totalMontoGravado","101.22") loXml.UpdateChildContent("soapenv:Body|tem:Enviar|tem:documento|ser:totalesSubTotales|ser:totalDescuento","0.00") loXml.UpdateChildContent("soapenv:Body|tem:Enviar|tem:documento|ser:totalesSubTotales|ser:totalAcarreoCobrado","") loXml.UpdateChildContent("soapenv:Body|tem:Enviar|tem:documento|ser:totalesSubTotales|ser:valorSeguroCobrado","") loXml.UpdateChildContent("soapenv:Body|tem:Enviar|tem:documento|ser:totalesSubTotales|ser:totalFactura","1335.34") loXml.UpdateChildContent("soapenv:Body|tem:Enviar|tem:documento|ser:totalesSubTotales|ser:totalValorRecibido","1335.34") loXml.UpdateChildContent("soapenv:Body|tem:Enviar|tem:documento|ser:totalesSubTotales|ser:tiempoPago","1") loXml.UpdateChildContent("soapenv:Body|tem:Enviar|tem:documento|ser:totalesSubTotales|ser:nroItems","1") loXml.UpdateChildContent("soapenv:Body|tem:Enviar|tem:documento|ser:totalesSubTotales|ser:totalTodosItems","1335.34") loXml.UpdateChildContent("soapenv:Body|tem:Enviar|tem:documento|ser:totalesSubTotales|ser:listaFormaPago|ser:formaPago|ser:formaPagoFact","02") loXml.UpdateChildContent("soapenv:Body|tem:Enviar|tem:documento|ser:totalesSubTotales|ser:listaFormaPago|ser:formaPago|ser:descFormaPago","") loXml.UpdateChildContent("soapenv:Body|tem:Enviar|tem:documento|ser:totalesSubTotales|ser:listaFormaPago|ser:formaPago|ser:valorCuotaPagada","1335.34") loXml.UpdateChildContent("soapenv:Body|tem:Enviar|tem:documento|ser:totalesSubTotales|ser:listaTotalOTI|ser:totalOti|ser:codigoTotalOTI","01") loXml.UpdateChildContent("soapenv:Body|tem:Enviar|tem:documento|ser:totalesSubTotales|ser:listaTotalOTI|ser:totalOti|ser:valorTotalOTI","14.81") loXml.UpdateChildContent("soapenv:Body|tem:Enviar|tem:documento|ser:totalesSubTotales|ser:listaTotalOTI|ser:totalOti[1]|ser:codigoTotalOTI","02") loXml.UpdateChildContent("soapenv:Body|tem:Enviar|tem:documento|ser:totalesSubTotales|ser:listaTotalOTI|ser:totalOti[1]|ser:valorTotalOTI","0.02") loXml.UpdateChildContent("soapenv:Body|tem:Enviar|tem:documento|ser:usoPosterior|ser:cufe","") lcStrXml = loXml.GetXml() // We'll need to add this in the HTTP header: // SOAPAction: http://tempuri.org/IService/Enviar loHttp.SetRequestHeader("SOAPAction","http://tempuri.org/IService/Enviar") loHttp.SetRequestHeader("Content-Type","text/xml; charset=utf-8") // The endpoint for this soap service is: lcEndPoint = "http://demoemision.thefactoryhka.com.pa/ws/obj/v1.0/Service.svc" loResp = loHttp.PostXml(lcEndPoint,lcStrXml,"utf-8") if (loHttp.LastMethodSuccess <> .T.) then ? loHttp.LastErrorText ? "LastHeader:" ? loHttp.LastHeader release loHttp release loXml return endif lnResponseStatusCode = loResp.StatusCode // You may wish to verify that the responseStatusCode equals 200... ? "Response Status Code: " + str(lnResponseStatusCode) // You may examine the exact HTTP header sent with the POST like this: ? "LastHeader:" ? loHttp.LastHeader // Examine the XML returned by the web service: ? "XML Response:" loXmlResp = createobject("CkXml") loXmlResp.LoadXml(loResp.BodyStr) ? loXmlResp.GetXml() // Use this online tool to generate parsing code from response XML: // Generate Parsing Code from XML release loResp release loHttp release loXml release loXmlResp |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.