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
(VBScript) Panama Electronic Invoice Send (SOAP Request)Demonstrate sending an electronic invoice (XML) to http://demoemision.thefactoryhka.com.pa/ws/obj/v1.0/Service.svc
Dim fso, outFile Set fso = CreateObject("Scripting.FileSystemObject") 'Create a Unicode (utf-16) output text file. Set outFile = fso.CreateTextFile("output.txt", True, True) ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Http") set http = 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") set xml = CreateObject("Chilkat.Xml") xml.Tag = "soapenv:Envelope" success = xml.AddAttribute("xmlns:soapenv","http://schemas.xmlsoap.org/soap/envelope/") success = xml.AddAttribute("xmlns:tem","http://tempuri.org/") success = 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" http.SetRequestHeader "Content-Type","text/xml; charset=utf-8" ' The endpoint for this soap service is: endPoint = "http://demoemision.thefactoryhka.com.pa/ws/obj/v1.0/Service.svc" ' resp is a Chilkat.HttpResponse Set resp = http.PostXml(endPoint,strXml,"utf-8") If (http.LastMethodSuccess <> 1) Then outFile.WriteLine(http.LastErrorText) outFile.WriteLine("LastHeader:") outFile.WriteLine(http.LastHeader) WScript.Quit End If responseStatusCode = resp.StatusCode ' You may wish to verify that the responseStatusCode equals 200... outFile.WriteLine("Response Status Code: " & responseStatusCode) ' You may examine the exact HTTP header sent with the POST like this: outFile.WriteLine("LastHeader:") outFile.WriteLine(http.LastHeader) ' Examine the XML returned by the web service: outFile.WriteLine("XML Response:") ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Xml") set xmlResp = CreateObject("Chilkat.Xml") success = xmlResp.LoadXml(resp.BodyStr) outFile.WriteLine(xmlResp.GetXml()) ' Use this online tool to generate parsing code from response XML: ' Generate Parsing Code from XML outFile.Close |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.