8.х Проблема с выводом в макет печатной формы

Имеется документ с ТЧ,в которой указывается в какую смену,в какой месяц и где проводилась тренировка. Смен может быть несколько одинаковых,соответственно и записей с ними будет несколько.
Задача = для каждой НЕПОВТОРЯЮЩЕЙСЯ смены вывести записи месяца и места тренировки НА ОДНОЙ СТРОКЕ.
Натолкните на мысль пожалуйста господа товарищи граждане.ломаю мозг уже давно,а решения все нет.пробовал реализовать через таблицу значений,пробовал простым методом в лоб. Но что то где то упускаю.

Код:

ТЧ = ДанныеПечати.Подразделения;
ТЗ = ТЧ.Выгрузить();
ТЗ.Свернуть("Смена");

Для Каждого СтрокаТЗ Из ТЗ Цикл
Номер = 1;
ОбластьПерваяСтрока.Параметры.Смена = СтрокаТЗ.Смена;
СтрокиМесяцевМест = ТЗ.НайтиСтроки(Новый Структура("Смена", СтрокаТЗ.Смена));
ОбластьПерваяСтрока.Параметры.ВсегоСмена = Номер;	
Для Каждого СтрокаМесяцевМест Из СтрокиМесяцевМест Цикл
Номер = Номер + 1;
ОбластьПерваяСтрока.Параметры.ВсегоСмена = Номер;
ОбластьПерваяСтрока.Параметры.Цеховые = СтрокаТЗ.Цеховые;
ОбластьПерваяСтрока.Параметры.Объектовые = СтрокаТЗ.Объектовые;
ОбластьПерваяСтрока.Параметры.Совместные = СтрокаТЗ.Совместные;
ТабличныйДокумент.Вывести(ОбластьПерваяСтрока);
КонецЦикла;
КонецЦикла;

Выводит только по дной строке для каждой смены.Забыл добавить. В таблице 3 колонки - Цеховые, объектовые и совместные.требуется для каждой смены вывести все записи с ней для каждого вида тренировки на одной строке.то есть смена например Дневная и для нее все записи на одной строке должны быть. Данный код выше выводит каждую смена,но только с одной записью.

соврал.код выше не работает, должно быть

Код:

ОбластьПерваяСтрока.Параметры.Цеховые = ТекстСтрокиЦех;
ОбластьПерваяСтрока.Параметры.Объектовые = ТекстСтрокиОб;
ОбластьПерваяСтрока.Параметры.Совместные = ТекстСтрокиСов;

Вид таблицы - Посмотреть вложение 14481

ТЧ в документе - Посмотреть вложение 14480

{Документ.ГрафикПодготовок.МодульМенеджера(325)}: Поле объекта не обнаружено (Цеховые)
Цеховые = "" + Цеховые + Символы.ПС + СтрокаМесяцевМест.Цеховые;

В отладчике глянул - там всего одна колонка "Смена"

Метод объекта не обнаружен (НайтиСтроки)

Код:

ТЧ = ДанныеПечати.Подразделения;
ТЗ = ТЧ.Выгрузить();
ТЗ.Свернуть("Смена");

в ТЧ есть все колонки, а вот когда выгружаешь в ТЗ то выгружается только колонка "Смена".почему?

Так, с колонками разобрался. Нужно было не

Код:

ТЗ.Свернуть("Смена")

, а

Код:

 ТЗ.Свернуть("Смена", "ВидТренировки, МесяцПроведения, Местопроведения")

Осталось разобратся почему не выводятся данные в строки.

При вашем варианте после сворачивания колонки "Смена" куда о пропадали остальные 3...почему даже представить не могу, но отладчик есть отладчик

Огромное спасибо за помощь! Таки заставил заработать
Исходный код

Код:

ОбластьПерваяСтрока = Макет.ПолучитьОбласть("Таблица");
ОбластьСледующиеСтроки = Макет.ПолучитьОбласть("Следующее");
ДанныеСмены = ДанныеПечати.Подразделения.Выбрать();

