1c/Tasks
1
0
Fork 0
mirror of https://github.com/BlizD/Tasks.git synced 2025-03-19 21:07:53 +02:00
Code Issues Releases Activity

Добавил в события ПриЗаписи и ПередЗаписью проверку ОбменДанными.Загрузка.

Browse Source
This commit is contained in:
Anton Ivanov 2020-07-01 08:58:11 +03:00
parent e2329d43b3
commit d6f5e8e6c0
8 changed files with 64 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
src/cf/Catalogs/узВопросыОтветы/Ext/ObjectModule.bsl
View File

@ -6,6 +6,11 @@
КонецПроцедуры
Процедура ПередЗаписью(Отказ)
Если ОбменДанными.Загрузка Тогда
Возврат;
КонецЕсли;
ДатаПоследнегоИзменения = ТекущаяДатаСеанса();
ТЗСобытия = ПолучитьТЗСобытия();
@ -32,11 +37,15 @@
КонецФункции
Процедура ПриЗаписи(Отказ)
Если ОбменДанными.Загрузка Тогда
Возврат;
КонецЕсли;
Если ДополнительныеСвойства.Свойство("узЭтоОбработка") Тогда
Возврат;
Конецесли;
РегистрацияАктивностиПользователя(ДополнительныеСвойства.ТЗСобытия,Отказ);
ДополнительныеСвойства.Удалить("ТЗСобытия");

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

@ -1,5 +1,10 @@

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

6
src/cf/Catalogs/узКонтрагенты/Ext/ObjectModule.bsl
View File

@ -1,6 +1,12 @@

Процедура ПередЗаписью(Отказ)
Если ОбменДанными.Загрузка Тогда
Возврат;
КонецЕсли;
Если НЕ ЗначениеЗаполнено(узКороткоеИмя) Тогда
узКороткоеИмя = Наименование;
Конецесли;
КонецПроцедуры

6
src/cf/Catalogs/узКонфигурации/Ext/ObjectModule.bsl
View File

@ -1,10 +1,16 @@

Процедура ПередЗаписью(Отказ)
Если ОбменДанными.Загрузка Тогда
Возврат;
КонецЕсли;
ПроверитьРеквизиты(Отказ);
Если Отказ Тогда
Возврат;
Конецесли;
КонецПроцедуры
Процедура ПроверитьРеквизиты(Отказ)

8
src/cf/Catalogs/узСпринты/Ext/ObjectModule.bsl
View File

@ -1,6 +1,10 @@

Процедура ПриЗаписи(Отказ)
Если ОбменДанными.Загрузка Тогда
Возврат;
КонецЕсли;
ОчиститьЗаписи_узСпринтыЗадач_ПоЭтомуСпринту(Отказ);
СформироватьЗапись_узСпринтыЗадач(Отказ);
@ -83,6 +87,10 @@
Процедура ПередЗаписью(Отказ)
Если ОбменДанными.Загрузка Тогда
Возврат;
КонецЕсли;
ЗаполнитьДатуНачала();
КонецПроцедуры

9
src/cf/Catalogs/узСтатусыЗадачи/Ext/ObjectModule.bsl
View File

@ -1,6 +1,10 @@

Процедура ПриЗаписи(Отказ)
Если ОбменДанными.Загрузка Тогда
Возврат;
КонецЕсли;
ИзменитьУПодчиненныхЭлементовРеквизиты();
КонецПроцедуры
@ -49,6 +53,11 @@
КонецПроцедуры
Процедура ПередЗаписью(Отказ)
Если ОбменДанными.Загрузка Тогда
Возврат;
КонецЕсли;
Если ЭтотОбъект.Уровень() > 1 Тогда
ВызватьИсключение "Ошибка! в данный момент не реализовано использования больше 2 уровней вложенности элементов";
//В канбан доске заголовки надо получать рекурсией

5
src/cf/Catalogs/узТекущиеДела/Ext/ObjectModule.bsl
View File

@ -1,5 +1,10 @@

Процедура ПередЗаписью(Отказ)
Если ОбменДанными.Загрузка Тогда
Возврат;
КонецЕсли;
ЗаполнитьТекстСодержанияСтарое(Отказ);
КонецПроцедуры

10
src/cf/Documents/узВыпускРелиза/Ext/ObjectModule.bsl
View File

@ -1,5 +1,10 @@

Процедура ПередЗаписью(Отказ, РежимЗаписи, РежимПроведения)
Если ОбменДанными.Загрузка Тогда
Возврат;
КонецЕсли;
ОчиститьСвязанныеТЧ();
СформироватьСписокЗадач();
@ -61,6 +66,11 @@
КонецФункции
Процедура ПриЗаписи(Отказ)
Если ОбменДанными.Загрузка Тогда
Возврат;
КонецЕсли;
Если ДополнительныеСвойства.Свойство("узЭтоОбработка") Тогда
Возврат;
Конецесли;