oscript-library#4 Работа с хранилищем расширения конфигурации.

Berckk · Apr 19, 2018 · 8b407b2 · 8b407b2
1 parent 1fed194
commit 8b407b2
Showing 1 changed file with 65 additions and 0 deletions.
diff --git a/src/Классы/МенеджерХранилищаКонфигурации.os b/src/Классы/МенеджерХранилищаКонфигурации.os
@@ -16,6 +16,7 @@
 Перем ПутьКОбработкеКонвертации;
 Перем ЧтениеХранилищаВыполнено;
 Перем ОбработкаКонвертацииОтчетаСобрана;
+Перем ИмяРасширения;
 
 Процедура ПриСозданииОбъекта(Знач НовыйПутьКХранилищу = Неопределено, НовыйУправлениеКонфигуратором = Неопределено)
 
@@ -56,6 +57,17 @@
 
 КонецПроцедуры
 
+// Установка наименования расширения конфигурации 1с.
+//
+// Параметры:
+//   НовоеИмяРасширения - строка - наименование расширения конфигурации 1с (по умолчанию пустая строка)
+//
+Процедура УстановитьРасширениеХранилища(Знач НовоеИмяРасширения = "") Экспорт
+
+    ИмяРасширения = НовоеИмяРасширения;
+
+КонецПроцедуры
+
 // Установка управления конфигуратором в класс менеджер хранилища конфигурации
 //
 // Параметры:
@@ -95,6 +107,10 @@
 
 	Параметры.Добавить("-force");
 
