Advertisement
vindos

Untitled

Jul 8th, 2022
81
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 4.72 KB | None | 0 0
  1. Процедура СозданиеЗадачиОбработка(ТочкаМаршрута)
  2.  
  3. ТекстРеквеста = ПолучитьСообщение();
  4. ТекстТемыРеквеста = ПолучитьТему();
  5. ИсполнительЗадачи = ПолучитьИсполнителяЗадачи();
  6.  
  7. ПараметрыРеквеста = Новый Структура;
  8. ФайлыРеквестаВыборка = РеквестыОбщее.ВыполнитьЗапросНаФайлы(Предмет).Выбрать();
  9.  
  10. Приглашенные = Новый Массив;
  11. Приглашенные.Добавить(XMLСтрока(Справочники.Пользователи.Employees));
  12.  
  13. ПараметрыРеквеста.Вставить("subject", ТекстТемыРеквеста);
  14. ПараметрыРеквеста.Вставить("message", ТекстРеквеста);
  15. ПараметрыРеквеста.Вставить("projectId", XMLСтрока(Справочники.Проекты.IT_Support));
  16. ПараметрыРеквеста.Вставить("type", "other");
  17. ПараметрыРеквеста.Вставить("urgent", Предмет.Срочный);
  18. ПараметрыРеквеста.Вставить("invited", Приглашенные);
  19. ПараметрыРеквеста.Вставить("dueDate", Формат(ВосемьВечера(ПолучитьДедлаин()), "ДФ='ггггММддЧЧммсс'"));
  20.  
  21. ПараметрыРеквеста.Вставить("requestAuthor", Автор);
  22.  
  23. ПараметрыРеквеста.Вставить("assignedFrom", Автор);
  24. ПараметрыРеквеста.Вставить("assignToGroup", Ложь);
  25. ПараметрыРеквеста.Вставить("assignedToGuid", XMLСтрока(ИсполнительЗадачи));
  26. ПараметрыРеквеста.Вставить("assignedToName", ИсполнительЗадачи.Наименование);
  27. ПараметрыРеквеста.Вставить("attachmentHashes", Новый Массив);
  28. ПараметрыРеквеста.Вставить("windowId", "Support_Task");
  29. ПараметрыРеквеста.Вставить("isGroup", Истина);
  30.  
  31.  
  32. РеквестЗадача = РеквестыОбщее.СоздатьРеквестПоЗапросуREACT(ПараметрыРеквеста);
  33. ЭтотОбъект.Записать();
  34. ВебСсылкаНаЗадачу = РеквестыВебИнтерфейс.ПолучитьВебСсылкуНаРеквест(РеквестЗадача);
  35. ЗадачиОбщее.НазначитьЗадачуИзРеквеста(РеквестЗадача, ПараметрыРеквеста);
  36. СообщениеРеквеста = ПолучитьСообщениеРеквеста(РеквестЗадача);
  37.  
  38. Пока ФайлыРеквестаВыборка.Следующий() Цикл
  39.  
  40. ПараметрыСозданияФайла = РеквестыОбщее.ПараметрыСозданияФайлаРеквеста(
  41. СообщениеРеквеста,
  42. ФайлыРеквестаВыборка.ИмяФайла,
  43. Новый ДвоичныеДанные(ФайлыРеквестаВыборка.ПутьКФайлу)
  44. );
  45. ПараметрыСозданияФайла.НеОбрабатывать = Истина;
  46.  
  47. РеквестыОбщее.СоздатьФайлРеквеста(ПараметрыСозданияФайла);
  48.  
  49. КонецЦикла;
  50.  
  51. ТекстСообщения = СтрШаблон("Создана задача на сотрудника %1 с дедлаином %2",
  52. ИсполнительЗадачи,
  53. ПолучитьДедлаин()
  54. );
  55.  
  56. ФорматированныйТекстСообщения = СтрШаблон(
  57. "<p>Создана <a href=""%1"" target=""_blank"">задача</a> на сотрудника %2 с дедлаином %3</p>",
  58. ВебСсылкаНаЗадачу,
  59. ИсполнительЗадачи,
  60. Формат(ПолучитьДедлаин(),"ДФ=dd.MM.yyyy")
  61. );
  62.  
  63. ПараметрыСообщения = Новый Структура(
  64. "Реквест, Автор, Текст, ФорматированныйТекстСообщения",
  65. Предмет,
  66. Справочники.Пользователи.BellerageOnline,
  67. ТекстСообщения,
  68. ФорматированныйТекстСообщения
  69. );
  70.  
  71. РеквестыОбщее.СоздатьНовоеСообщениеРеквеста(ПараметрыСообщения);
  72.  
  73. КонецПроцедуры
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement