Сохраните обработки ЗагрузкаБанков как внешнюю, и закомментируйте часть кода, и грузите с сайта росбизнес
// Получает файл загрузки с РБК
//
// Параметры
// Нет.
//
Процедура ПолучитьФайлИзИнтернета()
Перем HTTP;
ОбработкаПолученияФайлов = Обработки.ПолучениеФайловИзИнтернета.Создать();
Если ВариантЗагрузки = 0 Тогда
СерверИсточник = "https://bankregister.1c.ru/bankregister/v1/";
Адрес = "bnk.zip";
Иначе
СерверИсточник = "cbrates.rbc.ru";
Адрес = "bnk/bnk.exe";
КонецЕсли;
ВремКаталог = КаталогВременныхФайлов() + "tempBik";
СоздатьКаталог(ВремКаталог);
УдалитьФайлы(ВремКаталог,"*.*");
// это закомментировать
//Если Не ИнтернетПоддержкаПользователей20.ЗаполненыДанныеАутентификацииПользователяИнтернетПоддержки() Тогда
// ИнтернетПоддержкаПользователейКлиент20.ПодключитьИнтернетПоддержкуПользователей(
// Неопределено,
// ЭтаФорма);
// Сообщить("После ввода логина и пароля следует повторить операцию загрузки данных.");
// //Возврат;
//КонецЕсли;
// это закомментировать
Попытка
ИмяВходящегоФайла = "" + ВремКаталог + "\" + ?(ВариантЗагрузки = 0, Адрес, мИмяФайлаЗип);
Если ОбработкаПолученияФайлов.ЗапроситьФайлыССервера(СерверИсточник, Адрес, ИмяВходящегоФайла, HTTP, ВариантЗагрузки) <> Истина Тогда
Сообщить("Не удалось установить соединение с сервером", СтатусСообщения.Важное);
Возврат;
КонецЕсли;
Исключение
Сообщить("Неудачная попытка соединения.");
Возврат;
КонецПопытки;
Состояние("Выполняется обработка загрузки");
Если ВариантЗагрузки = 0 Тогда
Попытка
ZIPФайл = Новый ЧтениеZipФайла(ИмяВходящегоФайла);
Исключение
Сообщить("Возникли проблемы с файлом классификатора банков, полученным с сайта 1С.");
КонецПопытки;
Попытка
ZIPФайл.ИзвлечьВсе(ВремКаталог);
Исключение
Сообщить("Не удалось извлечь файлы из архива, полученного с сайта 1С.");
КонецПопытки;
Иначе
КомандаСистемы(""""+ ВремКаталог + "\" + мИмяФайлаЗип + """", ВремКаталог);
КонецЕсли;
ФайлБИК = Новый Файл(ВремКаталог + "\" + мИмяФайлаБИК);
ФайлРЕГ = Новый Файл(ВремКаталог + "\" + мИмяФайлаРег);
НачальнаяДата = ТекущаяДата();
Пока (НЕ (ФайлБИК.Существует() И ФайлРЕГ.Существует())) И ((ТекущаяДата() - НачальнаяДата) < 10) Цикл
КонецЦикла;
Если (ФайлБИК.Существует() И ФайлРЕГ.Существует()) Тогда
ЗагрузитьКлассификаторБанков(ВремКаталог);
УдалитьФайлы(ВремКаталог,"*.*");
КонецЕсли;
КонецПроцедуры // ПолучитьФайлИзИнтернета()
Показать
