Печать ценников

Новая тема
"уменя вопрос дорогие специалисты!

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

вот моя процедура из Форма-Справочник.Номенклатура.ФормаСписка.ФормаСписка


// ===============================
Процедура ПечатьЦенника()
Перем ПечЕдиница, ПечНаименование, ПечКомментарий, ПечРозн;
Перем ЦенаТовара;
Перем Таб;
Перем ЧислоСтрок;
Перем Столбик;
Перем Ряд;


//  Создание Таблицы для выходного отчета
Таб=СоздатьОбъект("Таблица");
Таб.ИсходнаяТаблица("Ценник");
ЧислоСтрок=0;
Столбик=3;
Ряд=8;

ВыбТовар=ТекущийЭлемент();

Если ПустоеЗначение(ВыбТовар) = 1 Тогда
Предупреждение("Выберите товар или группу товаров!");
Возврат;
КонецЕсли;

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

ПечКомментарий = Комментарий;
ПечЕдиница = ЦенаТовара.Единица.Получить(РабочаяДата());
ВремЦена = ЦенаТовара.Цена.Получить(РабочаяДата());
     
ПечРозн = СокрЛ(Формат(ВремЦена,"Ч15.2"))+" "+ЦенаТовара.Валюта.Получить(РабочаяДата()).Кратко;

Столбик=?(Столбик=0,1,0);;
Ряд=?(Столбик=0,Ряд+1,Ряд);
Если Ряд>8 Тогда
Таб.НоваяСтраница();
Ряд=1;
КонецЕсли;
Если Столбик=0 Тогда
Таб.ВывестиСекцию("Товар|Ценник");
Иначе
Таб.ПрисоединитьСекцию("Товар|Ценник");
КонецЕсли;
глОживить(1);
КонецЦикла;
Иначе        

ПечНаименование=ВыбТовар.ПолнНаименование;
ЦенаТовара = глВернутьЦену(ВыбТовар,ТипЦены);
Если ПустоеЗначение(ЦенаТовара) = 1 Тогда
// не печатаем товар без цены
Предупреждение("У товара "+ВыбТовар.Наименование+РазделительСтрок+
              "не найден тип цены '"+ТипЦены.Наименование+"'");
Возврат;
КонецЕсли;

ПечЕдиница = ЦенаТовара.Единица.Получить(РабочаяДата());
ВремЦена = ЦенаТовара.Цена.Получить(РабочаяДата());
 
ПечРозн = СокрЛ(Формат(ВремЦена,"Ч15.2"))+" "+ЦенаТовара.Валюта.Получить(РабочаяДата()).Кратко;
Таб.ВывестиСекцию("Товар");
КонецЕсли;
//Вызов выходного отчета в окно просмотра и редактирования.
Таб.Опции(0,0,0,0,ПарСтрСпр);
Таб.Защита(Константа.ФлагЗащитыТаблиц);
Таб.ТолькоПросмотр(1);
Таб.Показать("Ценник товаров","""");
ВыбТовар=0;
КонецПроцедуры

"
что это ?
Процедура ПечатьЦенника в конфигурации 7,7 ТиС

я там пробовал добавить Комментарий но никак не выходит а когда хочу розпечатать из одного товара то там мне показывает.
У меня занесено в товаре под  коментари - страна производителя и состав продукции
Я пробовал изменить но не пошло, думал так как в простом когда изменял ценник для одного товара.
И никак не входит чтоб печаталось мне на странице столбцов - 3, а рядков - 8.
Помогите нужно оч срочно.
Читают тему
(гостей: 1)

Быстрый переход