Помогите с запросом по регистру

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

	// Подготовка к заполнению выходных форм данными запроса
	Таб = СоздатьОбъект("Таблица");
	Таб.ИсходнаяТаблица("Сформировать");
	// Заполнение полей "Заголовок"
	Таб.ВывестиСекцию("Заголовок");
	Состояние("Заполнение выходной таблицы...");
	Таб.Опции(0, 0, Таб.ВысотаТаблицы(), 0);
	Пока Запрос.Группировка(1) = 1 Цикл
		// Заполнение полей Номенклатура
		Таб.ВывестиСекцию("Номенклатура");
		Пока Запрос.Группировка(2) = 1 Цикл
			// Заполнение полей МестоХранения
			Таб.ВывестиСекцию("МестоХранения");
		КонецЦикла;
	КонецЦикла;
	// Заполнение полей "Итого"
	Таб.ВывестиСекцию("Итого");
	// Вывод заполненной формы
	Таб.ТолькоПросмотр(1);
	Таб.Показать("Сформировать", "");