Обновление курсов валют с сервера ЦБРФ

Обработка решает проблему невозможности обновления курсов валют через Интернет стандартной обработкой.

Для тех, у кого все еще «семерка». С наступлением нового года стало невозможным обновление курсов валют стандартной обработкой с сервера РБК (rbk.ru). Взяв за основу эту самую обработку, решил переписать ее для загрузки курсов с сервера ЦБРФ (cbr.ru). Результаты тестил на ПУБе. Надеюсь кому ни будь станет полезной.

6 Comments

  1. Доня

    Странно!

    Все прекрасно обновляется стандартной обработкой.

    В чем проблема у Вас.

    Может надо в «Параметрах» установить «Бухгалтерские итоги» — 1 кв 2013 г. ???

    Тогда будет видно обновление !

    Успехов.

    Reply
  2. Михаська

    Хм.. наверное наш криворукий админ опять что то начудил.. при попытке зайти на страницу обновления через http выдает 404… ну в общем то в любом случае забирать курсы валют с сайта цетробанка я считаю более правильным чем с РБК..

    Reply
  3. Иваныч

    А у меня тоже все прекрасно работает ТиС 9.2

    Загружает без проблем

    Reply
  4. Михаська

    А вы точно уверены что курсы валют у вас обновляются? Курсы менялись с 01.01.13? или они у вас те-же что и на 31.12? У меня, ни из дома, не с работы больше не обновляются стандартной обработкой.. хз мож версия обработки старая, но это вряд ли причина..

    Reply
  5. gashek

    У меня качает и курсы обновляются стандартной обработкой

    Reply
  6. unknown181538

    У меня заработало с такими корректировками:

    //СБОР ДАННЫХ О КУРСАХ ВАЛЮТ С СЕРВЕРА ЦБРФ
    Текст=СоздатьОбъект(«Текст»);
    ДатаЗагрузки=НачДата;
    Пока ДатаЗагрузки <= КонДата Цикл
    Стр=»»;
    Адрес = «http://www.cbr.ru/scripts/XML_daily.asp?date_req=»+Лев(Строка(ДатаЗагрузки),6)+ДатаГод(ДатаЗагрузки);
    Попытка
    Соединение.ПолучитьКакСтроку(Адрес, Стр);
    Исключение
    Сообщить(«Неудачная попытка соединения.»);
    КонецПопытки;
    Стр = СтрЗаменить(Стр,»<ValCurs Date»,»
    |<ValCurs Date» );
    Стр = СтрЗаменить(Стр,»<Valute I»,»
    |<Valute I» );
    Стр = СтрЗаменить(Стр,»<NumCode>»,»
    |<NumCode>» );
    Стр = СтрЗаменить(Стр,»<CharCode>»,»
    |<CharCode>» );
    Стр = СтрЗаменить(Стр,»<Nominal>»,»
    |<Nominal>» );
    Стр = СтрЗаменить(Стр,»<Value>»,»
    |<Value>» );
    Текст.ДобавитьСтроку(Стр);
    ДатаЗагрузки=ДатаЗагрузки+1;
    КонецЦикла;

    Показать

    Reply

Leave a Comment

Ваш адрес email не будет опубликован. Обязательные поля помечены *