УТ 10.3. Печать этикеток без штрих-кода возможно ?

24.11.20

✎

15:25

Есть такой код :

Макет                   = ПолучитьОбщийМакет("ГлавнаяЭтикетка");

    Если ЗначениеЗаполнено(СтрокаИзСписка.Номенклатура.ШтрихКодПоставщика) Тогда
            ЭтикеткаОбласть.Рисунки.Штрихкод.Объект.ТипКода   = 1;
            ЭтикеткаОбласть.Рисунки.Штрихкод.Объект.Сообщение =СтрокаИзСписка.Номенклатура.ШтрихКодПоставщика;
        Иначе

            //ЭтикеткаОбласть.Рисунки.Штрихкод.Объект.ОтображатьТекст = Ложь;
            //ЭтикеткаОбласть.Рисунки.Штрихкод.Объект.ПрозрачныйФон = Истина;
            //ЭтикеткаОбласть.Рисунки.Штрихкод.Объект.Сообщение ="";
            //ЭтикеткаОбласть.Рисунки.Штрихкод.Объект.ТекстКода = "";
        КонецЕсли;

Мне надо чтобы штрих код не выводился, если он не заполнен, а он все равно выводится на объекте Active-X. Возможно его не выводить ?

1 d4rkmesa

гуру

24.11.20

✎

15:34

(0) Он не выведется на печать, насколько я помню, если указать ЭтикеткаОбласть.Рисунки.ШтрихКод.ВыводитьНаПечать = Ложь. Но иногда проще просто удалить рисунок из табличного документа программно.

2 Румата

24.11.20

✎

15:37

(1) Я пробовал так :
ЭтикеткаОбласть.Рисунки.Штрихкод.ВыводитьНаПечать = Ложь;

Все равно выводится, штрих код вида 12345...

А как программно удалить рисунок из табличного документа ?

3 d4rkmesa

гуру

24.11.20

✎

15:42

(2) А просмотр печати смотрели? Не выводится там. Если нужно удалить, то можно удалить указав область рисунка(должна быть в коллекции областей табличного документа). Ну или так:
Процедура УдалитьШтрихКодПередВыводом(ОбластьИлиТабличныйДокумент, ИмяОбъектаЗаполнения = "Barcode") Экспорт
    Попытка
        ЕстьBarcode = Ложь;
        Для Каждого Рисунок Из ОбластьИлиТабличныйДокумент.Рисунки Цикл
            Если Не Рисунок.ТипРисунка = ТипРисункаТабличногоДокумента.Объект Тогда
                Продолжить
            КонецЕсли;
            Если Рисунок.Имя = ИмяОбъектаЗаполнения Тогда
                ОбластьИлиТабличныйДокумент.Рисунки.Удалить(Рисунок);
            КонецЕсли;
        КонецЦикла;
    Исключение
        Сообщить("Ошибка обработки штрих-кода", СтатусСообщения.Важное);
        Сообщить(ОписаниеОшибки());
    КонецПопытки;
КонецПроцедуры

4 Румата

24.11.20

✎

15:49

(3) Спасибо, тупанул, в самом макете выводятся, а при печати пропадают ) Вопрос закрыт ! ;)