LOCAL SOAP LOCAL UserName LOCAL UserPassword LOCAL Now m.UserName = "Zoran" m.UserPassword = "demo" m.Now = TRANSFORM(TTOC(DATETIME(), 1), "@R 9999-99-99T99:99:99") LOCAL Lbo LOCAL Zk m.Lbo = "insert parameter value here" m.Zk = "insert parameter value here" SET TEXTMERGE TO "SoapCall.xml" SET TEXTMERGE ON TEXT <SOAP-ENV:Envelope xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/" xmlns:ns0="http://service.rzzo.rs/"> <SOAP-ENV:Header> <wsse:Security SOAP-ENV:mustUnderstand="1" xmlns:wsse="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-secext-1.0.xsd"> <wsse:UsernameToken> <wsse:Username><<m.UserName>></wsse:Username> <wsse:Password Type="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-username-token-profile-1.0#PasswordText"><<m.UserPassword>></wsse:Password> <wsu:Created xmlns:wsu="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-utility-1.0.xsd"><<m.Now>></wsu:Created> </wsse:UsernameToken> </wsse:Security> </SOAP-ENV:Header> <SOAP-ENV:Body> <ns0:GetInsuranceDataF> <req> <lbo><<m.Lbo>></lbo> <zk><<m.Zk>></zk> </req> </ns0:GetInsuranceDataF> </SOAP-ENV:Body> </SOAP-ENV:Envelope> ENDTEXT SET TEXTMERGE TO m.SOAP = FILETOSTR("SoapCall.xml") LOCAL HTTP LOCAL Response LOCAL Nodes LOCAL XMLData m.HTTP = CREATEOBJECT("MSXML2.ServerXMLHTTP.6.0") m.HTTP.Open("Post", "https://webapp2.rzzo.rs:443/rzzo/RzzoService", .F.) m.HTTP.Send(m.SOAP) m.Response = m.HTTP.ResponseXML m.Response.SetProperty("SelectionNamespaces", 'xmlns:SOAP="http://schemas.xmlsoap.org/soap/envelope/" ' + ; ' xmlns:RZ="http://service.rzzo.rs/"') m.Nodes = m.Response.selectNodes("/SOAP:Envelope/SOAP:Body/SOAP:Fault") IF m.Nodes.length > 0 MESSAGEBOX("Error: " + m.Nodes.item(0).selectNodes("faultstring").item(0).text) RETURN ENDIF m.XMLData = m.Response.selectNodes("//RZ:GetInsuranceDataFResponse/return").item(0) MESSAGEBOX("InsuranceDataF: " + m.XMLData.text)