Solicitudu POST

[Alejandro Jorge Falca]

Buen día grupo, estoy empezando a incursionar en este tema, me solicitan hacer una comunicación a una API que me devolverá datos necesarios para mi institución, no tengo idea de como hacerlo, pero tratare de ser lo mas claro posible:

me asignaron un client_id u un client_secret, con esto debo solicitar un token por medio de una solicitud POST con valor client_credentials, buscando y revisando hice esto:

#define lcURL_WSDL "xxxxxxxx"
LOCAL lcMiSolicitud, lcSuRespuesta, lcRespuestaWS, loHTTP

client_id = 'xxXXXXxxxXxXXxxXxxxxxxxxxxxxxxxxxxxxxxxx'
client_secret = 'zxzxZXZXzxzxzxzxzxzxzxzxzzxXZfxFXzYXZyxIYZXiyzx'

lcMiSolicitud = "client_credential"
lcSuRespuesta = "MiArchivo.XML"     && La respuesta recibida convertida en un archivo .XML
 
loHTTP = CreateObject("Msxml2.ServerXMLHTTP.6.0")     && conexión por HTTP
*loHTTP.open("POST",lcURL_WSDL,"client_credentials",client_id,client_secret)

WITH loHTTP
  .OPEN("POST",lcURL_WSDL,client_id,client_secret,"client_credentials")
*!*  .setRequestHeader("User-Agent", "client_credentials")
*!*  .setRequestHeader("Content-Type", "text/xml;charset=utf-8")
  *--- Se envía la solicitud al Servidor
  .SEND(lcMiSolicitud)
ENDWITH

*--- Si la propiedad Status es 200 entonces está todo ok, si es cualquier otro número entonces ocurrió algún error
IF loHTTP.STATUS = 200 THEN
  lcRespuestaWS = loHTTP.responseText
  *--- Se genera un archivo con formato XML de la respuesta obtenida
  =StrToFile(StrConv(lcRespuestaWS, 9), lcSuRespuesta)     && 9: Convierte doble-bytes caracteres a UTF-8
ENDIF

y la respuesta es siempre 400 en loHTTPSTATUS

en el instructivo que me pasaron indican lo siguiente:

curl --location --request POST 'https://..........................' \ --form 'client_id="CLIENT_ID"' \ --form 'cliente_secret="CLIENT_SECRET"' \ --form 'grant_type="client_credentials"'

el tema es que no lo quiero hacer con curl sino desde el mismo VFP.

Alguien me podrá orientar para seguir investigando? Desde ya muchas gracias

--

Alejandro J. Falca

S.F.V. de Catamarca

(4700) Catamarca

+54-0383-154512079

[HernanCano]

Debes verificar con quien te dio las credenciales, por que --de acuerdo a la documentación general-- está utilizando incorrectamente el servicio web.

Probablemente estás indicando incorrectamente los datos para autenticarte (client_id, client_secret, client_credentials; normalmente son sólo las dos primeras, pero pueden ser las tres) o tal vez estás escribiendo mal la URL (lcURL_WSDL)....

Veo que la característica client_credential está involucrada en dos partes, lo cual me hace concluir que efectivamente estás ejecutando mal la info que se te dió (sobre cómo usar el servicio web).

Para más info (que te podamos ayudar) se necesitaría la documentación del servicio web en cuestión.

[Luis Maria Guayan]

No muestras como armas el URL que pasaras a la función OPEN, debería ser algo similar a esto:

lcURL = [https://misitio.com.ar/api/oauth/token?grant_type=client_credentials&client_id=] + client_id  + [&client_secret=] + client_secret 

Con esto obtendrás tu TOKEN que lo vas a utilizar en la próxima llamada para traer tus datos. Ej:

lcURL = [https://misitio.com.ar/api/oauth/access_token?]  + lcToken  + <<lo que te dio tu proveedor de la api>>

Luis María Guayán
Tucumán, Argentina
_______________________________
Comunidad Visual FoxPro en Español
http://comunidadvfp.blogspot.com

[Alejandro Jorge Falca]

Buen dia, gracias por vuestras respuestas, utilizando la estructura del Maestro Luis Maria, ahora la respuesta es status 500 (Internal Server Error) El Servidor ha encontrado una situación que no sabe cómo manejarla.

cURL = [https://api-intranet.catamarca.gob.ar/oauth2/token/?grant_type=client_credentials&client_id=]+cli_iden+[&client_secret=]+cli_secr

loxmlhttp.OPEN("POST", curl)
loxmlhttp.setrequestheader("Content-Type", "application/json")
loXmlHttp.Send()
IF loxmlhttp.STATUS = 200
RETURN loxmlhttp.responsetext
ELSE
RETURN loxmlhttp.STatus
ENDIF

me podrán indicar que estoy haciendo mal o que me falta, de parte de los administradores de la api me pasaron esto..

Se debe enviar una solicitud POST a la url: https://XXXXXXXXXXXXXXXXXXXX/oauth2/token/

 y en el cuerpo de la solicitud enviar los siguientes datos: client_id, client_secret y
grant_type con el valor “client_credentials”.

curl --location --request POST
'https://api-intranet.catamarca.gob.ar/oauth2/token/' \ --form
'client_id="CLIENT_ID"' \ --form 'client_secret="CLIENT_SECRET"' \ --form
'grant_type="client_credentials"'

--
Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.
Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/1f589e11-bcc2-489a-a691-3dce1de1ee20n%40googlegroups.com.

[HernanCano]

Debes ejecutar la solicitud (o sea el request) en la forma en que te dice la documentación:

>>> ... y en el cuerpo de la solicitud enviar los siguientes datos:...

Por lo tanto estás ejecutando mal; debiera ser algo así:

(¿sabes de dónde salen los datos que puse en amarillo? Si no, entonces, apague y vámonos...)

local M.CLI_IDEN, M.CLI_SECR

M.CLI_IDEN = "Identificacion-del-Cliente-que-da-el-portal"

M.CLI_SECR = "Dato-secreto-del-Cliente-que-da-el-portal"

text to M.cCuerpo noshow pretext 15

{

  "grant_type"   : "client_credentials"

  "client_id"    : <<M.CLI_IDEN>>

  "client_secret": <<M.CLI_SECR>>

}

endtext

** (así no)--- M.cURL = [https://api-intranet.catamarca.gob.ar/oauth2/token/?grant_type=client_credentials&client_id=]+cli_iden+[&client_secret=]+cli_secr

M.cURL = [https://api-intranet.catamarca.gob.ar/oauth2/token/]

loxmlhttp.OPEN("POST", M.cURL)

loxmlhttp.setrequestheader("Content-Type", "application/json")

loXmlHttp.Send(M.cCuerpo)

IF loxmlhttp.STATUS = 200

   RETURN loxmlhttp.responsetext

ELSE

   RETURN loxmlhttp.STatus

ENDIF

**

Verifica y nos cuentas.

[Alejandro Jorge Falca]

Hernan, gracias por responder, soy un neofito total en estas cuestiones, voy a probar con lo que me indicas y te cuento, por cierto si tengo el Clien_Id y el Client_Secret, desde ya muchas gracias...

--
Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/c546e777-8709-4778-81f6-de9db8c814b8n%40googlegroups.com.

[Alejandro Jorge Falca]

Hola, hernan probe con lo que me indicas, me sigue respondiendo STATUS 400, no se por donde seguir...

LOCAL M.CLI_IDEN, M.CLI_SECR

PUBLIC loxmlhttp AS "MSXML2.ServerXMLHTTP.6.0"
loxmlhttp = CREATEOBJECT("MSXML2.XMLHTTP")

m.CLI_IDEN = "......."
m.CLI_SECR = "......"
SET TEXTMERGE on

TEXT to M.cCuerpo noshow pretext 15

{
  "grant_type"   : "client_credentials"
  "client_id"    : <<M.CLI_IDEN>>
  "client_secret": <<M.CLI_SECR>>
}

ENDTEXT

** (así no)--- M.cURL = [https://api-intranet.catamarca.gob.ar/oauth2/token/?grant_type=client_credentials&client_id=]+cli_iden+[&client_secret=]+cli_secr

m.cURL = [https://api-intranet.catamarca.gob.ar/oauth2/token/]

loxmlhttp.OPEN("POST", M.cURL)
loxmlhttp.setrequestheader("Content-Type", "application/json")

loxmlhttp.SEND(M.cCuerpo)

IF loxmlhttp.STATUS = 200
RETURN loxmlhttp.responsetext
ELSE

RETURN loxmlhttp.STATUS
ENDIF

[Alejandro Jorge Falca]

Hernan te comento que hay un detalle del error que lo adjunto

[HernanCano]

En lo que yo te puse, en la generación del JSON, cambia:

text to M.cCuerpo noshow pretext 15

por 

text to M.cCuerpo noshow textmerge pretext 15

{

  "grant_type": "client_credentials",

  "client_id": "<<M.CLI_IDEN>>",

  "client_secret": "<<M.CLI_SECR>>"

}

endtext

Y verifica si "grant_type": "client_credentials" está bien escrito.

NOTA: ORIGINALMENTE ME FALTARON VARIAS COMILLAS Y COMAS. Y también quité unos espacios.

VERIFICA....

[Alejandro Jorge Falca]

Hola Hernan, buen dia, te comento que baje e instale postman y por medio de este pude realizar autorización y obtener el Token. El tema es que el Body del request debe ser de tipo x-www-form-urlencoded, como se veria el formato de un Body asi?

y luego con el TOKEN se envía un GET como QueryParams ...te adjunto imagenes de ambos porque todas las pruebas que hice para obtener el Body ese no me dieron resultado..

--

Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/060b2ddf-c173-442e-8561-60d14c72c93bn%40googlegroups.com.

[Alejandro Jorge Falca]

perdon, la primera imagen esta mal, no es la que corresponde...

[Paulo]

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/CAKMTJSsADXj%2Boq48yREHXn72m1A1e3nMH4taZyw4ZJrwXgQ%3DSA%40mail.gmail.com.

[HernanCano]

Intenta cambiando application/json por  x-www-form-urlencoded (o tal vez sólo json por x-www-form-urlencoded).

[Alejandro Jorge Falca]

gracias Paulo, pero tiene que ser en formato x-www-form-urlencoded no json, con postaman lo puedo acceder y me devuelve el token, pero desde vfp no hallo la manera de armar el body del request (send()) porque siempre me devuelve STATUS 400 

"{"error": "unsupported_grant_type"}".

En postman el body es :

client_secret:HtnRfUQZq6NzprsDzC5xGy5vhNIHFMZuaw
client_id:bnDFJL954vV9zI6K6KDo2c7Gj
grant_type:client_credentials

ya probe con TEXT TO.....ENDTEXT,

con _body = "......"

y no hay caso

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/CAMUkOEnO5LJjqodTnUGk7e%3DFrGG0B%2BiPJSHdLPYnx-yuC2HJew%40mail.gmail.com.

[HernanCano]

Debes aprender desde ahora que no debes pasar datos como claves por estos foros. Está bien que necesites ayuda, pero no poner las claves.

[HernanCano]

Pues el grant_type te lo estamos escribiendo como nos dijiste en el curl. Eres tú quien debe verificar si el grant_type está bien escrito....

Aunque probablemente lo q falte es el  x-www-form-urlencoded.... 

[Alejandro Jorge Falca]

Hola todos, si Hernan, tienes razón, no debo pasar claves por aquí, estoy tan mareado de realizar cambios que se me pasó ese detalle. Realice la pruebas con Postman y con x-www-form-urlencoded y los datos, funciona y me devuelve el token, pero cuando lo quiero hacer desde VFP, controlando la escritura el grant_type:client_credentials y demás siempre me devuelve STAUS 400

El mar, 14 sept 2021 a las 19:47, HernanCano (<jherna...@gmail.com>) escribió:

Pues el grant_type te lo estamos escribiendo como nos dijiste en el curl. Eres tú quien debe verificar si el grant_type está bien escrito....

Aunque probablemente lo q falte es el  x-www-form-urlencoded.... 

--

Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/3833dc13-fd8a-41e0-ad46-273e8195d5c5n%40googlegroups.com.

[Paulo]

boa noite

esta chaves que enviei antes eram inválidas. Agora mesmo com x-www-form-urlencoded

me retorna  .

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/CAKMTJSuJutMmCJ5xN9-5eScht_bq%3DPV5kKH9AFAzCQdP_%3D55sQ%40mail.gmail.com.

[Hendell Mora]

********************************************************************************************
*** This method gets the access token by sending the access code                         ***
********************************************************************************************


oServerRequest=this.create_winhttprequest()

*!*	'client_id' // your API Key
*!*	'client_secret' // your API Secret
*!*	'scope' // this should say CompanyFile
*!*	'code' // the Access Code you just got
*!*	'redirect_uri' // your redirect URL
*!*	'grant_type' // this should say authorization_code

lcCode = this.codereturned

SELECT MYOB_System

lcURL = ALLTRIM(post_url)
lcRedirectURI = ALLTRIM(Redirect_URI)
lcRedirectURL = ALLTRIM(Redirect_URL)
lcApi=ALLTRIM(apikey)
lcScope = 'CompanyFile'
lcSecret = ALLTRIM(secretkey)
lcGrant_type='authorization_code'
lcHeader = "application/x-www-form-urlencoded" 

lcData = 'code=' + lcCode + '&redirect_uri=' + lcRedirectURI + '&client_id=' + lcApi + '&scope=' + lcScope + '&client_secret=' + lcSecret + '&grant_type=' + lcGrant_type


&& Get Response
lcFail=.f.
TRY 
	oServerRequest.Open("POST",lcURL, .f.)
	oServerRequest.SetRequestHeader('Content-Type',lcHeader) 
	oServerRequest.Send(lcData)
	lcResponseText  = "" + oServerRequest.ResponseText
CATCH 
	lcFail=.t.
ENDTRY 

IF lcFail=.t.
	MESSAGEBOX("There was some kind of error sending the request to the server. Please check the connection or settings")
	RETURN 
ENDIF 

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/CAMUkOE%3D4N5dYc9NH7EjOBZ61PWn_ROngE6_1pBnfeTz1NZ-Lpg%40mail.gmail.com.

[Alejandro Jorge Falca]

Paulo, esas claves no eran mias...

Hendell Mora, que se supone que haces en [oServerRequest=this.create_winhttprequest()] ?

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/CABZqmZm-Xb1Hi6xA%3DrqQFAVFC3B-pkfX%2BX8aGHgzbEFT6firVA%40mail.gmail.com.

[Hendell Mora]

puedes cambiar esa lìnea por esta

LOCAL ServerRequest AS WinHttp.WinHttpRequest
oServerRequest = CREATEOBJECT("WinHttp.WinHttpRequest.5.1")

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/CAKMTJSsRN_u-Ea6w-FJjwMTwZN3bFzii0VW0j55Z99WsCQJ_Ag%40mail.gmail.com.

[HernanCano]

Bueno.... Parece que tenemos tres personas realizando el mismo procedimiento.. aunque probablemente con prov tecnológico diferente....

Alejandro Falca

Phph26

Hendell Mora

Por lo que veo, a Phph26 le sale el error "Falta el parámetro grant_type".... Lo extraño es que no falta: sí está en el cuerpo del JSON. Probablemente deba estar codificado en la URL..... Se requiere ver la documentación......

A Alejandro le sale repetitivamente "Status 400"... Se necesita más info, ¿cuál es la respuesta completa? además de status 400 qué más hay?

Y parece que Hendell ya envía y recibe (sin problemas... lo supongo pues no dice nada, y creo que lo que desea es aportarle a Alejandro).

Pero se observa que el cuerpo del mensaje no se envía en formato JSON, sino de una forma que perece ser como si fuera a ser codificado en la URL.....

Supongo --por la intervención de Hendell-- que Alejandro debe usar un cuerpo de mensaje similar a como Hendell tiene la vble lcData,... pero ojo-- ésto es un supuesto.. pues la respuesta que nos dice Alejandro no tiene suficiente info, y Hendell no dá mucha info.....

¿Será que también Alejandro debiera cambiar el grant_type a authorization_code????????????????????????? Probablemente no.. por que Alejandro nos dijo ya algo sobre éso (en la doc que mencionó sobre Curl dice client_credentials........ pero nunca se sabe....

[HernanCano]

Alejandro:

En esta imagen (que nos pusiste tú) dice que el grant_type es no-soportado, por lo tanto la documentación que nos pusiste en el primer mensaje (donde se menciona el comando CURL) no corresponde.

Por lo tanto debes confirmar con quien te envió ese dato (el del CURL).

[Hendell Mora]

Hernan. El problema es que yo no tengo la información técnica del consumo del Api o del WS. Por consiguiente solo puedo dar el aporte de una forma en que se puede enviar. Sería literalmente imposible darle el código de envío a dicho api sin tener la información del consumo. 

Ahora bien, sería cuestión que tome las opciones de los diferentes aportes y los pruebe. 

Igualmente si con curl funciona no veo problema alguno para usarlo. Igual es solo un punto de vista. 

--

Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/479f85ad-9722-464a-8181-14aa798cce39n%40googlegroups.com.

[HernanCano]

>>> ...  sin tener la información del consumo. 

Exactamente. 

Si no se conoce la documentación de la API del servicio web que está usando es muy difícil de ayudarle.

[Alejandro Jorge Falca]

Agradezco a todos los aportes, el tema es que por información de la gente del sitio, quienes desarrollaron la api, me dicen que tengo que mandar el request con header  x-www-form-urlencoded y tan es asi que utilizando Postman logro hacer la conexión y obtengo el Token, con el que posteriormente con un GET recibo un Json con la info solicitada. El tema es que lo mismo desde VFP me da constantemente STATUS 400 unsupported_grant_type...

adjunto imagenes de por medio de Postman la solicitud POST y GET...y del modulo VFP

--

Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/0a4a7c06-eb59-4faf-8127-5b4e1a3a7223n%40googlegroups.com.

[Alejandro Jorge Falca]

Hola Hendell, que es en tu codigo :

'code' // the Access Code you just got ?

'redirect_uri' // your redirect URL ?
a mi me pasaron el apikey (client_id) y el secretkey (client_secret) ademas me pasaron el url a donde debo enviar el POST con grant_type:client_credentials pero los demas campos que mencionas no se de donde sacarlos...desde ya muchas gracias

[Alejandro Jorge Falca]

Hendell, Hernan, esto es lo que me pasaron como documentación de la API...

[Hendell Mora]

Ok son dos pasos

1 Obtener el token (Post)

2 Realizar la Consulta (GET) con los parámetros en la URL incluido el token 

	cService = '/oauth2/token'
	cUser = 'usuario que te asignaron'
	cPassword = 'contraseña que te asignaron'
	cURL= 'https://api-intranet.catamarca.gob.ar'
	cURL = cURL +cService
	sp = CHR(13)+CHR(10)
	TRY
	oHTTP = CreateObject("Microsoft.XMLHTTP")
	WITH oHTTP
	.open ("POST", cURL, .F.)
	.setRequestHeader ('user', cUser)
	.setRequestHeader ('password', cPassword)
	ENDWITH
	oHTTP.Send()
	Token = oHTTP.responseText
	CATCH TO oErr
	_token= "Error, sucedio un problema en la función Token" + sp + sp + ;
	"[ Error: ] " + STR(oErr.ErrorNo) + sp + ;
	"[ LineNo: ] " + STR(oErr.LineNo) + sp + ;
	"[ Message: ] " + oErr.Message + sp + ;
	"[ Procedure: ] " + oErr.Procedure + sp + ;
	"[ Details: ] " + oErr.Details + sp + ;
	"[ StackLevel: ] " + STR(oErr.StackLevel) + sp + ;
	"[ LineContents: ] " + oErr.LineContents
	ENDTRY

  Aqui deberias tener el token en un json, debes convertirlo para poder enviarlo en la url para poder hacer la consulta 

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/CAKMTJSu%2BYweL0oJf5_aCrpr7qdpY6B86gdSaZs20czqWBywutw%40mail.gmail.com.

[Alejandro Jorge Falca]

Gracias por responder Hendell, ahora pruebo y te comento...

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/CABZqmZnuA0HBRJEiU6YAUpEgN4OUT0VCpaicqpx03UXyWMyCPA%40mail.gmail.com.

[Hendell Mora]

La Consulta seria algo asi 

FUNCTION Consulta(cToken, cURL,cEmpleado)
	cServicio = '/api/v1/public-employee/'
	sURL = cURL + cServicio + cEmpleado

	sp = CHR(13)+CHR(10)
	TRY
	oHTTP = CreateObject("Microsoft.XMLHTTP")
	WITH oHTTP

	.open ("GET", sUrl, .F.)
	.setRequestHeader ('Authorization', 'bearer '+ cToken)
	.setRequestHeader ('Content-Type', 'application/json')
	ENDWITH
	oHTTP.send()
	_Consulta = oHTTP.responseText
	CATCH TO oErr
	_Consulta = "Error, sucedio un problema en la función Consulta" + sp + sp + ;

	"[ Error: ] " + STR(oErr.ErrorNo) + sp + ;
	"[ LineNo: ] " + STR(oErr.LineNo) + sp + ;
	"[ Message: ] " + oErr.Message + sp + ;
	"[ Procedure: ] " + oErr.Procedure + sp + ;
	"[ Details: ] " + oErr.Details + sp + ;
	"[ StackLevel: ] " + STR(oErr.StackLevel) + sp + ;
	"[ LineContents: ] " + oErr.LineContents
	ENDTRY

	RETURN _Consulta

[Hendell Mora]

Este es otro

Ok son dos pasos

1 Primero debes obtener el token en un evento post 

LOCAL lcURL, lcResponseData

LOCAL lcAsyncMode, lcUser, lcPassword

LOCAL lcClient_ID, lcClient_Secret

LOCAL loHttp

lcURL  = [https://api-intranet.catamarca.gob.ar/oauth2/token]

lcAsyncMode = .F.

lcUser = ""

lcPassword = ""

lcClient_ID = " El id del Cliente que te dieron"

lcClient_Secret = " La Contraseña que te dieron "

loHttp = CREATEOBJECT("Microsoft.XMLHTTP")

loHttp.Open("post", lcURL, lcAsyncMode, lcUser, lcPassword )

looHttp.setRequestHeader('Content-Type', 'application/x-www-form-urlencoded')

loHttp.send([code=]+This.AuthorizationCode+[&client_id=]+lcClient_ID+[&client_secret=]+lcClient_Secret+[&grant_type=authorization_code] )

lcResponseData = loHttp.responseText

  Aqui deberias tener el token en un json, debes convertirlo para poder enviarlo en la url para poder hacer la consulta 

2 una vez que tienes el token haces la consulta en un evento get 

que seria algo asi

[Hendell Mora]

Prueba a ver cual te sirve para generar el token. Después vamos viendo la consulta

[Alejandro Jorge Falca]

Hendell, tenia esperanzas GRANDES, pero....

[Alejandro Jorge Falca]

ok, en la segunda propuesta, this.AutorizationCode dw donde lo sacas?

[Hendell Mora]

es  una propiedad del formulario donde corro el envio al api y guardo el dato devuelto 

puedes cambiarlo por una variable

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/CAKMTJSs12A2nWDWwD7tUiiL1UgVGnYKNEGAUXwL0gJgUcO7xyA%40mail.gmail.com.

[Alejandro Jorge Falca]

pero ese code debe tener algun valor o puede ser vacio cvariable="" ?

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/CABZqmZkELN4A_BWPdW5eiBqG%3D1Nzb%3Dkb_G42s%3DGg5xSO0EByCQ%40mail.gmail.com.

[Alejandro Jorge Falca]

HENDELLLLLLL, SALIOOOOOOO pero asi

lohttp = CREATEOBJECT("Microsoft.XMLHTTP")
lohttp.OPEN("post", lcurl, lcasyncmode, lcclient_id, lcclient_secret)
lohttp.setrequestheader('Content-Type', 'application/x-www-form-urlencoded')
lohttp.SEND([code=]+''+[&client_id=]+lcclient_id+[&client_secret=]+lcclient_secret+[&grant_type=client_credentials])
lcresponsedata = lohttp.responsetext

SIIIIIIII

[Hendell Mora]

Ok. Por eso te decía puedes usar una variable y la mandas en vacía 

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/CAKMTJSv1sAM3L7gYj5r%2BuTd_WVMYTejCcCeoMSmngpUMcMsrWw%40mail.gmail.com.

[Alejandro Jorge Falca]

Muchas gracias, ahora pruebo el GET, mañana te molesto si no consigo obtener la info, MUCHAS GRACIAS...

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/CABZqmZmBZuQM3oJQke6phYGC7iA6x6z8Lk4bs38SwKXe-pRV%3DA%40mail.gmail.com.

[Paulo]

Boa noite  

nome  caso  preciso passar no header o Authorization e content-type, no  encoded grant_type=client_credentials

LOCAL lcURL, lcResponseData

LOCAL lcAsyncMode, lcUser, lcPassword

LOCAL lcClient_ID, lcClient_Secret

LOCAL loHttp

lcURL  = [http://api-supe.sens.com/oauth/access-token]

lcAsyncMode = .F.

lcUser = ""

lcPassword = ""

lcClient_ID = ""

lcClient_Secret = ""

               cBase64= STRCONV(lcClient_ID+lcClient_Secret,13)

loHttp = CREATEOBJECT("Microsoft.XMLHTTP")

loHttp.Open("post", lcURL, lcAsyncMode, lcClient_ID, lcClient_Secret)

loHttp.setRequestHeader('Content-Type', 'application/x-www-form-urlencoded')

loHttp.setRequestHeader('Authorization', 'Basic ' +cBase64)

loHttp.send([code=]+''+[&client_id=]+lcClient_ID+[&client_secret=]+lcClient_Secret+[&grant_type=client_credentials] )

lcResponseData = loHttp.responseText

recebo o erro ? invalid client_id in Authorization header

[Alejandro Jorge Falca]

Paulo, proba con eliminar esta linea

loHttp.setRequestHeader('Authorization', 'Basic ' +cBase64)

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/93338255-1bc6-41b6-8a70-b84dcef8842fn%40googlegroups.com.

[Paulo]

retirei  a linha  loHttp.setRequestHeader('Authorization', 'Basic ' +cBase64)

o retorno

missing  Authorization header

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/CAKMTJSttW1p%3DqgpfEkXZiG9fr2%3DeVrib2toNCr7KJoepEH7Uzw%40mail.gmail.com.

[Hendell Mora]

CUIL_EMPLEADO = 'numero cuil a consultar'

cTOKEN = 'token obtenido en el paso anterior'

lcURL = "https://api-intranet.catamarca.gob.ar/api/v1/public-employee/"+"?tax-id = CUIL-EMPLEADO&version=2"

lcURL = lcURL + "?access_token="+cTOKEN

lcAsyncMode = .F.

lcUser = ""

lcPassword = ""

xhr = CREATEOBJECT("Microsoft.XMLHTTP")

xhr.Open("get", lcURL, lcAsyncMode, lcUser, lcPassword )

xhr.setRequestHeader('Content-Type', 'application/x-www-form-urlencoded')

xhr.send()

lcResponseData = xhr.responseText

xhr = null

lcResponseData = STRTRAN( lcResponseData, [\"] , "" )

? lcResponseData

Debería funcionar sin mucho más

Consulta de Empleado

Hendell

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/CAMUkOEnOzO-v-aDzVctc%2B3DtCL%3DBmLsxbZWREe%3DCajfCTt3ndg%40mail.gmail.com.

[Alejandro Jorge Falca]

Gracias Hendell, ya lo hice andar esta mañana, muchas gracias por tu soporte...

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/CABZqmZm3F31PbA3NiR%3DQ2gPr0aQr9LXmojuam-xJTMZRh2JtDA%40mail.gmail.com.