Добавляем виджет "Задачи от меня" в Документооборот 2.1

25.09.2019 3 Comments

Практика программирования, Разработка

Небольшая доработка Документооборота 2.1 для возможности добавления виджета «Задачи от меня» в обработку Текущие дела.

В Документообороте 2.1.12 и 2.1.13 на начальной странице «Текущие дела» в типовом механизме отсутствует виджет «Задачи от меня», который бы показывал информацию аналогичную виджету «Задачи мне».

 

 

Создадим свой новый виджет небольшой доработкой конфигурации. Расширением, к сожалению, обойтись не получится, так как в них пока что нельзя добавлять предопределенные элементы.

1. Добавляем в справочник Виджеты предопределенный элемент «ЗадачиОтМеня».

2. В модуле менеджера этого же справочника в функции ДоступныеВиджеты() находим объявление переменной ДоступныеВиджеты и добавляем в этот список значений наш новый виджет:

ДоступныеВиджеты.Добавить(Справочники.Виджеты.ЗадачиОтМеня);
 

 Функция ДоступныеВиджеты() Экспорт

3. В общий модуль ТекущиеДелаДокументооборотСервер добавляем процедуру заполнения нового виджета:

 

 Процедура ЗаполнитьВиджетЗадачиОтМеня(Параметры)

Фактически это копия процедуры ТекущиеДелаДокументооборотСервер.ЗаполнитьВиджетМоиЗадачи с измененным запросом. В нашем случае необходимо поменять связь таблицы ЗадачаИсполнителя и ИсполнителиЗадач с «ЗадачаИсполнителя.ТекущийИсполнитель = ИсполнителиЗадач.Исполнитель» на «ЗадачаИсполнителя.Автор = ИсполнителиЗадач.Исполнитель».

4. В этом же модуле в процедуре ЗаполнитьВиджетыТекущихДел добавим заполнение нашего виджета:

 

 Процедура ЗаполнитьВиджетыТекущихДел(Форма, Виджеты = Неопределено) Экспорт

5. В процедуре ТекущиеДелаДокументооборотКлиент.ОбработатьНажатиеНаСсылку добавим описание нажатия на наш виджет:

 

 Процедура ОбработатьНажатиеНаСсылку(Ссылка, Форма, ИндексВиджета)

Нам удобней открывать форму списка с задачами, нежели отчет. Но можно аналогично виджету «Задачи мне» открывать отчет, взяв его же за основу, немного изменив запрос.

6. Так как на открытой форме нам необходимо будет видеть либо все задачи, либо непринятые, либо просроченные — необходимо описать это в форме задач от меня.
Модуль формы ЗадачиОтМеня объекта ЗадачаИсполнителя, процедура ПриСозданииНаСервере – добавляем в самый конец вызов процедуры ПрименитьОтборПоТипуЗадач(), которая будет накладывать отбор на динамический список в зависимости от переданных при открытии формы параметров.
И описываем ее:

 

 Процедура ПрименитьОтборПоТипуЗадач()

 

Related Posts

3 Comments

  1. vcv

    Можно и расширением. Только тогда придётся определять виджет запросом и по наименованию.

    Например, так:

    &Вместо(«ДоступныеВиджеты»)
Функция Расш_ДоступныеВиджеты()

Результат = ПродолжитьВызов();

// Добавляем виджет ЗадачиОтМеня
НаименованиеВиджета = «Задачи от меня»;
Запрос = Новый Запрос;
Запрос.Текст =
«ВЫБРАТЬ
| Виджеты.Ссылка КАК Ссылка
|ИЗ
| Справочник.Виджеты КАК Виджеты
|ГДЕ
| Виджеты.Наименование = &Наименование»;
Запрос.УстановитьПараметр(«Наименование», НаименованиеВиджета);
Выборка = Запрос.Выполнить().Выбрать();
Если Выборка.Следующий() Тогда
Результат.Добавить(Выборка.Ссылка);
Иначе
НовыйВиджет = Справочники.Виджеты.СоздатьЭлемент();
НовыйВиджет.Наименование = НаименованиеВиджета;
НовыйВиджет.Записать();
Результат.Добавить(НовыйВиджет.Ссылка);
КонецЕсли;

Возврат Результат;

КонецФункции

    Показать

    Reply ↓
  2. SashinPapa

    (1) Спасибо за идею. Добавил новый виджет в расширение по вашему методу и ещё +кусочек кода в конец Функции Расш_ДоступныеВиджеты(), чтобы сортировка списка виджетов не нарушалась.

     // Дополнительная сортировка списка виджетов.
СортСписокВиджетов = Новый СписокЗначений;
СортСписокВиджетов.ЗагрузитьЗначения(Результат);
СортСписокВиджетов.СортироватьПоЗначению(НаправлениеСортировки.Возр);
Возврат СортСписокВиджетов.ВыгрузитьЗначения();
    Reply ↓
  3. user753151

    Дополнение к процедуре ПрименитьОтборПоТипуЗадач() для того, чтобы бессрочные задачи не попадали в список просроченных

    
Процедура ПрименитьОтборПоТипуЗадач()

Если Параметры.Свойство(«ЗадачиОтМеня_НеПринятые») Тогда

ЭлементОтбора = ЗадачиОтМеня.Отбор.Элементы.Добавить(Тип(«ЭлементОтбораКомпоновкиДанных»));
ЭлементОтбора.ЛевоеЗначение = Новый ПолеКомпоновкиДанных(«ПринятаКИсполнению»);
ЭлементОтбора.ВидСравнения = ВидСравненияКомпоновкиДанных.Равно;
ЭлементОтбора.Использование = Истина;
ЭлементОтбора.ПравоеЗначение = Ложь;

ИначеЕсли Параметры.Свойство(«ЗадачиОтМеня_Просроченные») Тогда

ЭлементОтбора = ЗадачиОтМеня.Отбор.Элементы.Добавить(Тип(«ЭлементОтбораКомпоновкиДанных»));
ЭлементОтбора.ЛевоеЗначение = Новый ПолеКомпоновкиДанных(«СрокИсполнения»);
ЭлементОтбора.ВидСравнения = ВидСравненияКомпоновкиДанных.Меньше;
ЭлементОтбора.Использование = Истина;
ЭлементОтбора.ПравоеЗначение = ТекущаяДатаСеанса();

//++дополнение для проверки пустого значения поля «СрокИсполнения»
ЭлементОтбора = ЗадачиОтМеня.Отбор.Элементы.Добавить(Тип(«ЭлементОтбораКомпоновкиДанных»));
ЭлементОтбора.ЛевоеЗначение = Новый ПолеКомпоновкиДанных(«СрокИсполнения»);
ЭлементОтбора.ВидСравнения = ВидСравненияКомпоновкиДанных.Заполнено;
ЭлементОтбора.Использование = Истина;
//—дополнение для проверки пустого значения поля «СрокИсполнения»

КонецЕсли;

КонецПроцедуры

    Показать

    Reply ↓

Leave a Comment

Ваш адрес email не будет опубликован. Обязательные поля помечены *