diff --git a/src/cf/Catalogs/узИсторияКонфигураций.xml b/src/cf/Catalogs/узИсторияКонфигураций.xml index 1f102bed7..c10e9e3e9 100644 --- a/src/cf/Catalogs/узИсторияКонфигураций.xml +++ b/src/cf/Catalogs/узИсторияКонфигураций.xml @@ -43,13 +43,13 @@ ToItems 11 - 0 + 150 String Variable WholeCatalog true true - AsCode + AsDescription diff --git a/src/cf/Catalogs/узИсторияКонфигураций/Ext/ManagerModule.bsl b/src/cf/Catalogs/узИсторияКонфигураций/Ext/ManagerModule.bsl index 7f5cb3aee..3106c6700 100644 --- a/src/cf/Catalogs/узИсторияКонфигураций/Ext/ManagerModule.bsl +++ b/src/cf/Catalogs/узИсторияКонфигураций/Ext/ManagerModule.bsl @@ -51,4 +51,9 @@ КонецЦикла; Возврат пНоваяВерсия; +КонецФункции + +Функция ПолучитьНаименование(Версия, ДатаВерсии) Экспорт + пНаименование = "Изменение конфигурации № " + Версия + " от " + ДатаВерсии; + Возврат пНаименование; КонецФункции \ No newline at end of file diff --git a/src/cf/Catalogs/узИсторияКонфигураций/Ext/ObjectModule.bsl b/src/cf/Catalogs/узИсторияКонфигураций/Ext/ObjectModule.bsl index 501f846bc..b42b303bd 100644 --- a/src/cf/Catalogs/узИсторияКонфигураций/Ext/ObjectModule.bsl +++ b/src/cf/Catalogs/узИсторияКонфигураций/Ext/ObjectModule.bsl @@ -1,6 +1,12 @@  Процедура ПриЗаписи(Отказ) СформироватьЗаписиВРС_узИсторияХранилища(Отказ); + + РегистрацияАктивностиПользователя(Отказ); +КонецПроцедуры + +Процедура РегистрацияАктивностиПользователя(Отказ) + РегистрыСведений.узАктивностиПользователей.ДобавитьАктивностьПользователя(ЭтотОбъект,,Отказ); КонецПроцедуры Процедура СформироватьЗаписиВРС_узИсторияХранилища(Отказ) @@ -37,11 +43,17 @@ КонецПроцедуры Процедура ПередЗаписью(Отказ) + Если НЕ ЗначениеЗаполнено(Наименование) Тогда + Наименование = Справочники.узИсторияКонфигураций.ПолучитьНаименование(Версия,ДатаВерсии); + Конецесли; Если ЭтоНовый() Тогда ЗаполнитьВерсиюДляВводаВручную(); Конецесли; + КонецПроцедуры + + Процедура ЗаполнитьВерсиюДляВводаВручную() Если НЕ ВводВручную Тогда Возврат; diff --git a/src/cf/Catalogs/узИсторияКонфигураций/Forms/ФормаЭлемента/Ext/Form.xml b/src/cf/Catalogs/узИсторияКонфигураций/Forms/ФормаЭлемента/Ext/Form.xml index 79a803e5a..193c6d6b0 100644 --- a/src/cf/Catalogs/узИсторияКонфигураций/Forms/ФормаЭлемента/Ext/Form.xml +++ b/src/cf/Catalogs/узИсторияКонфигураций/Forms/ФормаЭлемента/Ext/Form.xml @@ -5,6 +5,7 @@ ПослеЗаписи + ПередЗаписью ПриСозданииНаСервере @@ -57,6 +58,11 @@ false + + Объект.Description + + + None false @@ -236,11 +242,6 @@ - - EnterOnInput - - - diff --git a/src/cf/Catalogs/узИсторияКонфигураций/Forms/ФормаЭлемента/Ext/Form/Module.bsl b/src/cf/Catalogs/узИсторияКонфигураций/Forms/ФормаЭлемента/Ext/Form/Module.bsl index eb51f8067..b78dc51e0 100644 --- a/src/cf/Catalogs/узИсторияКонфигураций/Forms/ФормаЭлемента/Ext/Form/Module.bsl +++ b/src/cf/Catalogs/узИсторияКонфигураций/Forms/ФормаЭлемента/Ext/Form/Module.bsl @@ -82,3 +82,13 @@ Процедура ПослеЗаписи(ПараметрыЗаписи) Оповестить("узИсторияХранилища_ЗаписанЭлемент"); КонецПроцедуры + +&НаКлиенте +Процедура ПередЗаписью(Отказ, ПараметрыЗаписи) + ПередЗаписьюНаСервере(); +КонецПроцедуры + +&НаСервере +Процедура ПередЗаписьюНаСервере() + Объект.Наименование = Справочники.узИсторияКонфигураций.ПолучитьНаименование(Объект.Версия,Объект.ДатаВерсии); +КонецПроцедуры diff --git a/src/cf/DataProcessors/узЗагрузкаИзмененийИзХранилища/Ext/ObjectModule.bsl b/src/cf/DataProcessors/узЗагрузкаИзмененийИзХранилища/Ext/ObjectModule.bsl index 599679e3b..cd92fad22 100644 --- a/src/cf/DataProcessors/узЗагрузкаИзмененийИзХранилища/Ext/ObjectModule.bsl +++ b/src/cf/DataProcessors/узЗагрузкаИзмененийИзХранилища/Ext/ObjectModule.bsl @@ -201,8 +201,6 @@ Возврат пЗначениеИзЗапроса; КонецФункции //ПолучитьЗначениеИзЗапроса() - - Процедура СохранитьИсториюХранилищаВБД(ТЗИсторияХранилища) Для каждого СтрокаТЗИсторияХранилища из ТЗИсторияХранилища цикл СпрОбъект = ПолучитьСпрОбъект_узИсторияХранилища(СтрокаТЗИсторияХранилища); diff --git a/src/cf/InformationRegisters/узАктивностиПользователей/Ext/ManagerModule.bsl b/src/cf/InformationRegisters/узАктивностиПользователей/Ext/ManagerModule.bsl index b46b4ec2e..6f090879a 100644 --- a/src/cf/InformationRegisters/узАктивностиПользователей/Ext/ManagerModule.bsl +++ b/src/cf/InformationRegisters/узАктивностиПользователей/Ext/ManagerModule.bsl @@ -9,6 +9,8 @@ ДобавитьАктивностьПользователя_Задачи(Источник, ДопПараметры,Отказ); ИначеЕсли ТипЗнчИсточник = Тип("СправочникОбъект.узВопросыОтветы") Тогда ДобавитьАктивностьПользователя_ВопросыОтветы(Источник, ДопПараметры,Отказ); + ИначеЕсли ТипЗнчИсточник = Тип("СправочникОбъект.узИсторияКонфигураций") Тогда + ДобавитьАктивностьПользователя_ИсторияКонфигураций(Источник, ДопПараметры,Отказ); ИначеЕсли ТипЗнчИсточник = Тип("ДокументОбъект.узВыпускРелиза") Тогда ДобавитьАктивностьПользователя_ВыпускРелиза(Источник, ДопПараметры,Отказ); Иначе @@ -17,6 +19,42 @@ КонецПроцедуры +Процедура ДобавитьАктивностьПользователя_ИсторияКонфигураций(Источник, ДопПараметры,Отказ) + #Если Тромбон тогда + Источник = Справочники.узИсторияКонфигураций.СоздатьЭлемент(); + #Конецесли + ВидыСобытий_ИзмененаКонфигурация = ПредопределенноеЗначение("Перечисление.узВидыСобытий.ИзмененаКонфигурация"); + + пДатаАктивности = Источник.ДатаВерсии; + пСсылкаНаОбъект = Источник.Ссылка; + пПользователь = Источник.Пользователь; + + ПредставлениеЗадачи = ""; + пЗадача = Источник.Задача; + Если ЗначениеЗаполнено(пЗадача) Тогда + ПредставлениеЗадачи = "#" + пЗадача.Код + " " + пЗадача; + Конецесли; + + пОписание = "" + ВидыСобытий_ИзмененаКонфигурация; + Если ЗначениеЗаполнено(пЗадача) Тогда + пОписание = "" + ВидыСобытий_ИзмененаКонфигурация + " по задаче " + ПредставлениеЗадачи; + Конецесли; + + НаборЗаписей = РегистрыСведений.узАктивностиПользователей.СоздатьНаборЗаписей(); + НаборЗаписей.Отбор.СсылкаНаОбъект.Установить(пСсылкаНаОбъект); + НаборЗаписей.Очистить(); + + Запись = НаборЗаписей.Добавить(); + Запись.ДатаАктивности = пДатаАктивности; + Запись.СсылкаНаОбъект = пСсылкаНаОбъект; + Запись.Пользователь = пПользователь; + Запись.ВидСобытия = ВидыСобытий_ИзмененаКонфигурация; + Запись.Описание = пОписание; + Запись.ДеньАктивности = НачалоДня(пДатаАктивности); + + НаборЗаписей.Записать(); +КонецПроцедуры + Процедура ДобавитьАктивностьПользователя_ВыпускРелиза(Источник, ДопПараметры,Отказ) #Если Тромбон тогда Источник = Документы.узВыпускРелиза.СоздатьДокумент(); @@ -106,10 +144,12 @@ ТЗСобытияВИсторииДляУведомлений = СобытияВИстории.ТЗСобытияВИсторииДляУведомлений; ВидыСобытий_ДобавленаЗадача = ПредопределенноеЗначение("Перечисление.узВидыСобытий.ДобавленаЗадача"); + ВидыСобытий_ИзменениеСтатуса = ПредопределенноеЗначение("Перечисление.узВидыСобытий.ИзменениеСтатуса"); ВидыСобытий_ДобавленКомментарий = ПредопределенноеЗначение("Перечисление.узВидыСобытий.ДобавленКомментарий"); МассивВидовСобытияДляРегистрацииАктивности = Новый Массив(); МассивВидовСобытияДляРегистрацииАктивности.Добавить(ВидыСобытий_ДобавленаЗадача); + МассивВидовСобытияДляРегистрацииАктивности.Добавить(ВидыСобытий_ИзменениеСтатуса); МассивВидовСобытияДляРегистрацииАктивности.Добавить(ВидыСобытий_ДобавленКомментарий); Для каждого СтрокаТЗСобытияВИсторииДляУведомлений из ТЗСобытияВИсторииДляУведомлений цикл @@ -130,6 +170,8 @@ МенеджерЗаписи.Описание = "" + пВидСобытия + " " + ПредставлениеЗадачи; Если пВидСобытия = ВидыСобытий_ДобавленКомментарий Тогда МенеджерЗаписи.Описание = "" + пВидСобытия + " к задаче " + ПредставлениеЗадачи; + ИначеЕсли пВидСобытия = ВидыСобытий_ИзменениеСтатуса Тогда + МенеджерЗаписи.Описание = "" + пВидСобытия + " у задачи " + ПредставлениеЗадачи; Конецесли; МенеджерЗаписи.Записать(); Конеццикла;