#116 Добавить реквизит у задачи «ПоказыватьВОтчетахИКанбанДоске»

2025-01-14 03:20:16 +02:00 · 2016-12-13 17:19:28 +03:00 · 2016-12-13 17:19:28 +03:00 · 837c5679bf
commit 837c5679bf
parent db52e2b533
9 changed files with 119 additions and 31 deletions
--- a/src/cf/Catalogs/узЗадачи.xml
+++ b/src/cf/Catalogs/узЗадачи.xml
@ -1257,6 +1257,45 @@
 					<FullTextSearch>Use</FullTextSearch>
 				</Properties>
 			</Attribute>
+			<Attribute uuid="21c02852-d755-488d-8f07-b621b18c2715">
+				<Properties>
+					<Name>ПоказыватьВОтчетахИКанбанДоске</Name>
+					<Synonym>
+						<v8:item>
+							<v8:lang>ru</v8:lang>
+							<v8:content>Показывать в отчетах и канбан доске</v8:content>
+						</v8:item>
+					</Synonym>
+					<Comment/>
+					<Type>
+						<v8:Type>xs:boolean</v8:Type>
+					</Type>
+					<PasswordMode>false</PasswordMode>
+					<Format/>
+					<EditFormat/>
+					<ToolTip/>
+					<MarkNegatives>false</MarkNegatives>
+					<Mask/>
+					<MultiLine>false</MultiLine>
+					<ExtendedEdit>false</ExtendedEdit>
+					<MinValue xsi:nil="true"/>
+					<MaxValue xsi:nil="true"/>
+					<FillFromFillingValue>false</FillFromFillingValue>
+					<FillValue xsi:nil="true"/>
+					<FillChecking>DontCheck</FillChecking>
+					<ChoiceFoldersAndItems>Items</ChoiceFoldersAndItems>
+					<ChoiceParameterLinks/>
+					<ChoiceParameters/>
+					<QuickChoice>Auto</QuickChoice>
+					<CreateOnInput>Auto</CreateOnInput>
+					<ChoiceForm/>
+					<LinkByType/>
+					<ChoiceHistoryOnInput>Auto</ChoiceHistoryOnInput>
+					<Use>ForItem</Use>
+					<Indexing>DontIndex</Indexing>
+					<FullTextSearch>Use</FullTextSearch>
+				</Properties>
+			</Attribute>
 			<TabularSection uuid="0d958c66-1f6d-4b4a-a9ce-2a378e7394ad">
 				<InternalInfo>
 					<xr:GeneratedType name="CatalogTabularSection.узЗадачи.История" category="TabularSection">
--- a/src/cf/Catalogs/узЗадачи/Forms/ФормаСписка/Ext/Form.xml
+++ b/src/cf/Catalogs/узЗадачи/Forms/ФормаСписка/Ext/Form.xml
@ -228,6 +228,12 @@
 					<ContextMenu name="ЕстьПодчиненныеЗадачиКонтекстноеМеню" id="72"/>
 					<ExtendedTooltip name="ЕстьПодчиненныеЗадачиРасширеннаяПодсказка" id="73"/>
 				</CheckBoxField>
+				<CheckBoxField name="ПоказыватьВОтчетахИКанбанДоске" id="87">
+					<DataPath>Список.ПоказыватьВОтчетахИКанбанДоске</DataPath>
+					<CheckBoxType>Auto</CheckBoxType>
+					<ContextMenu name="ПоказыватьВОтчетахИКанбанДоскеКонтекстноеМеню" id="88"/>
+					<ExtendedTooltip name="ПоказыватьВОтчетахИКанбанДоскеРасширеннаяПодсказка" id="89"/>
+				</CheckBoxField>
 			</ChildItems>
 		</Table>
 	</ChildItems>
@ -243,7 +249,7 @@
 			</UseAlways>
 			<Settings xsi:type="DynamicList">
 				<ManualQuery>true</ManualQuery>
-				<DynamicDataRead>true</DynamicDataRead>
+				<DynamicDataRead>false</DynamicDataRead>
 				<QueryText>ВЫБРАТЬ
 	СправочникузЗадачи.Ссылка,
 	СправочникузЗадачи.ПометкаУдаления,
