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
(Visual FoxPro) Panama Electronic Invoice Send (SOAP Request)Demonstrate sending an electronic invoice (XML) to http://demoemision.thefactoryhka.com.pa/ws/obj/v1.0/Service.svc
LOCAL loHttp LOCAL lnSuccess LOCAL loXml LOCAL lcStrXml LOCAL lnResponseStatusCode LOCAL lcEndPoint LOCAL loResp LOCAL loXmlResp * For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Http') loHttp = CreateObject('Chilkat.Http') * 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 * For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Xml') loXml = CreateObject('Chilkat.Xml') 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 <> 1) THEN ? loHttp.LastErrorText ? "LastHeader:" ? loHttp.LastHeader RELEASE loHttp RELEASE loXml CANCEL 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:" * For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Xml') loXmlResp = CreateObject('Chilkat.Xml') 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.