From b882cb85c0b01b425d0890d683a64e2e234b5124 Mon Sep 17 00:00:00 2001
From: Anton Ivanov <iab@bk.ru>
Date: Sat, 27 Jan 2018 14:57:41 +0300
Subject: [PATCH] =?UTF-8?q?=D0=A2=D0=B5=D0=BA=D1=83=D1=89=D0=B8=D0=B5=20?=
 =?UTF-8?q?=D0=B4=D0=B5=D0=BB=D0=B0:=20=D0=90=D0=B2=D1=82=D0=BE=D0=BC?=
 =?UTF-8?q?=D0=B0=D1=82=D0=B8=D1=87=D0=B5=D1=81=D0=BA=D0=BE=D0=B5=20=D1=81?=
 =?UTF-8?q?=D0=BE=D1=85=D1=80=D0=B0=D0=BD=D0=B5=D0=BD=D0=B8=D0=B5,=20?=
 =?UTF-8?q?=D0=B2=D0=BE=D0=BF=D1=80=D0=BE=D1=81=20=D0=BF=D0=B5=D1=80=D0=B5?=
 =?UTF-8?q?=D0=B4=20=D1=83=D0=B4=D0=B0=D0=BB=D0=B5=D0=BD=D0=B8=D0=B5=D0=BC?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 .../узТекущиеДела/Ext/ObjectModule.bsl        |  5 ++
 .../узТекущиеДела/Forms/Форма/Ext/Form.xml    | 33 +++++++++++-
 .../Forms/Форма/Ext/Form/Module.bsl           | 53 ++++++++++++++++++-
 3 files changed, 88 insertions(+), 3 deletions(-)

diff --git a/src/cf/DataProcessors/узТекущиеДела/Ext/ObjectModule.bsl b/src/cf/DataProcessors/узТекущиеДела/Ext/ObjectModule.bsl
index 458912762..7e20cb37e 100644
--- a/src/cf/DataProcessors/узТекущиеДела/Ext/ObjectModule.bsl
+++ b/src/cf/DataProcessors/узТекущиеДела/Ext/ObjectModule.bsl
@@ -102,6 +102,7 @@
 		Конецесли;
 		
 		ТекущееДелоОбъект.Записать();
+		СтрокаТЧТекущиеДела.ТекущееДело = ТекущееДелоОбъект.Ссылка;
 	Конеццикла;
 КонецПроцедуры 
 
@@ -130,6 +131,8 @@
 КонецФункции 
 
 Процедура УбратьТекущееДело(МассивТекущихДел) Экспорт
+	СохранитьТекущиеДела();
+
 	Для каждого пТекущееДело из МассивТекущихДел цикл
 		Если НЕ ЗначениеЗаполнено(пТекущееДело) Тогда
 			Продолжить;
@@ -137,6 +140,8 @@
 		ТекущееДелоОбъект = пТекущееДело.ПолучитьОбъект();
 		ТекущееДелоОбъект.Удалить();			
 	Конеццикла;	
+	
+	ЗаполнитьТекущиеДела();
 КонецПроцедуры 
 
 Процедура ОбновитьНаСервере() Экспорт
diff --git a/src/cf/DataProcessors/узТекущиеДела/Forms/Форма/Ext/Form.xml b/src/cf/DataProcessors/узТекущиеДела/Forms/Форма/Ext/Form.xml
index 691f209af..833bd48f6 100644
--- a/src/cf/DataProcessors/узТекущиеДела/Forms/Форма/Ext/Form.xml
+++ b/src/cf/DataProcessors/узТекущиеДела/Forms/Форма/Ext/Form.xml
@@ -41,6 +41,11 @@
 						<CommandName>Form.Item.ТЧТекущиеДела.StandardCommand.MoveDown</CommandName>
 						<ExtendedTooltip name="ТЧТекущиеДелаПереместитьВнизРасширеннаяПодсказка" id="49"/>
 					</Button>
+					<Button name="ТЧТекущиеДелаКомандаСохранить" id="81">
+						<Type>CommandBarButton</Type>
+						<CommandName>Form.Command.КомандаСохранить</CommandName>
+						<ExtendedTooltip name="ТЧТекущиеДелаКомандаСохранитьРасширеннаяПодсказка" id="82"/>
+					</Button>
 					<Button name="ТЧТекущиеДелаКомандаОбновить" id="65">
 						<Type>CommandBarButton</Type>
 						<CommandName>Form.Command.КомандаОбновить</CommandName>
@@ -225,6 +230,13 @@
 							<ContextMenu name="ТЧТекущиеДелаПорядокДопКонтекстноеМеню" id="79"/>
 							<ExtendedTooltip name="ТЧТекущиеДелаПорядокДопРасширеннаяПодсказка" id="80"/>
 						</InputField>
+						<InputField name="ТЧТекущиеДелаТекущееДело" id="83">
+							<DataPath>Объект.ТЧТекущиеДела.ТекущееДело</DataPath>
+							<ReadOnly>true</ReadOnly>
+							<EditMode>EnterOnInput</EditMode>
+							<ContextMenu name="ТЧТекущиеДелаТекущееДелоКонтекстноеМеню" id="84"/>
+							<ExtendedTooltip name="ТЧТекущиеДелаТекущееДелоРасширеннаяПодсказка" id="85"/>
+						</InputField>
 					</ChildItems>
 				</ColumnGroup>
 			</ChildItems>
@@ -345,7 +357,6 @@
 					<v8:content>Команда обновить</v8:content>
 				</v8:item>
 			</ToolTip>
