Consultando una api

[lubin]

buen dia con todos

Una consulta, hay una API la cual debo de consultar, pero no le encuentro el hilo como jalar la respuesta al FW ...

Por ejemplo si hacemos directamente click a este link o lo copiamos al navegador...

https://dniruc.apisperu.com/api/v1/ruc/20131312955?token=eyJ0eXAiOiJKV1QiLCJhbGciOiJIUzI1NiJ9.eyJlbWFpbCI6Imx1YmluLmFtQHNwZWVkeS5jb20ucGUifQ.clkWKrkjefvOu0JTziv5AE8jkSVM85fdlRCSr0sFico


me retorna el resultado de la API..

{"ruc":"20131312955","razonSocial":"SUPERINTENDENCIA NACIONAL DE ADUANAS Y DE ADMINISTRACION TRIBUTARIA - SUNAT","nombreComercial":null,"telefonos":[],"tipo":null,"estado":"ACTIVO","condicion":"HABIDO","direccion":"AV. GARCILASO DE LA VEGA NRO. 1472 LIMA LIMA LIMA","departamento":"LIMA","provincia":"LIMA","distrito":"LIMA","fechaInscripcion":null,"sistEmsion":null,"sistContabilidad":null,"actExterior":null,"actEconomicas":[],"cpPago":[],"sistElectronica":[],"fechaEmisorFe":null,"cpeElectronico":[],"fechaPle":null,"padrones":[],"fechaBaja":null,"profesion":null,"ubigeo":"150101","capital":"LIMA"}



Este es el resultado JSON que deseo leer de la API,.

Les agradesco cualquier sugerencia.

Lubin

[lubin]

Buenas
Yo mismo me respondo, la solucion que logre, quizas a alguien le sirva

Code: Select all | Expand

function LeeMiAPI()
***************************
* FUNCION DE LECTURA DE API  APIPERU - RUC 
 
   Local oHttp
   Local cResp   := ""
   local xUrlApi := "https://dniruc.apisperu.com/api/v1/ruc/"
   local xRuc    := "20131312955"
   local xToken  := "eyJ0eXAiOiJKV1QiLCJhbGciOiJIUzI1NiJ9.eyJlbWFpbCI6Imx1YmluLmFtQHNwZWVkeS5jb20ucGUifQ.clkWKrkjefvOu0JTziv5AE8jkSVM85fdlRCSr0sFico"

   Try
      oHttp := CreateObject("winhttp.winhttprequest.5.1")
      oHttp:Open("GET",xUrlApi+xRuc+"?token="+xToken,.f.) 
      oHttp:Send()
      cResp := oHttp:ResponseText()
   Catch
      MsgStop( "Error" )
      Return cResp
   End Try

    msginfo(cResp,"RESPUESTA DE LA API ")  && respuesta de la API 
 
return .t.