* Instancia WebService
lcMetodo = "enviaArchivoWebService" && el método del WS
loDoc = CreateObject("MSXML2.DOMDocument")
loHttp = CreateObject("MSXML2.XMLHTTP")
loHttp.Open("POST", lcUrl, .F.)
loHttp.SetRequestHeader("SOAPAction", lcMetodo)
loHttp.SetRequestHeader("Content-Type", "text/xml")
loDoc.LoadXML(lcXml)
loHttp.Send(loDoc.lcXml)
* Recepción respuesta
loRpta = CreateObject("MSXML2.DOMDocument")
loRpta.LoadXML(loHttp.responseText)
lcTxt = loRpta.selectSingleNode("//datoRespuesta")
Saludos
ArturoPC
El domingo, 11 de enero de 2015, 20:09:44 (UTC-5), Carlos MauricioTorres Suárez escribió: