Подскажите откуда можно загрузить прямые курсы валют, USD/CNY, EUR/USD,EUR/CNY?
Предполагается сделать отдельный регистр сведений и туда загружать прямые курсы валют. Но вот не нашел откуда их можно загружать, может кто сталкивался с такой проблемой?
(3) Разобрался с апи. вот как можно загружать курс:
//Конечные точки API имеют префикс https://api.twelvedata.com
АдресСервера = "api.twelvedata.com";
ИмяМетода = "/exchange_rate";
ВалютнаяПара = "USD/CNY";
Дата = Формат(ТекущаяДата(), "ДФ=yyyy-MM-dd");
ЗаголовокHTTP = Новый Соответствие();
//В заголовке, как Authorization="apikey your_api_key"
ЗаголовокHTTP.Вставить("Authorization", "apikey " + Токен);
Запрос = Новый HTTPЗапрос(ИмяМетода+ "?symbol="+ВалютнаяПара+"&date="+Дата+"&apikey="+Токен, ЗаголовокHTTP);
Соединение = Новый HTTPСоединение(АдресСервера,,,,,,Новый ЗащищенноеСоединениеOpenSSL(),Ложь);
Ответ = Соединение.Получить(Запрос);
Таблица = Новый ТаблицаЗначений;
Если Ответ.КодСостояния = 200 Тогда
Результат = Ответ.ПолучитьТелоКакСтроку();
ЧтениеJSON = Новый ЧтениеJSON;
ЧтениеJSON.УстановитьСтроку(Результат);
СтруктураJSON = ПрочитатьJSON(ЧтениеJSON);
Иначе
Сообщить("Код ответа: "+Ответ.КодСостояния); //анализируем код состояния и делаем выводы
КонецЕсли;
Через рубль как раз и не нужно, там получается завышенный курс, мне нужны именно прямые курсы. Нашел вот это, но пока не разобрался:https://twelvedata.com/docs#exchange-rate
(3) Разобрался с апи. вот как можно загружать курс:
//Конечные точки API имеют префикс https://api.twelvedata.com
АдресСервера = "api.twelvedata.com";
ИмяМетода = "/exchange_rate";
ВалютнаяПара = "USD/CNY";
Дата = Формат(ТекущаяДата(), "ДФ=yyyy-MM-dd");
ЗаголовокHTTP = Новый Соответствие();
//В заголовке, как Authorization="apikey your_api_key"
ЗаголовокHTTP.Вставить("Authorization", "apikey " + Токен);
Запрос = Новый HTTPЗапрос(ИмяМетода+ "?symbol="+ВалютнаяПара+"&date="+Дата+"&apikey="+Токен, ЗаголовокHTTP);
Соединение = Новый HTTPСоединение(АдресСервера,,,,,,Новый ЗащищенноеСоединениеOpenSSL(),Ложь);
Ответ = Соединение.Получить(Запрос);
Таблица = Новый ТаблицаЗначений;
Если Ответ.КодСостояния = 200 Тогда
Результат = Ответ.ПолучитьТелоКакСтроку();
ЧтениеJSON = Новый ЧтениеJSON;
ЧтениеJSON.УстановитьСтроку(Результат);
СтруктураJSON = ПрочитатьJSON(ЧтениеJSON);
Иначе
Сообщить("Код ответа: "+Ответ.КодСостояния); //анализируем код состояния и делаем выводы
КонецЕсли;