"<pre>Дерево = РеквизитФормыВЗначение("ДеревоСвязей");<br>Дерево.Строки.Очистить();<br><br><br>Запрос = Новый Запрос; <br>Запрос.Текст = "ВЫБРАТЬ РАЗРЕШЕННЫЕ <br><span> </span>| СвязиДокументов.ТипСвязи КАК ТипСвязи, <br><span> </span>| СвязиДокументов.ДатаУстановки, <br><span> </span>| СвязиДокументов.СвязанныйДокумент, <br><span> </span>| СвязиДокументов.СвязаннаяСтрока, <br><span> </span>| СвязиДокументов.Комментарий, <br><span> </span>| 1 КАК КоличествоДокументов <br><span> </span>|ИЗ <br><span> </span>| РегистрСведений.СвязиДокументов КАК СвязиДокументов <br><span> </span>|ГДЕ <br><span> </span>| СвязиДокументов.Документ = &Документ <br><span> </span>| <br><span> </span>|УПОРЯДОЧИТЬ ПО <br><span> </span>| ТипСвязи"; Запрос.УстановитьПараметр("Документ", Объект.Ссылка); <br>Результат = Запрос.Выполнить().Выгрузить(); <br>Результат.Сортировать("ТипСвязи"); <br><br><br>ТабКоличествоСвязей = Результат.Скопировать(); <br>ТабКоличествоСвязей.Свернуть("ТипСвязи", "КоличествоДокументов"); <br><br><br>КоличествоСвязей = 0; <br><br><br>Для Каждого СтрокаТипСвязи Из ТабКоличествоСвязей Цикл <br><span> </span>НоваяСтрока = Дерево.Строки.Добавить(); <br><span> </span>НоваяСтрока.ТипСвязи = СтрокаТипСвязи.ТипСвязи; <br><span> </span>НоваяСтрока.ЭтоРодитель = Истина; <br><span> </span>НоваяСтрока.Представление = Строка(СтрокаТипСвязи.ТипСвязи) + " (" + СтрокаТипСвязи.КоличествоДокументов + ")"; <br><span> </span>НайденныеСтроки = Результат.НайтиСтроки(Новый Структура("ТипСвязи", СтрокаТипСвязи.ТипСвязи)); <br> <br><span> </span>Для Каждого НайденнаяСтрока Из НайденныеСтроки Цикл <br><span> </span>СтрокаДок = НоваяСтрока.Строки.Добавить(); <br><span> </span>СтрокаДок.ТипСвязи = НайденнаяСтрока.ТипСвязи; <br><span> </span>СтрокаДок.СвязанныйДокумент = НайденнаяСтрока.СвязанныйДокумент; <br><span> </span>СтрокаДок.СвязаннаяСтрока = НайденнаяСтрока.СвязаннаяСтрока; <br><span> </span>СтрокаДок.Комментарий = НайденнаяСтрока.Комментарий;<br> <br><span> </span>Если НайденнаяСтрока.СвязанныйДокумент.ПометкаУдаления = Истина Тогда<br><br> <span> </span>УО = УсловноеОформление.Представление.Добавить(); <br> <span> </span>УО.Оформление.УстановитьЗначениеПараметра("ЦветФона",WebЦвета.Красный); <br> <br><span> </span>КонецЕсли;<br><br> <span> </span><br><span> </span>КоличествоСвязей = КоличествоСвязей + 1; <br><span> </span>К<span>онецЦикла; </span><br><span>К</span><span>онецЦикла;</span><br><span> </span><br><span>ЗначениеВРеквизитФормы(Дерево, "ДеревоСвязей");</span><br> </pre>"