(Perl) SOAP e-factura.sunat.gob.pe getStatusCdr

Make a SOAP call to https://e-factura.sunat.gob.pe/ol-it-wsconscpegem/billConsultService

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();

# <soapenv:Envelope xmlns:ser="http://service.sunat.gob.pe"
#   xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/"
#   xmlns:wsse="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-secext-1.0.xsd">
#  <soapenv:Header>
#   <wsse:Security>        
#    <wsse:UsernameToken>          
#     <wsse:Username>MY_USERNAME</wsse:Username>
#     <wsse:Password>MY_PASSWORD</wsse:Password>
#    </wsse:UsernameToken>      
#   </wsse:Security>
#  </soapenv:Header>
#  <soapenv:Body>
#   <ser:getStatus>
#    <rucComprobante>99999999999</rucComprobante>
#    <tipoComprobante>01</tipoComprobante>
#    <serieComprobante>F001</serieComprobante>
#    <numeroComprobante>55555</numeroComprobante>
#   </ser:getStatus>
#  </soapenv:Body>
#  </soapenv:Envelope> 
# 

$xml = chilkat::CkXml->new();
$xml->put_Tag("soapenv:Envelope");
$xml->AddAttribute("xmlns:ser","http://service.sunat.gob.pe");
$xml->AddAttribute("xmlns:soapenv","http://schemas.xmlsoap.org/soap/envelope/");
$xml->AddAttribute("xmlns:wsse","http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-secext-1.0.xsd");
$xml->UpdateChildContent("soapenv:Header|wsse:Security|wsse:UsernameToken|wsse:Username","MY_USERNAME");
$xml->UpdateChildContent("soapenv:Header|wsse:Security|wsse:UsernameToken|wsse:Password","MY_PASSWORD");
$xml->UpdateChildContent("soapenv:Body|ser:getStatus|rucComprobante","99999999999");
$xml->UpdateChildContent("soapenv:Body|ser:getStatus|tipoComprobante","01");
$xml->UpdateChildContent("soapenv:Body|ser:getStatus|serieComprobante","F001");
$xml->UpdateChildContent("soapenv:Body|ser:getStatus|numeroComprobante","55555");

$strXml = $xml->getXml();

$http->SetRequestHeader("SOAPAction","urn:getStatusCdr");
$http->SetRequestHeader("Content-Type","text/xml; charset=utf-8");

$endPoint = "https://e-factura.sunat.gob.pe/ol-it-wsconscpegem/billConsultService";

# 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";

# A sample response:

# <?xml version="1.0" encoding="UTF-8"?>
# <S:Envelope xmlns:S="http://schemas.xmlsoap.org/soap/envelope/">
#     <S:Body>
#         <ns0:getStatusResponse xmlns:ns0="http://service.sunat.gob.pe">
#             <status>
#                 <statusCode>0001</statusCode>
#                 <statusMessage>El comprobante existe y est aceptado.</statusMessage>
#             </status>
#         </ns0:getStatusResponse>
#     </S:Body>
# </S:Envelope>
# 

# Parse the response...
$S_Envelope_xmlns_S = $xml->getAttrValue("xmlns:S");
$ns0_getStatusResponse_xmlns_ns0 = $xml->chilkatPath("S:Body|ns0:getStatusResponse|(xmlns:ns0)");
$statusCode = $xml->GetChildIntValue("S:Body|ns0:getStatusResponse|status|statusCode");
$statusMessage = $xml->getChildContent("S:Body|ns0:getStatusResponse|status|statusMessage");