7.7 Автозаполнение табличной части номенклатурой с положительным остатком

Подскажите пожалуйста, (самодельная кофига, многократно переписанная разными специалистами). Начальству потребовался документ для корректировки цен, при создании документа по кнопочке должна заполняться табличная часть выборкой из номенклатуры (всех позиций имеющих остаток больше 0).
Повыдирал из чужого кода в этой базе похожие функции и насколько смог скомпоновал их, сейчас выборка делает в табличной части только номер по порядку и количество остатков из регистра. никак не соображу как прилепить наименование номенклатуры чтоб от него уже плясать с заполнением закупочной и продажной стоимости.

Код:

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

утро оказалось мудреннее вечера ))

Код:

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

Реквизиты стало нормально цеплять, а вот само наименование товара не берет ((
Подскажите как получить Наименование товара, если его нет в списке обычных реквизитов у номенклатуры ?
Точнее как правильно получить встроенный, а не добавленный реквизит.

а если не так

Код:

Наименование=Товар.Наименование; // а вот это не работает.

а так

Код:

Наименование=Товар;

;-)

PS
да и код по идее "долгий" по выполнению, столько раз регистр построчно дёргать
по идее лучше один раз запросом из регистра взять данные (по условиям) и поместить в ТЗ а уж потом с ней работать

Спасибо большое! вот оказывается как все просто )))
насчет времени, пока спасает маленькая база, в выборке всего 400 строк. С 1С я пока на уровне копи-паста+метод тыка )))
и ещё один вопрос, откуда то берется пустая первая строка.

наверное потому что при входе в процедуру
стоит НоваяСтрока

Код:

Процедура ЗаполняемОстатками()
НоваяСтрока();

и потом , когда условие сработало, снова НоваяСтрока

--- Объединение сообщений, 5 апр 2014 ---

желательно избегать конструкций с двумя "."
типа такой

Код:

Регистр.ОстаткиТоваров.Остаток(СпрТов.ТекущийЭлемент()

код примерно так надо

Код:

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

Спасибо за совет!
а по поводу новой строки в начале, если убираю, то без неё код не выполняется вообще((

Спасибо большое! УдалитьСтроки(); как раз то что надо! теперь идеально работает.
и даже намного быстрее стало выполняться с остатком где 1 запрос вместо двух.

Как то не подумал об этом )) вставил, Спасибо за подсказку!