ТЧ = ДанныеПечати.Подразделения.Выгрузить();
ТЗ = ТЧ.Скопировать();
ТЗ.Свернуть("Смена", "ВидТренировки, МесяцПроведения, Местопроведения");

Для Каждого СтрокаТЗ Из ТЗ Цикл
ОбластьПерваяСтрока.Параметры.Смена = СтрокаТЗ.Смена;
СтрокиМесяцевМест = ТЧ.НайтиСтроки(Новый Структура("Смена", СтрокаТЗ.Смена));
Всего = 0;
Цеховые = "";
Объектовые = "";
Совместные = "";
Для Каждого СтрокаМесяцевМест Из СтрокиМесяцевМест Цикл
Если ДанныеПечати.ВидПодготовки = Справочники.ФормыРаботыСПерсоналом.ПротивопожарнаяТренировка Тогда
Если СтрокаМесяцевМест.ВидТренировки = Справочники.ФормыРаботыСПерсоналом.Цеховые Тогда
Цеховые = СокрЛП("" + Цеховые+ Символы.ПС + Строка(ФункцииДляСКД.ПолучитьКвартал(СтрокаМесяцевМест.МесяцПроведения)) + "(" + Строка(СтрокаМесяцевМест.МестоПроведения)+")");
ИначеЕсли СтрокаМесяцевМест.ВидТренировки = Справочники.ФормыРаботыСПерсоналом.Объектовые Тогда
Объектовые = СокрЛП("" + Объектовые+ Символы.ПС + Строка(ФункцииДляСКД.ПолучитьКвартал(СтрокаМесяцевМест.МесяцПроведения)) + "(" + Строка(СтрокаМесяцевМест.МестоПроведения)+")");
ИначеЕсли СтрокаМесяцевМест.ВидТренировки = Справочники.ФормыРаботыСПерсоналом.Совместные Тогда
Совместные = СокрЛП("" + Совместные+ Символы.ПС + Строка(ФункцииДляСКД.ПолучитьКвартал(СтрокаМесяцевМест.МесяцПроведения)) + "(" + Строка(СтрокаМесяцевМест.МестоПроведения)+")");
КонецЕсли;
ИначеЕсли  ДанныеПечати.ВидПодготовки = Справочники.ФормыРаботыСПерсоналом.ПротивоаварийнаяТренировка Тогда
Если СтрокаМесяцевМест.ВидТренировки = Справочники.ФормыРаботыСПерсоналом.ЦеховыеПротивоаварийные Тогда
Цеховые = СокрЛП("" + Цеховые+ Символы.ПС + Строка(ФункцииДляСКД.ПолучитьКвартал(СтрокаМесяцевМест.МесяцПроведения)) + "(" + Строка(СтрокаМесяцевМест.МестоПроведения)+")");
ИначеЕсли СтрокаМесяцевМест.ВидТренировки = Справочники.ФормыРаботыСПерсоналом.ОбъектовыеПротивоаварийные Тогда 
Объектовые = СокрЛП("" + Объектовые+ Символы.ПС + Строка(ФункцииДляСКД.ПолучитьКвартал(СтрокаМесяцевМест.МесяцПроведения)) + "(" + Строка(СтрокаМесяцевМест.МестоПроведения)+")");
ИначеЕсли СтрокаМесяцевМест.ВидТренировки = Справочники.ФормыРаботыСПерсоналом.СовместныеПротивоаварийные Тогда
Совместные= СокрЛП("" + Совместные+ Символы.ПС + Строка(ФункцииДляСКД.ПолучитьКвартал(СтрокаМесяцевМест.МесяцПроведения)) + "(" + Строка(СтрокаМесяцевМест.МестоПроведения)+")");
КонецЕсли;   
КонецЕсли;
Всего = Всего + 1;
КонецЦикла;
ОбластьПерваяСтрока.Параметры.ВсегоСмена = Всего;
ОбластьПерваяСтрока.Параметры.Цеховые = Цеховые;
ОбластьПерваяСтрока.Параметры.Объектовые = Объектовые;
ОбластьПерваяСтрока.Параметры.Совместные = Совместные;
ТабличныйДокумент.Вывести(ОбластьПерваяСтрока);
КонецЦикла;