Удаление нулевых строк в таблице...1с Автосервис

"Здравствуйте!!!
У меня возникла проблема, есть небольшой отчет, который выводит всего 4 столбика:

№ /Цех-ФИО / Количество Н/ Ч с [ДатаНачала] / Сумма выработки с [ДатаНачала] / Заработная плата с [ДатаНачала]

Соответственно, документ делает вывод всех сотрудников, у которых и есть суммы, у которых сумм нет...

Как сделать так, чтобы сотрудники у которых ЗП = 0 не выводились вообще в отчете?

Я начинающий, но очень интересно..делается это запросом или нет?

Вот код Модуля:
//*****************************************
//*******************************************
Процедура Сформировать()
Перем ВидРемонта[2];
Если ДатаКонца>ПолучитьДатуТА() Тогда
Предупреждение("Получить отчет за датой актуальности итогов невозможно");
Возврат;
КонецЕсли;
ВидРемонта[1]=Перечисление.ВидыРемонта.Текущий;
ВидРемонта[2]=Перечисление.ВидыРемонта.ПоГарантии;
Цех=СоздатьОбъект("Справочник.Цеха");
Исп=СоздатьОбъект("Справочник.Исполнители");
Рег=СоздатьОбъект("Регистр.ОбъемРабот");
Таб=СоздатьОбъект("Таблица");
Таб.ИсходнаяТаблица("Таблица");
Таб.ПовторятьПриПечатиСтроки(3,3);
Таб.ВывестиСекцию("Шапка");
Цех.ВыбратьЭлементы();
Ном=0;
Пока Цех.ПолучитьЭлемент()=1 Цикл
СумКолНЧ=0;
ЗП=0;
СумКолРуб=0;
ТекДата=ДатаНачала;
Пока Дата(ТекДата)<=ДатаКонца Цикл
ПроцНДС=Константа.ОсновнаяСтавкаНДС.Значение.Получить(ТекДата);
БезНДС=1-ПроцНДС/(100+ПроцНДС);
Рег.ИспользоватьПериод(ДатаГод(ТекДата),ДатаМесяц(ТекДата),ДатаЧисло(ТекДата));
КолНЧЗаДень=0;
КолРубЗаДень=0;
ЗП=0;
Для Н=1 По 2 Цикл
Рег.СводныеИтоги(ВидРемонта[Н],Цех.ТекущийЭлемент(),);
КолНЧ=Рег.ОбъемНал+Рег.ОбъемБезНал+Рег.ОбъемНеОплач;
КолНЧЗаДень=КолНЧЗаДень+КолНЧ;
СумКолНЧ=СумКолНЧ+КолНЧ;
КолРуб=Пересчет(КолНЧ,Константа.ОсновнаяВалютаУслуги,Рубли,ТекДата);
КолРуб=КолРуб*БезНДС;
КолРубЗаДень=КолРубЗаДень+КолРуб;
СумКолРуб=СумКолРуб+КолРуб;
ЗП=СумКолРуб*0.400;
КонецЦикла;
ТекДата=ТекДата+1;
КонецЦикла;
Таб.ВывестиСекцию("Цех");
Исп.ИспользоватьВладельца(Цех.ТекущийЭлемент());
Исп.ВыбратьЭлементы();
Пока Исп.ПолучитьЭлемент()=1 Цикл
Если Исп.ЭтоГруппа()=1 Тогда
Продолжить;
КонецЕсли;
Ном=Ном+1;
СумКолНЧ=0;
СумКолРуб=0;
ЗП=0;
ТекДата=ДатаНачала;
Пока Дата(ТекДата)<=ДатаКонца Цикл
ПроцНДС=Константа.ОсновнаяСтавкаНДС.Значение.Получить(ТекДата);
БезНДС=1-ПроцНДС/(100+ПроцНДС);
Рег.ИспользоватьПериод(ДатаГод(ТекДата),ДатаМесяц(ТекДата),ДатаЧисло(ТекДата));
КолНЧЗаДень=0;
КолРубЗаДень=0;
Для Н=1 По 2 Цикл
Рег.Итоги(ВидРемонта[Н],Цех.ТекущийЭлемент(),Исп.ТекущийЭлемент());
КолНЧ=Рег.ОбъемНал+Рег.ОбъемБезНал+Рег.ОбъемНеОплач;
КолНЧЗаДень=КолНЧЗаДень+КолНЧ;
СумКолНЧ=СумКолНЧ+КолНЧ;
КолРуб=Пересчет(КолНЧ,Константа.ОсновнаяВалютаУслуги,Рубли,ТекДата);
КолРуб=КолРуб*БезНДС;
КолРубЗаДень=КолРубЗаДень+КолРуб;
СумКолРуб=СумКолРуб+КолРуб;
ЗП=СумКолРуб*0.400;
КонецЦикла;
ТекДата=ТекДата+1;
КонецЦикла;

Таб.ВывестиСекцию("Строка");

КонецЦикла;
КонецЦикла;

Таб.Защита(Константа.ФлагЗащитыТаблиц);
Таб.ТолькоПросмотр(1);
Таб.Опции(0,0,3,0,Портрет);
Таб.ПараметрыСтраницы(1,,,Константа.ПолеСлева,Константа.ПолеСправа,Константа.ПолеСверху,Константа.ПолеСнизу,,,1);
Таб.Показать("Персональная выработка","""");
КонецПроцедуры
//--------------------------------------


ДатаКонца=ПолучитьДатуТА();
ДатаНачала=НачМесяца(ДатаКонца);
//*********************************************


Заранее всем спасибо))))"

переписать отчёт "в запрос"

я пока в запросах не мастак....как?

> я пока в запросах не мастак....как?

структура регистра ОбъемРабот
+ он оборотный или остатков ?