|
Chilkat • HOME • .NET Core C# • Android™ • AutoIt • C • C# • C++ • Chilkat2-Python • CkPython • Classic ASP • DataFlex • Delphi ActiveX • Delphi DLL • Go • Java • Lianja • Mono C# • Node.js • Objective-C • PHP ActiveX • PHP Extension • Perl • PowerBuilder • PowerShell • PureBasic • Ruby • SQL Server • Swift 2 • Swift 3,4,5... • Tcl • Unicode C • Unicode C++ • VB.NET • VBScript • Visual Basic 6.0 • Visual FoxPro • Xojo Plugin
(Classic ASP) SOAP e-factura.sunat.gob.pe getStatusCdrMake a SOAP call to https://e-factura.sunat.gob.pe/ol-it-wsconscpegem/billConsultService
<html> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8"> </head> <body> <% ' 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. ' -------------------------------------------------------------------------------- ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Http") set http = Server.CreateObject("Chilkat.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> ' ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Xml") set xml = Server.CreateObject("Chilkat.Xml") xml.Tag = "soapenv:Envelope" success = xml.AddAttribute("xmlns:ser","http://service.sunat.gob.pe") success = xml.AddAttribute("xmlns:soapenv","http://schemas.xmlsoap.org/soap/envelope/") success = 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 Chilkat.HttpResponse Set resp = http.PostXml(endPoint,strXml,"utf-8") If (http.LastMethodSuccess <> 1) Then Response.Write "<pre>" & Server.HTMLEncode( http.LastErrorText) & "</pre>" Response.End End If statusCode = resp.StatusCode If (statusCode <> 200) Then Response.Write "<pre>" & Server.HTMLEncode( "Non-success status code: " & statusCode) & "</pre>" Response.Write "<pre>" & Server.HTMLEncode( "Response header: " & resp.Header) & "</pre>" Response.Write "<pre>" & Server.HTMLEncode( "Response body: " & resp.BodyStr) & "</pre>" Response.Write "<pre>" & Server.HTMLEncode( "Unsuccessful.") & "</pre>" Response.End End If ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Xml") set xmlResp = Server.CreateObject("Chilkat.Xml") success = xmlResp.LoadXml(resp.BodyStr) Response.Write "<pre>" & Server.HTMLEncode( xmlResp.GetXml()) & "</pre>" ' 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") %> </body> </html> |
||||
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.