v7: Помогите разобраться с кодом

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

Пока Запрос.Группировка(1)=1 Цикл
Док = Запрос.Док;
тз.НоваяСтрока();
тз.ДатаДок = Запрос.ДатаДок;
тз.НомерДок = Запрос.НомерДок;
тз.Контрагент = Запрос.Контрагент;
тз.НеОпл = Запрос.НеОпл;
тз.Сумма = Запрос.Док.Итог("Сумма");
КонецЦикла;

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

Пока ЗапросДоходы.Группировка(1)=1 Цикл
Док = ЗапросДоходы.Док;
тз.НоваяСтрока();
тз.ДатаДок = ЗапросДоходы.ДатаДок;
тз.НомерДок = ЗапросДоходы.НомерДок;
тз.Контрагент = ЗапросДоходы.Контрагент;
тз.НеОпл = ЗапросДоходы.НеОпл;
тз.Сумма = ЗапросДоходы.Сумма;
тз.Админ = ЗапросДоходы.Админ;
тз.Цех = ЗапросДоходы.Цех;
тз.Сотрудник = ЗапросДоходы.Сотрудник;
тз.Услуга = ЗапросДоходы.Услуга;
Если тз.НеОпл = 0 Тогда
Итог = тз.Итог("Сумма");
Иначе
Продолжить;
КонецЕсли;
КонецЦикла;

Таб1 = СоздатьОбъект("Таблица");
Таб1.ИсходнаяТаблица("Доходы");
Таб1.ВывестиСекцию("Шапка");

тз.ВыбратьСтроки();
НомПП = 0;
Пока тз.ПолучитьСтроку()=1 Цикл

НомПП = НомПП + 1;
Если тз.НеОпл = 0 Тогда
Таб1.ВывестиСекцию("Строка");
Иначе
Продолжить;
КонецЕсли
КонецЦикла;
Таб1.ВывестиСекцию("Итог");
Таб1.Опции(0);
Таб1.Показать();
КонецЕсли
КонецПроцедуры
Процедура ПриОткрытии()
Долги=1
КонецПроцедуры;

Нужно отобрать документы последующим критериям: контрагент, цех, исполнитель, администратор и номенклатура. Так-же необходимо выбрать все строки из табличной части документов за определенный период и по фильтру. Почему-то в таблицу выводится только по одной строке из каждого документа. Помогите пожалуйста, 4 день ковыряюсь...