PureBasic
PureBasic
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 PureBasic Downloads
IncludeFile "CkHttpResponse.pb"
IncludeFile "CkHttp.pb"
IncludeFile "CkXml.pb"
Procedure ChilkatExample()
success.i = 0
http.i = CkHttp::ckCreate()
If http.i = 0
Debug "Failed to create object."
ProcedureReturn
EndIf
; 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
xml.i = CkXml::ckCreate()
If xml.i = 0
Debug "Failed to create object."
ProcedureReturn
EndIf
CkXml::setCkTag(xml, "soapenv:Envelope")
CkXml::ckAddAttribute(xml,"xmlns:soapenv","http://schemas.xmlsoap.org/soap/envelope/")
CkXml::ckAddAttribute(xml,"xmlns:tem","http://tempuri.org/")
CkXml::ckAddAttribute(xml,"xmlns:ser","http://schemas.datacontract.org/2004/07/Services.ObjComprobante.v1_0")
CkXml::ckUpdateChildContent(xml,"soapenv:Header","")
CkXml::ckUpdateChildContent(xml,"soapenv:Body|tem:Enviar|tem:tokenEmpresa","SOLICITAR")
CkXml::ckUpdateChildContent(xml,"soapenv:Body|tem:Enviar|tem:tokenPassword","SOLICITAR")
CkXml::ckUpdateChildContent(xml,"soapenv:Body|tem:Enviar|tem:documento|ser:codigoSucursalEmisor","0000")
CkXml::ckUpdateChildContent(xml,"soapenv:Body|tem:Enviar|tem:documento|ser:tipoSucursal","1")
CkXml::ckUpdateChildContent(xml,"soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:tipoEmision","01")
CkXml::ckUpdateChildContent(xml,"soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:tipoDocumento","01")
CkXml::ckUpdateChildContent(xml,"soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:numeroDocumentoFiscal","176")
CkXml::ckUpdateChildContent(xml,"soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:puntoFacturacionFiscal","505")
CkXml::ckUpdateChildContent(xml,"soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:fechaEmision","2019-05-15T07:49:27-05:00")
CkXml::ckUpdateChildContent(xml,"soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:fechaSalida","2019-05-15T07:49:27-05:00")
CkXml::ckUpdateChildContent(xml,"soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:naturalezaOperacion","01")
CkXml::ckUpdateChildContent(xml,"soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:tipoOperacion","1")
CkXml::ckUpdateChildContent(xml,"soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:destinoOperacion","1")
CkXml::ckUpdateChildContent(xml,"soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:formatoCAFE","1")
CkXml::ckUpdateChildContent(xml,"soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:entregaCAFE","1")
CkXml::ckUpdateChildContent(xml,"soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:envioContenedor","1")
CkXml::ckUpdateChildContent(xml,"soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:procesoGeneracion","1")
CkXml::ckUpdateChildContent(xml,"soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:tipoVenta","1")
CkXml::ckUpdateChildContent(xml,"soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:informacionInteres","Informacion Interes")
CkXml::ckUpdateChildContent(xml,"soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:cliente|ser:tipoClienteFE","02")
CkXml::ckUpdateChildContent(xml,"soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:cliente|ser:tipoContribuyente","2")
CkXml::ckUpdateChildContent(xml,"soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:cliente|ser:numeroRUC","155596713-2-2015")
CkXml::ckUpdateChildContent(xml,"soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:cliente|ser:digitoVerificadorRUC","59")
CkXml::ckUpdateChildContent(xml,"soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:cliente|ser:razonSocial","Ambiente de pruebas")
CkXml::ckUpdateChildContent(xml,"soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:cliente|ser:direccion","Ave. La Paz")
CkXml::ckUpdateChildContent(xml,"soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:cliente|ser:codigoUbicacion","1-1-1")
CkXml::ckUpdateChildContent(xml,"soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:cliente|ser:provincia","Bocas del Toro")
CkXml::ckUpdateChildContent(xml,"soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:cliente|ser:distrito","Bocas del Toro")
CkXml::ckUpdateChildContent(xml,"soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:cliente|ser:corregimiento","Bocas del Toro")
CkXml::ckUpdateChildContent(xml,"soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:cliente|ser:tipoIdentificacion","")
CkXml::ckUpdateChildContent(xml,"soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:cliente|ser:nroIdentificacionExtranjero","")
CkXml::ckUpdateChildContent(xml,"soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:cliente|ser:paisExtranjero","")
CkXml::ckUpdateChildContent(xml,"soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:cliente|ser:telefono1","9999-9999")
CkXml::ckUpdateChildContent(xml,"soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:cliente|ser:correoElectronico1","usuario@pruebas.com")
CkXml::ckUpdateChildContent(xml,"soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:cliente|ser:pais","PA")
CkXml::ckUpdateChildContent(xml,"soapenv:Body|tem:Enviar|tem:documento|ser:datosTransaccion|ser:cliente|ser:paisOtro","")
CkXml::ckUpdateChildContent(xml,"soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:descripcion","Lapiz")
CkXml::ckUpdateChildContent(xml,"soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:codigo","CA-001")
CkXml::ckUpdateChildContent(xml,"soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:unidadMedida","m")
CkXml::ckUpdateChildContent(xml,"soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:cantidad","1.00")
CkXml::ckUpdateChildContent(xml,"soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:fechaFabricacion","1999-05-10")
CkXml::ckUpdateChildContent(xml,"soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:fechaCaducidad","2019-05-10")
CkXml::ckUpdateChildContent(xml,"soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:unidadMedidaCPBS","")
CkXml::ckUpdateChildContent(xml,"soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:infoItem","Lapiz con Goma")
CkXml::ckUpdateChildContent(xml,"soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:precioUnitario","1234.12")
CkXml::ckUpdateChildContent(xml,"soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:precioUnitarioDescuento","")
CkXml::ckUpdateChildContent(xml,"soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:precioItem","1234.12")
CkXml::ckUpdateChildContent(xml,"soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:valorTotal","1335.3384")
CkXml::ckUpdateChildContent(xml,"soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:codigoGTIN","0")
CkXml::ckUpdateChildContent(xml,"soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:cantGTINCom","0.99")
CkXml::ckUpdateChildContent(xml,"soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:codigoGTINInv","0")
CkXml::ckUpdateChildContent(xml,"soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:cantGTINComInv","1.00")
CkXml::ckUpdateChildContent(xml,"soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:tasaITBMS","01")
CkXml::ckUpdateChildContent(xml,"soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:valorITBMS","86.3884")
CkXml::ckUpdateChildContent(xml,"soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:listaItemOTI|ser:oti|ser:tasaOTI","01")
CkXml::ckUpdateChildContent(xml,"soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:listaItemOTI|ser:oti|ser:valorTasa","14.81")
CkXml::ckUpdateChildContent(xml,"soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:listaItemOTI|ser:oti[1]|ser:tasaOTI","02")
CkXml::ckUpdateChildContent(xml,"soapenv:Body|tem:Enviar|tem:documento|ser:listaItems|ser:item|ser:listaItemOTI|ser:oti[1]|ser:valorTasa","0.02")
CkXml::ckUpdateChildContent(xml,"soapenv:Body|tem:Enviar|tem:documento|ser:totalesSubTotales|ser:totalPrecioNeto","1234.12")
CkXml::ckUpdateChildContent(xml,"soapenv:Body|tem:Enviar|tem:documento|ser:totalesSubTotales|ser:totalITBMS","86.39")
CkXml::ckUpdateChildContent(xml,"soapenv:Body|tem:Enviar|tem:documento|ser:totalesSubTotales|ser:totalISC","0.00")
CkXml::ckUpdateChildContent(xml,"soapenv:Body|tem:Enviar|tem:documento|ser:totalesSubTotales|ser:totalMontoGravado","101.22")
CkXml::ckUpdateChildContent(xml,"soapenv:Body|tem:Enviar|tem:documento|ser:totalesSubTotales|ser:totalDescuento","0.00")
CkXml::ckUpdateChildContent(xml,"soapenv:Body|tem:Enviar|tem:documento|ser:totalesSubTotales|ser:totalAcarreoCobrado","")
CkXml::ckUpdateChildContent(xml,"soapenv:Body|tem:Enviar|tem:documento|ser:totalesSubTotales|ser:valorSeguroCobrado","")
CkXml::ckUpdateChildContent(xml,"soapenv:Body|tem:Enviar|tem:documento|ser:totalesSubTotales|ser:totalFactura","1335.34")
CkXml::ckUpdateChildContent(xml,"soapenv:Body|tem:Enviar|tem:documento|ser:totalesSubTotales|ser:totalValorRecibido","1335.34")
CkXml::ckUpdateChildContent(xml,"soapenv:Body|tem:Enviar|tem:documento|ser:totalesSubTotales|ser:tiempoPago","1")
CkXml::ckUpdateChildContent(xml,"soapenv:Body|tem:Enviar|tem:documento|ser:totalesSubTotales|ser:nroItems","1")
CkXml::ckUpdateChildContent(xml,"soapenv:Body|tem:Enviar|tem:documento|ser:totalesSubTotales|ser:totalTodosItems","1335.34")
CkXml::ckUpdateChildContent(xml,"soapenv:Body|tem:Enviar|tem:documento|ser:totalesSubTotales|ser:listaFormaPago|ser:formaPago|ser:formaPagoFact","02")
CkXml::ckUpdateChildContent(xml,"soapenv:Body|tem:Enviar|tem:documento|ser:totalesSubTotales|ser:listaFormaPago|ser:formaPago|ser:descFormaPago","")
CkXml::ckUpdateChildContent(xml,"soapenv:Body|tem:Enviar|tem:documento|ser:totalesSubTotales|ser:listaFormaPago|ser:formaPago|ser:valorCuotaPagada","1335.34")
CkXml::ckUpdateChildContent(xml,"soapenv:Body|tem:Enviar|tem:documento|ser:totalesSubTotales|ser:listaTotalOTI|ser:totalOti|ser:codigoTotalOTI","01")
CkXml::ckUpdateChildContent(xml,"soapenv:Body|tem:Enviar|tem:documento|ser:totalesSubTotales|ser:listaTotalOTI|ser:totalOti|ser:valorTotalOTI","14.81")
CkXml::ckUpdateChildContent(xml,"soapenv:Body|tem:Enviar|tem:documento|ser:totalesSubTotales|ser:listaTotalOTI|ser:totalOti[1]|ser:codigoTotalOTI","02")
CkXml::ckUpdateChildContent(xml,"soapenv:Body|tem:Enviar|tem:documento|ser:totalesSubTotales|ser:listaTotalOTI|ser:totalOti[1]|ser:valorTotalOTI","0.02")
CkXml::ckUpdateChildContent(xml,"soapenv:Body|tem:Enviar|tem:documento|ser:usoPosterior|ser:cufe","")
strXml.s = CkXml::ckGetXml(xml)
responseStatusCode.i
; We'll need to add this in the HTTP header:
; SOAPAction: http://tempuri.org/IService/Enviar
CkHttp::ckSetRequestHeader(http,"SOAPAction","http://tempuri.org/IService/Enviar")
; The endpoint for this soap service is:
endPoint.s = "http://demoemision.thefactoryhka.com.pa/ws/obj/v1.0/Service.svc"
resp.i = CkHttpResponse::ckCreate()
If resp.i = 0
Debug "Failed to create object."
ProcedureReturn
EndIf
success = CkHttp::ckHttpStr(http,"POST",endPoint,strXml,"utf-8","text/xml",resp)
If success = 0
Debug CkHttp::ckLastErrorText(http)
CkHttp::ckDispose(http)
CkXml::ckDispose(xml)
CkHttpResponse::ckDispose(resp)
ProcedureReturn
EndIf
responseStatusCode = CkHttpResponse::ckStatusCode(resp)
; You may wish to verify that the responseStatusCode equals 200...
Debug "Response Status Code: " + Str(responseStatusCode)
; You may examine the exact HTTP header sent with the POST like this:
Debug "LastHeader:"
Debug CkHttp::ckLastHeader(http)
; Examine the XML returned by the web service:
Debug "XML Response:"
xmlResp.i = CkXml::ckCreate()
If xmlResp.i = 0
Debug "Failed to create object."
ProcedureReturn
EndIf
CkXml::ckLoadXml(xmlResp,CkHttpResponse::ckBodyStr(resp))
Debug CkXml::ckGetXml(xmlResp)
; Use this online tool to generate parsing code from response XML:
; Generate Parsing Code from XML
CkHttp::ckDispose(http)
CkXml::ckDispose(xml)
CkHttpResponse::ckDispose(resp)
CkXml::ckDispose(xmlResp)
ProcedureReturn
EndProcedure