Получение курсов валют через веб-сервисы Центробанка РФ

6 Comments

1. iov 25.02.2011 at 13:52

   а график где??? он туда сам напрашивается…

   Reply ↓
2. Dmitryiv 25.02.2011 at 14:24

   Кому нужен график — сами нарисуют. Обработка создана в академических целях. 😀

   Reply ↓
3. r.pronin 06.11.2011 at 01:29

   Не тратьте денег. На сайте ЦБ РФ даны примеры и кое-какие пояснения.
   
   http://www.cbr.ru/scripts/Root.asp?Prtid=DWS
   
   Я для примера взял загрузку курсов в Excel.
   
   В 8.2.13 все получилось. Вот как-то так.

   самая большая хитрость это в конфигураторе надо создать WS-ссылку из адреса http://www.cbr.ru/DailyInfoWebServ/DailyInfo.asmx?WSDL

   Вот типа текст.

   Перем СервисЕжедневнойИнформации ;

   Функция ПолучитьПоследнююДатуУстановкиКурса ()
   
   ТипWSПарамера = СервисЕжедневнойИнформации.ФабрикаXDTO.Пакеты.Получить(«http://web.cbr.ru/»).Получить(«GetLatestDateTime»);
   
   WSПараметр = СервисЕжедневнойИнформации.ФабрикаXDTO.Создать(ТипWSПарамера);

   WSРезультат = СервисЕжедневнойИнформации.GetLatestDateTime(WSПараметр);

   Возврат WSРезультат.GetLatestDateTimeResult ;

   КонецФункции

   Функция ПолучитьСписокКотируемыхВалют ()
   
   // Получаем список валют
   
   ТипWSПараметра = СервисЕжедневнойИнформации.ФабрикаXDTO.Пакеты.Получить(«http://web.cbr.ru/»).Получить(«EnumValutes»);
   
   WSПараметр = СервисЕжедневнойИнформации.ФабрикаXDTO.Создать(ТипWSПараметра);
   
   WSПараметр.Seld = ложь ;
   
   СписокВалют = СервисЕжедневнойИнформации.EnumValutes(WSПараметр);
   
   КонецФункции

   Процедура КнопкаВыполнитьНажатие(Кнопка)

   Если НЕ ЗначениеЗаполнено (ДатаКурса) Тогда
   
   ДатаКурса = ПолучитьПоследнююДатуУстановкиКурса();
   
   КонецЕсли;

   // Получаем курсы
   
   ТипWSПараметра = СервисЕжедневнойИнформации.ФабрикаXDTO.Пакеты.Получить(«http://web.cbr.ru/»).Получить(«GetCursOnDate»);
   
   WSПараметр = СервисЕжедневнойИнформации.ФабрикаXDTO.Создать(ТипWSПараметра);
   
   WSПараметр.On_Date = ДатаКурса ;
   
   СписокКурсов = СервисЕжедневнойИнформации.GetCursOnDate(WSПараметр);

   // Загрузить
   
   КурсыВалют.Очистить();
   
   Для Каждого Стр Из СписокКурсов.GetCursOnDateresult.diffgram.ValuteData.ValuteCursOnDate Цикл
   
   Строка = КурсыВалют.Добавить() ;
   
   Строка.Курс = Стр.Vcurs ;
   
   Строка.Кратность = Стр.Vnom ;
   
   Строка.ВалютаКодСимвольный = Стр.VchCode ;
   
   Строка.ВалютаКодЧисловой = Прав («000″+Стр.VCode, 3);
   
   Строка.ВалютаИмя = Стр.VName ;
   
   КонецЦикла;

   КонецПроцедуры

   Процедура ПолучитьПоследнююДатуУстановкиКурсовНажатие(Элемент)
   
   ДатаКурса = ПолучитьПоследнююДатуУстановкиКурса ();
   
   КонецПроцедуры

   СервисЕжедневнойИнформации = WSСсылки.CBR_RU_DailyInfoWebServ.СоздатьWSПрокси («http://web.cbr.ru/», «DailyInfo», «DailyInfoSoap» );

   Reply ↓
4. Dmitryiv 06.11.2011 at 11:47

   r.pronin пишет:
   
   Не тратьте денег. На сайте ЦБ РФ даны примеры и кое-какие пояснения.

   Друже ты о каких деньгах глаголишь?

   Reply ↓
5. r.pronin 06.11.2011 at 15:16

   я о 800 руб в месяц, которые теперь берет infostart за то, чтобы скачать обработку.

   Reply ↓
6. Dmitryiv 06.11.2011 at 17:02

   Что-то я пропустил в этой жизни 🙁 И давно они так охамели?

   Reply ↓