#40, Управление задачами, Иванов Сохранение отборов на канбан доске

src/DataProcessors/узКанбанДоска/Forms/Форма/Ext/Form.xml

@@ -1630,11 +1630,32 @@
 					</ToolTip>
 					<ExtendedTooltip name="ГруппаНастройкиРасширеннаяПодсказка" id="270"/>
 					<ChildItems>
-						<Button name="КомандаОбновить" id="312">
-							<Type>UsualButton</Type>
-							<CommandName>Form.Command.КомандаОбновить</CommandName>
-							<ExtendedTooltip name="КомандаОбновитьРасширеннаяПодсказка" id="313"/>
-						</Button>
+						<UsualGroup name="Группа3" id="592">
+							<Representation>None</Representation>
+							<ShowTitle>false</ShowTitle>
+							<ExtendedTooltip name="Группа3РасширеннаяПодсказка" id="593"/>
+							<ChildItems>
+								<Button name="КомандаОбновить" id="312">
+									<Type>UsualButton</Type>
+									<MaxWidth>1</MaxWidth>
+									<CommandName>Form.Command.КомандаОбновить</CommandName>
+									<ExtendedTooltip name="КомандаОбновитьРасширеннаяПодсказка" id="313"/>
+								</Button>
+								<UsualGroup name="Группа2" id="590">
+									<Group>Horizontal</Group>
+									<Representation>None</Representation>
+									<ShowTitle>false</ShowTitle>
+									<ExtendedTooltip name="Группа2РасширеннаяПодсказка" id="591"/>
+									<ChildItems>
+										<Button name="КомандаУстановитьСтандартныеНастройки" id="588">
+											<Type>UsualButton</Type>
+											<CommandName>Form.Command.КомандаУстановитьСтандартныеНастройки</CommandName>
+											<ExtendedTooltip name="КомандаУстановитьСтандартныеНастройкиРасширеннаяПодсказка" id="589"/>
+										</Button>
+									</ChildItems>
+								</UsualGroup>
+							</ChildItems>
+						</UsualGroup>
 						<UsualGroup name="Группа1" id="310">
 							<Group>Horizontal</Group>
 							<Representation>None</Representation>

src/DataProcessors/узКанбанДоска/Forms/Форма/Ext/Form/Module.bsl

@@ -11,28 +11,9 @@
 Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
 	
 	
-	////ОпределитьОтборНаСервере(пНастройкиКомпоновщика);
-	//ОпределитьОтборНаСервере();
-	
-	
 	пНастройкиКомпоновщика = Неопределено;
 	
-	КлючНастроек = ПолучитьКлючНастроек();
-	СохраненныеНастройки = ХранилищеОбщихНастроек.Загрузить(КлючНастроек,КлючНастроек);
-	
-	Если СохраненныеНастройки <> Неопределено Тогда
-		ЗаполнитьТЧНастройкиКолонокНаСервере();	
-		//Если СохраненныеНастройки.Свойство("ТЧНастройкиКолонок") Тогда
-		//	Объект.ТЧНастройкиКолонок.Загрузить(СохраненныеНастройки.ТЧНастройкиКолонок);
-		//Иначе
-		//	ЗаполнитьТЧНастройкиКолонокНаСервере();	
-		//Конецесли;
-		//Если СохраненныеНастройки.Свойство("НастройкиКомпоновщикаХранилище") Тогда
-		//	пНастройкиКомпоновщика = СохраненныеНастройки.НастройкиКомпоновщикаХранилище.Получить();
-		//Конецесли;		
-	Иначе
-		ЗаполнитьТЧНастройкиКолонокНаСервере();
-	Конецесли;
+	ЗагрузитьСохраненныеНастройки(пНастройкиКомпоновщика);
 	
 	НастройкиТЧДляАктивацииПервойСтроки = Новый Структура();
 	
@@ -43,6 +24,34 @@
 	УстановитьОтборТЧ();	
 КонецПроцедуры
 
