Процедура ЗаполнитьТЗ()
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| Рег.Период,
| Рег.Заявка КАК Заявка,
| Рег.Пользователь КАК Пользователь,
| Рег.Этап КАК Этап,
| Рег.Состояние КАК Состояние,
| Рег.Этап.Родитель КАК СледующийЭтап,
| Спр.СогласующиеЛица.(
| Пользователь КАК Согласующий
| ) КАК СогласующиеЛица
|ИЗ
| РегистрСведений.СостоянияСогласованияЗаявок КАК Рег
| ЛЕВОЕ СОЕДИНЕНИЕ Справочник.МаршрутыСогласования КАК Спр
| ПО Рег.Этап.Родитель = Спр.Ссылка
|ГДЕ
| Рег.Заявка = &Заявка";
Запрос.УстановитьПараметр("Заявка", ЭлементыФормы.ДокументСписок.ТекущаяСтрока);
Выборка = Запрос.Выполнить().Выбрать();
тзСписок.Очистить();
Пока Выборка.Следующий() Цикл
лкСтрока = тзСписок.Добавить();
лкСтрока.Период = Выборка.Период;
лкСтрока.Заявка = Выборка.Заявка;
лкСтрока.Пользователь = Выборка.Пользователь;
лкСтрока.Этап = Выборка.Этап;
лкСтрока.Состояние = Выборка.Состояние;
ЭтапыСогласования = Новый Массив;
ТекЭтап = Выборка.СледующийЭтап;
Пока ЗначениеЗаполнено(ТекЭтап) Цикл
ЭтапыСогласования.Добавить(ТекЭтап);
ТекЭтап = ТекЭтап.Родитель;
КонецЦикла;
// МассивСогласующих = Новый Массив;
//Тексог = Выборка.Согласующий;
//Пока ЗначениеЗаполнено(Тексог) Цикл
//МассивСогласующих.Добавить(Тексог);
//КонецЦикла;
ТЗ = Новый ТаблицаЗначений;
ТЗ.Колонки.Добавить("СледующиеЭтапы");
//ТЗ.Колонки.Добавить("СогласующиеЭтапы");
// Добавляем строки в ТЗ
Для Индекс = 0 по ЭтапыСогласования.ВГраница() Цикл
НовСтрока = ТЗ.Добавить();
КонецЦикла;
//Добавляем строки в ТЗ
//Для Индекс = 0 по МассивСогласующих.ВГраница() Цикл
// НовСтрока = ТЗ.Добавить();
//КонецЦикла;
ТЗ.ЗагрузитьКолонку(ЭтапыСогласования,"СледующиеЭтапы");
//ТЗ.ЗагрузитьКолонку(МассивСогласующих,"СогласующиеЭтапы");
лкСтрока.СледующийЭтап = СтрСоединить(ТЗ.ВыгрузитьКолонку("СледующиеЭтапы"), Символы.ПС);
лкСтрока.Согласующий = СтрСоединить(Выборка.СогласующиеЛица.Выгрузить().ВыгрузитьКолонку("Согласующий"), ",");
КонецЦикла;
КонецПроцедуры