Merge branch 'feature/disableSupport' into develop

Author: EvilBeaver

src/Классы/КомандаВыгрузитьИзХранилища.os

@@ -38,10 +38,8 @@
     Попытка
 
         УправлениеКонфигуратором = ОкружениеСборки.ПолучитьКонфигуратор();
-        Если ЗначениеЗаполнено(Параметры.Версия1С) Тогда
-            УправлениеКонфигуратором.ИспользоватьВерсиюПлатформы(Параметры.Версия1С);
-        КонецЕсли;
-
+        ОкружениеСборки.ПрименитьВерсию1С(УправлениеКонфигуратором, Параметры.Версия1С);
+        
         Если Параметры.ИспользоватьTool1CD Тогда
             ФайлВерсии = ВФ.НовоеИмяФайла(".cf");
 

src/Классы/КомандаСнятьСПоддержки.os

@@ -0,0 +1,28 @@
+
+///////////////////////////////////////////////////////////////////////////////////////////////////
+// Прикладной интерфейс
+
+Процедура ЗарегистрироватьКоманду(Знач ИмяКоманды, Знач Парсер) Экспорт
+	ОписаниеКоманды = Парсер.ОписаниеКоманды(ИмяКоманды, "Снятие исходной конфигурации с поддержки");
+	Парсер.ДобавитьКоманду(ОписаниеКоманды);
+КонецПроцедуры
+
+// Выполняет логику команды
+// 
+// Параметры:
+//   ПараметрыКоманды - Соответствие ключей командной строки и их значений
+//
+Функция ВыполнитьКоманду(Знач ПараметрыКоманды) Экспорт
+	
+	Лог = Логирование.ПолучитьЛог(ПараметрыСистемы.ИмяЛогаСистемы());
+	Конфигуратор = ОкружениеСборки.ПолучитьКонфигуратор();
+	ПараметрыЗапуска = Конфигуратор.ПолучитьПараметрыЗапуска();
+	ПараметрыЗапуска.Добавить("/ManageCfgSupport -disableSupport");
+
+	Конфигуратор.ВыполнитьКоманду(ПараметрыЗапуска);
+	Лог.Отладка(Конфигуратор.ВыводКоманды());
+
+	Конфигуратор.ОбновитьКонфигурациюБазыДанных();
+
+КонецФункции
+

src/Классы/КомандаСоздатьДистрибутив.os

@@ -17,7 +17,8 @@
     Парсер.ДобавитьПараметрФлагКоманды(ОписаниеКоманды, "-setup", "Собирать дистрибутив вида setup.exe");
     Парсер.ДобавитьПараметрФлагКоманды(ОписаниеКоманды, "-files", "Собирать дистрибутив вида 'файлы поставки'");
     Парсер.ДобавитьИменованныйПараметрКоманды(ОписаниеКоманды, "-option", "Вариант поставки");
-	Парсер.ДобавитьПараметрКоллекцияКоманды(ОписаниеКоманды, "-prop-files", "Файлы с переменными сборки (дополнительные)");
+    Парсер.ДобавитьПараметрКоллекцияКоманды(ОписаниеКоманды, "-prop-files", "Файлы с переменными сборки (дополнительные)");
+    Парсер.ДобавитьИменованныйПараметрКоманды(ОписаниеКоманды, "-v8version", "Версия платформы 1С");
     Парсер.ДобавитьКоманду(ОписаниеКоманды);
 
 КонецПроцедуры
@@ -30,7 +31,11 @@
 Функция ВыполнитьКоманду(Знач ПараметрыКоманды) Экспорт
 
     Параметры = РазобратьПараметры(ПараметрыКоманды);
+
+    Версия1С = Параметры.Версия1С;
     УправлениеКонфигуратором = ОкружениеСборки.ПолучитьКонфигуратор();
+    ОкружениеСборки.ПрименитьВерсию1С(УправлениеКонфигуратором, Версия1С);
+
     ВыполнитьСборку(
         УправлениеКонфигуратором,
         Параметры.ФайлМанифеста,
@@ -42,7 +47,14 @@
 
 КонецФункции
 
-Процедура ВыполнитьСборку(Знач УправлениеКонфигуратором, Знач ФайлМанифеста, Знач СобиратьИнсталлятор, Знач СобиратьФайлыПоставки, Знач ВариантПоставки, Знач ВыходнойКаталог, Знач ФайлыСвойств) Экспорт
+Процедура ВыполнитьСборку(
+    Знач УправлениеКонфигуратором,
+    Знач ФайлМанифеста,
+    Знач СобиратьИнсталлятор,
+    Знач СобиратьФайлыПоставки,
+    Знач ВариантПоставки,
+    Знач ВыходнойКаталог,
+    Знач ФайлыСвойств) Экспорт
 
     Информация = СобратьИнформациюОКонфигурации(УправлениеКонфигуратором, ФайлыСвойств);
     СоздатьДистрибутивПоМанифесту(УправлениеКонфигуратором, ФайлМанифеста, Информация, СобиратьИнсталлятор, СобиратьФайлыПоставки, ВариантПоставки, ВыходнойКаталог);
@@ -176,6 +188,7 @@
     Результат.Вставить("ВариантПоставки", ПараметрыКоманды["-option"]);
     Результат.Вставить("ВыходнойКаталог", ПараметрыКоманды["-out"]);
 	Результат.Вставить("ФайлыСвойств", ПараметрыКоманды["-prop-files"]);
+	Результат.Вставить("Версия1С", ПараметрыКоманды["-v8version"]);
 
     Возврат Результат;
 

src/Классы/КомандаСоздатьФайлыПоставки.os

@@ -9,6 +9,7 @@
 	ОписаниеКоманды = Парсер.ОписаниеКоманды(ИмяКоманды, "Создание файлов поставки (cf и cfu)");
 	Парсер.ДобавитьИменованныйПараметрКоманды(ОписаниеКоманды, "-cfu-basedir", "Каталог предыдущих версий для создания CFU (опционально)");
 	Парсер.ДобавитьИменованныйПараметрКоманды(ОписаниеКоманды, "-update-from", "Перечень версий, через запятую, включаемых в обновление (опционально)");
+	Парсер.ДобавитьИменованныйПараметрКоманды(ОписаниеКоманды, "-v8version", "Версия платформы 1С");
 
 	Парсер.ДобавитьКоманду(ОписаниеКоманды);
 
@@ -22,11 +23,15 @@
 Функция ВыполнитьКоманду(Знач ПараметрыКоманды) Экспорт
 
 	РазобранныеПараметры = РазобратьПараметры(ПараметрыКоманды);
-	СоздатьФайлыКонфигурацииПоставщика(ОкружениеСборки.ПолучитьКонфигуратор(), РазобранныеПараметры.КаталогВерсий, РазобранныеПараметры.ПредыдущиеВерсии);
+	СоздатьФайлыКонфигурацииПоставщика(
+		ОкружениеСборки.ПолучитьКонфигуратор(),
+		РазобранныеПараметры.КаталогВерсий,
+		РазобранныеПараметры.ПредыдущиеВерсии,
+		РазобранныеПараметры.Версия1С);
 
 КонецФункции
 
-Функция СоздатьФайлыКонфигурацииПоставщика(Знач УправлениеКонфигуратором, Знач КаталогВерсий, Знач ПредыдущиеВерсии) Экспорт
+Функция СоздатьФайлыКонфигурацииПоставщика(Знач УправлениеКонфигуратором, Знач КаталогВерсий, Знач ПредыдущиеВерсии, Знач Версия1С = Неопределено) Экспорт
 
 	ИмяФайлаПоставки = ОбъединитьПути(УправлениеКонфигуратором.КаталогСборки(), "1cv8.cf");
 	Параметры = УправлениеКонфигуратором.ПолучитьПараметрыЗапуска();
@@ -47,6 +52,7 @@
 
 	КонецЕсли;
 
+	ОкружениеСборки.ПрименитьВерсию1С(УправлениеКонфигуратором, Версия1С);
 	УправлениеКонфигуратором.ВыполнитьКоманду(Параметры);
 	Лог.Отладка(УправлениеКонфигуратором.ВыводКоманды());
 
@@ -108,6 +114,7 @@
 	Результат = Новый Структура;
 	Результат.Вставить("КаталогВерсий", ПараметрыКоманды["-cfu-basedir"]);
 	Результат.Вставить("ПредыдущиеВерсии", МассивВерсий);
+	Результат.Вставить("Версия1С", ПараметрыКоманды["-v8version"]);
 
 	Возврат Результат;
 

src/Модули/ОкружениеСборки.os

@@ -32,6 +32,12 @@
 
 КонецФункции
 
+Процедура ПрименитьВерсию1С(Знач УправлениеКонфигуратором, Знач Версия1С) Экспорт
+    Если ЗначениеЗаполнено(Версия1С) Тогда
+        УправлениеКонфигуратором.ИспользоватьВерсиюПлатформы(Версия1С);
+    КонецЕсли;
+КонецПроцедуры
+
 Функция ИмяПеременнойОкруженияКаталогСборки() Экспорт
     Возврат "VPACKMAN_WORKDIR";
 КонецФункции

src/Модули/ПараметрыСистемы.os

@@ -10,6 +10,7 @@
     КлассыРеализацииКоманд["help"]           = "КомандаСправкаПоПараметрам";
     КлассыРеализацииКоманд["version"]        = "КомандаВерсия";
     КлассыРеализацииКоманд["load-storage"]   = "КомандаВыгрузитьИзХранилища";
+    КлассыРеализацииКоманд["drop-support"]   = "КомандаСнятьСПоддержки";
     КлассыРеализацииКоманд["load-src"]       = "КомандаСобратьИзИсходныхФайлов";
     КлассыРеализацииКоманд["make-cf"]        = "КомандаСоздатьФайлыПоставки";
     КлассыРеализацииКоманд["make-dist"]      = "КомандаСоздатьДистрибутив";
@@ -40,6 +41,6 @@
 
 Функция ВерсияПродукта() Экспорт
 
-    Возврат "0.5.1";
+    Возврат "0.6";
 
 КонецФункции // ВерсияПродукта() Экспорт