Статья: Перестала работать (не работает) загрузка курсов валют НБ РБ

Приведу пример для 1С 7.7

Во-первых, изменился адрес страницы.

Строку

НТТРСервис.ПолучитьКакФайл("http://www.nbrb.by/statistics/Rates/RatesPrint.asp?fromDate="+ДатаДляФайла, ФайлКурсов);

Необходимо заменить на строку

НТТРСервис.ПолучитьКакФайл("http://www.nbrb.by/statistics/rates/ratesDaily.asp?p=print&Date="+ДатаДляФайла, ФайлКурсов);

Во-вторых, изменился формат.

В процедуре Импортировать() типовой обработки загрузки курсов валют строку

Если Найти(Стр,"class") > 0 Тогда

Нужно изменить на строку

Если Найти(Стр,"class=""textcol""") > 0 Тогда

Иначе будет вот такая картина: