Modificar URL de consulta para que obtenga datos de variables ?

52 views
Skip to first unread message

Jose Alberto Chaves

unread,
Mar 19, 2018, 1:53:37 PM3/19/18
to Comunidad de Visual Foxpro en Español
HOLA AMIGOS

Si me pudieran ayudar con una consulta, 

El caso es el siguiente

el siguiente código es una consulta a una url la cual me funciona correctamente.

Clear
Local xhr
Local cPto
cJsonRpcCall = '{"jsonrpc": "2.0", "method": "909", "id": "00005","params": ["es", "00005", "123456:29618", "603628399852000190337"]}'
cPuerto = "1421"
xhr = Createobject("Microsoft.XMLHTTP")

*Idx='654321'
*pass='000000'
xhr.setRequestHeader('Content-Type', ['application/json-rpc 2.0';charset=ISO Latin-1 Character Set])
xhr.Send(cJsonRpcCall)
Local lcResultText
lcResultText = xhr.responseText

Resulta que esa URL ya trae consigo el ID ( 65431 ) Y el password (000000)
de esa manera obtengo el resultado el cual al final envio a un editbox.

El asunto es que ese ID Y password necesito capturarlos desde una variable ( tengo dos idx y pass ) en verde.

Como puedo modificar la url para que obtenga el id y el password desde las variables. ??
esto porque dependiendo de valor de las variables se captura o no la información.

Agradezco mucho su valiosa ayuda.

att JOSE CHAVES

Jean Pierre Adonis De La Cruz Garcia

unread,
Mar 19, 2018, 2:09:49 PM3/19/18
to Comunidad de Visual Foxpro en Español
el proceso seria el sgte.

Clear
Local xhr
Local cPto
cJsonRpcCall = '{"jsonrpc": "2.0", "method": "909", "id": "00005","params": ["es", "00005", "123456:29618", "603628399852000190337"]}'
cPuerto = "1421"
xhr = Createobject("Microsoft.XMLHTTP")

*Idx='654321'
*pass='000000'
xhr.setRequestHeader('Content-Type', ['application/json-rpc 2.0';charset=ISO Latin-1 Character Set])
xhr.Send(cJsonRpcCall)
Local lcResultText
lcResultText = xhr.responseText

Jose Alberto Chaves

unread,
Mar 19, 2018, 3:07:43 PM3/19/18
to Comunidad de Visual Foxpro en Español

GRACIAS A JEAN PIERRE POR SU VALIOSA RESPUESTA.

Me sirvió de forma perfecta para lo que necesito

at. JOSE CHAVES
Reply all
Reply to author
Forward
0 new messages