Нижеприведенный код не возвращает ТекущийДокумент(), хоть и не ругается
СпрЦены = СоздатьОбъект("Справочник.Цены");
РознКатегорияЦен = Константа.РозничнаяКатегорияЦен;
СпрТовары = СоздатьОбъект("Справочник.Номенклатура");
СпрТовары.ИспользоватьРодителя(ВыбТовар);
СпрТовары.ВыбратьЭлементы();
Пока СпрТовары.ПолучитьЭлемент() = 1 Цикл
Если СпрТовары.ПометкаУдаления()=1 Тогда
Продолжить;
КонецЕсли;
Если СпрТовары.ЭтоГруппа()=1 Тогда
Продолжить;
КонецЕсли;
Товар = СпрТовары.ТекущийЭлемент();
СпрЦены.ИспользоватьВладельца(Товар);
Если СпрЦены.НайтиПоРеквизиту("КатегорияЦены", РознКатегорияЦен, 0)=0 Тогда
Сообщить("У товара " + Товар + " не установлена розничная категрия цен, пропускаю.");
Продолжить;
КонецЕсли;
Сообщить(""+Товар);
Требовать и эффективности, и гибкости от одной и той же программы — все равно, что искать очаровательную и скромную жену... по-видимому, нам следует остановиться на чем-то одном из двух. Фредерик Брукс-младший