Реализована возможность создания повторяющихся (регламентных) текущих дел по произвольному расписанию.

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

@@ -0,0 +1,27 @@
+
+Процедура ПередЗаписью(Отказ)
+	ЗаполнитьТекстСодержанияСтарое(Отказ);
+
+КонецПроцедуры
+
+Процедура ЗаполнитьТекстСодержанияСтарое(Отказ)
+	
+	Если ЭтоНовый() Тогда
+		Возврат;
+	Конецесли;
+	
+	Если СокрЛП(Ссылка.ТекстСодержания) = СокрЛП(ТекстСодержания) Тогда
+		Возврат;
+	Конецесли;
+	
+	пТекстСодержанияСтарое =  
+		"----------------------РАНЕЕ-----"+ТекущаяДата()+"--------------------"
+		+ Символы.ПС
+		+ ТекстСодержания
+		+ Символы.ПС
+		+ ТекстСодержанияСтарое
+		;
+		
+	ТекстСодержанияСтарое = пТекстСодержанияСтарое;
+	
+КонецПроцедуры 

src/cf/DataProcessors/узТекущиеДела/Ext/ObjectModule.bsl

@@ -150,20 +150,20 @@
 		
 		ТекущееДелоОбъект = ПолучитьТекущееДелоОбъект(СтрокаТЧТекущиеДела); 
 		
-		Если НЕ ТекущееДелоОбъект.Ссылка.Пустая()
+		//Если НЕ ТекущееДелоОбъект.Ссылка.Пустая()
-			И СокрЛП(ТекущееДелоОбъект.ТекстСодержания) <> СокрЛП(СтрокаТЧТекущиеДела.ТекстСодержания) Тогда
+		//	И СокрЛП(ТекущееДелоОбъект.Ссылка.ТекстСодержания) <> СокрЛП(СтрокаТЧТекущиеДела.ТекстСодержания) Тогда
-			пТекстСодержанияСтарое =  
+		//	пТекстСодержанияСтарое =  
-				"----------------------РАНЕЕ-----"+ТекущаяДата()+"--------------------"
+		//		"----------------------РАНЕЕ-----"+ТекущаяДата()+"--------------------"
-				+ Символы.ПС
+		//		+ Символы.ПС
-				+ ТекущееДелоОбъект.ТекстСодержания
+		//		+ ТекущееДелоОбъект.ТекстСодержания
-				+ Символы.ПС
+		//		+ Символы.ПС
-				+ ТекущееДелоОбъект.ТекстСодержанияСтарое
+		//		+ ТекущееДелоОбъект.ТекстСодержанияСтарое
-				;
+		//		;
-		Конецесли;
+		//Конецесли;
 		
 		ЗаполнитьЗначенияСвойств(ТекущееДелоОбъект,СтрокаТЧТекущиеДела,,"Автор,ДатаСоздания,Порядок");
 		
-		ТекущееДелоОбъект.ТекстСодержанияСтарое = пТекстСодержанияСтарое;
+		//ТекущееДелоОбъект.ТекстСодержанияСтарое = пТекстСодержанияСтарое;
 		ТекущееДелоОбъект.Наименование = ТекущееДелоОбъект.ТекстСодержания;		
 		//Если ЭтоСегодня Тогда
 			ТекущееДелоОбъект.Порядок = СтрокаТЧТекущиеДела.НомерСтроки;

src/cf/DataProcessors/узТекущиеДела/Forms/Форма/Ext/Form.xml

@@ -120,6 +120,7 @@
 						<ExtendedTooltip name="ТЧТекущиеДелаУправлениеПоискомРасширеннаяПодсказка" id="13"/>
 					</SearchControlAddition>
 					<Events>
+						<Event name="OnEditEnd">ТЧТекущиеДелаПриОкончанииРедактирования</Event>
 						<Event name="ValueChoice">ТЧТекущиеДелаВыборЗначения</Event>
 						<Event name="Selection">ТЧТекущиеДелаВыбор</Event>
 						<Event name="BeforeDeleteRow">ТЧТекущиеДелаПередУдалением</Event>
@@ -151,6 +152,9 @@
 							<EditMode>EnterOnInput</EditMode>
 							<ContextMenu name="ТЧТекущиеДелаГруппаТекущегоДелаКонтекстноеМеню" id="87"/>
 							<ExtendedTooltip name="ТЧТекущиеДелаГруппаТекущегоДелаРасширеннаяПодсказка" id="88"/>
+							<Events>
+								<Event name="OnChange">ТЧТекущиеДелаГруппаТекущегоДелаПриИзменении</Event>
+							</Events>
 						</InputField>
 						<ColumnGroup name="ТЧТекущиеДелаГруппаЗадачаНомерЗадачи" id="53">
 							<Title>
@@ -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>

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ПриИзменении(Элемент)
+		
+	УстановитьВидимостьДоступностьНаКлиенте();
+	
+КонецПроцедуры
+
+&НаКлиенте
+Процедура УстановитьВидимостьДоступностьНаКлиенте()
+	
+	СтрокаТЧТекущиеДела = Элементы.ТЧТекущиеДела.ТекущиеДанные;
+	
+	СтруктураСтрокаТЧТекущиеДела = Новый Структура();
+	СтруктураСтрокаТЧТекущиеДела.Вставить("ГруппаТекущегоДела",СтрокаТЧТекущиеДела.ГруппаТекущегоДела);
+	
+	ВТДопПараметры = Новый Структура();
+	ВТДопПараметры.Вставить("СтрокаТЧТекущиеДела",СтруктураСтрокаТЧТекущиеДела);
+	
+	УстановитьВидимостьДоступность(ВТДопПараметры);
+	
+КонецПроцедуры 
+
+&НаКлиенте
+Процедура ТЧТекущиеДелаПриОкончанииРедактирования(Элемент, НоваяСтрока, ОтменаРедактирования)
+КонецПроцедуры
+
+&НаКлиенте
+Процедура ТЧТекущиеДелаГруппаТекущегоДелаПриИзменении(Элемент)
+	УстановитьВидимостьДоступностьНаКлиенте();
+КонецПроцедуры