|
| 1 | +#Область ИнициализацияДополнительныеОтчетыИОбработки |
| 2 | + |
| 3 | +// Возвращает сведения о внешней обработке. |
| 4 | +Функция СведенияОВнешнейОбработке() Экспорт |
| 5 | + |
| 6 | + Перем ПараметрыРегистрации; |
| 7 | + |
| 8 | + Если ПодсистемаСуществует("СтандартныеПодсистемы.ДополнительныеОтчетыИОбработки") Тогда |
| 9 | + |
| 10 | + МодульДополнительныеОтчетыИОбработки = ОбщийМодуль("ДополнительныеОтчетыИОбработки"); |
| 11 | + МодульДополнительныеОтчетыИОбработкиКлиентСервер = ОбщийМодуль("ДополнительныеОтчетыИОбработкиКлиентСервер"); |
| 12 | + |
| 13 | + ПараметрыРегистрации = МодульДополнительныеОтчетыИОбработки.СведенияОВнешнейОбработке("2.4.5.71"); |
| 14 | + ПараметрыРегистрации.Вставить("БезопасныйРежим", Ложь); |
| 15 | + |
| 16 | + ПараметрыРегистрации.Вид = МодульДополнительныеОтчетыИОбработкиКлиентСервер.ВидОбработкиДополнительнаяОбработка(); |
| 17 | + ПараметрыРегистрации.Версия = "2025.11.10"; |
| 18 | + |
| 19 | + НоваяКоманда = ПараметрыРегистрации.Команды.Добавить(); |
| 20 | + НоваяКоманда.Представление = НСтр("ru = 'WebSocket-Соединения'"); |
| 21 | + НоваяКоманда.Идентификатор = "PAPI_WebSocketСоединения"; |
| 22 | + НоваяКоманда.Использование = МодульДополнительныеОтчетыИОбработкиКлиентСервер.ТипКомандыОткрытиеФормы(); |
| 23 | + НоваяКоманда.ПоказыватьОповещение = Ложь; |
| 24 | + |
| 25 | + КонецЕсли; |
| 26 | + |
| 27 | + Возврат ПараметрыРегистрации; |
| 28 | + |
| 29 | +КонецФункции |
| 30 | + |
| 31 | +#КонецОбласти |
| 32 | + |
| 33 | + |
| 34 | +#Область СлужебныеПроцедурыИФункции |
| 35 | + |
| 36 | +// Функция для возврата минимальной версии платформы |
| 37 | +Функция МинимальнаяВерсияПлатформы() |
| 38 | + Возврат "8.3.27"; |
| 39 | +КонецФункции |
| 40 | + |
| 41 | +// Определяет используемую версию платформы. |
| 42 | +// |
| 43 | +// Возвращаемое значение: |
| 44 | +// Структура: |
| 45 | +// Отработал - Булево - Истина, функция возвращает нормальный результат, |
| 46 | +// Ложь означает, что результат получить не удалось. |
| 47 | +// ТекстОшибки - Строка - Описание ошибки |
| 48 | +// Результат - Строка - Текущая версия конфигуратора или режима совместимости |
| 49 | +// |
| 50 | +Функция ТекущаяВерсияПлатформы() Экспорт |
| 51 | + |
| 52 | + Результат = Новый Структура("Отработал, ТекстОшибки, Результат", Истина, "", 0); |
| 53 | + |
| 54 | + АктуальнаяСистемнаяИнформация = Новый СистемнаяИнформация; |
| 55 | + |
| 56 | + // 8.3.27.2867 |
| 57 | + перВерсияПриложения = АктуальнаяСистемнаяИнформация.ВерсияПриложения; |
| 58 | + |
| 59 | + МинимальнаяВерсия = МинимальнаяВерсияПлатформы(); |
| 60 | + |
| 61 | + // Основная проверка |
| 62 | + Если ВерсияСтаршеИлиРавнаВерсии(перВерсияПриложения, МинимальнаяВерсия) Тогда |
| 63 | + |
| 64 | + Результат.Результат = перВерсияПриложения; |
| 65 | + |
| 66 | + Иначе |
| 67 | + |
| 68 | + Результат.Отработал = Ложь; |
| 69 | + текТекстОшибки = НСтр("ru = 'Версия платформы ( %1 ), необходима версия не ниже ( %2 )'"); |
| 70 | + Результат.ТекстОшибки = СтрШаблон(текТекстОшибки, перВерсияПриложения, МинимальнаяВерсия); |
| 71 | + |
| 72 | + КонецЕсли; |
| 73 | + |
| 74 | + Возврат Результат; |
| 75 | + |
| 76 | +КонецФункции |
| 77 | + |
| 78 | + |
| 79 | +// Сравниваем две версии и возвращаем Истина если ПроверяемаяВерсия >= ЭталоннаяВерсия, |
| 80 | +// в противном случае возвращаем Ложь |
| 81 | +Функция ВерсияСтаршеИлиРавнаВерсии(ПроверяемаяВерсия, ЭталоннаяВерсия) |
| 82 | + |
| 83 | + СтруктураПроверяемаяВерсия = ВернутьСтруктуруПоВерсии(ПроверяемаяВерсия); |
| 84 | + СтруктураЭталоннаяВерсия = ВернутьСтруктуруПоВерсии(ЭталоннаяВерсия); |
| 85 | + |
| 86 | + Результат = Истина; |
| 87 | + |
| 88 | + Если Число(СтруктураПроверяемаяВерсия.НомерВерсии) > Число(СтруктураЭталоннаяВерсия.НомерВерсии) Тогда |
| 89 | + |
| 90 | + Возврат Результат; |
| 91 | + |
| 92 | + ИначеЕсли Число(СтруктураПроверяемаяВерсия.НомерВерсии) < Число(СтруктураЭталоннаяВерсия.НомерВерсии) Тогда |
| 93 | + |
| 94 | + Результат = Ложь; |
| 95 | + |
| 96 | + Иначе // СтруктураПроверяемаяВерсия.НомерВерсии = СтруктураЭталоннаяВерсия |
| 97 | + |
| 98 | + Если Число(СтруктураПроверяемаяВерсия.НомерРедакции) > Число(СтруктураЭталоннаяВерсия.НомерРедакции) Тогда |
| 99 | + |
| 100 | + Возврат Результат; |
| 101 | + |
| 102 | + ИначеЕсли Число(СтруктураПроверяемаяВерсия.НомерРедакции) < Число(СтруктураЭталоннаяВерсия.НомерРедакции) Тогда |
| 103 | + |
| 104 | + Результат = Ложь; |
| 105 | + |
| 106 | + Иначе // СтруктураПроверяемаяВерсия.НомерРедакции = СтруктураЭталоннаяВерсия.НомерРедакции |
| 107 | + |
| 108 | + Если Число(СтруктураПроверяемаяВерсия.НомерРелиза) > Число(СтруктураЭталоннаяВерсия.НомерРелиза) Тогда |
| 109 | + |
| 110 | + Возврат Результат; |
| 111 | + |
| 112 | + ИначеЕсли Число(СтруктураПроверяемаяВерсия.НомерРелиза) < Число(СтруктураЭталоннаяВерсия.НомерРелиза) Тогда |
| 113 | + |
| 114 | + Результат = Ложь; |
| 115 | + |
| 116 | + Иначе // СтруктураПроверяемаяВерсия.НомерРелиза = СтруктураЭталоннаяВерсия.НомерРелиза |
| 117 | + |
| 118 | + Если СтруктураПроверяемаяВерсия.НомерПодрелиза <> "0" Тогда |
| 119 | + |
| 120 | + Если Число(СтруктураПроверяемаяВерсия.НомерПодрелиза) > Число(СтруктураЭталоннаяВерсия.НомерПодрелиза) Тогда |
| 121 | + |
| 122 | + Возврат Результат; |
| 123 | + |
| 124 | + ИначеЕсли Число(СтруктураПроверяемаяВерсия.НомерПодрелиза) < Число(СтруктураЭталоннаяВерсия.НомерПодрелиза) Тогда |
| 125 | + |
| 126 | + Результат = Ложь; |
| 127 | + |
| 128 | + Иначе |
| 129 | + |
| 130 | + Возврат Результат; |
| 131 | + |
| 132 | + КонецЕсли; // НомерПодрелиза |
| 133 | + КонецЕсли; // НомерПодрелиза <> "0" |
| 134 | + КонецЕсли; // НомерРелиза |
| 135 | + КонецЕсли; // НомерРедакции |
| 136 | + КонецЕсли; // НомерВерсии |
| 137 | + |
| 138 | + Возврат Результат; |
| 139 | + |
| 140 | +КонецФункции |
| 141 | + |
| 142 | +// Возвращает структуру по версии |
| 143 | +// Параметры: |
| 144 | +// ВерсияПлатформы - Строка - Пример: "8.3.11.2867" |
| 145 | +// |
| 146 | +// Возвращаемое значение: |
| 147 | +// Структура: |
| 148 | +// НомерВерсии - Строка - Пример: "8" |
| 149 | +// НомерРедакции - Строка - Пример: "3" |
| 150 | +// НомерРелиза - Строка - Пример: "11" |
| 151 | +// НомерПодрелиза - Строка - Пример: "2867" |
| 152 | +Функция ВернутьСтруктуруПоВерсии(ВерсияПлатформы) |
| 153 | + |
| 154 | + массивРазделенныхЭлементов = СтрРазделить(ВерсияПлатформы, ".", Истина); |
| 155 | + |
| 156 | + Если массивРазделенныхЭлементов.Количество() < 4 Тогда |
| 157 | + Пока массивРазделенныхЭлементов.Количество() < 4 Цикл |
| 158 | + массивРазделенныхЭлементов.Добавить("0"); |
| 159 | + КонецЦикла; |
| 160 | + КонецЕсли; |
| 161 | + |
| 162 | + СтруктураВерсияПриложения = Новый Структура("НомерВерсии, НомерРедакции, НомерРелиза, НомерПодрелиза" |
| 163 | + ,массивРазделенныхЭлементов[0] |
| 164 | + ,массивРазделенныхЭлементов[1] |
| 165 | + ,массивРазделенныхЭлементов[2] |
| 166 | + ,массивРазделенныхЭлементов[3]); |
| 167 | + |
| 168 | + Возврат СтруктураВерсияПриложения; |
| 169 | + |
| 170 | +КонецФункции |
| 171 | + |
| 172 | +#КонецОбласти |
| 173 | + |
| 174 | + |
| 175 | + |
| 176 | + |
| 177 | +#Область ДополнительныеОбработкиИОтчеты |
| 178 | + |
| 179 | +// Возвращает Истина, если подсистема существует. |
| 180 | +// |
| 181 | +// Параметры: |
| 182 | +// ПолноеИмяПодсистемы - Строка - полное имя объекта метаданных подсистема без слов "Подсистема.". |
| 183 | +// Например: "СтандартныеПодсистемы.БазоваяФункциональность". |
| 184 | +// |
| 185 | +// Пример вызова необязательной подсистемы: |
| 186 | +// |
| 187 | +// Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.УправлениеДоступом") Тогда |
| 188 | +// МодульУправлениеДоступом = ОбщегоНазначения.ОбщийМодуль("УправлениеДоступом"); |
| 189 | +// МодульУправлениеДоступом.<Имя метода>(); |
| 190 | +// КонецЕсли; |
| 191 | +// |
| 192 | +// Возвращаемое значение: |
| 193 | +// Булево |
| 194 | +// |
| 195 | +Функция ПодсистемаСуществует(ПолноеИмяПодсистемы) Экспорт |
| 196 | + |
| 197 | + ИменаПодсистем = ИменаПодсистем(); |
| 198 | + Возврат ИменаПодсистем.Получить(ПолноеИмяПодсистемы) <> Неопределено; |
| 199 | + |
| 200 | +КонецФункции |
| 201 | + |
| 202 | +// Возвращает соответствие имен подсистем и значения Истина; |
| 203 | +Функция ИменаПодсистем() Экспорт |
| 204 | + |
| 205 | + Возврат Новый ФиксированноеСоответствие(ИменаПодчиненныхПодсистем(Метаданные)); |
| 206 | + |
| 207 | +КонецФункции |
| 208 | + |
| 209 | +Функция ИменаПодчиненныхПодсистем(РодительскаяПодсистема) |
| 210 | + |
| 211 | + Имена = Новый Соответствие; |
| 212 | + |
| 213 | + Для Каждого ТекущаяПодсистема Из РодительскаяПодсистема.Подсистемы Цикл |
| 214 | + |
| 215 | + Имена.Вставить(ТекущаяПодсистема.Имя, Истина); |
| 216 | + ИменаПодчиненных = ИменаПодчиненныхПодсистем(ТекущаяПодсистема); |
| 217 | + |
| 218 | + Для каждого ИмяПодчиненной Из ИменаПодчиненных Цикл |
| 219 | + Имена.Вставить(ТекущаяПодсистема.Имя + "." + ИмяПодчиненной.Ключ, Истина); |
| 220 | + КонецЦикла; |
| 221 | + КонецЦикла; |
| 222 | + |
| 223 | + Возврат Имена; |
| 224 | + |
| 225 | +КонецФункции |
| 226 | + |
| 227 | +// Возвращает ссылку на общий модуль по имени. |
| 228 | +// |
| 229 | +// Параметры: |
| 230 | +// Имя - Строка - имя общего модуля, например: |
| 231 | +// "ОбщегоНазначения", |
| 232 | +// "ОбщегоНазначенияКлиент". |
| 233 | +// |
| 234 | +// Возвращаемое значение: |
| 235 | +// ОбщийМодуль |
| 236 | +// |
| 237 | +Функция ОбщийМодуль(Имя) Экспорт |
| 238 | + |
| 239 | + Если Метаданные.ОбщиеМодули.Найти(Имя) <> Неопределено Тогда |
| 240 | + Модуль = Вычислить(Имя); // АПК:488 "Вычислить" вместо "ОбщегоНазначения.ВычислитьВБезопасномРежиме()", так как это автономная обработка. |
| 241 | + Иначе |
| 242 | + Модуль = Неопределено; |
| 243 | + КонецЕсли; |
| 244 | + |
| 245 | + Если ТипЗнч(Модуль) <> Тип("ОбщийМодуль") Тогда |
| 246 | + ВызватьИсключение ПодставитьПараметрыВСтроку(НСтр("ru = 'Общий модуль ""%1"" не существует.'"), Имя); |
| 247 | + КонецЕсли; |
| 248 | + |
| 249 | + Возврат Модуль; |
| 250 | + |
| 251 | +КонецФункции |
| 252 | + |
| 253 | +Функция ПодставитьПараметрыВСтроку(Знач СтрокаПодстановки, |
| 254 | + Знач Параметр1, Знач Параметр2 = Неопределено, Знач Параметр3 = Неопределено) |
| 255 | + |
| 256 | + СтрокаПодстановки = СтрЗаменить(СтрокаПодстановки, "%1", Параметр1); |
| 257 | + СтрокаПодстановки = СтрЗаменить(СтрокаПодстановки, "%2", Параметр2); |
| 258 | + СтрокаПодстановки = СтрЗаменить(СтрокаПодстановки, "%3", Параметр3); |
| 259 | + |
| 260 | + Возврат СтрокаПодстановки; |
| 261 | +КонецФункции |
| 262 | + |
| 263 | + |
| 264 | +#КонецОбласти |
0 commit comments