Создание обсуждения для системы взаимодействия.

                                Если НЕ СистемаВзаимодействия.ИнформационнаяБазаЗарегистрирована() Тогда

		Возврат;

	КонецЕсли;
	
	//Количество задач у пользователей.
	КоличествоЗадач = ПолучениеКоличестваЗадач();
	
	Пользователей = СистемаВзаимодействия.ПолучитьПользователей();
	
	ТаблЗначПользователи = ПреобразованиеМассивВТаблицуЗначений(Пользователей);
	
	//Отсекаем пользователей,которые не подключены к серверу взаимодействия
	Запрос = Новый Запрос;
	Запрос.Текст = 
		"ВЫБРАТЬ
		|	ПользователиЗадач.ИсполнительДелегатИдентификаторПользователяИБ КАК ИдентификаторыПользователей,
		|	ПользователиЗадач.ЗадачиМнеВсего КАК ВсегоЗадач,
		|	ПользователиЗадач.ЗадачиМнеНовые КАК Новые,
		|	ПользователиЗадач.ЗадачиМнеПросроченные КАК Просроченные
		|Поместить ПользователиЗадач
		|ИЗ
		|	&ПользователиЗадач КАК ПользователиЗадач
		|;
		|
		|////////////////////////////////////////////////////////////­////////////////////
		|
		|ВЫБРАТЬ
		|	ПользователиСервераВзаимодействия.Идентификатор КАК Идентификатор 
		|Поместить ПользователиСервераВзаимодействия
		|ИЗ
		|	&ПользователиСервераВзаимодействия КАК ПользователиСервераВзаимодействия
		|;
		|
		|////////////////////////////////////////////////////////////­////////////////////
		|
		|ВЫБРАТЬ
		|	ПользователиСервераВзаимодействия.Идентификатор КАК Идентификатор,
		|	ПользователиЗадач.ВсегоЗадач КАК ВсегоЗадач,
		|	ПользователиЗадач.Новые КАК Новые,
		|	ПользователиЗадач.Просроченные КАК Просроченные
		|ИЗ
		|	ПользователиСервераВзаимодействия КАК ПользователиСервераВзаимодействия
		|		ВНУТРЕННЕЕ СОЕДИНЕНИЕ ПользователиЗадач КАК ПользователиЗадач
		|		ПО ПользователиСервераВзаимодействия.Идентификатор = ПользователиЗадач.ИдентификаторыПользователей
		|";
	Запрос.УстановитьПараметр("ПользователиСервераВзаимодействия",ТаблЗначПользователи);
	Запрос.УстановитьПараметр("ПользователиЗадач",КоличествоЗадач);
	
	РезультатЗапроса = Запрос.Выполнить();
	
	ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
	
	Пока ВыборкаДетальныеЗаписи.Следующий() Цикл 
		//Получаем идентификатор сервера взаимодействия из ТЧ,т.к. в запросе данный тип нельзя использовать.
		НайденнаяСтрока = ТаблЗначПользователи.Найти(ВыборкаДетальныеЗаписи.Идентификатор,"Идентификатор");
		
		Если НайденнаяСтрока <> Неопределено Тогда
			КлючОбсуждения = Строка(НайденнаяСтрока.ИдентификаторСервераВзаимодействия) +" - "+ Строка(Пользователей[3].ИдентификаторПользователяИнформационнойБазы);

			Обсуждение = СистемаВзаимодействия.ПолучитьОбсуждение(КлючОбсуждения);
			
			Если Обсуждение = Неопределено Тогда

				Обсуждение = СистемаВзаимодействия.СоздатьОбсуждение();
				
				Обсуждение.Групповое = Ложь;

				Обсуждение.Ключ = КлючОбсуждения;

				Обсуждение.Заголовок = "Уведомления о согласовании документов в Документообороте";

				Обсуждение.Участники.Добавить(НайденнаяСтрока.ИдентификаторСервераВзаимодействия);

				Обсуждение.Записать();
				
			КонецЕсли;
		КонецЕсли;		 

		Сообщение = СистемаВзаимодействия.СоздатьСообщение(Обсуждение.Идентификатор);
		
		Сообщение.Автор = Пользователей[3].ИдентификаторПользователяИнформационнойБазы;
		
		Сообщение.Получатели.Добавить(НайденнаяСтрока.ИдентификаторСервераВзаимодействия);
		
		Текст = "Количество всего задач: " + ВыборкаДетальныеЗаписи.ВсегоЗадач + Символы.ПС + "Количество просроченных задач: " + ВыборкаДетальныеЗаписи.Просроченные + Символы.ПС + "Количество новых задач: " + ВыборкаДетальныеЗаписи.Новые;	 
		 
		Сообщение.Текст = Новый ФорматированнаяСтрока(Текст);

		Сообщение.Записать();

	КонецЦикла;