Регистрация активности пользователей. Справочник узИсторияКонфигурации

src/cf/Catalogs/узИсторияКонфигураций.xml

@@ -43,13 +43,13 @@
 			</Owners>
 			<SubordinationUse>ToItems</SubordinationUse>
 			<CodeLength>11</CodeLength>
-			<DescriptionLength>0</DescriptionLength>
+			<DescriptionLength>150</DescriptionLength>
 			<CodeType>String</CodeType>
 			<CodeAllowedLength>Variable</CodeAllowedLength>
 			<CodeSeries>WholeCatalog</CodeSeries>
 			<CheckUnique>true</CheckUnique>
 			<Autonumbering>true</Autonumbering>
-			<DefaultPresentation>AsCode</DefaultPresentation>
+			<DefaultPresentation>AsDescription</DefaultPresentation>
 			<StandardAttributes>
 				<xr:StandardAttribute name="PredefinedDataName">
 					<xr:LinkByType/>

src/cf/Catalogs/узИсторияКонфигураций/Ext/ManagerModule.bsl

@@ -52,3 +52,8 @@
 	Возврат пНоваяВерсия;
 
 КонецФункции 
+
+Функция ПолучитьНаименование(Версия, ДатаВерсии) Экспорт
+	пНаименование = "Изменение конфигурации № " + Версия + " от " + ДатаВерсии;
+	Возврат пНаименование;
+КонецФункции 

src/cf/Catalogs/узИсторияКонфигураций/Ext/ObjectModule.bsl

@@ -1,6 +1,12 @@
 
 Процедура ПриЗаписи(Отказ)
 	СформироватьЗаписиВРС_узИсторияХранилища(Отказ);
+	
+	РегистрацияАктивностиПользователя(Отказ);
+КонецПроцедуры
+
+Процедура РегистрацияАктивностиПользователя(Отказ)
+	РегистрыСведений.узАктивностиПользователей.ДобавитьАктивностьПользователя(ЭтотОбъект,,Отказ);
 КонецПроцедуры
 
 Процедура СформироватьЗаписиВРС_узИсторияХранилища(Отказ)
@@ -37,11 +43,17 @@
 КонецПроцедуры 
 
 Процедура ПередЗаписью(Отказ)
+	Если НЕ ЗначениеЗаполнено(Наименование) Тогда
+		Наименование = Справочники.узИсторияКонфигураций.ПолучитьНаименование(Версия,ДатаВерсии);
+	Конецесли;
 	Если ЭтоНовый() Тогда
 		ЗаполнитьВерсиюДляВводаВручную();
 	Конецесли;
+	
 КонецПроцедуры
 
+
+
 Процедура ЗаполнитьВерсиюДляВводаВручную()
 	Если НЕ ВводВручную Тогда
 		Возврат;

src/cf/Catalogs/узИсторияКонфигураций/Forms/ФормаЭлемента/Ext/Form.xml

@@ -5,6 +5,7 @@
 	<AutoCommandBar name="ФормаКоманднаяПанель" id="-1"/>
 	<Events>
 		<Event name="AfterWrite">ПослеЗаписи</Event>
+		<Event name="BeforeWrite">ПередЗаписью</Event>
 		<Event name="OnCreateAtServer">ПриСозданииНаСервере</Event>
 	</Events>
 	<ChildItems>
@@ -57,6 +58,11 @@
 			<ShowTitle>false</ShowTitle>
 			<ExtendedTooltip name="ГруппаРеквизитыРасширеннаяПодсказка" id="58"/>
 			<ChildItems>
+				<InputField name="Наименование" id="78">
+					<DataPath>Объект.Description</DataPath>
+					<ContextMenu name="НаименованиеКонтекстноеМеню" id="79"/>
+					<ExtendedTooltip name="НаименованиеРасширеннаяПодсказка" id="80"/>
+				</InputField>
 				<UsualGroup name="Группа3" id="55">
 					<Representation>None</Representation>
 					<ShowTitle>false</ShowTitle>
@@ -236,11 +242,6 @@
 									<ContextMenu name="КодКонтекстноеМеню" id="2"/>
 									<ExtendedTooltip name="КодРасширеннаяПодсказка" id="3"/>
 								</InputField>
-								<InputField name="Наименование" id="4">
-									<EditMode>EnterOnInput</EditMode>
-									<ContextMenu name="НаименованиеКонтекстноеМеню" id="5"/>
-									<ExtendedTooltip name="НаименованиеРасширеннаяПодсказка" id="6"/>
-								</InputField>
 							</ChildItems>
 						</UsualGroup>
 						<InputField name="Владелец" id="7">

src/cf/Catalogs/узИсторияКонфигураций/Forms/ФормаЭлемента/Ext/Form/Module.bsl

@@ -82,3 +82,13 @@
 Процедура ПослеЗаписи(ПараметрыЗаписи)
 	Оповестить("узИсторияХранилища_ЗаписанЭлемент");
 КонецПроцедуры
+
+&НаКлиенте
+Процедура ПередЗаписью(Отказ, ПараметрыЗаписи)
+	ПередЗаписьюНаСервере();
+КонецПроцедуры
+
+&НаСервере
+Процедура ПередЗаписьюНаСервере()
+	Объект.Наименование = Справочники.узИсторияКонфигураций.ПолучитьНаименование(Объект.Версия,Объект.ДатаВерсии);
+КонецПроцедуры

src/cf/DataProcessors/узЗагрузкаИзмененийИзХранилища/Ext/ObjectModule.bsl

@@ -201,8 +201,6 @@
 	Возврат пЗначениеИзЗапроса;
 КонецФункции //ПолучитьЗначениеИзЗапроса()
 
