1
0
mirror of https://github.com/BlizD/Tasks.git synced 2025-03-21 21:17:24 +02:00

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

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
src/cf
Catalogs
узВопросыОтветы/Ext
узИсторияКонфигураций/Ext
узКонтрагенты/Ext
узКонфигурации/Ext
узСпринты/Ext
узСтатусыЗадачи/Ext
узТекущиеДела/Ext
Documents/узВыпускРелиза/Ext

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

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

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

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

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

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

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

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