@ -273,14 +279,14 @@
 		КОГДА ЕСТЬNULL(узНаличиеЗаметокПоПредмету.ЕстьЗаметки, ЛОЖЬ)
 			ТОГДА 0
 		ИНАЧЕ -1
-	КОНЕЦ КАК ЕстьЗаметки,	
-	СправочникузЗадачи.РеквизитДопУпорядочивания	
+	КОНЕЦ КАК ЕстьЗаметки,
+	СправочникузЗадачи.РеквизитДопУпорядочивания,
+	СправочникузЗадачи.ПоказыватьВОтчетахИКанбанДоске
 ИЗ
 	Справочник.узЗадачи КАК СправочникузЗадачи
-	ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.узНаличиеЗаметокПоПредмету КАК узНаличиеЗаметокПоПредмету
-	ПО (СправочникузЗадачи.Ссылка = узНаличиеЗаметокПоПредмету.Предмет
-		И узНаличиеЗаметокПоПредмету.Автор = &amp;Пользователь)
-	
+		ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.узНаличиеЗаметокПоПредмету КАК узНаличиеЗаметокПоПредмету
+		ПО СправочникузЗадачи.Ссылка = узНаличиеЗаметокПоПредмету.Предмет
+			И (узНаличиеЗаметокПоПредмету.Автор = &amp;Пользователь)
 ГДЕ
 	ВЫБОР
 			КОГДА &amp;ИспользоватьОтборПоНаблюдателю
@ -296,8 +302,7 @@
 								ИНАЧЕ ИСТИНА
 							КОНЕЦ)
 			ИНАЧЕ ИСТИНА
-		КОНЕЦ
-		</QueryText>
+		КОНЕЦ</QueryText>
 				<MainTable>Catalog.узЗадачи</MainTable>
 				<ListSettings>
 					<dcsset:filter>
--- a/src/cf/Catalogs/узЗадачи/Forms/ФормаЭлемента/Ext/Form.xml
+++ b/src/cf/Catalogs/узЗадачи/Forms/ФормаЭлемента/Ext/Form.xml
@ -490,6 +490,18 @@
 								</UsualGroup>
 							</ChildItems>
 						</UsualGroup>
+						<CheckBoxField name="НеПоказыватьВОтчетахИКанбанДоске" id="311">
+							<DataPath>Объект.ПоказыватьВОтчетахИКанбанДоске</DataPath>
+							<CheckBoxType>Tumbler</CheckBoxType>
+							<EditFormat>
+								<v8:item>
+									<v8:lang>ru</v8:lang>
+									<v8:content>БЛ=Нет; БИ=Да</v8:content>
+								</v8:item>
+							</EditFormat>
+							<ContextMenu name="НеПоказыватьВОтчетахИКанбанДоскеКонтекстноеМеню" id="312"/>
+							<ExtendedTooltip name="НеПоказыватьВОтчетахИКанбанДоскеРасширеннаяПодсказка" id="313"/>
+						</CheckBoxField>
 						<UsualGroup name="ГруппаДаты" id="162">
 							<Title>
 								<v8:item>
--- a/src/cf/Catalogs/узЗадачи/Forms/ФормаЭлемента/Ext/Form/Module.bsl
+++ b/src/cf/Catalogs/узЗадачи/Forms/ФормаЭлемента/Ext/Form/Module.bsl
@ -14,22 +14,9 @@
 	// Конец СтандартныеПодсистемы.Свойства	
 	
 	Если Объект.Ссылка.Пустая() Тогда
