8.2
СерверИсточник = "cbrates.rbc.ru"; НТТР = Новый HTTPСоединение(СерверИсточник); Адрес = "bnk/bnk.exe"; ВремКаталог = КаталогВременныхФайлов() + "tempBik"; СоздатьКаталог(ВремКаталог); УдалитьФайлы(ВремКаталог,"."); Попытка НТТР.Получить(Адрес, ВремКаталог + "\" + мИмяФайлаЗип); Исключение Сообщить("Неудачная попытка соединения."); Возврат; КонецПопытки; Состояние("Выполняется обработка загрузки"); КомандаСистемы(""""+ ВремКаталог + "\" + мИмяФайлаЗип + """", ВремКаталог); ФайлБИК = Новый Файл(ВремКаталог + "\" + мИмяФайлаБИК); ФайлРЕГ = Новый Файл(ВремКаталог + "\" + мИмяФайлаРег); НачальнаяДата = ТекущаяДата(); Пока (НЕ (ФайлБИК.Существует() И ФайлРЕГ.Существует())) И ((ТекущаяДата() - НачальнаяДата) < 10) Цикл КонецЦикла; Если (ФайлБИК.Существует() И ФайлРЕГ.Существует()) Тогда ЗагрузитьКлассификаторСРБК(ВремКаталог); УдалитьФайлы(ВремКаталог,мИмяФайлаЗип); УдалитьФайлы(ВремКаталог,мИмяФайлаБИК); УдалитьФайлы(ВремКаталог,мИмяФайлаРег); КонецЕсли;
8.3