Имя: Пароль:
1C
1С v8
Добавить штрих-код на управляемую форму.
,
0 Bot01
 
09.10.13
11:54
Доброго времени суток.
1С 8.2.18.104, УТ 11.1.2.9
Подскажите, пожалуйста, как добавить на УФ изображение штрих-кода (например EAN-13) стандартными средствами УТ, без подключения дополнительных компонент.
1 Чайник Рассела
 
09.10.13
11:54
вставь картинку
2 Зойч
 
09.10.13
11:55
как это без компонент?
3 Чайник Рассела
 
09.10.13
11:55
дЭкорацЫю
4 Rie
 
09.10.13
11:55
(0) Есть шрифты для EAN. Используй их при выводе текста.
5 Галахад
 
гуру
09.10.13
11:57
А зачем на форме штрих-код? С экрана сканировать?
6 Чайник Рассела
 
09.10.13
11:57
(5) с экрана не получится сканировать
7 ДенисЧ
 
09.10.13
11:58
(6) Ага. Продолжай рассказывать сказки.
8 Чайник Рассела
 
09.10.13
12:01
(7) ну у вас какое нить гуано, а не мониторы, а у меня маки с ретиной. там везде блекует
9 Бледно Золотистый
 
09.10.13
12:03
(8) от сканера зависит
10 ДенисЧ
 
09.10.13
12:04
(8) У меня нормальные мониторы и (N.B.!!) нормальные сканеры.
11 Чайник Рассела
 
09.10.13
12:08
(9) попробуй на стеклянный монитор сканером светануть
12 Bot01
 
09.10.13
12:38
А символы разделители как обозначаются? (4)
14 Rie
 
09.10.13
13:13
(12)  Какие ещё символы-разделители у EAN-13?
15 Bot01
 
09.10.13
13:27
(14) Я могу рассчитать штрих-код для EAN-13 и вывести его этим же шрифтом, но сканер его не распознает, т.к. не будет в нём символов разделителей т.н. "666".
16 Bot01
 
09.10.13
13:33
Нужный функционал реализован в обработке "ПечатьЭтикетокИЦенников". Но уж больно тяжело даётся её расковыривание...
17 Bot01
 
09.10.13
16:17
Вот что получилось.
Скопировал из "ПечатьЭтикетокИЦенников" макет "Эталон".
Разместил на форме поле картинки "Картинка".
&НаСервере
Процедура ДляШтрихкода2()
Макет = Обработки.ОбработкаТестовая.ПолучитьМакет("Эталон");
Рисунок = Макет.Области.Квадрат100Пикселей;
ЗначениеШтрихкода = "000000000017";
            ПараметрыШтрихкода = Новый Структура;
            ПараметрыШтрихкода.Вставить("Штрихкод",        ЗначениеШтрихкода);
            ПараметрыШтрихкода.Вставить("Ширина",          200);
            ПараметрыШтрихкода.Вставить("Высота",          30);  
            ПараметрыШтрихкода.Вставить("ТипКода",         3);
            ПараметрыШтрихкода.Вставить("ОтображатьТекст", Истина);
            ПараметрыШтрихкода.Вставить("РазмерШрифта",    12);
            Рисунок.Картинка = МенеджерОборудованияСервер.ПолучитьКартинкуШтрихкода(ПараметрыШтрихкода);
Картинка= ПоместитьВоВременноеХранилище(Рисунок.Картинка);
КонецПроцедуры
18 Bot01
 
09.10.13
16:23
19 Rie
 
09.10.13
16:59
(16) Не надо рассчитывать. Надо взять готовый шрифт и его использовать. И всё там будет.
20 Bot01
 
10.10.13
15:34
(19) Если просто вывести цифры шрифтом EAN-13 то да, полосочки там будут, но сканер Штрих-Кода их не распознаёт.
По крайней мере мой Voyager :)