Получение остатков регистра запросом, с группировкой по продукту и цене

  ДатаК=РабочаяДата(); 

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

ТекстЗапроса= 

"//{{ЗАПРОС(ОстаткиТоваров) 

|Период с '01.01.1990' по ДатаК; 

|Продукт=Регистр.ПродОст.Продукция; 

|Цена=Регистр.ПродОст.Цена; 

|Колво=Регистр.ПродОст.Количество; 

|Вес=Регистр.ПродОст.Вес; 

|Функция КолвоНачОст=НачОст(КолВо); 

|Функция КолвоПриход=Приход(КолВо); 

|Функция КолвоРасход=Расход(КолВо); 

|Функция КолвоКонОст=КонОст(КолВо); 

|Функция ВесНачОст=НачОст(Вес); 

|Функция ВесПриход=Приход(Вес); 

|Функция ВесРасход=Расход(Вес); 

|Функция ВесКонОст=КонОст(Вес); 

|Группировка Продукт; 

|Группировка Цена; 

|"//}}ЗАПРОС 

; 

Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда 

  Возврат; 

КонецЕсли; 

Сообщить("1");  

//... код вывода

Пока Запрос.Группировка("Продукт") = 1 Цикл 

  Сообщить("2"); 

  //... код вывода

  Пока Запрос.Группировка("Продукт") = 1 Цикл 

      Сообщить("3");

	  //... код вывода

  КонецЦикла; 

КонецЦикла; 

Сообщить("4");

//... код вывода