|
29 | 29 |
|
30 | 30 | ПутьУстановки = НайтиСоздатьКаталогУстановки(ИмяПакета); |
31 | 31 | Лог.Информация("Устанавливаю пакет " + ИмяПакета); |
| 32 | + ПроверитьВерсиюСреды(Метаданные); |
32 | 33 | Если мЗависимостиВРаботе[ИмяПакета] = "ВРаботе" Тогда |
33 | 34 | ВызватьИсключение "Циклическая зависимость по пакету " + ИмяПакета; |
34 | 35 | КонецЕсли; |
|
59 | 60 |
|
60 | 61 | КонецПроцедуры |
61 | 62 |
|
| 63 | +Процедура ПроверитьВерсиюСреды(Манифест) |
| 64 | + |
| 65 | + Свойства = Манифест.Свойства(); |
| 66 | + Если НЕ Свойства.Свойство("ВерсияСреды") Тогда |
| 67 | + Возврат; |
| 68 | + КонецЕсли; |
| 69 | + |
| 70 | + ИмяПакета = Свойства.Имя; |
| 71 | + ТребуемаяВерсияСреды = Свойства.ВерсияСреды; |
| 72 | + СистемнаяИнформация = Новый СистемнаяИнформация; |
| 73 | + ВерсияСреды = СистемнаяИнформация.Версия; |
| 74 | + Если РаботаСВерсиями.СравнитьВерсии(ТребуемаяВерсияСреды, ВерсияСреды) > 0 Тогда |
| 75 | + ТекстСообщения = СтрШаблон( |
| 76 | + "Ошибка установки пакета <%1>: Обнаружена устаревшая версия движка OneScript. |
| 77 | + |Требуемая версия: %2 |
| 78 | + |Текущая версия: %3 |
| 79 | + |Обновите OneScript перед установкой пакета", |
| 80 | + ИмяПакета, |
| 81 | + ТребуемаяВерсияСреды, |
| 82 | + ВерсияСреды |
| 83 | + ); |
| 84 | + |
| 85 | + ВызватьИсключение ТекстСообщения; |
| 86 | + КонецЕсли; |
| 87 | + |
| 88 | +КонецПроцедуры |
| 89 | + |
62 | 90 | Процедура УстановитьПакетыПоОписаниюПакета() Экспорт |
63 | 91 |
|
64 | 92 | ПутьКМанифесту = ОбъединитьПути(ТекущийКаталог(), Константы.ИмяФайлаСпецификацииПакета); |
|
72 | 100 | Контекст = Новый Структура("Описание", Описание); |
73 | 101 | ЗагрузитьСценарий(ПутьКМанифесту, Контекст); |
74 | 102 |
|
| 103 | + ПроверитьВерсиюСреды(Описание); |
| 104 | + |
75 | 105 | РазрешитьЗависимостиПакета(Описание); |
76 | 106 |
|
77 | 107 | КонецПроцедуры |
|
0 commit comments