S
Sollomon
Буду краток, вылаживаю код:
В Если(Иначе), где стоят знаки вопроса.
В Если(Иначе), где стоят знаки вопроса.
Код:
Процедура Печать()
СпрТов = СоздатьОбъект("Справочник.Номенклатура");
СпрТов.ПорядокКодов();
СпрТов.ВыбратьЭлементы();
Таб = СоздатьОбъект("Таблица");
Таб.ИсходнаяТаблица("Таблица");
Таб.ВывестиСекцию("Шапка");
Пока СпрТов.ПолучитьЭлемент() = 1 Цикл
ТЭ = СпрТов.ТекущийЭлемент();
Если ТЭ.ЭтоГруппа() = 1 Тогда
Код = ТЭ.Код;
Наз = ТЭ.Наименование;
Таб.ВывестиСекцию("Группа");
Иначе
Код = ТЭ.Код;
Наз = ТЭ.Наименование;
ЕдИ = Строка(ТЭ.ЕдИзм);
?? ЦенаПост = Строка(ТЭ.ЦенаП);
?? ЦенаРеал = Строка(ТЭ.ЦенаР);
Таб.ВывестиСекцию("Элемент");
КонецЕсли;
КонецЦикла;
Таб.ТолькоПросмотр(1);
Таб.ПараметрыСтраницы(1,100,1);
Таб.Показать("");
КонецПроцедуры