+&НаСервере
+Процедура ЗагрузитьСохраненныеНастройки(пНастройкиКомпоновщика)
+	КлючНастроек = ПолучитьКлючНастроек();
+	СохраненныеНастройки = ХранилищеОбщихНастроек.Загрузить(КлючНастроек,КлючНастроек);
+	
+	Если СохраненныеНастройки <> Неопределено Тогда
+		//ЗаполнитьТЧНастройкиКолонокНаСервере();	
+		Если СохраненныеНастройки.Свойство("ТЧНастройкиКолонок") Тогда
+			ЗаполнитьТЧНастройкиКолонокНаСервере();
+			ТЧНастройкиКолонок = СохраненныеНастройки.ТЧНастройкиКолонок;
+			Для каждого СтрокаТЧНастройкиКолонок из Объект.ТЧНастройкиКолонок цикл
+				ПараметрыОтбора=Новый Структура();
+				ПараметрыОтбора.Вставить("Статус",СтрокаТЧНастройкиКолонок.Статус);
+				НайденныеСтрокиСохраненныеНастройки = ТЧНастройкиКолонок.НайтиСтроки(ПараметрыОтбора);
+				Для каждого СтрокаНайденныеСтроки из НайденныеСтрокиСохраненныеНастройки цикл
+					СтрокаТЧНастройкиКолонок.Видимость = СтрокаНайденныеСтроки.Видимость;		
+				Конеццикла;				
+			Конеццикла;
+		Иначе
+			ЗаполнитьТЧНастройкиКолонокНаСервере();	
+		Конецесли;
+		Если СохраненныеНастройки.Свойство("НастройкиКомпоновщикаХранилище") Тогда
+			пНастройкиКомпоновщика = СохраненныеНастройки.НастройкиКомпоновщикаХранилище.Получить();
+		Конецесли;		
+	Иначе
+		ЗаполнитьТЧНастройкиКолонокНаСервере();
+	Конецесли;	
+КонецПроцедуры 
 
 &НаСервере
 Функция ПолучитьКлючНастроек()
@@ -257,9 +266,18 @@
 
 &НаКлиенте
 Процедура КомандаУстановитьСтандартныеНастройки(Команда)
-	// Вставить содержимое обработчика.
+	УстановитьСтандартныеНастройкиНаСервере();
 КонецПроцедуры
 
+&НаСервере
+Процедура УстановитьСтандартныеНастройкиНаСервере()
+	КлючНастроек = ПолучитьКлючНастроек();	
+	ХранилищеОбщихНастроек.Сохранить(КлючНастроек,КлючНастроек,Неопределено);
+	пНастройкиКомпоновщика = Неопределено;
+	ЗагрузитьСохраненныеНастройки(пНастройкиКомпоновщика);
+	ОпределитьОтборНаСервере(пНастройкиКомпоновщика);
+КонецПроцедуры 
+
 &НаКлиенте
 Процедура ТЧЗадачиПриАктивизацииЯчейки(Элемент)
 	ИмяТЧ = Элемент.Имя;

src/Reports/АнализЖурналаРегистрации/Templates/ПродолжительностьРаботыРегламентныхЗаданий/Ext/Template.xml

@@ -2982,9 +2982,9 @@
 			<d3p1:fixedVariantMeasure>Day</d3p1:fixedVariantMeasure>
 			<d3p1:fixedVariantInterval>1</d3p1:fixedVariantInterval>
 			<d3p1:autoFullInterval>true</d3p1:autoFullInterval>
-			<d3p1:fullIntervalBegin>2016-10-03T17:00:00</d3p1:fullIntervalBegin>
-			<d3p1:fullIntervalEnd>2016-10-12T17:59:59</d3p1:fullIntervalEnd>
-			<d3p1:visualBegin>2016-10-03T17:00:00</d3p1:visualBegin>
+			<d3p1:fullIntervalBegin>2016-10-03T18:00:00</d3p1:fullIntervalBegin>
+			<d3p1:fullIntervalEnd>2016-10-12T18:59:59</d3p1:fullIntervalEnd>
+			<d3p1:visualBegin>2016-10-03T18:00:00</d3p1:visualBegin>
 			<d3p1:intervalDrawType>Gradient</d3p1:intervalDrawType>
 			<d3p1:noneVariantChars>3</d3p1:noneVariantChars>
 			<d3p1:noneVariantMeasure>Day</d3p1:noneVariantMeasure>