Lua

SOAP demoemision.thefactoryhka.com.pa DescargaPDF

See more REST Misc Examples

Make a SOAP call to http://demoemision.thefactoryhka.com.pa/ws/obj/v1.0/Service.svc with SOAPAction http://tempuri.org/IService/DescargaPDF Lua

local chilkat = require("chilkat")

-- 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.
-- --------------------------------------------------------------------------------

local http = chilkat.Http.new()

-- First build this SOAP XML request body:
-- Use this online tool to generate the code from sample XML:
-- Generate Code to Create XML

-- <soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:tem="http://tempuri.org/" xmlns:ser="http://schemas.datacontract.org/2004/07/Services.Model">
--    <soapenv:Header/>
--    <soapenv:Body>
--       <tem:DescargaPDF>
--          <tem:tokenEmpresa>?</tem:tokenEmpresa>
--          <tem:tokenPassword>?</tem:tokenPassword>
--          <tem:datosDocumento>
--             <ser:codigoSucursalEmisor>?</ser:codigoSucursalEmisor>
--              <ser:numeroDocumentoFiscal>?</ser:numeroDocumentoFiscal>
--             <ser:puntoFacturacionFiscal>?</ser:puntoFacturacionFiscal>
--             <ser:serialDispositivo>?</ser:serialDispositivo>
--             <ser:tipoDocumento>?</ser:tipoDocumento>
--             <ser:tipoEmision>?</ser:tipoEmision>
--          </tem:datosDocumento>
--       </tem:DescargaPDF>
--    </soapenv:Body>
-- </soapenv:Envelope>

local xml = chilkat.Xml.new()
xml.tag = "soapenv:Envelope"
xml:add_attribute("xmlns:soapenv", "http://schemas.xmlsoap.org/soap/envelope/")
xml:add_attribute("xmlns:tem", "http://tempuri.org/")
xml:add_attribute("xmlns:ser", "http://schemas.datacontract.org/2004/07/Services.Model")
xml:update_child_content("soapenv:Header", "")
xml:update_child_content("soapenv:Body|tem:DescargaPDF|tem:tokenEmpresa", "?")
xml:update_child_content("soapenv:Body|tem:DescargaPDF|tem:tokenPassword", "?")
xml:update_child_content("soapenv:Body|tem:DescargaPDF|tem:datosDocumento|ser:codigoSucursalEmisor", "?")
xml:update_child_content("soapenv:Body|tem:DescargaPDF|tem:datosDocumento|ser:numeroDocumentoFiscal", "?")
xml:update_child_content("soapenv:Body|tem:DescargaPDF|tem:datosDocumento|ser:puntoFacturacionFiscal", "?")
xml:update_child_content("soapenv:Body|tem:DescargaPDF|tem:datosDocumento|ser:serialDispositivo", "?")
xml:update_child_content("soapenv:Body|tem:DescargaPDF|tem:datosDocumento|ser:tipoDocumento", "?")
xml:update_child_content("soapenv:Body|tem:DescargaPDF|tem:datosDocumento|ser:tipoEmision", "?")

local strXml = xml:get_xml()

http:set_request_header("SOAPAction", "http://tempuri.org/IService/DescargaPDF")
http:set_request_header("Content-Type", "text/xml; charset=utf-8")

local endPoint = "http://demoemision.thefactoryhka.com.pa/ws/obj/v1.0/Service.svc"

local resp = chilkat.HttpResponse.new()
local success = http:http_str("POST", endPoint, strXml, "utf-8", "application/xml", resp)
if not success then
    print(http.last_error_text)
    return
end

local statusCode = resp.status_code
if statusCode ~= 200 then
    print("Non-success status code: " .. statusCode)
    print("Response header: " .. resp.header)
    print("Response body: " .. resp.body_str)
    print("Unsuccessful.")
    return
end

local xmlResp = chilkat.Xml.new()
xmlResp:load_xml(resp.body_str)

print(xmlResp:get_xml())

-- Use this online tool to generate parsing code from sample XML:
-- Generate Parsing Code from XML