|
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
(AutoIt) Panama Electronic Invoice Send (SOAP Request)Demonstrate sending an electronic invoice (XML) to http://demoemision.thefactoryhka.com.pa/ws/obj/v1.0/Service.svc
$oHttp = ObjCreate("Chilkat.Http") Local $bSuccess ; 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 $oXml = ObjCreate("Chilkat.Xml") $oXml.Tag = "soapenv:Envelope" $oXml.AddAttribute("xmlns:soapenv","http://schemas.xmlsoap.org/soap/envelope/") $oXml.AddAttribute("xmlns:tem","http://tempuri.org/") $oXml.AddAttribute("xmlns:ser","http://schemas.datacontract.org/2004/07/Services.ObjComprobante.v1_0") $oXml.UpdateChildContent "soapenv:Header","" $oXml.UpdateChildContent "soapenv:Body|tem:Enviar|tem:tokenEmpresa","SOLICITAR" $oXml.UpdateChildContent "soapenv:Body|tem:Enviar|tem:tokenPassword","SOLICITAR" $oXml.UpdateChildContent "soapenv:Body|tem:Enviar|tem:documento|ser:codigoSucursalEmisor","0000" $oXml.UpdateChildContent "soapenv:Body|tem:Enviar|tem:documento|ser:tipoSucursal","1" $oXml.UpdateChildContent "soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:tipoEmision","01" $oXml.UpdateChildContent "soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:tipoDocumento","01" $oXml.UpdateChildContent "soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:numeroDocumentoFiscal","176" $oXml.UpdateChildContent "soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:puntoFacturacionFiscal","505" $oXml.UpdateChildContent "soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:fechaEmision","2019-05-15T07:49:27-05:00" $oXml.UpdateChildContent "soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:fechaSalida","2019-05-15T07:49:27-05:00" $oXml.UpdateChildContent "soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:naturalezaOperacion","01" $oXml.UpdateChildContent "soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:tipoOperacion","1" $oXml.UpdateChildContent "soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:destinoOperacion","1" $oXml.UpdateChildContent "soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:formatoCAFE","1" $oXml.UpdateChildContent "soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:entregaCAFE","1" $oXml.UpdateChildContent "soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:envioContenedor","1" $oXml.UpdateChildContent "soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:procesoGeneracion","1" $oXml.UpdateChildContent "soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:tipoVenta","1" $oXml.UpdateChildContent "soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:informacionInteres","Informacion Interes" $oXml.UpdateChildContent "soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:cliente|ser:tipoClienteFE","02" $oXml.UpdateChildContent "soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:cliente|ser:tipoContribuyente","2" $oXml.UpdateChildContent "soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:cliente|ser:numeroRUC","155596713-2-2015" $oXml.UpdateChildContent "soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:cliente|ser:digitoVerificadorRUC","59" $oXml.UpdateChildContent "soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:cliente|ser:razonSocial","Ambiente de pruebas" $oXml.UpdateChildContent "soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:cliente|ser:direccion","Ave. La Paz" $oXml.UpdateChildContent "soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:cliente|ser:codigoUbicacion","1-1-1" $oXml.UpdateChildContent "soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:cliente|ser:provincia","Bocas del Toro" $oXml.UpdateChildContent "soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:cliente|ser:distrito","Bocas del Toro" $oXml.UpdateChildContent "soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:cliente|ser:corregimiento","Bocas del Toro" $oXml.UpdateChildContent "soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:cliente|ser:tipoIdentificacion","" $oXml.UpdateChildContent "soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:cliente|ser:nroIdentificacionExtranjero","" $oXml.UpdateChildContent "soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:cliente|ser:paisExtranjero","" $oXml.UpdateChildContent "soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:cliente|ser:telefono1","9999-9999" $oXml.UpdateChildContent "soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:cliente|ser:correoElectronico1","usuario@pruebas.com" $oXml.UpdateChildContent "soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:cliente|ser:pais","PA" $oXml.UpdateChildContent "soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:cliente|ser:paisOtro","" $oXml.UpdateChildContent "soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:descripcion","Lapiz" $oXml.UpdateChildContent "soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:codigo","CA-001" $oXml.UpdateChildContent "soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:unidadMedida","m" $oXml.UpdateChildContent "soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:cantidad","1.00" $oXml.UpdateChildContent "soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:fechaFabricacion","1999-05-10" $oXml.UpdateChildContent "soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:fechaCaducidad","2019-05-10" $oXml.UpdateChildContent "soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:unidadMedidaCPBS","" $oXml.UpdateChildContent "soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:infoItem","Lapiz con Goma" $oXml.UpdateChildContent "soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:precioUnitario","1234.12" $oXml.UpdateChildContent "soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:precioUnitarioDescuento","" $oXml.UpdateChildContent "soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:precioItem","1234.12" $oXml.UpdateChildContent "soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:valorTotal","1335.3384" $oXml.UpdateChildContent "soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:codigoGTIN","0" $oXml.UpdateChildContent "soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:cantGTINCom","0.99" $oXml.UpdateChildContent "soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:codigoGTINInv","0" $oXml.UpdateChildContent "soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:cantGTINComInv","1.00" $oXml.UpdateChildContent "soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:tasaITBMS","01" $oXml.UpdateChildContent "soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:valorITBMS","86.3884" $oXml.UpdateChildContent "soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:listaItemOTI|ser:oti|ser:tasaOTI","01" $oXml.UpdateChildContent "soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:listaItemOTI|ser:oti|ser:valorTasa","14.81" $oXml.UpdateChildContent "soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:listaItemOTI|ser:oti[1]|ser:tasaOTI","02" $oXml.UpdateChildContent "soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:listaItemOTI|ser:oti[1]|ser:valorTasa","0.02" $oXml.UpdateChildContent "soapenv:Body|tem:Enviar|tem:documento|ser:totalesSubTotales|ser:totalPrecioNeto","1234.12" $oXml.UpdateChildContent "soapenv:Body|tem:Enviar|tem:documento|ser:totalesSubTotales|ser:totalITBMS","86.39" $oXml.UpdateChildContent "soapenv:Body|tem:Enviar|tem:documento|ser:totalesSubTotales|ser:totalISC","0.00" $oXml.UpdateChildContent "soapenv:Body|tem:Enviar|tem:documento|ser:totalesSubTotales|ser:totalMontoGravado","101.22" $oXml.UpdateChildContent "soapenv:Body|tem:Enviar|tem:documento|ser:totalesSubTotales|ser:totalDescuento","0.00" $oXml.UpdateChildContent "soapenv:Body|tem:Enviar|tem:documento|ser:totalesSubTotales|ser:totalAcarreoCobrado","" $oXml.UpdateChildContent "soapenv:Body|tem:Enviar|tem:documento|ser:totalesSubTotales|ser:valorSeguroCobrado","" $oXml.UpdateChildContent "soapenv:Body|tem:Enviar|tem:documento|ser:totalesSubTotales|ser:totalFactura","1335.34" $oXml.UpdateChildContent "soapenv:Body|tem:Enviar|tem:documento|ser:totalesSubTotales|ser:totalValorRecibido","1335.34" $oXml.UpdateChildContent "soapenv:Body|tem:Enviar|tem:documento|ser:totalesSubTotales|ser:tiempoPago","1" $oXml.UpdateChildContent "soapenv:Body|tem:Enviar|tem:documento|ser:totalesSubTotales|ser:nroItems","1" $oXml.UpdateChildContent "soapenv:Body|tem:Enviar|tem:documento|ser:totalesSubTotales|ser:totalTodosItems","1335.34" $oXml.UpdateChildContent "soapenv:Body|tem:Enviar|tem:documento|ser:totalesSubTotales|ser:listaFormaPago|ser:formaPago|ser:formaPagoFact","02" $oXml.UpdateChildContent "soapenv:Body|tem:Enviar|tem:documento|ser:totalesSubTotales|ser:listaFormaPago|ser:formaPago|ser:descFormaPago","" $oXml.UpdateChildContent "soapenv:Body|tem:Enviar|tem:documento|ser:totalesSubTotales|ser:listaFormaPago|ser:formaPago|ser:valorCuotaPagada","1335.34" $oXml.UpdateChildContent "soapenv:Body|tem:Enviar|tem:documento|ser:totalesSubTotales|ser:listaTotalOTI|ser:totalOti|ser:codigoTotalOTI","01" $oXml.UpdateChildContent "soapenv:Body|tem:Enviar|tem:documento|ser:totalesSubTotales|ser:listaTotalOTI|ser:totalOti|ser:valorTotalOTI","14.81" $oXml.UpdateChildContent "soapenv:Body|tem:Enviar|tem:documento|ser:totalesSubTotales|ser:listaTotalOTI|ser:totalOti[1]|ser:codigoTotalOTI","02" $oXml.UpdateChildContent "soapenv:Body|tem:Enviar|tem:documento|ser:totalesSubTotales|ser:listaTotalOTI|ser:totalOti[1]|ser:valorTotalOTI","0.02" $oXml.UpdateChildContent "soapenv:Body|tem:Enviar|tem:documento|ser:usoPosterior|ser:cufe","" Local $strXml = $oXml.GetXml() Local $iResponseStatusCode ; We'll need to add this in the HTTP header: ; SOAPAction: http://tempuri.org/IService/Enviar $oHttp.SetRequestHeader "SOAPAction","http://tempuri.org/IService/Enviar" $oHttp.SetRequestHeader "Content-Type","text/xml; charset=utf-8" ; The endpoint for this soap service is: Local $sEndPoint = "http://demoemision.thefactoryhka.com.pa/ws/obj/v1.0/Service.svc" Local $oResp = $oHttp.PostXml($sEndPoint,$strXml,"utf-8") If ($oHttp.LastMethodSuccess <> True) Then ConsoleWrite($oHttp.LastErrorText & @CRLF) ConsoleWrite("LastHeader:" & @CRLF) ConsoleWrite($oHttp.LastHeader & @CRLF) Exit EndIf $iResponseStatusCode = $oResp.StatusCode ; You may wish to verify that the responseStatusCode equals 200... ConsoleWrite("Response Status Code: " & $iResponseStatusCode & @CRLF) ; You may examine the exact HTTP header sent with the POST like this: ConsoleWrite("LastHeader:" & @CRLF) ConsoleWrite($oHttp.LastHeader & @CRLF) ; Examine the XML returned by the web service: ConsoleWrite("XML Response:" & @CRLF) $oXmlResp = ObjCreate("Chilkat.Xml") $oXmlResp.LoadXml($oResp.BodyStr) ConsoleWrite($oXmlResp.GetXml() & @CRLF) ; Use this online tool to generate parsing code from response XML: ; Generate Parsing Code from XML |
||||
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.