Ver Mensaje Individual
  #8
Antiguo 25 de febrero de 2016, 22:46
Kuk
Administrador
Última Actividad 19.09.2026 20:11
Posts Posts: 2.500
Likes enviados Enviados: 1037
Likes recibidos Recibidos: 1207

Gusaiello, si Acu no opera con COM/OLE, lo que podría ser una solución es un VBScript el cual cogerá el XML generado y hará el trabajo de envío y recepción.

Buscando en Google hay varios ejemplos de VBScript usando WebServices. Aquí está uno de ellos, aunque no sé si contiene todo lo necesario:

Código VB:
  1. function ProcessSend()
  2.     Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP.4.0")
  3.     Set oXMLDoc = CreateObject("MSXML2.DOMDocument")
  4.  
  5.     oXMLHTTP.onreadystatechange = getRef("HandleStateChange")
  6.  
  7.     strEnvelope = "callNo="&callNo&"&exp="&exp
  8.  
  9.     call oXMLHTTP.open("POST","http://localhost:11883/ServiceCall.asmx/"&posFirm,false)'<< changed true to false here.
  10.    call oXMLHTTP.setRequestHeader("Content-Type","application/x-www-form-urlencoded")
  11.  
  12.  
  13.     call oXMLHTTP.send(strEnvelope)
  14. end function
  15.  
  16. Sub HandleStateChange
  17.     if(oXMLHTTP.readyState = 4) then
  18.         dim szResponse: szResponse = oXMLHTTP.responseText
  19.         call oXMLDoc.loadXML(szResponse)
  20.         if(oXMLDoc.parseError.errorCode <> 0) then
  21.                 'call msgbox("ERROR")
  22.                response = oXMLHTTP.responseText&" "&oXMLDoc.parseError.reason
  23.                 'call msgbox(oXMLDoc.parseError.reason)
  24.        else
  25.                 response = oXMLDoc.getElementsByTagName("string")(0).childNodes(0).text
  26.         end if
  27.  
  28.     end if
  29. End Sub



NORMAS DEL FORO - para garantizar el buen funcionamiento del Foro.
¿Te han ayudado? NO TE OLVIDES de darle a
¿Quieres dirigirte a alguien en tu post? Notifícale haciendo clic en su Nick
Kuk is offline   Responder Con Cita