-		Объект.ИспользоватьФорматированиеВСодержании = Истина;
-		Объект.Автор = Пользователи.ТекущийПользователь();
-		Объект.Важность = ПредопределенноеЗначение("Справочник.узВариантыВажностиЗадачи.Обычная");
-		Если Объект.ИспользоватьФорматированиеВСодержании Тогда
-			ФорматированныйТекст = Параметры.ЗначениеКопирования.Содержание.Получить();
-		Конецесли;
-		Если Параметры.Свойство("ПараметрыНовойЗадачи") Тогда
-			ПараметрыНовойЗадачи = Параметры.ПараметрыНовойЗадачи; 	
-			ЗаполнитьЗначенияСвойств(Объект,ПараметрыНовойЗадачи);
-		Конецесли;
-		Если Параметры.Свойство("ТребоватьЗаполнитьРодителя") Тогда
-			ТребоватьЗаполнитьРодителя = Параметры.ТребоватьЗаполнитьРодителя;
-		Конецесли;
-	Иначе
-		
+		ЗаполнитьРеквизитыПоУмолчанию();
 	КонецЕсли;
+	
 	КомментарииПометка = Ложь;
 	Для каждого СтрокаКомментарии из Объект.Комментарии цикл
 		Если СтрокаКомментарии.Выполнено Тогда
@ -42,6 +29,24 @@
 	УстановитьПараметрыИзмененныеОбъекты();
 КонецПроцедуры

+&НаСервере
+Процедура ЗаполнитьРеквизитыПоУмолчанию()
+	Объект.ИспользоватьФорматированиеВСодержании = Истина;
+	Объект.Автор = Пользователи.ТекущийПользователь();
+	Объект.Важность = ПредопределенноеЗначение("Справочник.узВариантыВажностиЗадачи.Обычная");
+	Если Объект.ИспользоватьФорматированиеВСодержании Тогда
+		ФорматированныйТекст = Параметры.ЗначениеКопирования.Содержание.Получить();
+	Конецесли;
+	Если Параметры.Свойство("ПараметрыНовойЗадачи") Тогда
+		ПараметрыНовойЗадачи = Параметры.ПараметрыНовойЗадачи; 	
+		ЗаполнитьЗначенияСвойств(Объект,ПараметрыНовойЗадачи);
+	Конецесли;
+	Если Параметры.Свойство("ТребоватьЗаполнитьРодителя") Тогда
+		ТребоватьЗаполнитьРодителя = Параметры.ТребоватьЗаполнитьРодителя;
+	Конецесли;
+	Объект.ПоказыватьВОтчетахИКанбанДоске = Истина;
+КонецПроцедуры 
+
 &НаСервере
 Процедура ПриЧтенииНаСервере(ТекущийОбъект)
 	Если Объект.ИспользоватьФорматированиеВСодержании Тогда
--- a/src/cf/CommonModules/узОбновлениеИнформационнойБазы/Ext/Module.bsl
+++ b/src/cf/CommonModules/узОбновлениеИнформационнойБазы/Ext/Module.bsl
@ -1,6 +1,6 @@
 Процедура ПриДобавленииПодсистемы(Описание) Экспорт
    Описание.Имя = "УправлениеЗадачами";
-    Описание.Версия = "1.0.1.011";
+    Описание.Версия = "1.0.1.012";
    // Требуется библиотека стандартных подсистем.
    Описание.ТребуемыеПодсистемы.Добавить("СтандартныеПодсистемы");
 КонецПроцедуры
@ -27,6 +27,12 @@
 	Обработчик.ОбщиеДанные = Истина;
 	Обработчик.Комментарий = "Обновление на версию 1.0.1.011";
 	
+	Обработчик = Обработчики.Добавить();
+	Обработчик.Версия = "1.0.1.012";
+	Обработчик.НачальноеЗаполнение = Ложь;
+	Обработчик.Процедура = "узОбновлениеИнформационнойБазы.ОбновлениеНаВерсию_1_0_1_012";
+	Обработчик.ОбщиеДанные = Истина;
+	Обработчик.Комментарий = "Обновление на версию 1.0.1.012";	
 КонецПроцедуры
 Процедура ПередОбновлениемИнформационнойБазы() Экспорт
 КонецПроцедуры
@ -78,6 +84,27 @@
 	Конеццикла;	
 КонецПроцедуры 

