diff --git a/Скрипты/1cicd.sbsl b/Скрипты/1cicd.sbsl index dac9a4d..4c8abb8 100644 --- a/Скрипты/1cicd.sbsl +++ b/Скрипты/1cicd.sbsl @@ -13,7 +13,7 @@ * ******************************************************************************/ -конст ВЕРСИЯ_EDT = "2021.2.4" +конст ВЕРСИЯ_EDT = "2021.2.5" конст ИМЯ_КАТАЛОГА_ПРИКЛАДНОЙ_СБОРКИ = "build/bin" конст ИМЯ_КАТАЛОГА_ТЕСТОВОЙ_СБОРКИ = "build/util" @@ -294,6 +294,12 @@ Консоль.Записать("Удалить файл: %{файл.Путь}") Файлы.Удалить(файл) ; + + если не репозиторииДляПересборки.Пусто() + Консоль.Записать("CheckCanApplyConfigurationExtensions: %строкаСоединения %исполняемыйФайлПлатформы") + CheckCanApplyConfigurationExtensions(строкаСоединения, исполняемыйФайлПлатформы) + ; + ; метод СобратьРелизДляАнализа() @@ -540,6 +546,12 @@ Консоль.Записать("Удалить файл: %{файл.Путь}") Файлы.Удалить(файл) ; + + если не репозиторииДляПересборки.Пусто() + Консоль.Записать("CheckCanApplyConfigurationExtensions: %строкаСоединения %исполняемыйФайлПлатформы") + CheckCanApplyConfigurationExtensions(строкаСоединения, исполняемыйФайлПлатформы) + ; + ; метод СобратьРелизДляСлияния() @@ -777,6 +789,12 @@ Консоль.Записать("Удалить файл: %{файл.Путь}") Файлы.Удалить(файл) ; + + если не репозиторииДляПересборки.Пусто() + Консоль.Записать("CheckCanApplyConfigurationExtensions: %строкаСоединения %исполняемыйФайлПлатформы") + CheckCanApplyConfigurationExtensions(строкаСоединения, исполняемыйФайлПлатформы) + ; + ; метод ОпубликоватьQualityCode() @@ -2451,6 +2469,28 @@ Консоль.Записать("Конфигурация БД успешно обновлена для расширения в ИБ.") ; +метод CheckCanApplyConfigurationExtensions(строкаСоединения: Строка, имяФайлаПлатформы: Строка, имяПользователя: Строка = "", + пароль: Строка = "") + пер параметрыПроцесса = новый Массив() + параметрыПроцесса.Добавить("DESIGNER") + параметрыПроцесса.Добавить("/CheckCanApplyConfigurationExtensions") + параметрыПроцесса.Добавить("/IBConnectionString") + параметрыПроцесса.Добавить(строкаСоединения) + параметрыПроцесса.Добавить("/DisableStartupDialogs") + параметрыПроцесса.Добавить("/WA-") + если не имяПользователя.Пусто() + параметрыПроцесса.Добавить("/N") + параметрыПроцесса.Добавить("\"%имяПользователя\"") + ; + если не пароль.Пусто() + параметрыПроцесса.Добавить("/P") + параметрыПроцесса.Добавить(пароль) + ; + + ВыполнитьКомандуПлатформыСОжиданием(имяФайлаПлатформы, параметрыПроцесса, Истина) + Консоль.Записать("Расширения успешно прошли проверку применимости.") +; + метод DumpExt(путьКФайлуCFE: Строка, имяРасширения: Строка, строкаСоединения: Строка, имяФайлаПлатформы: Строка, имяПользователя: Строка = "", пароль: Строка = "") пер параметрыПроцесса = новый Массив()