Выпуск промежуточного релиза 1.0.2.015

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() Экспорт
+	Запрос = Новый Запрос;
+	Запрос.Текст = 
+	"ВЫБРАТЬ
+	|	узИсторияКонфигураций.Ссылка
+	|ИЗ
+	|	Справочник.узИсторияКонфигураций КАК узИсторияКонфигураций
+	|
+	|УПОРЯДОЧИТЬ ПО
+	|	узИсторияКонфигураций.Код";
+	
+	РезультатЗапроса = Запрос.Выполнить();
+	
+	Выборка = РезультатЗапроса.Выбрать();
+	
+	СтруктураКэшПоиска = Новый Структура;
+	Пока Выборка.Следующий() Цикл
+		СпрОбъект = Выборка.Ссылка.ПолучитьОбъект();
+		#Если Тромбон тогда
+			СпрОбъект = Справочники.узИсторияКонфигураций.СоздатьЭлемент(); 
+		#Конецесли		
+		пПользователь = Неопределено;
+		
+		пПользовательХранилища = СокрЛП(СпрОбъект.ПользовательХранилища);		
+		
+		Если ЗначениеЗаполнено(пПользовательХранилища) Тогда
+			Если СтруктураКэшПоиска.Свойство(пПользовательХранилища) Тогда
+				пПользователь = СтруктураКэшПоиска[пПользовательХранилища];
+			Иначе
+				пПользователь = узОбщийМодульСервер.ПолучитьПользователяПоПользователюХранилища(пПользовательХранилища);		
+				СтруктураКэшПоиска.Вставить(пПользовательХранилища,пПользователь);
+			Конецесли;
+		Конецесли;
+		
+		СпрОбъект.Пользователь = пПользователь;
+		СпрОбъект.Записать();
+	КонецЦикла;
+КонецПроцедуры
 
 Процедура узНачальноеЗаполнение() Экспорт
 	узДобавитьАдминистраторИБ();

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>