Программное формирование обсуждения через систему взаимодействия

buketoff 187 3 5 7

1С

 НавигационнаяСсыылка   = ПолучитьНавигационнуюСсылку(СсылкаНаДокументОбсуждения);
 КонтекстОбсуждения     = Новый КонтекстОбсужденияСистемыВзаимодействия(НавигационнаяСсыылка);
 МенеджерВзаимодействия = Новый МенеджерСистемыВзаимодействия;
 	
 Отбор = Новый ОтборОбсужденийСистемыВзаимодействия;
 Отбор.КонтекстноеОбсуждение = Истина;
 Отбор.ТекущийПользовательЯвляетсяУчастником = Ложь;
 Отбор.КонтекстОбсуждения = КонтекстОбсуждения;
 Обсуждение = МенеджерВзаимодействия.ПолучитьОбсуждения(Отбор);
 	
 Если Обсуждение.Количество() = 0 Тогда
 		Обсуждение = МенеджерВзаимодействия.СоздатьОбсуждение();
 		Обсуждение.КонтекстОбсуждения = КонтекстОбсуждения;
 		Обсуждение.Ключ = Строка(СсылкаНаДокументОбсуждения.УникальныйИдентификатор());
 		Обсуждение.Записать();
 	Иначе
 		Обсуждение = Обсуждение[0];
 	КонецЕсли; 
 	
 Автор = ПараметрыСеанса.ТекущийПользователь;
 	
 СообщениеДляОбсуждения = МенеджерВзаимодействия.СоздатьСообщение(Обсуждение.Идентификатор);
 СообщениеДляОбсуждения.Дата  = ТекущаяДата();
 СообщениеДляОбсуждения.Автор = ПолучитьИД(Автор);
 СообщениеДляОбсуждения.Получатели.Добавить(ПолучитьИД(ПолучательОповещенияВСистемеВзаимодействия));
 СообщениеДляОбсуждения.Текст = Новый ФорматированнаяСтрока("текст обсуждения");
 СообщениеДляОбсуждения.Записать();