Параметры указания версии для шагов проверки синтаксиса и хранилища

Author: EvilBeaver

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

@@ -18,6 +18,7 @@
  Парсер.ДобавитьИменованныйПараметрКоманды(ОписаниеКоманды, "-storage-user", "Пользователь хранилища 1С");
  Парсер.ДобавитьИменованныйПараметрКоманды(ОписаниеКоманды, "-storage-pwd", "Пароль пользователя хранилища 1С (опционально)");
  Парсер.ДобавитьИменованныйПараметрКоманды(ОписаниеКоманды, "-storage-v", "Версия в хранилище, которую включаем в дистрибутив (опционально)");
+ Парсер.ДобавитьИменованныйПараметрКоманды(ОписаниеКоманды, "-v8version", "Версия платформы 1С");
  Парсер.ДобавитьПараметрФлагКоманды(ОписаниеКоманды, "-use-tool1cd", "Использовать для чтения хранилища Tool1CD");
 Парсер.ДобавитьИменованныйПараметрКоманды(ОписаниеКоманды, "-details", "Выходной файл с параметрами коммита хранилища (только для tool1cd)");
 
@@ -39,13 +40,16 @@
  Если Параметры.ИспользоватьTool1CD Тогда
  ВыгрузитьВерсиюСредствамиTool1CD(Параметры.АдресХранилища, Параметры.ВерсияХранилища, ФайлВерсии, Параметры.ФайлПараметровКоммита);
  Иначе
- ВыгрузитьВерсиюИзХранилища(Параметры.АдресХранилища, Параметры.ВерсияХранилища, ФайлВерсии, Параметры.ПользовательХранилища, Параметры.ПарольХранилища);
+ ВыгрузитьВерсиюИзХранилища(Параметры.АдресХранилища, Параметры.ВерсияХранилища, ФайлВерсии, Параметры.ПользовательХранилища, Параметры.ПарольХранилища, Параметры.Версия1С);
  КонецЕсли;
 
  ФайлТест = Новый Файл(ФайлВерсии);
  Ожидаем.Что(ФайлТест.Существует(), "Должен существовать выгруженный файл версии");
 
  УправлениеКонфигуратором = ОкружениеСборки.ПолучитьКонфигуратор();
+ Если ЗначениеЗаполнено(Параметры.Версия1С) Тогда
+ УправлениеКонфигуратором.ИспользоватьВерсиюПлатформы(Параметры.Версия1С);
+ КонецЕсли;
  ЗагрузитьКонфигурациюВБазуСборки(УправлениеКонфигуратором, ФайлВерсии);
  Исключение
  ВФ.Удалить();
@@ -75,6 +79,7 @@
  Результат.Вставить("ПользовательХранилища", ПараметрыКоманды["-storage-user"]);
  Результат.Вставить("ПарольХранилища", ПараметрыКоманды["-storage-pwd"]);
  Результат.Вставить("ВерсияХранилища", ПараметрыКоманды["-storage-v"]);
+ Результат.Вставить("Версия1С", ПараметрыКоманды["-v8version"]);
  Результат.Вставить("ИспользоватьTool1CD", ПараметрыКоманды["-use-tool1cd"]);
  Результат.Вставить("ФайлПараметровКоммита", ПараметрыКоманды["-details"]);
 
@@ -86,10 +91,14 @@
  Знач ВерсияХранилища,
  Знач ВыходнойФайл,
  Знач ПользовательХранилища = Неопределено,
- Знач ПарольХранилища = Неопределено) Экспорт
+ Знач ПарольХранилища = Неопределено,
+ Знач Версия1С = Неопределено) Экспорт
 
  ВременныйКаталог = "";
  Конфигуратор = ПолучитьКонфигуратор(ВременныйКаталог);
+ Если ЗначениеЗаполнено(Версия1С) Тогда
+ Конфигуратор.ИспользоватьВерсиюПлатформы(Версия1С);
+ КонецЕсли;
 
  Лог.Отладка("Выгружаю версию из хранилища");
 

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

@@ -6,6 +6,8 @@
 
 ОписаниеКоманды = Парсер.ОписаниеКоманды(ИмяКоманды, "Выполнить проверку синтаксиса");
 
+Парсер.ДобавитьИменованныйПараметрКоманды(ОписаниеКоманды, "-v8version", "Версия платформы");
+
 Парсер.ДобавитьПараметрФлагКоманды(ОписаниеКоманды, "-ThinClient", "Тонкий клиент");
 Парсер.ДобавитьПараметрФлагКоманды(ОписаниеКоманды, "-WebClient", "Веб-клиент");
 Парсер.ДобавитьПараметрФлагКоманды(ОписаниеКоманды, "-Server", "Сервер");
@@ -32,9 +34,15 @@
 Функция ВыполнитьКоманду(Знач ПараметрыКоманды) Экспорт
 
 Конфигуратор = ОкружениеСборки.ПолучитьКонфигуратор();
+Версия1С = ПараметрыКоманды["-v8version"];
+Если ЗначениеЗаполнено(Версия1С) Тогда
+ Конфигуратор.ИспользоватьВерсиюПлатформы(Версия1С);
+КонецЕсли;
+
 ДатаНачала = ТекущаяДата();
 Успешно = Истина;
 Попытка
+ПараметрыКоманды.Удалить("-v8version");
 Конфигуратор.ВыполнитьРасширеннуюПроверкуКонфигуратора(ПараметрыКоманды);
 Исключение
 Успешно = Ложь;