(Perl) SOAP demoemision.thefactoryhka.com.pa DescargaPDF

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

Chilkat Perl Downloads Perl Module for Windows, MacOS, Linux, Alpine Linux, Solaris

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

$http = chilkat::CkHttp->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>

$xml = chilkat::CkXml->new();
$xml->put_Tag("soapenv:Envelope");
$xml->AddAttribute("xmlns:soapenv","http://schemas.xmlsoap.org/soap/envelope/");
$xml->AddAttribute("xmlns:tem","http://tempuri.org/");
$xml->AddAttribute("xmlns:ser","http://schemas.datacontract.org/2004/07/Services.Model");
$xml->UpdateChildContent("soapenv:Header","");
$xml->UpdateChildContent("soapenv:Body|tem:DescargaPDF|tem:tokenEmpresa","?");
$xml->UpdateChildContent("soapenv:Body|tem:DescargaPDF|tem:tokenPassword","?");
$xml->UpdateChildContent("soapenv:Body|tem:DescargaPDF|tem:datosDocumento|ser:codigoSucursalEmisor","?");
$xml->UpdateChildContent("soapenv:Body|tem:DescargaPDF|tem:datosDocumento|ser:numeroDocumentoFiscal","?");
$xml->UpdateChildContent("soapenv:Body|tem:DescargaPDF|tem:datosDocumento|ser:puntoFacturacionFiscal","?");
$xml->UpdateChildContent("soapenv:Body|tem:DescargaPDF|tem:datosDocumento|ser:serialDispositivo","?");
$xml->UpdateChildContent("soapenv:Body|tem:DescargaPDF|tem:datosDocumento|ser:tipoDocumento","?");
$xml->UpdateChildContent("soapenv:Body|tem:DescargaPDF|tem:datosDocumento|ser:tipoEmision","?");

$strXml = $xml->getXml();

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

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

# resp is a HttpResponse
$resp = $http->PostXml($endPoint,$strXml,"utf-8");
if ($http->get_LastMethodSuccess() != 1) {
    print $http->lastErrorText() . "\r\n";
    exit;
}

$statusCode = $resp->get_StatusCode();
if ($statusCode != 200) {
    print "Non-success status code: " . $statusCode . "\r\n";
    print "Response header: " . $resp->header() . "\r\n";
    print "Response body: " . $resp->bodyStr() . "\r\n";
    print "Unsuccessful." . "\r\n";

    exit;
}

$xmlResp = chilkat::CkXml->new();
$xmlResp->LoadXml($resp->bodyStr());

print $xmlResp->getXml() . "\r\n";

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