+    Если ЗначениеЗаполнено(ИмяРасширения) Тогда
+        Параметры.Добавить("-Extension """+ИмяРасширения + """");
+    КонецЕсли;
+
 	Попытка
         УправлениеКонфигураторомХранилища.ВыполнитьКоманду(Параметры);
     Исключение
@@ -131,6 +147,10 @@
         Параметры.Добавить("-revised");
     КонецЕсли;
 
+    Если ЗначениеЗаполнено(ИмяРасширения) Тогда
+        Параметры.Добавить("-Extension """+ИмяРасширения + """");
+    КонецЕсли;
+
     УправлениеКонфигураторомХранилища.ВыполнитьКоманду(Параметры);
     ВыводКоманды = УправлениеКонфигураторомХранилища.ВыводКоманды();
 
@@ -162,6 +182,10 @@
         Параметры.Добавить("-force");
     КонецЕсли;
 
+    Если ЗначениеЗаполнено(ИмяРасширения) Тогда
+        Параметры.Добавить("-Extension """+ИмяРасширения + """");
+    КонецЕсли;
+
     УправлениеКонфигураторомХранилища.ВыполнитьКоманду(Параметры);
     ВыводКоманды = УправлениеКонфигураторомХранилища.ВыводКоманды();
 КонецПроцедуры // ВыполнитьОтменуЗахватаВХранилище()
@@ -208,6 +232,10 @@
         Параметры.Добавить("-force");
     КонецЕсли;
 
+    Если ЗначениеЗаполнено(ИмяРасширения) Тогда
+        Параметры.Добавить("-Extension """+ИмяРасширения + """");
+    КонецЕсли;
+
     УправлениеКонфигураторомХранилища.ВыполнитьКоманду(Параметры);
 
 КонецПроцедуры // ПоместитьИзмененияОбъектовВХранилище()
@@ -238,6 +266,10 @@
         Параметры.Добавить("-NoBind");
     КонецЕсли;
 
+    Если ЗначениеЗаполнено(ИмяРасширения) Тогда
+        Параметры.Добавить("-Extension """+ИмяРасширения + """");
+    КонецЕсли;
+
     УправлениеКонфигураторомХранилища.ВыполнитьКоманду(Параметры);
 
 КонецПроцедуры
@@ -273,6 +305,10 @@
         Параметры.Добавить("-v " + Версия);
     КонецЕсли;
 
+    Если ЗначениеЗаполнено(ИмяРасширения) Тогда
+        Параметры.Добавить("-Extension """+ИмяРасширения + """");
+    КонецЕсли;
+
     УправлениеКонфигураторомХранилища.ВыполнитьКоманду(Параметры);
 
 КонецПроцедуры // УстановитьМеткуДляВерсииВХранилище()
@@ -314,6 +350,10 @@
         Параметры.Добавить("-RestoreDeletedUser");
     КонецЕсли;
 
+    Если ЗначениеЗаполнено(ИмяРасширения) Тогда
+        Параметры.Добавить("-Extension """+ИмяРасширения + """");
+    КонецЕсли;
+
     УправлениеКонфигураторомХранилища.ВыполнитьКоманду(Параметры);
 
 КонецПроцедуры
@@ -345,6 +385,10 @@
         Параметры.Добавить("-RestoreDeletedUser");
     КонецЕсли;
 
+    Если ЗначениеЗаполнено(ИмяРасширения) Тогда
+        Параметры.Добавить("-Extension """+ИмяРасширения + """");
+    КонецЕсли;
+
     УправлениеКонфигураторомХранилища.ВыполнитьКоманду(Параметры);
 
 КонецПроцедуры
@@ -365,6 +409,10 @@
         Параметры.Добавить("-v "+НомерВерсии);
     КонецЕсли;
 
+    Если ЗначениеЗаполнено(ИмяРасширения) Тогда
+        Параметры.Добавить("-Extension """+ИмяРасширения + """");
+    КонецЕсли;
+
     УправлениеКонфигураторомХранилища.ВыполнитьКоманду(Параметры);
 
 КонецПроцедуры
@@ -462,6 +510,10 @@
 
     КонецЕслИ;
 
+    Если ЗначениеЗаполнено(ИмяРасширения) Тогда
+        Параметры.Добавить("-Extension """+ИмяРасширения + """");
+    КонецЕсли;
+
     УправлениеКонфигураторомХранилища.ВыполнитьКоманду(Параметры);
 
 КонецПроцедуры
@@ -491,6 +543,10 @@
         Параметры.Добавить("-forceReplaceCfg ");
     КонецЕсли;
 
+    Если ЗначениеЗаполнено(ИмяРасширения) Тогда
+        Параметры.Добавить("-Extension """+ИмяРасширения + """");
+    КонецЕсли;
+
     УправлениеКонфигураторомХранилища.ВыполнитьКоманду(Параметры);
 
 КонецПроцедуры
@@ -501,6 +557,10 @@
     Параметры = СтандартныеПараметрыЗапуска();
     Параметры.Добавить("/ConfigurationRepositoryUnbindCfg -force ");
 
+    Если ЗначениеЗаполнено(ИмяРасширения) Тогда
+        Параметры.Добавить("-Extension """+ИмяРасширения + """");
+    КонецЕсли;
+
     УправлениеКонфигураторомХранилища.ВыполнитьКоманду(Параметры);
 КонецПроцедуры
 
@@ -510,6 +570,10 @@
     Параметры = СтандартныеПараметрыЗапуска();
     Параметры.Добавить("/ConfigurationRepositoryOptimizeData ");
 
+    Если ЗначениеЗаполнено(ИмяРасширения) Тогда
+        Параметры.Добавить("-Extension """+ИмяРасширения + """");
+    КонецЕсли;
+
     УправлениеКонфигураторомХранилища.ВыполнитьКоманду(Параметры);
 КонецПроцедуры
 
@@ -736,6 +800,7 @@
     ЭтоWindows = Найти(НРег(СистемнаяИнформация.ВерсияОС), "windows") > 0;
     ПарсерJSON = Новый ПарсерJSON();
     ЧтениеХранилищаВыполнено = Ложь;
+    ИмяРасширения = "";    
 
 КонецПроцедуры