![]() |
Chilkat HOME Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi DLL Go Java Node.js Objective-C PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(PowerBuilder) SOAP sendBill Call to sunat.gob.peDemonstrates how to make a SOAP call to sunat.gob.pe for the sendBill method. Note: This example requires Chilkat v11.0.0 or greater.
integer li_rc integer li_Success oleobject loo_Http oleobject loo_Xml string ls_StrXml string ls_EndPoint oleobject loo_Resp integer li_ResponseStatusCode oleobject loo_XmlResp li_Success = 0 // 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. // -------------------------------------------------------------------------------- loo_Http = create oleobject li_rc = loo_Http.ConnectToNewObject("Chilkat.Http") if li_rc < 0 then destroy loo_Http MessageBox("Error","Connecting to COM object failed") return end if // The SOAP XML will look like this: // <?xml version="1.0" encoding="utf-8"?> // <soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:ser="http://service.sunat.gob.pe"> // <soapenv:Header/> // // <soapenv:Body> // <ser:sendBill> // <fileName>20601523999-03-B001-00000002.zip</fileName> // <contentFile>UEsDBBQ ... AAAAA==</contentFile> // </ser:sendBill> // </soapenv:Body> // </soapenv:Envelope> // Build the above SOAP XML. loo_Xml = create oleobject li_rc = loo_Xml.ConnectToNewObject("Chilkat.Xml") loo_Xml.Tag = "soapenv:Envelope" loo_Xml.AddAttribute("xmlns:soapenv","http://schemas.xmlsoap.org/soap/envelope/") loo_Xml.AddAttribute("xmlns:ser","http://service.sunat.gob.pe") loo_Xml.UpdateChildContent("soapenv:Header","") loo_Xml.UpdateChildContent("soapenv:Body|ser:sendBill|fileName","20601523999-03-B001-00000002.zip") loo_Xml.UpdateChildContent("soapenv:Body|ser:sendBill|contentFile","UEsDBBQ ... AAAAA==") // Alternatively, load the XML from a file. (Remove this line if you wish to build the XML as shown above.) li_Success = loo_Xml.LoadXmlFile("qa_data/soap/envio_sunat_peru.xml") ls_StrXml = loo_Xml.GetXml() loo_Http.SetRequestHeader("SOAPAction","urn:sendBill") ls_EndPoint = "https://e-beta.sunat.gob.pe/ol-ti-itcpfegem-beta/billService" loo_Resp = create oleobject li_rc = loo_Resp.ConnectToNewObject("Chilkat.HttpResponse") li_Success = loo_Http.HttpStr("POST",ls_EndPoint,ls_StrXml,"utf-8","text/xml",loo_Resp) if li_Success = 0 then Write-Debug loo_Http.LastErrorText destroy loo_Http destroy loo_Xml destroy loo_Resp return end if li_ResponseStatusCode = loo_Resp.StatusCode // You may wish to verify that the responseStatusCode equals 200... Write-Debug "Response Status Code: " + string(li_ResponseStatusCode) // You may examine the exact HTTP header sent with the POST like this: Write-Debug "LastHeader:" Write-Debug loo_Http.LastHeader // Examine the XML returned by the web service: Write-Debug "XML Response:" loo_XmlResp = create oleobject li_rc = loo_XmlResp.ConnectToNewObject("Chilkat.Xml") loo_XmlResp.LoadXml(loo_Resp.BodyStr) Write-Debug loo_XmlResp.GetXml() // Use this online tool to generate parsing code from response XML: // Generate Parsing Code from XML destroy loo_Http destroy loo_Xml destroy loo_Resp destroy loo_XmlResp |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.