diff --git a/src/cf/CommonModules/узОбновлениеИнформационнойБазы/Ext/Module.bsl b/src/cf/CommonModules/узОбновлениеИнформационнойБазы/Ext/Module.bsl index 422146588..9dd812564 100644 --- a/src/cf/CommonModules/узОбновлениеИнформационнойБазы/Ext/Module.bsl +++ b/src/cf/CommonModules/узОбновлениеИнформационнойБазы/Ext/Module.bsl @@ -1,6 +1,6 @@ Процедура ПриДобавленииПодсистемы(Описание) Экспорт Описание.Имя = "УправлениеЗадачами"; - Описание.Версия = "1.0.2.013"; + Описание.Версия = "1.0.2.015"; // Требуется библиотека стандартных подсистем. Описание.ТребуемыеПодсистемы.Добавить("СтандартныеПодсистемы"); КонецПроцедуры @@ -76,6 +76,13 @@ Обработчик.ОбщиеДанные = Истина; Обработчик.Комментарий = "Обновление на версию 1.0.2.013"; + Обработчик = Обработчики.Добавить(); + Обработчик.Версия = "1.0.2.014"; + Обработчик.НачальноеЗаполнение = Ложь; + Обработчик.Процедура = "узОбновлениеИнформационнойБазы.ОбновлениеНаВерсию_1_0_2_014"; + Обработчик.ОбщиеДанные = Истина; + Обработчик.Комментарий = "Обновление на версию 1.0.2.014"; + КонецПроцедуры Процедура ПередОбновлениемИнформационнойБазы() Экспорт КонецПроцедуры @@ -333,6 +340,44 @@ КонецЦикла; КонецПроцедуры +Процедура ОбновлениеНаВерсию_1_0_2_014() Экспорт + Запрос = Новый Запрос; + Запрос.Текст = + "ВЫБРАТЬ + | узИсторияКонфигураций.Ссылка + |ИЗ + | Справочник.узИсторияКонфигураций КАК узИсторияКонфигураций + | + |УПОРЯДОЧИТЬ ПО + | узИсторияКонфигураций.Код"; + + РезультатЗапроса = Запрос.Выполнить(); + + Выборка = РезультатЗапроса.Выбрать(); + + СтруктураКэшПоиска = Новый Структура; + Пока Выборка.Следующий() Цикл + СпрОбъект = Выборка.Ссылка.ПолучитьОбъект(); + #Если Тромбон тогда + СпрОбъект = Справочники.узИсторияКонфигураций.СоздатьЭлемент(); + #Конецесли + пПользователь = Неопределено; + + пПользовательХранилища = СокрЛП(СпрОбъект.ПользовательХранилища); + + Если ЗначениеЗаполнено(пПользовательХранилища) Тогда + Если СтруктураКэшПоиска.Свойство(пПользовательХранилища) Тогда + пПользователь = СтруктураКэшПоиска[пПользовательХранилища]; + Иначе + пПользователь = узОбщийМодульСервер.ПолучитьПользователяПоПользователюХранилища(пПользовательХранилища); + СтруктураКэшПоиска.Вставить(пПользовательХранилища,пПользователь); + Конецесли; + Конецесли; + + СпрОбъект.Пользователь = пПользователь; + СпрОбъект.Записать(); + КонецЦикла; +КонецПроцедуры Процедура узНачальноеЗаполнение() Экспорт узДобавитьАдминистраторИБ(); diff --git a/src/cf/Configuration.xml b/src/cf/Configuration.xml index 43b156ffe..21e478adb 100644 --- a/src/cf/Configuration.xml +++ b/src/cf/Configuration.xml @@ -49,7 +49,7 @@ Role.ИнтерактивноеОткрытиеВнешнихОтчетовИОбработок Управление задачами - 1.0.2.013 + 1.0.2.015 false false @@ -1366,6 +1366,7 @@ УниверсальныйОбменДаннымиXML УправлениеИтогамиИАгрегатами узЗагрузкаИзмененийИзХранилища + узАктивностьПользователя БезопасноеХранилищеДанных БезопасноеХранилищеДанныхОбластейДанных БлокировкиСеансовОбластейДанных