v7: Помогите по запросу 1С 7.7

День добрый!Суть отчета показать определенный неликвидный товар в складе который не продавался в определенный период.

Вот что я накалякал:

Перем Запрос, ТекстЗапроса;
//*******************************************
Процедура Сформировать()
тз=создатьобъект("ТаблицаЗначений");
тз.новаяколонка("Фирма");
тз.новаяколонка("Склад");
тз.новаяколонка("Номенклатура");
тз.новаяколонка("Колприход");
тз.новаяколонка("Колрасход");
тз.новаяколонка("Начост");
тз.новаяколонка("Коност");
тз.новаяколонка("НачСумма");
тз.новаяколонка("ПрихСумма");
тз.новаяколонка("РасхСумма");
тз.новаяколонка("КонСумма");
тз.новаяколонка("КодОперации");
тз.новаяколонка("ЦенаПрод");

//инициация таблицы
Таблица = СоздатьОбъект("Таблица");
Таблица.ИсходнаяТаблица("Таблица");
Таблица.Опции(0,0,0,0);
Таблица.ВывестиСекцию("Шапка");
НомСтроки = 0;
//конец инициации
//*******************************************************************

//*******************************************************************
//формирование запроса
Запрос = СоздатьОбъект("Запрос");
ТекстЗапроса="

|ПЕРИОД С ДатаНачала По ДатаКонца;
|Фирма = Регистр.ОстаткиНаСкладах.Склад.Фирма;
|Склад = Регистр.ОстаткиНаСкладах.Склад;
|Номенклатура = Регистр.ОстаткиНаСкладах.Товар;
|Сумма = Регистр.ОстаткиНаСкладах.Сумма;
|Количество = Регистр.ОстаткиНаСкладах.Количество;
|ЦенаПрод = Регистр.ОстаткиНаСкладах.Ценапрод;
|";
//*****************************************************************
ТекстЗапроса = ТекстЗапроса + "
|Группировка Номенклатура без групп;";
//|Группировка КодОперации;";
ТекстЗапроса = ТекстЗапроса +
"Функция НачКоличество = НачОст(Количество);
|Функция ПрихКоличество = Приход(Количество);
|Функция РасхКоличество = Расход(Количество);
|Функция КонКоличество = КонОст(Количество);";
ТекстЗапроса = ТекстЗапроса +
"Функция НачСумма = НачОст(Сумма);
|Функция ПрихСумма = Приход(Сумма);
|Функция РасхСумма = Расход(Сумма);
|Функция КонСумма = КонОст(Сумма);";
//"Условие (КодОперации<>Перечисление.КодыОпераций.Продажа);"
//"Условие (КодОперации=Перечисление.КодыОпераций.Перемещение);"

//********************************************************************

//********************************************************************
Если ВыбСклад.Выбран() = 1 Тогда
ТекстЗапроса = ТекстЗапроса +
"Условие (Склад = ВыбСклад);";
КонецЕсли;

Если ВыбНом.Выбран() = 1 Тогда
ТекстЗапроса = ТекстЗапроса +
"Условие (Номенклатура = ВыбНом);";
КонецЕсли;

Если ВыбФирма.Выбран() = 1 Тогда
ТекстЗапроса = ТекстЗапроса +
"Условие (Фирма = ВыбФирма);";

КонецЕсли;

//*****************************************************************************************

// Если колво>0 тогда
//
// если выбзнач.получитьзначение(выбзнач.текущаястрока()) = ">" тогда
// ТекстЗапроса = ТекстЗапроса +
// "Условие(количество>колво);"; //оператор1
// Иначеесли выбзнач.получитьзначение(выбзнач.текущаястрока()) = "<" тогда
// ТекстЗапроса = ТекстЗапроса +
// "Условие(количество<колво);"; //оператор2
// Иначеесли выбзнач.получитьзначение(выбзнач.текущаястрока()) = "=" тогда
// ТекстЗапроса = ТекстЗапроса +
// "Условие(количество=колво);"; //оператор3
// конецесли
//
// Конецесли;
//
//
//**************************************************************************************
//конец блока формирования запроса

Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
сообщить("запрос упал!!!");
Возврат;

КонецЕсли;

//***********************************************************************

//цикл обработки запроса
//***********************************************************************
СуммаВсегоПриход=0;
НомСтроки=1;
//сообщить(текстзапроса);
пока Запрос.группировка(1) = 1 цикл
//пока Запрос.группировка(2) = 1 цикл
Если запрос.КонКоличество <> 0 тогда
Ценаприход = запрос.сумма/запрос.конколичество;
СуммаВсегоПриход=суммаВсегоПриход+Ценаприход;
Таблица.ВывестиСекцию("Строка");
НомСтроки=НомСтроки+1;
КонецЕсли;
//Сообщить("куда дели "+запрос.номенклатура+" ?");
//конецесли;

тз.новаястрока();
тз.Фирма=запрос.фирма;
тз.Склад=запрос.склад;
тз.Номенклатура=запрос.номенклатура;
тз.Колприход=запрос.ПрихКоличество;
тз.Колрасход=запрос.РасхКоличество;
тз.Начост=запрос.НачКоличество;
тз.Коност=запрос.КонКоличество;
тз.НачСумма=запрос.начсумма;
тз.ПрихСумма=запрос.прихсумма;
тз.РасхСумма=запрос.расхсумма;
тз.КонСумма=запрос.консумма;
//тз.КодОперации=запрос.кодоперации;

Если запрос.КонКоличество < колво тогда
СуммаВсегоПриход=суммаВсегоПриход+Ценаприход;
Таблица.ВывестиСекцию("Строка");
НомСтроки=НомСтроки+1;
КонецЕсли;
Если Запрос.конколичество > колво тогда
СуммаВсегоПриход=суммаВсегоПриход+Ценаприход;
Таблица.ВывестиСекцию("Строка");
НомСтроки=НомСтроки+1;
КонецЕсли;

//***********************************************************************
//иначеЕсли Запрос.КонКоличество = 0 Тогда
//сообщить("Товар "+ запрос.номенклатура +" количество равно нулю!!!!!!");
КонецЦикла;
//КонецЦикла;
//***********************************************************************
//конец цикла обработки запроса
Таблица.Защита(0);
Если глПолучитьПолномочие("РазрешитьРедактироватьПечатнуюФорму") = 0 Тогда
Таблица.Защита(1);
КонецЕсли;
Таблица.ВывестиСекцию("Строка");
Таблица.ВывестиСекцию("Всего");
Таблица.ВывестиСекцию("Подвал");
Таблица.Показать("Отчет неликвидный товар","");

тз.выбратьстроку();
КонецПроцедуры

//******************************************************************************
Процедура ПриОткрытии()
ВыбЗнач.добавитьзначение("<",);
ВыбЗнач.добавитьзначение(">",);
ВыбЗнач.добавитьзначение("=",);
ВыбФирма = глЗначениеПоУмолчанию("Фирма");
ВыбСклад= глзначениеПоУмолчанию("Склад");
ДатаКонца = ПолучитьДатуТА();
ДатаНачала = НачМесяца(ПолучитьДатуТА());
КонецПроцедуры

//Если Условие <> "< Не выбран >" Тогда
// ТекстЗапроса = ТекстЗапроса +
// "Условие ("+Условие+"ЗначениеУсловия);";
//КонецЕсли;

Процедура тст()
сообщить(выбзнач.текущаястрока());
конецпроцедуры

Процедура выбзнач()
сообщить(выбзнач.текущаястрока());
конецпроцедуры
//******************************************************************************

//********************************************************************************