Merge pull request #185 from oscript-library/develop

Sync

Author: nixel2007

packagedef

@@ -1,6 +1,6 @@
 
 Описание.Имя("v8runner")
-		.Версия("1.12.0")
+		.Версия("1.13.0")
 		.ВерсияСреды("1.9.0")
 		.ЗависитОт("1commands", "1.5.0")
 		.ЗависитОт("asserts", "1.4.0")

readme.md

@@ -152,11 +152,13 @@
 
 - Процедура **ЗагрузитьРасширениеИзФайла**(Знач ПутьФайлРасширения, Знач ИмяРасширения, Знач ОбновитьКонфигурациюИБ = Ложь) - загрузка конфигурации расширения из файла. Вызывает команду `/LoadCfg` с ключом *-Extension*.
 
+- Процедура **ВыгрузитьФайлВерсий**(Знач КаталогВыгрузки) - Выгрузка файла версий ConfigDumpInfo.xml. Вызывает команду `/DumpConfigToFiles` с ключом *-configDumpInfoOnly*.
+
 - Процедура **ОбъединитьКонфигурациюСФайлом**(Знач ФайлКонфигурации, Знач ФайлНастроек, Знач ПоставитьНаПоддержку = Неопределено, Знач ВключитьВОбъединениеОбъектыПоНеразрешеннымСсылкам = Неопределено, Знач Принудительно = Ложь, Знач ПараметрыХранилища = Неопределено, Знач ИмяРасширения = Неопределено) - объединение текущей конфигурации с файлом (с использованием файла настроек). Вызывает команду `/MergeCfg`. [Описание ИТС:](http://its.1c.ru/db/v83doc#bookmark:adm:TI000000527)
 
-- Процедура **ОбновитьКонфигурациюБазыДанных**(ПредупрежденияКакОшибки = Ложь, НаСервере = Истина, ДинамическоеОбновление = Ложь, ИмяРасширения = "") - обновить конфигурацию БД. Вызывает команду `/UpdateDBCfg`.
+- Процедура **ОбновитьКонфигурациюБазыДанных**(ПредупрежденияКакОшибки = Ложь, НаСервере = Истина, ДинамическоеОбновление = Ложь, ИмяРасширения = "", ЗавершатьСеансы = Ложь) - обновить конфигурацию БД. Вызывает команду `/UpdateDBCfg`.
 
-- Процедура **ОбновитьКонфигурациюБазыДанныхНаСервере**(ПредупрежденияКакОшибки = Ложь, ДинамическоеОбновление = Ложь, РежимРеструктуризации = Неопределено, Знач ИмяРасширения = Неопределено) - обновить конфигурацию БД на сервере. Вызывает команду `/UpdateDBCfg` с ключом *-Server*.
+- Процедура **ОбновитьКонфигурациюБазыДанныхНаСервере**(ПредупрежденияКакОшибки = Ложь, ДинамическоеОбновление = Ложь, РежимРеструктуризации = Неопределено, Знач ИмяРасширения = Неопределено, ЗавершатьСеансы = Ложь) - обновить конфигурацию БД на сервере. Вызывает команду `/UpdateDBCfg` с ключом *-Server*.
 
 - Процедура **ОбновитьКонфигурацию**(Знач КаталогВерсии, Знач ИспользоватьПолныйДистрибутив = Ложь) - обновить конфигурацию, находящуюся на поддержке, или объединить текущую конфигурацию с файлом `1cv8.cf` или `1cv8.cfu`. Вызывает команду `/UpdateCfg`.
 

src/v8runner.os

@@ -548,6 +548,33 @@
 	ВыполнитьКоманду(Параметры);
 КонецПроцедуры
 
+Процедура ОтключитьОтХранилищаВсеРасширения() Экспорт
+	мОчищатьФайлИнформации = Ложь;
+	
+	Параметры = СтандартныеПараметрыЗапускаКонфигуратора();
+
+	Параметры.Добавить("/DumpDBCfgList ");
+	Параметры.Добавить("-AllExtensions");
+	ВыполнитьКоманду(Параметры);
+	ЧтениеТекста = Новый ЧтениеТекста();
+	лФайлИнформации = ФайлИнформации();
+	ЧтениеТекста.Открыть(лФайлИнформации);
+	МассивРасширений = Новый Массив;
+	СтрокаИмяРасширения = ЧтениеТекста.ПрочитатьСтроку();
+	Пока СтрокаИмяРасширения <> Неопределено Цикл
+		МассивРасширений.Добавить(СтрокаИмяРасширения);
+		СтрокаИмяРасширения = ЧтениеТекста.ПрочитатьСтроку();
+	КонецЦикла;
+	ЧтениеТекста.Закрыть();
+
+	лФайлИнформации.УдалитьФайл();
+
+	Для каждого ЭлМас Из МассивРасширений Цикл
+		ОтключитьсяОтХранилища(ЭлМас);
+	КонецЦикла;
+
+КонецПроцедуры
+
 
 // Добавление пользователя хранилища конфигурации.
 //	Пользователь, от имени которого выполняется подключение к хранилищу, должен обладать административными правами.
@@ -734,9 +761,10 @@
 //   ПутьКФайлуИзменений - Строка - Указывает путь к файлу,в который будут выведены изменения текущей конфигурации. Изменения вычисляются относительно файла версий в текущем каталоге выгрузки.
 //   ПутьКФайлуВерсийДляСравнения - Строка - Указывает путь к файлу, который будет использован для сравнения изменений.
 //   ФорматВыгрузки 	- РежимВыгрузкиКонфигурации - По умолчанию выгрузка производится в иерархическом формате.
+//   ИмяРасширения		- Строка - Имя расширения для которого проверяются изменнения
 //
 //   Для того, чтобы работали функции 8.3.10, необходимо явно указать версию.
-Процедура ВыгрузитьИзмененияКонфигурацииВФайл(Знач КаталогВыгрузки, Знач ПутьКФайлуИзменений, Знач ПутьКФайлуВерсийДляСравнения = "", Знач ФорматВыгрузки = "") Экспорт
+Процедура ВыгрузитьИзмененияКонфигурацииВФайл(Знач КаталогВыгрузки, Знач ПутьКФайлуИзменений, Знач ПутьКФайлуВерсийДляСравнения = "", Знач ФорматВыгрузки = "", ИмяРасширения = "") Экспорт
 
 	Ожидаем.Что(ИспользуемаяВерсияПлатформыСтаршеИлиРавна("8.3.10"), "Данная процедура не поддерживается выбранной версией платформы")
 		.ЭтоИстина();
@@ -752,6 +780,10 @@
 
 	КонецЕсли;
 
+	Если ЗначениеЗаполнено(ИмяРасширения) Тогда
+		Параметры.Добавить(СтрШаблон("-Extension %1", ОбернутьВКавычки(ИмяРасширения)));
+	КонецЕсли;
+
 	Если НЕ ЗначениеЗаполнено(ФорматВыгрузки) Тогда
 		ФорматВыгрузки = РежимВыгрузкиКонфигурации.Иерархический;
 	КонецЕсли;
@@ -1047,6 +1079,21 @@
 
 КонецПроцедуры
 
+// Выгружает файл версий конфигурации ConfigDumpInfo.xml
+//
+// Параметры:
+//   КаталогВыгрузки - Строка - путь к каталогу выгрузки
+//
+Процедура ВыгрузитьФайлВерсий(Знач КаталогВыгрузки) Экспорт
+	
+	Параметры = СтандартныеПараметрыЗапускаКонфигуратора();
+	Параметры.Добавить(СтрШаблон("/DumpConfigToFiles %1", ОбернутьВКавычки(КаталогВыгрузки)));
+	Параметры.Добавить("-configDumpInfoOnly");
+	
+	ВыполнитьКоманду(Параметры);
+	
+КонецПроцедуры
+
 // Выполнить объединение текущей конфигурации с файлом (с использованием файла настроек)
 // Описание ИТС: http://its.1c.ru/db/v83doc#bookmark:adm:TI000000527
 //
@@ -1126,11 +1173,13 @@
 //   НаСервере - Булево - выполнять на сервере. Необязательно. По Умолчанию - Истина.
 //   ДинамическоеОбновление - Булево - использовать. Необязательно. По Умолчанию - Ложь.
 //   ИмяРасширения - Строка - имя расширения. Необязательно.
+//   ЗавершатьСеансы - Булево - завершение активных сеансов в случае необходимости установки эксклюзивной блокировки информационной базы. По умолчанию - Ложь.
 //
 Процедура ОбновитьКонфигурациюБазыДанных(
 	ПредупрежденияКакОшибки = Ложь, НаСервере = Истина,
 	ДинамическоеОбновление = Ложь,
-	ИмяРасширения = "") Экспорт
+	ИмяРасширения = "",
+	ЗавершатьСеансы = Ложь) Экспорт
 
 	ПараметрыСвязиСБазой = СтандартныеПараметрыЗапускаКонфигуратора();
 	ПараметрыСвязиСБазой.Добавить("/UpdateDBCfg");
