1c/Tasks
1
0
Fork 0
mirror of https://github.com/BlizD/Tasks.git synced 2025-03-19 21:07:53 +02:00
Code Issues Releases Activity

#304 Добавить Метки (Ярлыки) Labels в задачи (новый механизм 1с "Множественные характеристики")

Browse Source
This commit is contained in:
Anton Ivanov 2022-12-29 15:48:27 +03:00
parent 48fbf52438
commit a8bc4ceb0d
1 changed files with 27 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

43
src/cf/CommonModules/узОбновлениеИнформационнойБазы/Ext/Module.bsl
View File

@ -1,6 +1,6 @@
Процедура ПриДобавленииПодсистемы(Описание) Экспорт Процедура ПриДобавленииПодсистемы(Описание) Экспорт
Описание.Имя = "УправлениеЗадачами"; Описание.Имя = "УправлениеЗадачами";
Описание.Версия = "1.0.5.015"; Описание.Версия = "1.0.5.016";
//+ УрянскийД 2020-06-22 (начало) //+ УрянскийД 2020-06-22 (начало)
Описание.РежимВыполненияОтложенныхОбработчиков = "Параллельно"; Описание.РежимВыполненияОтложенныхОбработчиков = "Параллельно";
@ -321,7 +321,7 @@
Обработчик.Комментарий = "Обновление на версию 1.0.5.015"; Обработчик.Комментарий = "Обновление на версию 1.0.5.015";
Обработчик = Обработчики.Добавить(); Обработчик = Обработчики.Добавить();
Обработчик.НачальноеЗаполнение = Ложь; Обработчик.НачальноеЗаполнение = Истина;
Обработчик.Версия = "1.0.5.016"; Обработчик.Версия = "1.0.5.016";
Обработчик.Процедура = "узОбновлениеИнформационнойБазы.ОбновлениеНаВерсию_1_0_5_016"; Обработчик.Процедура = "узОбновлениеИнформационнойБазы.ОбновлениеНаВерсию_1_0_5_016";
Обработчик.ОбщиеДанные = Истина; Обработчик.ОбщиеДанные = Истина;
@ -1225,48 +1225,57 @@
// BSLLS:StyleElementConstructors-off // BSLLS:StyleElementConstructors-off
Если Справочники.узМеткиЗадач.НайтиПоНаименованию("Новая фича") = Неопределено Тогда Если Справочники.узМеткиЗадач.НайтиПоНаименованию("Новая фича").Ссылка.Пустая() Тогда
СпрОбъект = Справочники.узМеткиЗадач.СоздатьЭлемент(); СпрОбъект = Справочники.узМеткиЗадач.СоздатьЭлемент();
СпрОбъект.Наименование = "Новая фича"; СпрОбъект.Наименование = "Новая фича";
СпрОбъект.РеквизитДопУпорядочивания = 1; СпрОбъект.РеквизитДопУпорядочивания = 1;
СпрОбъект.ЦветФонаМетки = Новый Цвет(224, 255, 255); СпрОбъект.ЦветФонаМетки = Новый ХранилищеЗначения(Новый Цвет(224, 255, 255));
СпрОбъект.ЦветТекстаМетки = Новый Цвет(0, 150, 70); СпрОбъект.ЦветТекстаМетки = Новый ХранилищеЗначения(Новый Цвет(0, 150, 70));
СпрОбъект.Записать(); СпрОбъект.Записать();
КонецЕсли; КонецЕсли;
Если Справочники.узМеткиЗадач.НайтиПоНаименованию("Ошибка") = Неопределено Тогда Если Справочники.узМеткиЗадач.НайтиПоНаименованию("Ошибка").Ссылка.Пустая() Тогда
СпрОбъект = Справочники.узМеткиЗадач.СоздатьЭлемент(); СпрОбъект = Справочники.узМеткиЗадач.СоздатьЭлемент();
СпрОбъект.Наименование = "Ошибка"; СпрОбъект.Наименование = "Ошибка";
СпрОбъект.РеквизитДопУпорядочивания = 2; СпрОбъект.РеквизитДопУпорядочивания = 2;
СпрОбъект.ЦветФонаМетки = Новый Цвет(255, 200, 200); СпрОбъект.ЦветФонаМетки = Новый ХранилищеЗначения(Новый Цвет(255, 200, 200));
СпрОбъект.ЦветТекстаМетки = Новый Цвет(255, 0, 0); СпрОбъект.ЦветТекстаМетки = Новый ХранилищеЗначения(Новый Цвет(255, 0, 0));
СпрОбъект.Записать(); СпрОбъект.Записать();
КонецЕсли; КонецЕсли;
Если Справочники.узМеткиЗадач.НайтиПоНаименованию("Дубль") = Неопределено Тогда Если Справочники.узМеткиЗадач.НайтиПоНаименованию("Дубль").Ссылка.Пустая() Тогда
СпрОбъект = Справочники.узМеткиЗадач.СоздатьЭлемент(); СпрОбъект = Справочники.узМеткиЗадач.СоздатьЭлемент();
СпрОбъект.Наименование = "Дубль"; СпрОбъект.Наименование = "Дубль";
СпрОбъект.РеквизитДопУпорядочивания = 3; СпрОбъект.РеквизитДопУпорядочивания = 3;
СпрОбъект.ЦветФонаМетки = Новый Цвет(172, 195, 207); СпрОбъект.ЦветФонаМетки = Новый ХранилищеЗначения(Новый Цвет(172, 195, 207));
СпрОбъект.ЦветТекстаМетки = Новый Цвет(255, 255, 255); СпрОбъект.ЦветТекстаМетки = Новый ХранилищеЗначения(Новый Цвет(255, 255, 255));
СпрОбъект.Записать(); СпрОбъект.Записать();
КонецЕсли; КонецЕсли;
Если Справочники.узМеткиЗадач.НайтиПоНаименованию("Вопрос") = Неопределено Тогда Если Справочники.узМеткиЗадач.НайтиПоНаименованию("Вопрос").Ссылка.Пустая() Тогда
СпрОбъект = Справочники.узМеткиЗадач.СоздатьЭлемент(); СпрОбъект = Справочники.узМеткиЗадач.СоздатьЭлемент();
СпрОбъект.Наименование = "Вопрос"; СпрОбъект.Наименование = "Вопрос";
СпрОбъект.РеквизитДопУпорядочивания = 4; СпрОбъект.РеквизитДопУпорядочивания = 4;
СпрОбъект.ЦветФонаМетки = Новый Цвет(238, 130, 238); СпрОбъект.ЦветФонаМетки = Новый ХранилищеЗначения(Новый Цвет(238, 130, 238));
СпрОбъект.ЦветТекстаМетки = Новый Цвет(255, 255, 255); СпрОбъект.ЦветТекстаМетки = Новый ХранилищеЗначения(Новый Цвет(255, 255, 255));
СпрОбъект.Записать(); СпрОбъект.Записать();
КонецЕсли; КонецЕсли;
Если Справочники.узМеткиЗадач.НайтиПоНаименованию("Требуется помощь") = Неопределено Тогда Если Справочники.узМеткиЗадач.НайтиПоНаименованию("Требуется помощь").Ссылка.Пустая() Тогда
СпрОбъект = Справочники.узМеткиЗадач.СоздатьЭлемент(); СпрОбъект = Справочники.узМеткиЗадач.СоздатьЭлемент();
СпрОбъект.Наименование = "Требуется помощь"; СпрОбъект.Наименование = "Требуется помощь";
СпрОбъект.РеквизитДопУпорядочивания = 5; СпрОбъект.РеквизитДопУпорядочивания = 5;
СпрОбъект.ЦветФонаМетки = Новый Цвет(238, 130, 238); СпрОбъект.ЦветФонаМетки = Новый ХранилищеЗначения(Новый Цвет(123, 201, 111));
СпрОбъект.ЦветТекстаМетки = Новый Цвет(255, 255, 255); СпрОбъект.ЦветТекстаМетки = Новый ХранилищеЗначения(Новый Цвет(255, 255, 255));
СпрОбъект.Записать();
КонецЕсли;
Если Справочники.узМеткиЗадач.НайтиПоНаименованию("Инструкция").Ссылка.Пустая() Тогда
СпрОбъект = Справочники.узМеткиЗадач.СоздатьЭлемент();
СпрОбъект.Наименование = "Инструкция";
СпрОбъект.РеквизитДопУпорядочивания = 6;
СпрОбъект.ЦветФонаМетки = Новый ХранилищеЗначения(Новый Цвет(70, 130, 180));
СпрОбъект.ЦветТекстаМетки = Новый ХранилищеЗначения(Новый Цвет(255, 255, 255));
СпрОбъект.Записать(); СпрОбъект.Записать();
КонецЕсли; КонецЕсли;