1
0
mirror of https://github.com/DoublesunRUS/devscripts.git synced 2026-06-11 22:46:51 +02:00

Интеграция / Развертывание

This commit is contained in:
Капралов Александр
2021-09-11 14:48:48 +03:00
parent 3a89a77e00
commit 32fde989e1
+41 -1
View File
@@ -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: Строка, имяРасширения: Строка, строкаСоединения: Строка, имяФайлаПлатформы: Строка,
имяПользователя: Строка = "", пароль: Строка = "")
пер параметрыПроцесса = новый Массив()