@@ -1150,10 +1199,15 @@
 	Если НаСервере И Не ЗначениеЗаполнено(ИмяРасширения) Тогда
 		ПараметрыСвязиСБазой.Добавить("-Server");
 	КонецЕсли;
+
 	Если ЗначениеЗаполнено(ИмяРасширения) Тогда
 		ПараметрыСвязиСБазой.Добавить(СтрШаблон("-Extension ""%1""", ИмяРасширения));
 	КонецЕсли;
 
+	Если ЗавершатьСеансы Тогда
+		ПараметрыСвязиСБазой.Добавить("-SessionTerminate force");
+	КонецЕсли;
+
 	ВыполнитьКоманду(ПараметрыСвязиСБазой);
 
 КонецПроцедуры
@@ -1173,7 +1227,8 @@
 	ПредупрежденияКакОшибки = Ложь,
 	ДинамическоеОбновление = Ложь,
 	РежимРеструктуризации = Неопределено,
-	Знач ИмяРасширения = Неопределено) Экспорт
+	Знач ИмяРасширения = Неопределено,
+	ЗавершатьСеансы = Ложь) Экспорт
 
 	ПараметрыСвязиСБазой = СтандартныеПараметрыЗапускаКонфигуратора();
 	ПараметрыСвязиСБазой.Добавить("/UpdateDBCfg");
@@ -1193,6 +1248,9 @@
 	Если Не ИмяРасширения = Неопределено Тогда
 		ПараметрыСвязиСБазой.Добавить(СтрШаблон("-Extension ""%1""", ИмяРасширения));
 	КонецЕсли;
+	Если ЗавершатьСеансы Тогда
+		ПараметрыСвязиСБазой.Добавить("-SessionTerminate force");
+	КонецЕсли;
 	ВыполнитьКоманду(ПараметрыСвязиСБазой);
 
 КонецПроцедуры