cyValor is currency
sFecha is string = DateToString(dParamFecha,"YYYY-MM-DD")
sCadena is string = "https://www.banxico.org.mx/SieAPIRest/service/v1/series/SF43783/datos/%1/%2"
sUrl is string = StringBuild(sCadena,sFecha,sFecha)
Consulta is httpRequest
Consulta.Reset()
Consulta.Method = httpGet
Consulta.URL = sUrl // "https://www.banxico.org.mx/SieAPIRest/service/v1/series/SF43718/datos/2023-10-01/2023-11-16"
Consulta.Header["Bmx-Token"] = "ea27d86f0ea63ff49e40c0fb4097e93f75b5471c23786045935de06b50b"
Consulta.ContentType = typeMimeJSON
//https://www.banxico.org.mx/SieAPIRest/service/v1/series/SP74665,SF61745,SF60634,SF43718,SF43773/datos/2015-01-01/2015-01-08
Respuesta is restResponse = RESTSend(Consulta)
IF Respuesta.StatusCode = 200 THEN
BuffJSON is JSON = Respuesta.Content
FOR EACH ResultadoJSON OF BuffJSON
//Info(ResultadoJSON.series)
FOR EACH Series OF ResultadoJSON.series
//Info(Series.datos)
FOR EACH Datos OF Series.datos
//Info(Datos.fecha)
cyValor = Datos.dato
END
END
END
ELSE
Error("Error al procesar la solicitud","Codigo del error:" + Respuesta.StatusCode, "descripción del error: " + Respuesta.DescriptionStatusCode)
END
RESULT cyValor
