Код

Процедура Сформировать()
	Спр=СоздатьОбъект("Справочник.ПериферийныеБазы");
	Спр.ВыбратьЭлементы();
	Пока Спр.ПолучитьЭлемент()=1 Цикл
		Сп=СоздатьОбъект("СписокЗначений");
		сп.ДобавитьЗначение("Загрузка-Выгрузка","Команда");
		сп.ДобавитьЗначение(1,"Загрузка");
		сп.ДобавитьЗначение(Спр.ТекущийЭлемент(),"База");
		Сообщить("---------------------");
		Сообщить("Загрузка "+Строка(Спр));
		Если ЭтоSQL=1 Тогда
			// рвем соединение и восстанавливаем заново! только в SQL версии
			Соединение=СоздатьОбъект("ODBCDataBase");
			Соединение.Присоединить1С();
			Попытка
				Соединение.ReconnectNative();
				Сообщить("Разрыв соединения");
			Исключение
				Сообщить("Разрыв соединения:"+ОписаниеОшибки(),"!");
				ЗаписьЖурналаРегистрации("Разрыв соединения:"+ОписаниеОшибки());
			КонецПопытки;
			Соединение.Закрыть();
			//ЗапуститьПриложение("net send v-fedushin-sc Окончание загрузки "+ИмяТекстовогоФайла);
		КонецЕсли;

		ОткрытьФормуМодально("Обработка.ОбменДанными#",Сп);
		Сообщить("Загрузка завершена");
		Сообщить("---------------------");
	КонецЦикла;
КонецПроцедуры