topic-43771

Posts: 467

Joined: Fri Dec 09, 2005 12:41 AM

Consultando una api
Posted: Thu Oct 05, 2023 06:40 PM

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

Posts: 467

Joined: Fri Dec 09, 2005 12:41 AM

Re: Consultando una api SOLUCIONADO
Posted: Thu Oct 05, 2023 08:13 PM

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

Code (fw): Select all Collapse

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.

FiveTech Support Forums

Continue the discussion