|
Печать штрих кода в УФ |
☑ |
0
Valadis
27.03.13
✎
11:31
|
Платформа 8.2.17.143
Режим управ. приложения. Пытаюсь вывести штрих код на форму. Все делаю как описано в один в один
Штрих код выводится, но без текста внизу (мне нужен номер документа).
Что я делаю не так? Может кто-то подскажет.
|
|
1
Valadis
27.03.13
✎
11:39
|
Код примерно такой:
Функция ПолучитьКартинкуШтрихкода(ВнешняяКомпонента, Штрихкод, Ширина, Высота) Экспорт
// Зададим размер картинки
ВнешняяКомпонента.Ширина =Ширина;
ВнешняяКомпонента.Высота =Высота;
// Разрешим компоненте самой определять тип кода
ВнешняяКомпонента.АвтоТип = Истина;
// Если код содержит контрольный символ, обязательно указываем
ВнешняяКомпонента.СодержитКС = СтрДлина(Штрихкод) = 13;
// Если отображать контрольный символ не нужно
// ВнешняяКомпонента.ВидимостьКС = Ложь;
// Формируем картинку штрихкода
ВнешняяКомпонента.ЗначениеКода = ШтрихКод;
//ВнешняяКомпонента.ТекстКода = ШтрихКод;
// Если установленная нами ширина меньше минимально допустимой для этого штрихкода
Если ВнешняяКомпонента.Ширина < ВнешняяКомпонента.МинимальнаяШиринаКода Тогда
// Скорректируем ширину
ВнешняяКомпонента.Ширина = ВнешняяКомпонента.МинимальнаяШиринаКода + 10;
КонецЕсли;
// Сформируем картинку
ДвоичныеДанныеКартинки = ВнешняяКомпонента.ПолучитьШтрихкод();
// Если картинка сформировалась
Если ДвоичныеДанныеКартинки <> Неопределено Тогда
// Формируем из двоичных данных
Возврат Новый Картинка(ДвоичныеДанныеКартинки);
КонецЕсли;
Возврат Неопределено;
КонецФункции
|
|
2
Valadis
27.03.13
✎
11:40
|
Попытка
ОбластьПодвал.Рисунки.ШК.Защита = Ложь;
ВнешняяКомпонента.ОтображатьТекст = Истина;
ОбластьПодвал.Рисунки.ШК.Картинка = ПолучитьКартинкуШтрихкода(ВнешняяКомпонента, Ссылка.номер, 75, 120);
Исключение
СтрокаСообщения = ("Ошибка вывода штрих кода " + ОписаниеОшибки());
Сообщить(СтрокаСообщения, СтатусСообщения.Информация);
КонецПопытки;
|
|
3
Valadis
27.03.13
✎
11:45
|
Есть идеи?
|
|