Выводится пустые строки в табличной части

Здравствуйте.... При создании нового документа "ЗаказПокупателя" по этому коду где строки не удовлетворяют заданному условию Выводятся просто пустые строки.....Как сделать так, что бы Этих строк пустых не было в табличной части форы документа?

Код
Процедура ОсновныеДействияФормыНавыйЗаказТП(Кнопка)
    // Вставить содержимое обработчика.
    ТаблицаОбработки        = Товары.Выгрузить();


    ЗП=Документы.ЗаказПокупателя.СоздатьДокумент();
    ТабличнаяЧастьТовары=ЗП.Товары;
    ЗП.Дата=ТекущаяДата();
    ЗП.Организация=Справочники.Организации.НайтиПоКоду("УТ0000002");
    //ЗП.Склад=Справочники.Склады.НайтиПоКоду("000000001");
    ЗП.Контрагент=Справочники.Контрагенты.НайтиПоКоду("000000006");



Для каждого Стр Из ТаблицаОбработки Цикл
    НоваяСтрока=ЗП.Товары.Добавить();
    Если  Стр.Номенклатура.ЭтоГруппа = Ложь
        И  (ТипЗнч(Стр.Дефицит)=Тип("Число")) и (Стр.Дефицит > 0) Тогда;
    //ЗаполнитьЗначенияСвойств(НоваяСтрока, Стр);//Заполняем одинаковые колонки
    НоваяСтрока.Номенклатура=Стр.Номенклатура;// дополняешь различающиеся по кимени колонки
    НоваяСтрока.ХарактеристикаНоменклатуры=Стр.ХарактеристикаНоменклатуры;
    НоваяСтрока.Количество=Стр.Дефицит;
    КонецЕсли;
    //КонецЕсли;
КонецЦикла;

    ЗП.Записать();
    //}}КОНСТРУКТОР_ЗАПРОСА_С_ОБРАБОТКОЙ_РЕЗУЛЬТАТА



КонецПроцедуры