From 534ad8f034bec5dbd73bc9c32382735f974f852c Mon Sep 17 00:00:00 2001 From: Anton Ivanov Date: Wed, 15 May 2019 08:35:49 +0300 Subject: [PATCH] =?UTF-8?q?=D0=A0=D0=B5=D0=B0=D0=BB=D0=B8=D0=B7=D0=BE?= =?UTF-8?q?=D0=B2=D0=B0=D0=BD=D0=B0=20=D0=B2=D0=BE=D0=B7=D0=BC=D0=BE=D0=B6?= =?UTF-8?q?=D0=BD=D0=BE=D1=81=D1=82=D1=8C=20=D1=81=D0=BE=D0=B7=D0=B4=D0=B0?= =?UTF-8?q?=D0=BD=D0=B8=D1=8F=20=D0=BF=D0=BE=D0=B2=D1=82=D0=BE=D1=80=D1=8F?= =?UTF-8?q?=D1=8E=D1=89=D0=B8=D1=85=D1=81=D1=8F=20(=D1=80=D0=B5=D0=B3?= =?UTF-8?q?=D0=BB=D0=B0=D0=BC=D0=B5=D0=BD=D1=82=D0=BD=D1=8B=D1=85)=20?= =?UTF-8?q?=D1=82=D0=B5=D0=BA=D1=83=D1=89=D0=B8=D1=85=20=D0=B4=D0=B5=D0=BB?= =?UTF-8?q?=20=D0=BF=D0=BE=20=D0=BF=D1=80=D0=BE=D0=B8=D0=B7=D0=B2=D0=BE?= =?UTF-8?q?=D0=BB=D1=8C=D0=BD=D0=BE=D0=BC=D1=83=20=D1=80=D0=B0=D1=81=D0=BF?= =?UTF-8?q?=D0=B8=D1=81=D0=B0=D0=BD=D0=B8=D1=8E.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- .../узТекущиеДела/Ext/ObjectModule.bsl | 27 ++++++++ .../узТекущиеДела/Ext/ObjectModule.bsl | 22 +++---- .../узТекущиеДела/Forms/Форма/Ext/Form.xml | 7 +++ .../Forms/Форма/Ext/Form/Module.bsl | 62 ++++++++++++++++--- 4 files changed, 99 insertions(+), 19 deletions(-) create mode 100644 src/cf/Catalogs/узТекущиеДела/Ext/ObjectModule.bsl diff --git a/src/cf/Catalogs/узТекущиеДела/Ext/ObjectModule.bsl b/src/cf/Catalogs/узТекущиеДела/Ext/ObjectModule.bsl new file mode 100644 index 000000000..6de616bfe --- /dev/null +++ b/src/cf/Catalogs/узТекущиеДела/Ext/ObjectModule.bsl @@ -0,0 +1,27 @@ + +Процедура ПередЗаписью(Отказ) + ЗаполнитьТекстСодержанияСтарое(Отказ); + +КонецПроцедуры + +Процедура ЗаполнитьТекстСодержанияСтарое(Отказ) + + Если ЭтоНовый() Тогда + Возврат; + Конецесли; + + Если СокрЛП(Ссылка.ТекстСодержания) = СокрЛП(ТекстСодержания) Тогда + Возврат; + Конецесли; + + пТекстСодержанияСтарое = + "----------------------РАНЕЕ-----"+ТекущаяДата()+"--------------------" + + Символы.ПС + + ТекстСодержания + + Символы.ПС + + ТекстСодержанияСтарое + ; + + ТекстСодержанияСтарое = пТекстСодержанияСтарое; + +КонецПроцедуры \ No newline at end of file diff --git a/src/cf/DataProcessors/узТекущиеДела/Ext/ObjectModule.bsl b/src/cf/DataProcessors/узТекущиеДела/Ext/ObjectModule.bsl index 13bd3dae9..4a3833a3d 100644 --- a/src/cf/DataProcessors/узТекущиеДела/Ext/ObjectModule.bsl +++ b/src/cf/DataProcessors/узТекущиеДела/Ext/ObjectModule.bsl @@ -150,20 +150,20 @@ ТекущееДелоОбъект = ПолучитьТекущееДелоОбъект(СтрокаТЧТекущиеДела); - Если НЕ ТекущееДелоОбъект.Ссылка.Пустая() - И СокрЛП(ТекущееДелоОбъект.ТекстСодержания) <> СокрЛП(СтрокаТЧТекущиеДела.ТекстСодержания) Тогда - пТекстСодержанияСтарое = - "----------------------РАНЕЕ-----"+ТекущаяДата()+"--------------------" - + Символы.ПС - + ТекущееДелоОбъект.ТекстСодержания - + Символы.ПС - + ТекущееДелоОбъект.ТекстСодержанияСтарое - ; - Конецесли; + //Если НЕ ТекущееДелоОбъект.Ссылка.Пустая() + // И СокрЛП(ТекущееДелоОбъект.Ссылка.ТекстСодержания) <> СокрЛП(СтрокаТЧТекущиеДела.ТекстСодержания) Тогда + // пТекстСодержанияСтарое = + // "----------------------РАНЕЕ-----"+ТекущаяДата()+"--------------------" + // + Символы.ПС + // + ТекущееДелоОбъект.ТекстСодержания + // + Символы.ПС + // + ТекущееДелоОбъект.ТекстСодержанияСтарое + // ; + //Конецесли; ЗаполнитьЗначенияСвойств(ТекущееДелоОбъект,СтрокаТЧТекущиеДела,,"Автор,ДатаСоздания,Порядок"); - ТекущееДелоОбъект.ТекстСодержанияСтарое = пТекстСодержанияСтарое; + //ТекущееДелоОбъект.ТекстСодержанияСтарое = пТекстСодержанияСтарое; ТекущееДелоОбъект.Наименование = ТекущееДелоОбъект.ТекстСодержания; //Если ЭтоСегодня Тогда ТекущееДелоОбъект.Порядок = СтрокаТЧТекущиеДела.НомерСтроки; diff --git a/src/cf/DataProcessors/узТекущиеДела/Forms/Форма/Ext/Form.xml b/src/cf/DataProcessors/узТекущиеДела/Forms/Форма/Ext/Form.xml index 8618f8397..1ab14417c 100644 --- a/src/cf/DataProcessors/узТекущиеДела/Forms/Форма/Ext/Form.xml +++ b/src/cf/DataProcessors/узТекущиеДела/Forms/Форма/Ext/Form.xml @@ -120,6 +120,7 @@ + ТЧТекущиеДелаПриОкончанииРедактирования ТЧТекущиеДелаВыборЗначения ТЧТекущиеДелаВыбор ТЧТекущиеДелаПередУдалением @@ -151,6 +152,9 @@ EnterOnInput + + ТЧТекущиеДелаГруппаТекущегоДелаПриИзменении + @@ -327,6 +331,9 @@ <DataPath>Items.ТЧТекущиеДела.CurrentData.ГруппаТекущегоДела</DataPath> <ContextMenu name="ТЧТекущиеДелаГруппаТекущегоДела1КонтекстноеМеню" id="133"/> <ExtendedTooltip name="ТЧТекущиеДелаГруппаТекущегоДела1РасширеннаяПодсказка" id="134"/> + <Events> + <Event name="OnChange">ТЧТекущиеДелаГруппаТекущегоДела1ПриИзменении</Event> + </Events> </InputField> <UsualGroup name="ГруппаЗадачаВопрос" id="128"> <Title> diff --git a/src/cf/DataProcessors/узТекущиеДела/Forms/Форма/Ext/Form/Module.bsl b/src/cf/DataProcessors/узТекущиеДела/Forms/Форма/Ext/Form/Module.bsl index caeb554d8..467205e3c 100644 --- a/src/cf/DataProcessors/узТекущиеДела/Forms/Форма/Ext/Form/Module.bsl +++ b/src/cf/DataProcessors/узТекущиеДела/Forms/Форма/Ext/Form/Module.bsl @@ -236,7 +236,19 @@ Процедура КомандаПоказатьДопСведения(Команда) ПоказыватьДопСведения = НЕ ПоказыватьДопСведения; Элементы.ТЧТекущиеДелаКомандаПоказатьДопСведения.Пометка = ПоказыватьДопСведения; - УстановитьВидимостьДоступность(); + + УстановитьВидимостьДоступностьНаКлиенте(); + + ////УстановитьВидимостьДоступность(); + //СтрокаТЧТекущиеДела = Элементы.ТЧТекущиеДела.ТекущиеДанные; + // + //СтруктураСтрокаТЧТекущиеДела = Новый Структура(); + //СтруктураСтрокаТЧТекущиеДела.Вставить("ГруппаТекущегоДела",СтрокаТЧТекущиеДела.ГруппаТекущегоДела); + // + //ВТДопПараметры = Новый Структура(); + //ВТДопПараметры.Вставить("СтрокаТЧТекущиеДела",СтруктураСтрокаТЧТекущиеДела); + // + //УстановитьВидимостьДоступность(ВТДопПараметры); КонецПроцедуры @@ -325,7 +337,8 @@ &НаКлиенте Процедура КомандаСохранить(Команда) - СохранитьТекущиеДелаНаКлиенте(); + //СохранитьТекущиеДелаНаКлиенте(); + ОбновитьТекущиеДелаНаСервере(); КонецПроцедуры &НаКлиенте @@ -435,13 +448,15 @@ СтрокаТЧТекущиеДелаТекущееДело = пТекущееДело; - СтруктураСтрокаТЧТекущиеДела = Новый Структура(); - СтруктураСтрокаТЧТекущиеДела.Вставить("ГруппаТекущегоДела",СтрокаТЧТекущиеДела.ГруппаТекущегоДела); + //СтруктураСтрокаТЧТекущиеДела = Новый Структура(); + //СтруктураСтрокаТЧТекущиеДела.Вставить("ГруппаТекущегоДела",СтрокаТЧТекущиеДела.ГруппаТекущегоДела); + // + //ВТДопПараметры = Новый Структура(); + //ВТДопПараметры.Вставить("СтрокаТЧТекущиеДела",СтруктураСтрокаТЧТекущиеДела); + // + //УстановитьВидимостьДоступность(ВТДопПараметры); - ВТДопПараметры = Новый Структура(); - ВТДопПараметры.Вставить("СтрокаТЧТекущиеДела",СтруктураСтрокаТЧТекущиеДела); - - УстановитьВидимостьДоступность(ВТДопПараметры); + УстановитьВидимостьДоступностьНаКлиенте(); КонецПроцедуры @@ -659,3 +674,34 @@ Процедура КомандаСохранитьРегламентноеТекущееДело(Команда) СохранитьТекущееДелоРегламентноеНаКлиенте(); КонецПроцедуры + +&НаКлиенте +Процедура ТЧТекущиеДелаГруппаТекущегоДела1ПриИзменении(Элемент) + + УстановитьВидимостьДоступностьНаКлиенте(); + +КонецПроцедуры + +&НаКлиенте +Процедура УстановитьВидимостьДоступностьНаКлиенте() + + СтрокаТЧТекущиеДела = Элементы.ТЧТекущиеДела.ТекущиеДанные; + + СтруктураСтрокаТЧТекущиеДела = Новый Структура(); + СтруктураСтрокаТЧТекущиеДела.Вставить("ГруппаТекущегоДела",СтрокаТЧТекущиеДела.ГруппаТекущегоДела); + + ВТДопПараметры = Новый Структура(); + ВТДопПараметры.Вставить("СтрокаТЧТекущиеДела",СтруктураСтрокаТЧТекущиеДела); + + УстановитьВидимостьДоступность(ВТДопПараметры); + +КонецПроцедуры + +&НаКлиенте +Процедура ТЧТекущиеДелаПриОкончанииРедактирования(Элемент, НоваяСтрока, ОтменаРедактирования) +КонецПроцедуры + +&НаКлиенте +Процедура ТЧТекущиеДелаГруппаТекущегоДелаПриИзменении(Элемент) + УстановитьВидимостьДоступностьНаКлиенте(); +КонецПроцедуры