&НаСервере
Функция ПечатьКолонкамиНаСервере()
Обработка = РеквизитФормыВЗначение("Объект");
Макет = Обработка.ПолучитьМакет("Шаблон_480х166_Товары");
Область = Макет.ПолучитьОбласть("Область|Область1");
табДок = Новый ТабличныйДокумент;
КоличествоКолонок = 1;
Для Каждого Эл Из Объект.Товары Цикл
Область.Параметры.Код = Эл.Номенклатура.Артикул;
Область.Параметры.Наименование = Эл.Номенклатура.НаименованиеПолное;
Если КоличествоКолонок = 1 Или КоличествоКолонок = 5 Тогда //печать в 4 колонки
табДок.Вывести(Область);
КоличествоКолонок = 1;
Иначе
табДок.Присоединить(Область);
КонецЕсли;
КоличествоКолонок = КоличествоКолонок + 1;
КонецЦикла;
Возврат табДок;
КонецФункции
Подписаться на:
Комментарии к сообщению (Atom)
Комментариев нет:
Отправить комментарий