Запрос по регистру

необходимо выдернуть из регистра розничные цены на печать, текущей датой, номенклатура из таблицы поступлениев розницу , делаю запрос, но не попадают первая и последняя позиции номенклатуры и мешаются некоторые еще.
Вот кусок текста с запросом

СЗНоменклатуры = СоздатьОбъект("СписокЗначений");
ВыгрузитьТабличнуюЧасть(СЗНоменклатуры, "Номенклатура");

Запрос = СоздатьОбъект("Запрос");

ДатаЗапроса = РабочаяДата();

ТекстЗапроса = "
|Период с ДатаЗапроса;
|Номенклатура = Регистр.ОстаткиТМЦ.Номенклатура;
|ЦенаПрод = Регистр.ОстаткиТМЦ.ЦенаПрод;
|Количество = Регистр.ОстаткиТМЦ.Количество;
|Условие (Номенклатура в СЗНоменклатуры);
|Функция ОстКоличество = КонОст(Количество);
|Группировка Номенклатура;
|Группировка ЦенаПрод;
|";

ТаблицаДокумента = СоздатьОбъект("ТаблицаЗначений");
ВыгрузитьТабличнуюЧасть(ТаблицаДокумента, "Номенклатура, РозничнаяЦена, Коэффициент");

Запрос.Выполнить(ТекстЗапроса);

ПечДок="Накладная №"+глНомерНаПечать(ТекущийДокумент())+" от "+ДатаДок;

Пока Запрос.Группировка("Номенклатура") = 1 Цикл
Пока Запрос.Группировка("ЦенаПрод") = 1 Цикл
НомСтроки = 0;
ТаблицаДокумента.НайтиЗначение(Запрос.Номенклатура, НомСтроки, "Номенклатура");
Сообщить(НомСтроки);
Если НомСтроки <> 0 Тогда
ТаблицаДокумента.ПолучитьСтрокуПоНомеру(НомСтроки);

ПечЦена = Запрос.ЦенаПрод;
КонецЕсли;

ПечСтрана="Страна: "+ТаблицаДокумента.Номенклатура.СтранаПроисхождения;
ПечНаименование=ТаблицаДокумента.Номенклатура.Наименование;
ПечАртикул="Артикул "+ТаблицаДокумента.Номенклатура.Артикул;
Если НомВСтроке>3 Тогда
Если Строк>7 Тогда
строк=0;
Таб.НоваяСтраница();
КонецЕсли;
НомВСтроке=1;
КонецЕсли;
Если НомВСтроке=1 Тогда
Таб.ВывестиСекцию("СтрокаЭтикетки|СтолбецЭтикетки");
Строк=Строк+1;
НомВСтроке=НомВСтроке+1;
Иначе //Если НомВСтроке>1 Тогда
Таб.ПрисоединитьСекцию("СтрокаЭтикетки|СтолбецЭтикетки");
НомВСтроке=НомВСтроке+1;
КонецЕсли;
КонецЦикла;
КонецЦикла;