Печать штрих-кода, значение принимает, а штрих-код не меняется.

1С v8

14.02.12

✎

11:05

Добрый день, подскажите может кто сталкивался, пытаюсь вывести на печать штрих-код, использую "1с Печать штрикодов", указываю

ОбластьТовары.Рисунки.штрихкод.Объект.Сообщение=Штрихкод; но штрих код не меняется внешне в нем кодится значение по умолчанию "123456789012"

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

// = КомпонентШК;//здесь ваш код
// ОбластьТовары.Рисунки.штрихкод.Объект.Сообщение = Штрихкод;

ТабДок.Вывести(ОбластьТовары);
КонецЦикла;

1 korgallom

14.02.12

✎

12:25

http://www.itland.ru/forum/index.php?showtopic=20862

вот это не работает
проблема такая же

2 Шапокляк

14.02.12

✎

12:33

ОбластьТовары.Рисунки.штрихкод.Объект.Сообщение=Штрихкод;
А что такое ШтрихКод в данном коде? Я что-то не вижу где этот ШтрихКод меняется

3 rutony

14.02.12

✎

12:39

(0) Значит компонента не может понять что набор цифр который ты туда запихиваешь является штрихкодом.

123456789012 - 12 символов
Значит у компоненты должен быть отключен контрольный символ (в компоненте есть свойство)
Либо нужно к 123456789012 добавлять контрольный симовол, в данном случае это 8 тоесть ШК должен быть 1234567890128

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

4 rutony

14.02.12

✎

12:40

(3) + либо поменяй тип штрихкода 123456789012 это не EAN13, а в компоненте пу. стоит именно этот тип

5 korgallom

14.02.12

✎

14:10

Для Каждого ТекСтрокаКоды Из Коды Цикл
ОбластьТовары.Параметры.Заполнить(ТекСтрокаКоды);
ОбластьТовары.Рисунки.barcode.Объект.ТипКода=1;
ОбластьТовары.Рисунки.barcode.Объект.Сообщение=ТекСтрокаКоды.ШтрихКод1;
ТабДок.Вывести(ОбластьТовары);
КонецЦикла;

(2)спасибо.. вот так пошло))))))))) да у меня там было неправильно сделано