-			<Shortcut>Ctrl+S</Shortcut>
 			<Picture>
 				<xr:Ref>StdPicture.Refresh</xr:Ref>
 				<xr:LoadTransparent>true</xr:LoadTransparent>
@@ -422,5 +433,25 @@
 			<Action>КомандаСледующийПериод</Action>
 			<Representation>Picture</Representation>
 		</Command>
+		<Command name="КомандаСохранить" id="7">
+			<Title>
+				<v8:item>
+					<v8:lang>ru</v8:lang>
+					<v8:content>Сохранить</v8:content>
+				</v8:item>
+			</Title>
+			<ToolTip>
+				<v8:item>
+					<v8:lang>ru</v8:lang>
+					<v8:content>Команда сохранить</v8:content>
+				</v8:item>
+			</ToolTip>
+			<Shortcut>Ctrl+S</Shortcut>
+			<Picture>
+				<xr:Ref>StdPicture.Write</xr:Ref>
+				<xr:LoadTransparent>true</xr:LoadTransparent>
+			</Picture>
+			<Action>КомандаСохранить</Action>
+		</Command>
 	</Commands>
 </Form>
\ No newline at end of file
diff --git a/src/cf/DataProcessors/узТекущиеДела/Forms/Форма/Ext/Form/Module.bsl b/src/cf/DataProcessors/узТекущиеДела/Forms/Форма/Ext/Form/Module.bsl
index 604d8b713..242506408 100644
--- a/src/cf/DataProcessors/узТекущиеДела/Forms/Форма/Ext/Form/Module.bsl
+++ b/src/cf/DataProcessors/узТекущиеДела/Forms/Форма/Ext/Form/Module.bsl
@@ -44,6 +44,8 @@
 &НаКлиенте
 Процедура ПриЗакрытии()
 	ПриЗакрытииНаСервере();
+	
+	ОтключитьОбработчикОжидания("СохранитьТекущиеДелаНаКлиенте");
 КонецПроцедуры
 
 
@@ -72,16 +74,51 @@
 Процедура ТЧТекущиеДелаПередУдалениемНаСервере(МассивТекущихДел)
 	пОбъект = РеквизитФормыВЗначение("Объект"); 
 	пОбъект.УбратьТекущееДело(МассивТекущихДел);
+	ЗначениеВРеквизитФормы(пОбъект,"Объект");
 КонецПроцедуры
 
 
 &НаКлиенте
 Процедура ТЧТекущиеДелаПередУдалением(Элемент, Отказ)
-	МассивВыделенныхСтрок = Элемент.ВыделенныеСтроки;
+	Отказ = Истина;
+
+	МассивВыделенныхСтрок = Элемент.ВыделенныеСтроки;	
+	Если МассивВыделенныхСтрок.Количество() = 0 Тогда
+		Возврат;
+	Конецесли;
+	
 	МассивТекущихДел = ПолучитьМассивТекущихДелПоВыделеннымСтрокам(МассивВыделенныхСтрок);
-	ТЧТекущиеДелаПередУдалениемНаСервере(МассивТекущихДел);
+	ТекстВопроса = "ВНИМАНИЕ! Вы точно хотите удалить текущие дела: " + Символы.ПС;
+	
+	Для каждого пТекущееДело из МассивТекущихДел цикл
+		ТекстВопроса = ТекстВопроса + Символы.ПС
+			+ "* "+пТекущееДело;
+	Конеццикла;
+	ТекстВопроса = ТекстВопроса + Символы.ПС
+		+ "Продолжить?";
+	
+	
+	ДопПараметры = Новый Структура();
+	ДопПараметры.Вставить("МассивТекущихДел",МассивТекущихДел);
+	
+	ОповещениеОЗакрытии = Новый ОписаниеОповещения("ПослеЗакрытияВопросаТЧТекущиеДелаПередУдалением", ЭтаФорма, ДопПараметры);
+	
+	ПоказатьВопрос(ОповещениеОЗакрытии,ТекстВопроса,РежимДиалогаВопрос.ДаНет);
 КонецПроцедуры
 
+&НаКлиенте
+Процедура ПослеЗакрытияВопросаТЧТекущиеДелаПередУдалением(Результат, ДопПараметры) Экспорт
+    Если Результат = КодВозвратаДиалога.Нет Тогда
+        Возврат;
+	КонецЕсли;
+		
+	МассивТекущихДел = ДопПараметры.МассивТекущихДел;
+	ТЧТекущиеДелаПередУдалениемНаСервере(МассивТекущихДел);
+	
+КонецПроцедуры 
+
+
+
 &НаКлиенте
 Функция ПолучитьМассивТекущихДелПоВыделеннымСтрокам(МассивВыделенныхСтрок)
 	МассивТекущихДел = Новый Массив();
@@ -173,6 +210,8 @@
 &НаКлиенте
 Процедура ПриОткрытии(Отказ)
 	ОбновитьЗаголовокКомандаНаДату();
+	
+	ПодключитьОбработчикОжидания("СохранитьТекущиеДелаНаКлиенте", 600);
 КонецПроцедуры
 
 &НаКлиенте
@@ -219,3 +258,13 @@
 		ОбновитьТекущиеДелаНаСервере();		
 	Конецесли;
 КонецПроцедуры
+
+&НаКлиенте
+Процедура КомандаСохранить(Команда)
+	СохранитьТекущиеДелаНаКлиенте();	
+КонецПроцедуры
+
+&НаКлиенте
+Процедура СохранитьТекущиеДелаНаКлиенте()
+	СохранитьТекущиеДелаНаСервере();	
+КонецПроцедуры 
\ No newline at end of file