+Процедура ОбновлениеНаВерсию_1_0_1_012() Экспорт
+	Запрос = Новый Запрос;
+	Запрос.Текст = 
+	"ВЫБРАТЬ
+	|	узЗадачи.Ссылка
+	|ИЗ
+	|	Справочник.узЗадачи КАК узЗадачи
+	|ГДЕ
+	|	НЕ узЗадачи.ЕстьПодчиненныеЗадачи";
+	
+	РезультатЗапроса = Запрос.Выполнить();
+	
+	Выборка = РезультатЗапроса.Выбрать();
+	
+	Пока Выборка.Следующий() Цикл
+		СпрОбъект = Выборка.Ссылка.ПолучитьОбъект();
+		СпрОбъект.ПоказыватьВОтчетахИКанбанДоске = Истина;
+		СпрОбъект.Записать();
+	КонецЦикла;
+КонецПроцедуры 
+

 Процедура узНачальноеЗаполнение() Экспорт
 	узДобавитьАдминистраторИБ();
--- a/src/cf/Configuration.xml
+++ b/src/cf/Configuration.xml
@ -49,7 +49,7 @@
 				<xr:Item xsi:type="xr:MDObjectRef">Role.ИнтерактивноеОткрытиеВнешнихОтчетовИОбработок</xr:Item>
 			</DefaultRoles>
 			<Vendor>Управление задачами</Vendor>
-			<Version>1.0.1.011</Version>
+			<Version>1.0.1.012</Version>
 			<UpdateCatalogAddress/>
 			<IncludeHelpInContents>false</IncludeHelpInContents>
 			<UseManagedFormInOrdinaryApplication>false</UseManagedFormInOrdinaryApplication>
--- a/src/cf/DataProcessors/узКанбанДоска/Templates/СхемаКомпоновкиДанных/Ext/Template.xml
+++ b/src/cf/DataProcessors/узКанбанДоска/Templates/СхемаКомпоновкиДанных/Ext/Template.xml
@ -170,7 +170,7 @@
 ИЗ
 	Справочник.узЗадачи КАК узЗадачи
 ГДЕ
-	НЕ узЗадачи.ЕстьПодчиненныеЗадачи
+	узЗадачи.ПоказыватьВОтчетахИКанбанДоске
 	И ВЫБОР
 			КОГДА &amp;ИспользоватьОтборПоНаблюдателю
 				ТОГДА узЗадачи.Ссылка В
--- a/src/cf/Reports/АнализЖурналаРегистрации/Templates/ПродолжительностьРаботыРегламентныхЗаданий/Ext/Template.xml
+++ b/src/cf/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-12-13T16:00:00</d3p1:fullIntervalBegin>
-			<d3p1:fullIntervalEnd>2016-12-22T16:59:59</d3p1:fullIntervalEnd>
-			<d3p1:visualBegin>2016-12-13T16:00:00</d3p1:visualBegin>
+			<d3p1:fullIntervalBegin>2016-12-13T17:00:00</d3p1:fullIntervalBegin>
+			<d3p1:fullIntervalEnd>2016-12-22T17:59:59</d3p1:fullIntervalEnd>
+			<d3p1:visualBegin>2016-12-13T17:00:00</d3p1:visualBegin>
 			<d3p1:intervalDrawType>Gradient</d3p1:intervalDrawType>
 			<d3p1:noneVariantChars>3</d3p1:noneVariantChars>
 			<d3p1:noneVariantMeasure>Day</d3p1:noneVariantMeasure>
--- a/src/cf/Reports/узОтчетПоЗадачам/Templates/ОсновнаяСхемаКомпоновкиДанных/Ext/Template.xml
+++ b/src/cf/Reports/узОтчетПоЗадачам/Templates/ОсновнаяСхемаКомпоновкиДанных/Ext/Template.xml
@ -120,7 +120,7 @@
 ИЗ
 	Справочник.узЗадачи КАК узЗадачи
 ГДЕ
-	НЕ узЗадачи.ЕстьПодчиненныеЗадачи</query>
+	узЗадачи.ПоказыватьВОтчетахИКанбанДоске</query>
 	</dataSet>
 	<totalField>
 		<dataPath>КоличествоЗадач</dataPath>