Версия для печати темы (https://pro1c.org.ua/index.php?s=6eafac06b8a38f6e7e22a56d2e442a7c&showtopic=46554)

Нажмите сюда для просмотра этой темы в обычном формате

Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7 _ Программирование в 1С Предприятие 8.3 _ Печать штрихкода

Автор: zimelya 02.07.18, 15:50

Добрый день! Прошу помощи, обыскал все интернеты и пусто.
Суть проблемы, в обработке делаю печать этикетки и рисунок штрихкода никак не изменяется, выводится стандартный(Скрин прилагается)

1с 8.3.8 1635
Розница 1.0 (1.0.11.1)

Процедура ОсновныеДействияФормыОсновныеДействияФормыВыполнить(Кнопка)
    Макет = Обработки.тест.ПолучитьМакет("Макет");
    ОбластьМакет = Макет.ПолучитьОбласть("Обл");
    ОбластьМакет.Параметры.Пар = "Текст";    
    
    Код = ПланыВидовХарактеристик.ТипыШтрихкодов.EAN13;
    ТипКода = ПолучитьЗначениеТипаШтрихкодаДляЭУ(Код);    
    ПредставлениеШтрихкода = "";
    КодШтрихкода = "110000123456";
    
    Если ТипКода > -1 Тогда
        Для Каждого Рисунок Из Макет.Рисунки Цикл
            Если Рисунок.ТипРисунка = ТипРисункаТабличногоДокумента.Объект
                       И ТипЗнч(Рисунок.Объект) = Тип("ActiveX") Тогда
                        
                        //предположим что этот рисунок - штрихкод
                        Попытка
                            Рисунок.Объект.ТипКода   = ТипКода;
                            Рисунок.Объект.Сообщение = ?(ПустаяСтрока(ПредставлениеШтрихкода),
                                                         КодШтрихкода,
                                                         ПредставлениеШтрихкода);
                        Исключение
                        КонецПопытки;
            КонецЕсли;
        КонецЦикла;
                
    КонецЕсли;
    
    Таб = Новый ТабличныйДокумент;
    Таб.Вывести(ОбластьМакет);
    Таб.Показать();
    
    
КонецПроцедуры

http://pro1c.org.ua/redirect.php?http://uploads.ru/pigF1.png

Автор: andr_andrey 02.07.18, 19:04

zimelya @ Сегодня, 16:50 * ,

ОбластьМакет.Рисунки.Barcode.Объект.Сообщение = КодШтрихкода;

Автор: zimelya 03.07.18, 3:51

andr_andrey @ Вчера, 20:04 * ,

Спасибо добрый человек, в жизни бы не додумался что оно именно так работает.
Синтаксис помощник меня ввел в заблуждение что рисунки отбирает только через макет.рисунки. и тд.

Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7
https://pro1c.org.ua