1C Программирование и поддержка - [496] :: Прикладное программирование

Функция ПечатьЦенника() Экспорт

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

    ТабДокумент = Новый ТабличныйДокумент;
    ТабДокумент.ИмяПараметровПечати = "ПАРАМЕТРЫ_ПЕЧАТИ_Ценник";


    Для Каждого СтрокаТаблицы Из Товары Цикл
                ТипЦенника = СокрЛП(СтрокаТаблицы.Номенклатура.ЦеноваяГруппа);
              ТекСтолбец = 0;
                ТекСтрока = 0;
        Если СтрокаТаблицы.Печать Тогда
            Для Тмп = 1 По СтрокаТаблицы.Количество Цикл

                 Если ТипЦенника = "Маленький" Тогда
                Макет = ПолучитьМакет("Маленький");
                ОбластьЦенника = Макет.ПолучитьОбласть("Строка|Столбец");
     ОбластьЦенника.Параметры.Заполнить(СтрокаТаблицы);
                ОбластьЦенника.Параметры.Группа = СтрокаТаблицы.Номенклатура.Родитель.Родитель;
                ОбластьЦенника.Параметры.Подгруппа = СтрокаТаблицы.Номенклатура.Родитель;
                ОбластьЦенника.Параметры.НоменклатураНаименование = СтрокаТаблицы.Номенклатура.Наименование;
                ОбластьЦенника.Параметры.Комментарий                   = СтрокаТаблицы.Номенклатура.Комментарий;
                ОбластьЦенника.Параметры.Цена = СтрокаТаблицы.Цена;
                ОбластьЦенника.Параметры.Гарантия = СтрокаТаблицы.Номенклатура.ДополнительноеОписаниеНоменклатуры;
                ОбластьЦенника.Параметры.Код                           = СтрокаТаблицы.Номенклатура.Код;

                Если ТекСтолбец = 0 Тогда
                    ТабДокумент.Вывести(ОбластьЦенника);
                Иначе
                    ТабДокумент.Присоединить(ОбластьЦенника);
                КонецЕсли;

                ТекСтолбец = ТекСтолбец + 1;

                Если ТекСтолбец = 5 Тогда
                    ТекСтрока = ТекСтрока + 1;
                    ТекСтолбец = 0;
                КонецЕсли;

                Если ТекСтрока = 3 Тогда
                    ТекСтрока = 0;
                    ТабДокумент.ВывестиГоризонтальныйРазделительСтраниц();
                КонецЕсли;
            КонецЕсли;
         КонецЦикла;
     КонецЕсли;
    КонецЦикла;
    ТабДокумент.ВывестиГоризонтальныйРазделительСтраниц();
ТОЖЕ ДЛЯ СРЕДНЕГО
ТОЖЕ ДЛЯ БОЛЬШОГО
    ТабДокумент.ТолькоПросмотр = Истина;
    Возврат ТабДокумент;

КонецФункции // ПечатьЦенника()

Модерирует : ShIvADeSt
ShIvADeSt (30-10-2009 09:51): http://forum.ru-board.com/topic.cgi?forum=33&topic=10715	Версия для печати • Подписаться • Добавить в закладки
На первую страницу • к этому сообщению • к последнему сообщению