Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
09 мая 2024, 06:18

Свойства номенклатуры в ценнике

Автор Ex, 07 дек 2010, 14:47

0 Пользователей и 1 гость просматривают эту тему.

Ex

Добрый день.
Как сделать чтобы свойства номенклатуры не присоединялись к ценнику а оказывались внутри него? Ведь ценник имеет фиксированный размер. А у меня получается, что все выводится правильно, а свойства т.к. это список - увеличивают размер ценника.

Если размерДоп = "К123" тогда
                    //Шапка

               
                    ОбластьЦенника.Параметры.Заполнить(СтрокаТаблицы);
                    ОбластьЦенника.Параметры.НоменклатураНаименование = СтрокаТаблицы.Номенклатура.НаименованиеПолное;               
                 
                   
                    //Свойства

                    Запрос=Новый Запрос;
                    Запрос.Текст="ВЫБРАТЬ
                                 |    ЗначенияСвойствОбъектов.Объект,
                                 |    ЗначенияСвойствОбъектов.Свойство,
                                 |    ЗначенияСвойствОбъектов.Значение
                                 |ИЗ
                                 |    РегистрСведений.ЗначенияСвойствОбъектов КАК ЗначенияСвойствОбъектов
                                 |ГДЕ
                                 |    ЗначенияСвойствОбъектов.Объект = &Номенклатура";
                    Запрос.УстановитьПараметр("Номенклатура",СтрокаТаблицы.Номенклатура);
                    Выборка=Запрос.Выполнить().Выгрузить();

                    обл =      Макет.ПолучитьОбласть("Свойства");
                    Для каждого стрСв из Выборка цикл
                             Свойство = стрсв.Свойство;
                            ЗначениеСвойства = стрсв.Значение;
                            Обл.Параметры.Свойство = Свойство;
                            Обл.Параметры.ЗначениеСвойства = ЗначениеСвойства;
                            ТабДокумент.присоединить(Обл);
                    конецЦикла;
                       
                       
                   
    //Концовка Ценник123

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

Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск