Вывод полной истории в задаче по всему "дереву" бизнес-процессов
Комментарии
В избранное
Подписаться на ответы
Сортировка:
Древо развёрнутое
Свернуть все
(12
врИскомыйПроцесс = ИскомыйПроцессСсылка.ПолучитьОбъект();
почему сразу ИскомыйПроцессСсылка.ВедущаяЗадача не написать?
)Функция ПолучитьГлавнуюВедущуюЗадачу(ИскомыйПроцессСсылка)
врИскомыйПроцесс = ИскомыйПроцессСсылка.ПолучитьОбъект();
Если ЗначениеЗаполнено(врИскомыйПроцесс.ВедущаяЗадача) Тогда
Возврат врИскомыйПроцесс.ВедущаяЗадача;
КонецЕсли;
Попытка
Если ЗначениеЗаполнено(врИскомыйПроцесс.ГлавнаяЗадача) Тогда
Возврат врИскомыйПроцесс.ГлавнаяЗадача;
КонецЕсли;
Исключение
КонецПопытки;
Возврат Неопределено;
КонецФункции
ПоказатьврИскомыйПроцесс = ИскомыйПроцессСсылка.ПолучитьОбъект();
почему сразу ИскомыйПроцессСсылка.ВедущаяЗадача не написать?
(18)Немного изменила фнк
Может кому-то полезно будет)
Может кому-то полезно будет)
Функция ПреобразоватьИсторияВыполненияHTML(БизнесПроцесс)
Если БизнесПроцесс.Завершен Тогда
СтатусБПСтрокой = "✅ Задача выполнена " + Символы.ПС;
Иначе
СтатусБПСтрокой = "Задача на выполнении " + Символы.ПС;
КонецЕсли;
//Заголовок
ИсторияВыполненияHTML = "<hr><p>"+ СтатусБПСтрокой + Строка(БизнесПроцесс)+ "<p>";
//Содержание
ИсторияВыполнения = РегистрыСведений.ИсторияВыполненияЗадач.ДН_ИсторияПоБизнесПроцессу(БизнесПроцесс);
//Получаем задачи по процессу
Запрос = Новый Запрос(
"ВЫБРАТЬ
| ЗадачаИсполнителя.Ссылка КАК Ссылка,
| ЗадачаИсполнителя.Исполнитель КАК Исполнитель
|ИЗ
| Задача.ЗадачаИсполнителя КАК ЗадачаИсполнителя
|ГДЕ
| ЗадачаИсполнителя.БизнесПроцесс = &БизнесПроцесс");
Запрос.УстановитьПараметр("БизнесПроцесс", БизнесПроцесс.Ссылка);
ВыборкаЗадач = Запрос.Выполнить().Выбрать();
Если ЗначениеЗаполнено(ИсторияВыполнения) Тогда
Если ВыборкаЗадач.Следующий() Тогда
ИсторияВыполненияHTML = ИсторияВыполненияHTML + ИсторияВыполнения;
КонецЕсли;
Иначе
Если ВыборкаЗадач.Следующий() Тогда
ИсторияВыполненияHTML = ИсторияВыполненияHTML + "Текущая задача находится на выполнении: " + ВыборкаЗадач.Исполнитель;
КонецЕсли;
КонецЕсли;
ИсторияВыполненияHTML = СтрЗаменить(ИсторияВыполненияHTML, Символы.Таб, " ");
ИсторияВыполненияHTML = СтрЗаменить(ИсторияВыполненияHTML, Символы.ПС, "");
Возврат ИсторияВыполненияHTML;
КонецФункции
ПоказатьВопросы с вознаграждением
|
|
||
|
|
||
|
|
||
|
|
||
|
|
||
|
|
||
|
|
||
|
|
||
|
|
||
|
|
||
|
|
||
|
|
||
|
|
||
|
|
||
|
|
||
|
|
||
|
|
||
|
|
||
|
|
||
|
|