Scripts varios
Ejemplo de cómo llamar desde el ERP a una webapi y obtener los resultados
Ver código ejemplo
' Ejemplo de llamada POST a web service externa
' Gentileza de Miguel Angel (OLINET)
Sub MainPost()
DataToSend = "IPAddress=xx.xx.xx.xx"
Dim request,xmlhttp ,url,xmldoc
Set xmlhttp = CreateObject("MSXML2.ServerXMLHTTP")
url = "http://sagec-test.mrw.es/MRWEnvio.asmx"
request = "<?xml version = '1.0' encoding = 'utf-8'?>" & _
"<soap:Envelope xmlns:soap = 'http://www.midom.org/2003/05/soap-envelope' xmlns:mrw = 'http://www.dom.es/'>" &_
"<soap:Header>" &_
"<AuthInfo xmlns='http://www.dom.es/'>" &_
"<CodigoFranquicia>02708</CodigoFranquicia>" &_
"<CodigoAbonado>041000</CodigoAbonado>" &_
"<CodigoDepartamento>DIARIO As</CodigoDepartamento>" &_
"<UserName>myusername</UserName>" &_
"<Password>*****</Password> " &_
"</AuthInfo>" &_
"</soap:Header>" &_
"<soap:Body>" &_
"<TransmEnvio xmlns = 'http://www.dom.es/'>" &_
"<request>" &_
"<DatosEntrega>" &_
"<Direccion>" &_
"<CodigoTipoVia>CL</CodigoTipoVia>" &_
"<Via>PRUEBAS</Via>" &_
"<Numero>13</Numero>" &_
"<CodigoPostal>05200</CodigoPostal>" &_
"<Poblacion>AREVALO</Poblacion>" &_
"<Provincia></Provincia>" &_
"</Direccion>" &_
"<Nombre>DESTINATARIO DEL ENVÍO</Nombre>" &_
"<Telefono>612345678</Telefono>" &_
"</DatosEntrega>" &_
"<DatosServicio>" &_
"<Fecha>28/06/2017</Fecha>" &_
"<Referencia>INTEGRACIÓN</Referencia>" &_
"<CodigoServicio>0800</CodigoServicio>" &_
"<DescripcionServicio>PROBANDO SAGEC</DescripcionServicio>" &_
"<NumeroBultos>1</NumeroBultos>" &_
"<Peso>2</Peso>" &_
"<Reembolso>O</Reembolso>" &_
"<ImporteReembolso>13,13</ImporteReembolso>" &_
"</DatosServicio>" &_
"</request>" &_
"</TransmEnvio>" &_
"</soap:Body>" &_
"</soap:Envelope>"
Set oXMLHttp = CreateObject("MSXML2.ServerXMLHTTP")
oXMLHttp.open "POST", url, False
oXMLHttp.SetRequestHeader "Content-Type", "text/xml; charset = utf-8"
oXMLHttp.send request
MsgBox oXMLHttp.Responsetext
End Sub
' Ejemplo de llamada GET a web service externa
' Gentileza de Miguel Angel (OLINET)
Sub MainGet()
DataToSend = "IPAddress=xx.xx.xx.xx"
Dim xmlhttp
Set xmlhttp = CreateObject("MSXML2.ServerXMLHTTP")
xmlhttp.open "GET", "http://www.webservicex.net/geoipservice.asmx/GetGeoIP?IPAddress=xx.xx.xx.xx"
xmlhttp.setRequestHeader "Content-Type", "application/soap+xml; charset = utf-8"
xmlhttp.send ()
Set xmldoc = xmlhttp.responsexml.DocumentElement
Set nodosxml = xmldoc.childnodes
i = 0
For Each Elemento In nodosxml
If elemento.nodename = "IP" Then
MsgBox elemento.text
End If
MsgBox elemento.text
Next
MsgBox xmlhttp.Responsexml.text
Set xmlhttp = Nothing
End Sub