B4X

SOAP e-factura.sunat.gob.pe getStatusCdr

See more HTTP Misc Examples

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

Dim success As Boolean = False

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

Dim http As ChilkatHttp
http.Initialize("http")

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

Dim xml As ChilkatXml
xml.Initialize
xml.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")

Dim strXml As String = xml.GetXml

http.SetRequestHeader("SOAPAction", "urn:getStatusCdr")

Dim endPoint As String = "https://e-factura.sunat.gob.pe/ol-it-wsconscpegem/billConsultService"

Dim resp As ChilkatHttpResponse
resp.Initialize
success = http.HttpStr("POST", endPoint, strXml, "utf-8", "text/xml", resp)
If success = False Then
    Log(http.LastErrorText)
    Return
End If


Dim statusCode As Int = resp.StatusCode
If statusCode <> 200 Then
    Log("Non-success status code: " & statusCode)
    Log("Response header: " & resp.Header)
    Log("Response body: " & resp.BodyStr)
    Log("Unsuccessful.")
    Return
End If


Dim xmlResp As ChilkatXml
xmlResp.Initialize
xmlResp.LoadXml(resp.BodyStr)

Log(xmlResp.GetXml)

'  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...
Dim S_Envelope_xmlns_S As String = xml.GetAttrValue("xmlns:S")
Dim ns0_getStatusResponse_xmlns_ns0 As String = xml.ChilkatPath("S:Body|ns0:getStatusResponse|(xmlns:ns0)")
statusCode = xml.GetChildIntValue("S:Body|ns0:getStatusResponse|status|statusCode")
Dim statusMessage As String = xml.GetChildContent("S:Body|ns0:getStatusResponse|status|statusMessage")