1c/Tasks
1
0
Fork 0
mirror of https://github.com/BlizD/Tasks.git synced 2025-03-17 20:58:01 +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 (начало)
Описание.РежимВыполненияОтложенныхОбработчиков = "Параллельно";
@ -321,7 +321,7 @@
Обработчик.Комментарий = "Обновление на версию 1.0.5.015";
Обработчик = Обработчики.Добавить();
Обработчик.НачальноеЗаполнение = Ложь;
Обработчик.НачальноеЗаполнение = Истина;
Обработчик.Версия = "1.0.5.016";
Обработчик.Процедура = "узОбновлениеИнформационнойБазы.ОбновлениеНаВерсию_1_0_5_016";
Обработчик.ОбщиеДанные = Истина;
@ -1225,48 +1225,57 @@
// BSLLS:StyleElementConstructors-off
Если Справочники.узМеткиЗадач.НайтиПоНаименованию("Новая фича") = Неопределено Тогда
Если Справочники.узМеткиЗадач.НайтиПоНаименованию("Новая фича").Ссылка.Пустая() Тогда
СпрОбъект = Справочники.узМеткиЗадач.СоздатьЭлемент();
СпрОбъект.Наименование = "Новая фича";
СпрОбъект.РеквизитДопУпорядочивания = 1;
СпрОбъект.ЦветФонаМетки = Новый Цвет(224, 255, 255);
СпрОбъект.ЦветТекстаМетки = Новый Цвет(0, 150, 70);
СпрОбъект.ЦветФонаМетки = Новый ХранилищеЗначения(Новый Цвет(224, 255, 255));
СпрОбъект.ЦветТекстаМетки = Новый ХранилищеЗначения(Новый Цвет(0, 150, 70));
СпрОбъект.Записать();
КонецЕсли;
Если Справочники.узМеткиЗадач.НайтиПоНаименованию("Ошибка") = Неопределено Тогда
Если Справочники.узМеткиЗадач.НайтиПоНаименованию("Ошибка").Ссылка.Пустая() Тогда
СпрОбъект = Справочники.узМеткиЗадач.СоздатьЭлемент();
СпрОбъект.Наименование = "Ошибка";
СпрОбъект.РеквизитДопУпорядочивания = 2;
СпрОбъект.ЦветФонаМетки = Новый Цвет(255, 200, 200);
СпрОбъект.ЦветТекстаМетки = Новый Цвет(255, 0, 0);
СпрОбъект.ЦветФонаМетки = Новый ХранилищеЗначения(Новый Цвет(255, 200, 200));
СпрОбъект.ЦветТекстаМетки = Новый ХранилищеЗначения(Новый Цвет(255, 0, 0));
СпрОбъект.Записать();
КонецЕсли;
Если Справочники.узМеткиЗадач.НайтиПоНаименованию("Дубль") = Неопределено Тогда
Если Справочники.узМеткиЗадач.НайтиПоНаименованию("Дубль").Ссылка.Пустая() Тогда
СпрОбъект = Справочники.узМеткиЗадач.СоздатьЭлемент();
СпрОбъект.Наименование = "Дубль";
СпрОбъект.РеквизитДопУпорядочивания = 3;
СпрОбъект.ЦветФонаМетки = Новый Цвет(172, 195, 207);
СпрОбъект.ЦветТекстаМетки = Новый Цвет(255, 255, 255);
СпрОбъект.ЦветФонаМетки = Новый ХранилищеЗначения(Новый Цвет(172, 195, 207));
СпрОбъект.ЦветТекстаМетки = Новый ХранилищеЗначения(Новый Цвет(255, 255, 255));
СпрОбъект.Записать();
КонецЕсли;
Если Справочники.узМеткиЗадач.НайтиПоНаименованию("Вопрос") = Неопределено Тогда
Если Справочники.узМеткиЗадач.НайтиПоНаименованию("Вопрос").Ссылка.Пустая() Тогда
СпрОбъект = Справочники.узМеткиЗадач.СоздатьЭлемент();
СпрОбъект.Наименование = "Вопрос";
СпрОбъект.РеквизитДопУпорядочивания = 4;
СпрОбъект.ЦветФонаМетки = Новый Цвет(238, 130, 238);
СпрОбъект.ЦветТекстаМетки = Новый Цвет(255, 255, 255);
СпрОбъект.ЦветФонаМетки = Новый ХранилищеЗначения(Новый Цвет(238, 130, 238));
СпрОбъект.ЦветТекстаМетки = Новый ХранилищеЗначения(Новый Цвет(255, 255, 255));
СпрОбъект.Записать();
КонецЕсли;
Если Справочники.узМеткиЗадач.НайтиПоНаименованию("Требуется помощь") = Неопределено Тогда
Если Справочники.узМеткиЗадач.НайтиПоНаименованию("Требуется помощь").Ссылка.Пустая() Тогда
СпрОбъект = Справочники.узМеткиЗадач.СоздатьЭлемент();
СпрОбъект.Наименование = "Требуется помощь";
СпрОбъект.РеквизитДопУпорядочивания = 5;
СпрОбъект.ЦветФонаМетки = Новый Цвет(238, 130, 238);
СпрОбъект.ЦветТекстаМетки = Новый Цвет(255, 255, 255);
СпрОбъект.ЦветФонаМетки = Новый ХранилищеЗначения(Новый Цвет(123, 201, 111));
СпрОбъект.ЦветТекстаМетки = Новый ХранилищеЗначения(Новый Цвет(255, 255, 255));
СпрОбъект.Записать();
КонецЕсли;
Если Справочники.узМеткиЗадач.НайтиПоНаименованию("Инструкция").Ссылка.Пустая() Тогда
СпрОбъект = Справочники.узМеткиЗадач.СоздатьЭлемент();
СпрОбъект.Наименование = "Инструкция";
СпрОбъект.РеквизитДопУпорядочивания = 6;
СпрОбъект.ЦветФонаМетки = Новый ХранилищеЗначения(Новый Цвет(70, 130, 180));
СпрОбъект.ЦветТекстаМетки = Новый ХранилищеЗначения(Новый Цвет(255, 255, 255));
СпрОбъект.Записать();
КонецЕсли;