Merge pull request #176 from AlexPCRus/AlexPCPatch-4

Возможность загрузки исходников в конфигурацию, подключенную к хранилищу

Author: EvilBeaver

src/v8runner.os

@@ -775,12 +775,18 @@
 //   ОбновитьФайлВерсий - Булево - указывает, что в конце загрузки в каталоге будет создан файл версий ConfigDumpInfo.xml,
 //									соответствующий загруженной конфигурации.
 //									Если выполняется частичная загрузка (используется опция -files или -listFile), файл версий будет обновлен.
+//   СтрокаСоединения - Строка - Строка соединения с хранилищем конфигурации
+//   ПользовательХранилища - строка - Пользователь для подключения к хранилищу конфигурации
+//   ПарольХранилища - Строка - Пароль пользователь для подключения к хранилищу конфигурации
 //   Для того, чтобы работали функции 8.3.10, необходимо явно указать версию.
 Процедура ЗагрузитьКонфигурациюИзФайлов(Знач КаталогЗагрузки,
                                         Знач ПутьКСпискуФайловЗагрузки = "",
                                         Знач ФорматВыгрузки = "",
                                         Знач ОбновитьФайлВерсий = Истина,
-                                        Знач ОбновитьКонфигурациюИБ = Ложь) Экспорт
+                                        Знач ОбновитьКонфигурациюИБ = Ложь,
+                                        Знач СтрокаСоединения = "",
+                                        Знач ПользовательХранилища = "",
+                                        Знач ПарольХранилища = "") Экспорт
 
 	Если НЕ ЗначениеЗаполнено(ФорматВыгрузки) Тогда
 		ФорматВыгрузки = РежимВыгрузкиКонфигурации.Иерархический;
@@ -798,7 +804,6 @@
 		КонецЕсли;
 
 		Если ЗначениеЗаполнено(ПутьКСпискуФайловЗагрузки) Тогда
-
 			Параметры.Добавить(СтрШаблон("-listFile %1", ОбернутьВКавычки(ПутьКСпискуФайловЗагрузки)));
 			Параметры.Добавить(СтрШаблон("-format %1", ФорматВыгрузки));
 
@@ -810,6 +815,13 @@
 
 	КонецЕсли;
 
+	Если ЗначениеЗаполнено(СтрокаСоединения) Тогда	
+		Параметры.Добавить("/ConfigurationRepositoryF " + ОбернутьВКавычки(СтрокаСоединения));
+		Параметры.Добавить("/ConfigurationRepositoryN " + ОбернутьВКавычки(ПользовательХранилища));
+		Если Не ПустаяСтрока(ПарольХранилища) Тогда
+			Параметры.Добавить("/ConfigurationRepositoryP " + ОбернутьВКавычки(ПарольХранилища));
+		КонецЕсли;	
+	КонецЕсли;
 
 	ВыполнитьКоманду(Параметры);