- 
-
 Процедура СохранитьИсториюХранилищаВБД(ТЗИсторияХранилища)
 	Для каждого СтрокаТЗИсторияХранилища из ТЗИсторияХранилища цикл
 		СпрОбъект = ПолучитьСпрОбъект_узИсторияХранилища(СтрокаТЗИсторияХранилища);

src/cf/InformationRegisters/узАктивностиПользователей/Ext/ManagerModule.bsl

@@ -9,6 +9,8 @@
 		ДобавитьАктивностьПользователя_Задачи(Источник, ДопПараметры,Отказ);
 	ИначеЕсли ТипЗнчИсточник = Тип("СправочникОбъект.узВопросыОтветы") Тогда
 		ДобавитьАктивностьПользователя_ВопросыОтветы(Источник, ДопПараметры,Отказ);
+	ИначеЕсли ТипЗнчИсточник = Тип("СправочникОбъект.узИсторияКонфигураций") Тогда
+		ДобавитьАктивностьПользователя_ИсторияКонфигураций(Источник, ДопПараметры,Отказ);		
 	ИначеЕсли ТипЗнчИсточник = Тип("ДокументОбъект.узВыпускРелиза") Тогда
 		ДобавитьАктивностьПользователя_ВыпускРелиза(Источник, ДопПараметры,Отказ);
 	Иначе
@@ -17,6 +19,42 @@
 	
 КонецПроцедуры 
 
+Процедура ДобавитьАктивностьПользователя_ИсторияКонфигураций(Источник, ДопПараметры,Отказ)
+	#Если Тромбон тогда
+		Источник = Справочники.узИсторияКонфигураций.СоздатьЭлемент();
+	#Конецесли
+	ВидыСобытий_ИзмененаКонфигурация = ПредопределенноеЗначение("Перечисление.узВидыСобытий.ИзмененаКонфигурация");
+	
+	пДатаАктивности = Источник.ДатаВерсии;
+	пСсылкаНаОбъект = Источник.Ссылка;
+	пПользователь = Источник.Пользователь;
+	
+	ПредставлениеЗадачи	= "";	
+	пЗадача = Источник.Задача;
+	Если ЗначениеЗаполнено(пЗадача) Тогда
+		ПредставлениеЗадачи = "#" + пЗадача.Код + " " + пЗадача;
+	Конецесли;
+	
+	пОписание = "" + ВидыСобытий_ИзмененаКонфигурация;
+	Если ЗначениеЗаполнено(пЗадача) Тогда
+		пОписание = "" + ВидыСобытий_ИзмененаКонфигурация + " по задаче " + ПредставлениеЗадачи; 
+	Конецесли;
+	
+	НаборЗаписей = РегистрыСведений.узАктивностиПользователей.СоздатьНаборЗаписей();
+	НаборЗаписей.Отбор.СсылкаНаОбъект.Установить(пСсылкаНаОбъект);
+	НаборЗаписей.Очистить();
+	
+	Запись = НаборЗаписей.Добавить();
+	Запись.ДатаАктивности = пДатаАктивности;
+	Запись.СсылкаНаОбъект = пСсылкаНаОбъект;
+	Запись.Пользователь = пПользователь;
+	Запись.ВидСобытия = ВидыСобытий_ИзмененаКонфигурация;			
+	Запись.Описание = пОписание;
+	Запись.ДеньАктивности = НачалоДня(пДатаАктивности);
+	
+	НаборЗаписей.Записать();
+КонецПроцедуры 
+
 Процедура ДобавитьАктивностьПользователя_ВыпускРелиза(Источник, ДопПараметры,Отказ)
 	#Если Тромбон тогда
 		Источник = Документы.узВыпускРелиза.СоздатьДокумент();
@@ -106,10 +144,12 @@
 	ТЗСобытияВИсторииДляУведомлений = СобытияВИстории.ТЗСобытияВИсторииДляУведомлений;
 	
 	ВидыСобытий_ДобавленаЗадача = ПредопределенноеЗначение("Перечисление.узВидыСобытий.ДобавленаЗадача");
+	ВидыСобытий_ИзменениеСтатуса = ПредопределенноеЗначение("Перечисление.узВидыСобытий.ИзменениеСтатуса");
 	ВидыСобытий_ДобавленКомментарий = ПредопределенноеЗначение("Перечисление.узВидыСобытий.ДобавленКомментарий");
 	
 	МассивВидовСобытияДляРегистрацииАктивности = Новый Массив();
 	МассивВидовСобытияДляРегистрацииАктивности.Добавить(ВидыСобытий_ДобавленаЗадача);
+	МассивВидовСобытияДляРегистрацииАктивности.Добавить(ВидыСобытий_ИзменениеСтатуса);
 	МассивВидовСобытияДляРегистрацииАктивности.Добавить(ВидыСобытий_ДобавленКомментарий);
 	
 	Для каждого СтрокаТЗСобытияВИсторииДляУведомлений из ТЗСобытияВИсторииДляУведомлений цикл
@@ -130,6 +170,8 @@
 		МенеджерЗаписи.Описание = "" + пВидСобытия + " " + ПредставлениеЗадачи; 
 		Если пВидСобытия = ВидыСобытий_ДобавленКомментарий Тогда
 			МенеджерЗаписи.Описание = "" + пВидСобытия + " к задаче " + ПредставлениеЗадачи; 
+		ИначеЕсли пВидСобытия = ВидыСобытий_ИзменениеСтатуса Тогда
+			МенеджерЗаписи.Описание = "" + пВидСобытия + " у задачи " + ПредставлениеЗадачи; 
 		Конецесли;
 		МенеджерЗаписи.Записать();
 	Конеццикла;