|
1 | | -#Область ДляВызоваИзДругихПодсистем |
| 1 | +#Область ЗаготовкаБСП |
2 | 2 |
|
3 | 3 | // Возвращает сведения о внешней обработке. |
4 | 4 | //Функция СведенияОВнешнейОбработке() Экспорт |
|
7 | 7 | // ПараметрыРегистрации.Вставить("БезопасныйРежим", Ложь); |
8 | 8 | // |
9 | 9 | // ПараметрыРегистрации.Вид = ДополнительныеОтчетыИОбработкиКлиентСервер.ВидОбработкиДополнительнаяОбработка(); |
10 | | -// ПараметрыРегистрации.Версия = "0.9.2"; |
| 10 | +// ПараметрыРегистрации.Версия = "2024.05.07"; |
11 | 11 | // |
12 | 12 | // НоваяКоманда = ПараметрыРегистрации.Команды.Добавить(); |
13 | | -// НоваяКоманда.Представление = НСтр("ru = 'Настройка состава Истории изменений'"); |
14 | | -// НоваяКоманда.Идентификатор = "НастройкаСоставаИсторииИзменений"; |
| 13 | +// НоваяКоманда.Представление = НСтр("ru = 'Настройка состава истории данных'"); |
| 14 | +// НоваяКоманда.Идентификатор = "НастройкаСоставаИсторииДанных"; |
15 | 15 | // НоваяКоманда.Использование = ДополнительныеОтчетыИОбработкиКлиентСервер.ТипКомандыОткрытиеФормы(); |
16 | 16 | // НоваяКоманда.ПоказыватьОповещение = Ложь; |
17 | 17 | // |
|
25 | 25 | #Область СлужебныеПроцедурыИФункции |
26 | 26 |
|
27 | 27 | // Функция для возврата минимальной версии при которой будет работать история данных |
28 | | -Функция ПолучитьМинимальнуюВерсию() |
| 28 | +Функция МинимальнаяВерсияПлатформы() |
29 | 29 | Возврат "8.3.11.2867"; |
30 | 30 | КонецФункции |
31 | 31 |
|
|
43 | 43 | // бизнес-процессы; |
44 | 44 | // задачи; |
45 | 45 | // регистры сведений(Измерения включены по умолчанию и выключать их нельзя). |
46 | | -Функция ПолучитьСписокОбъектовМетаданных(ВерсияПлатформы) Экспорт |
| 46 | +Функция СписокОбъектовМетаданных(ВерсияПлатформы) Экспорт |
47 | 47 |
|
48 | 48 | КлючиСтруктуры = "ИмяОбъекта, ObjectName, НомерКартинки, ДанныеПоиска"; |
49 | 49 |
|
50 | 50 | // Все версии в которых были изменения |
51 | 51 | СоответствиеВерсий = Новый Соответствие; |
52 | | - минимальнаяВерсия = ПолучитьМинимальнуюВерсию(); |
53 | | - СоответствиеВерсий.Вставить(минимальнаяВерсия, ВерсияСтаршеИлиРавнаВерсии(ВерсияПлатформы, минимальнаяВерсия)); |
| 52 | + МинимальнаяВерсия = МинимальнаяВерсияПлатформы(); |
| 53 | + СоответствиеВерсий.Вставить(МинимальнаяВерсия, ВерсияСтаршеИлиРавнаВерсии(ВерсияПлатформы, МинимальнаяВерсия)); |
54 | 54 | СоответствиеВерсий.Вставить("8.3.12", ВерсияСтаршеИлиРавнаВерсии(ВерсияПлатформы, "8.3.12")); |
55 | 55 | СоответствиеВерсий.Вставить("8.3.13", ВерсияСтаршеИлиРавнаВерсии(ВерсияПлатформы, "8.3.13")); |
56 | | - //СоответствиеВерсий.Вставить("8.3.14", ВерсияСтаршеИлиРавнаВерсии(ВерсияПлатформы, "8.3.14")); |
57 | | - //СоответствиеВерсий.Вставить("8.3.15", ВерсияСтаршеИлиРавнаВерсии(ВерсияПлатформы, "8.3.15")); |
58 | 56 |
|
59 | 57 | СписокОбъектовМетаданных = Новый СписокЗначений; |
60 | 58 |
|
|
78 | 76 | КонецЕсли; |
79 | 77 |
|
80 | 78 | // Справочники |
81 | | - Если СоответствиеВерсий[минимальнаяВерсия] Тогда |
| 79 | + Если СоответствиеВерсий[МинимальнаяВерсия] Тогда |
82 | 80 | СписокОбъектовМетаданных.Добавить(Новый Структура(КлючиСтруктуры |
83 | 81 | ,"Справочники" |
84 | 82 | ,"Catalog" |
|
87 | 85 | КонецЕсли; |
88 | 86 |
|
89 | 87 | // Документы |
90 | | - Если СоответствиеВерсий[минимальнаяВерсия] Тогда |
| 88 | + Если СоответствиеВерсий[МинимальнаяВерсия] Тогда |
91 | 89 | СписокОбъектовМетаданных.Добавить(Новый Структура(КлючиСтруктуры |
92 | 90 | ,"Документы" |
93 | 91 | ,"Document" |
|
111 | 109 | ,"ChartOfAccounts" |
112 | 110 | ,12 |
113 | 111 | ,"СтандартныеРеквизиты,Реквизиты,ТабличныеЧасти,СтандартныеТабличныеЧасти")); |
114 | | - //"СтандартныеРеквизиты,Реквизиты,ПризнакиУчета,ПризнакиУчетаСубконто,ТабличныеЧасти,СтандартныеТабличныеЧасти")); //+ПризнакиУчета,ПризнакиУчетаСубконто |
| 112 | + // "СтандартныеРеквизиты,Реквизиты,ПризнакиУчета,ПризнакиУчетаСубконто,ТабличныеЧасти,СтандартныеТабличныеЧасти")); // +ПризнакиУчета,ПризнакиУчетаСубконто |
115 | 113 | КонецЕсли; |
116 | 114 |
|
117 | 115 | // ПланыВидовРасчета |
|
124 | 122 | КонецЕсли; |
125 | 123 |
|
126 | 124 | // РегистрыСведений |
127 | | - Если СоответствиеВерсий[минимальнаяВерсия] Тогда |
| 125 | + Если СоответствиеВерсий[МинимальнаяВерсия] Тогда |
128 | 126 | СписокОбъектовМетаданных.Добавить(Новый Структура(КлючиСтруктуры |
129 | 127 | ,"РегистрыСведений" |
130 | 128 | ,"InformationRegister" |
131 | 129 | ,16 |
132 | 130 | ,"Измерения,Ресурсы,Реквизиты")); |
133 | | - //,"Ресурсы,Реквизиты")); // 20230619 |
| 131 | + // ,"Ресурсы,Реквизиты")); // 20230619 |
134 | 132 | КонецЕсли; |
135 | 133 |
|
136 | 134 | // БизнесПроцессы |
137 | | - Если СоответствиеВерсий[минимальнаяВерсия] Тогда |
| 135 | + Если СоответствиеВерсий[МинимальнаяВерсия] Тогда |
138 | 136 | СписокОбъектовМетаданных.Добавить(Новый Структура(КлючиСтруктуры |
139 | 137 | ,"БизнесПроцессы" |
140 | 138 | ,"BusinessProcess" |
|
143 | 141 | КонецЕсли; |
144 | 142 |
|
145 | 143 | // Задачи |
146 | | - Если СоответствиеВерсий[минимальнаяВерсия] Тогда |
| 144 | + Если СоответствиеВерсий[МинимальнаяВерсия] Тогда |
147 | 145 | СписокОбъектовМетаданных.Добавить(Новый Структура(КлючиСтруктуры |
148 | 146 | ,"Задачи" |
149 | 147 | ,"Task" |
|
155 | 153 |
|
156 | 154 | КонецФункции |
157 | 155 |
|
158 | | -// Определяет используюмую версию платформы. |
| 156 | +// Определяет используемую версию платформы. |
159 | 157 | // |
160 | 158 | // Возвращаемое значение: |
161 | 159 | // Структура: |
162 | 160 | // Отработал - Булево - Истина, функция возвращает нормальный результат, |
163 | | -// Ложь означает, что результат получить неудалось. |
| 161 | +// Ложь означает, что результат получить не удалось. |
164 | 162 | // ТекстОшибки - Строка - Описание ошибки |
165 | 163 | // Результат - Строка - Текущая версия конфигуратора или режима совместимости |
166 | 164 | // |
167 | 165 | Функция ТекущаяВерсияПлатформы() Экспорт |
168 | 166 |
|
169 | 167 | Результат = Новый Структура("Отработал, ТекстОшибки, Результат", Истина, "", 0); |
170 | | - |
171 | 168 |
|
172 | 169 | СовместимостьНеИспользовать = Метаданные.РежимСовместимости = Метаданные.СвойстваОбъектов.РежимСовместимости.НеИспользовать; |
173 | 170 |
|
|
191 | 188 | КонецЕсли; |
192 | 189 |
|
193 | 190 | // основная проверка |
194 | | - минимальнаяВерсия = ПолучитьМинимальнуюВерсию(); |
195 | | - Если ВерсияСтаршеИлиРавнаВерсии(перВерсияПриложения, минимальнаяВерсия) Тогда |
| 191 | + МинимальнаяВерсия = МинимальнаяВерсияПлатформы(); |
| 192 | + Если ВерсияСтаршеИлиРавнаВерсии(перВерсияПриложения, МинимальнаяВерсия) Тогда |
196 | 193 |
|
197 | 194 | Результат.Результат = перВерсияПриложения; |
198 | 195 |
|
199 | 196 | Иначе |
200 | 197 |
|
201 | 198 | Результат.Отработал = Ложь; |
202 | | - Результат.ТекстОшибки = НСтр("ru = 'Версия платформы ("+перВерсияПриложения+"), необходима версия не ниже ("+минимальнаяВерсия+")'") |
| 199 | + текТекстОшибки = НСтр("ru = 'Версия платформы ( %1 ), необходима версия не ниже ( %2 )'"); |
| 200 | + Результат.ТекстОшибки = СтрШаблон(текТекстОшибки, перВерсияПриложения, МинимальнаяВерсия); |
203 | 201 |
|
204 | 202 | КонецЕсли; |
205 | 203 |
|
|
209 | 207 |
|
210 | 208 | // Возвращает структуру по версии |
211 | 209 | // Параметры: |
212 | | -// ВерсияПлатформы – Строка - Пример: "8.3.11.2867" |
| 210 | +// ВерсияПлатформы - Строка - Пример: "8.3.11.2867" |
213 | 211 | // |
214 | 212 | // Возвращаемое значение: |
215 | 213 | // Структура: |
|
0 commit comments