"уменя вопрос дорогие специалисты!<br><br>Нужно добавить в ценник комментарий когда из СправочникНоменклатура хочу розпечатать несколько ценников то ПечКомментарий не оявляется а когда только один ценник тогда нормально он показывает? <br><br>вот моя процедура из Форма-Справочник.Номенклатура.ФормаСписка.ФормаСписка<br><br><br>// ===============================<br>Процедура ПечатьЦенника()<br> Перем ПечЕдиница, ПечНаименование, ПечКомментарий, ПечРозн;<br> Перем ЦенаТовара;<br> Перем Таб;<br> Перем ЧислоСтрок;<br> Перем Столбик;<br> Перем Ряд;<br> <br><br> // Создание Таблицы для выходного отчета<br> Таб=СоздатьОбъект("Таблица");<br> Таб.ИсходнаяТаблица("Ценник");<br> ЧислоСтрок=0;<br> Столбик=3;<br> Ряд=8;<br><br> ВыбТовар=ТекущийЭлемент();<br> <br> Если ПустоеЗначение(ВыбТовар) = 1 Тогда<br> Предупреждение("Выберите товар или группу товаров!");<br> Возврат;<br> КонецЕсли;<br> <br> Если ВыбТовар.ЭтоГруппа()=1 Тогда<br> Тов = СоздатьОбъект("Справочник.Номенклатура");<br> Тов.ВключатьПодчиненные(1);<br> Тов.ИспользоватьРодителя(ВыбТовар);<br> Тов.ВыбратьЭлементы();<br> Пока Тов.ПолучитьЭлемент()>0 Цикл<br> Если Тов.ПометкаУдаления()=1 Тогда<br> Продолжить;<br> КонецЕсли;<br> Если Тов.ЭтоГруппа()=1 Тогда<br> Продолжить;<br> КонецЕсли; <br> <br> ПечНаименование=Тов.ПолнНаименование;<br> ЦенаТовара = глВернутьЦену(Тов,ТипЦены);<br> Если ПустоеЗначение(ЦенаТовара) = 1 Тогда<br> // пропускаем товары без цен<br> Продолжить;<br> КонецЕсли;<br> <br> ПечКомментарий = Комментарий;<br> ПечЕдиница = ЦенаТовара.Единица.Получить(РабочаяДата());<br> ВремЦена = ЦенаТовара.Цена.Получить(РабочаяДата());<br> <br> ПечРозн = СокрЛ(Формат(ВремЦена,"Ч15.2"))+" "+ЦенаТовара.Валюта.Получить(РабочаяДата()).Кратко;<br> <br> Столбик=?(Столбик=0,1,0);;<br> Ряд=?(Столбик=0,Ряд+1,Ряд);<br> Если Ряд>8 Тогда<br> Таб.НоваяСтраница();<br> Ряд=1;<br> КонецЕсли;<br> Если Столбик=0 Тогда<br> Таб.ВывестиСекцию("Товар|Ценник");<br> Иначе<br> Таб.ПрисоединитьСекцию("Товар|Ценник");<br> КонецЕсли;<br> глОживить(1);<br> КонецЦикла;<br> Иначе <br><br> ПечНаименование=ВыбТовар.ПолнНаименование;<br> ЦенаТовара = глВернутьЦену(ВыбТовар,ТипЦены);<br> Если ПустоеЗначение(ЦенаТовара) = 1 Тогда<br> // не печатаем товар без цены<br> Предупреждение("У товара "+ВыбТовар.Наименование+РазделительСтрок+<br> "не найден тип цены '"+ТипЦены.Наименование+"'");<br> Возврат;<br> КонецЕсли;<br> <br> ПечЕдиница = ЦенаТовара.Единица.Получить(РабочаяДата());<br> ВремЦена = ЦенаТовара.Цена.Получить(РабочаяДата());<br> <br> ПечРозн = СокрЛ(Формат(ВремЦена,"Ч15.2"))+" "+ЦенаТовара.Валюта.Получить(РабочаяДата()).Кратко;<br> Таб.ВывестиСекцию("Товар");<br> КонецЕсли;<br> //Вызов выходного отчета в окно просмотра и редактирования.<br> Таб.Опции(0,0,0,0,ПарСтрСпр);<br> Таб.Защита(Константа.ФлагЗащитыТаблиц);<br> Таб.ТолькоПросмотр(1);<br> Таб.Показать("Ценник товаров","""");<br> ВыбТовар=0;<br>КонецПроцедуры<br><br>"