Имя: Пароль:
1C
1С v8
Штрих код по товару
,
0 Yur1492
 
23.01.18
13:35
Всем привет!Помогите пожалуйста с проблемной, в инете не могу найти инструкций((
В УТ 11, нужно сделать ВПФ и вывести ШТРИХ-КОД номенклатуры в табличный документ.Штрих-код находиться в РС, во ВПФ он подставляется в виде цифр, а нужен "штрих-код"
Скачал 1CBarCode_8.0, установил, и на этом застопорился....как это все реализовать в макете или в модуле не пойму
1 Джинн
 
23.01.18
13:38
(0) Закачайте ее обратно на сайт. И посмотрите как выводится штрихкод в этикетке или ценнике.
2 Михаил Козлов
 
23.01.18
13:39
(1)+ В макет нужно рисунок вставить.
3 Yur1492
 
23.01.18
13:40
(1) Не очень понял
4 tesseract
 
23.01.18
13:41
>>ВПФ он подставляется в виде цифр, а нужен "штрих-код"

Установка eang000.ttf  на комп, откуда печатается документ не помогает?
5 Yur1492
 
23.01.18
13:41
(2) Я пытался, но он пустым выходит, допустим в документе 3 позиции номенклатуры и мне нужно для каждой вывести штрих код который указан в РС, как я понял рисунок к ячейке привязать нельзя....??
6 Darych
 
23.01.18
13:42
(5) можно
7 Yur1492
 
23.01.18
13:47
(6) Можете объяснить как? я все свойства посмотрел и не нашел, он сверху всегда болтается, и если можно то как в него значение передать? как в параметр?
8 Yur1492
 
23.01.18
13:48
(4) Попробовал, результат тот же
9 Михаил Козлов
 
23.01.18
13:54
Стоя на области: Таблица - Рисунки - Вставить объект. Потом выбираете "Элемент управления" - Печать ШК.
10 Yur1492
 
23.01.18
14:46
(9) а как сделать так, что бы к нему значение подставлялось?
11 Darych
 
23.01.18
14:49
(10) Ты кто?
12 Yur1492
 
23.01.18
15:02
(10) Студент))
13 Strogg
 
23.01.18
15:17
(0) самое беспроблемное, поставить шрифт EanbwrP36Tt. И в поле со шк выводить цифры этого самого шк. Но это по - дурному. По нормальному будет вывести объект на макет вида 1С:Печать штрихкодов.
З.Ы. тока, по-моему, в УФ там какие-то траблы с его работой, емнип..
14 Yur1492
 
24.01.18
13:02
В общем вопрос заключается в том, как вывести данные на рисунок(Штрихкод) который в шаблоне для каждой номенклатуры! я использую УТ11, УФ, тонкий клиент и как я понял использовать метод "Объект" нельзя, т.е. вот так не получиться написать:
"...................

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

....................."
15 Базис
 
naïve
24.01.18
16:12
Студент ты или кто? Найди и скопируй подходящий кусок кода.
16 Yur1492
 
01.02.18
16:25
Короче мало ли кто искать будет, то у меня получилось вот так, есть процедура в общем модуле:

Пока РезультатЗароса.Следующий() Цикл        
        ЗаполнитьЗначенияСвойств(ОбластьТабличнаяЧасть.Параметры, РезультатЗароса);
        
        //Заполнение штрих кода
        Если ЗначениеЗаполнено(РезультатЗароса.ШтрихКод) Тогда
        
        Эталон = Обработки.ПечатьЭтикетокИЦенников.ПолучитьМакет("Эталон");    
        КоличествоМиллиметровВПикселе = Эталон.Рисунки.Квадрат100Пикселей.Высота / 100;
        
        ПараметрыШтрихкода = Новый Структура;
        ПараметрыШтрихкода.Вставить("Ширина",          Окр(ОбластьТабличнаяЧасть.Рисунки.КартинкаШтрихкода.Ширина / КоличествоМиллиметровВПикселе));
        ПараметрыШтрихкода.Вставить("Высота",          Окр(ОбластьТабличнаяЧасть.Рисунки.КартинкаШтрихкода.Высота / КоличествоМиллиметровВПикселе));
        ПараметрыШтрихкода.Вставить("Штрихкод",        РезультатЗароса.ШтрихКод);
        ПараметрыШтрихкода.Вставить("ТипКода",         1); //
        ПараметрыШтрихкода.Вставить("ОтображатьТекст", Истина);
        ПараметрыШтрихкода.Вставить("РазмерШрифта",    10);
        
        ОбластьТабличнаяЧасть.Рисунки.КартинкаШтрихкода.Картинка = МенеджерОборудованияВызовСервера.ПолучитьКартинкуШтрихкода(ПараметрыШтрихкода);
        Иначе
        ПустаяКартинка=Новый Картинка;
        ОбластьТабличнаяЧасть.Рисунки.КартинкаШтрихкода.Картинка = ПустаяКартинка;
        КонецЕсли;