From aa34959214e88289b6b03eeb128cd7059549f70e Mon Sep 17 00:00:00 2001
From: Anton Ivanov <iab@bk.ru>
Date: Sat, 18 Mar 2017 14:50:15 +0300
Subject: [PATCH] =?UTF-8?q?=D0=92=D1=8B=D0=BF=D1=83=D1=81=D0=BA=20=D0=BF?=
=?UTF-8?q?=D1=80=D0=BE=D0=BC=D0=B5=D0=B6=D1=83=D1=82=D0=BE=D1=87=D0=BD?=
=?UTF-8?q?=D0=BE=D0=B3=D0=BE=20=D1=80=D0=B5=D0=BB=D0=B8=D0=B7=D0=B0=201.0?=
=?UTF-8?q?.2.015?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
---
.../Ext/Module.bsl | 47 ++++++++++++++++++-
src/cf/Configuration.xml | 3 +-
2 files changed, 48 insertions(+), 2 deletions(-)
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 @@
<xr:Item xsi:type="xr:MDObjectRef">Role.ИнтерактивноеОткрытиеВнешнихОтчетовИОбработок</xr:Item>
</DefaultRoles>
<Vendor>Управление задачами</Vendor>
- <Version>1.0.2.013</Version>
+ <Version>1.0.2.015</Version>
<UpdateCatalogAddress/>
<IncludeHelpInContents>false</IncludeHelpInContents>
<UseManagedFormInOrdinaryApplication>false</UseManagedFormInOrdinaryApplication>
@@ -1366,6 +1366,7 @@
<DataProcessor>УниверсальныйОбменДаннымиXML</DataProcessor>
<DataProcessor>УправлениеИтогамиИАгрегатами</DataProcessor>
<DataProcessor>узЗагрузкаИзмененийИзХранилища</DataProcessor>
+ <DataProcessor>узАктивностьПользователя</DataProcessor>
<InformationRegister>БезопасноеХранилищеДанных</InformationRegister>
<InformationRegister>БезопасноеХранилищеДанныхОбластейДанных</InformationRegister>
<InformationRegister>БлокировкиСеансовОбластейДанных</InformationRegister>