Печать штрихкода из неуправляемых форм по новой технологии на платформе 8.3.16 (пример получения картинки через внешнюю компоненту)

10.02.20

Разработка - Разработка внешних компонент

Рабочий пример получения картинки ШК через внешнюю компоненту. После перехода на платформу 8.3.16 в старых конфигурациях перестали печататься ШК на принтере этикеток, пришлось переделывать процедуру печати, может, кому пригодится. Проверялось на УТ 10.3 и КА 1.1.

Скачать файлы

Наименование Файл Версия Размер
Печать штрихкода из неуправляемых форм по новой технологии на платформе 8.3.16:
.epf 2,92Mb
27
.epf 2,92Mb 27 Скачать

функционал взял из УНФ 1.6, оттуда же - компоненту и эталон макета, реализована печать ШК только EAN13, другие типы закомментированы, если кому надо, то придется добавить из унф еще несколько процедур по распознаванию типа ШК, ну или прописать свой тип непосредственно в строке ВнешняяКомпонента.ТипКода = 1;

Привожу код обработки печати, в обработке 3 макета

Макет - сам макет с картинкой, куда выводится шк

Эталон и КомпонентаПечатиШтрихкодов - макеты взятые из УНФ 1.6

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

Процедура ПередОткрытием(Отказ, СтандартнаяОбработка)
    штрихкод = "2900000021778";
КонецПроцедуры

// Функция выполняет формирование изображения штрихкода.
// Параметры: 
//   ПараметрыШтрихкода 
// Возвращаемое значение: 
//   Картинка - Картинка со сформированным штрихкодом или НЕОПРЕДЕЛЕНО.
Функция ПолучитьКартинкуШтрихкода(ПараметрыШтрихкода) Экспорт
    
    ВнешняяКомпонента = ПодключитьВнешнююКомпонентуПечатиШтрихкода();
    
    Если ВнешняяКомпонента = Неопределено Тогда
        ВызватьИсключение НСтр("ru = 'Ошибка подключения внешней компоненты печати штрихкода.'");
    КонецЕсли;
    
    // Зададим размер формируемой картинки.
    ВнешняяКомпонента.Ширина = Окр(ПараметрыШтрихкода.Ширина);
    ВнешняяКомпонента.Высота = Окр(ПараметрыШтрихкода.Высота);
    
    ВнешняяКомпонента.АвтоТип = Ложь;
    
    //Если ПараметрыШтрихкода.ТипКода = 99 Тогда
    //    ТипШтрихкодаВрем = ОпределитьТипШтрихкода(ПараметрыШтрихкода.Штрихкод);
    //    Если ТипШтрихкодаВрем = "EAN8" Тогда
    //        ВнешняяКомпонента.ТипКода = 0;
    //    ИначеЕсли ТипШтрихкодаВрем = "EAN13" Тогда
            ВнешняяКомпонента.ТипКода = 1;
    //        // Если код содержит контрольный символ, обязательно указываем.
    //        ВнешняяКомпонента.СодержитКС = СтрДлина(ПараметрыШтрихкода.Штрихкод) = 13;
    //    ИначеЕсли ТипШтрихкодаВрем = "EAN128" Тогда
    //        ВнешняяКомпонента.ТипКода = 2;
    //    ИначеЕсли ТипШтрихкодаВрем = "CODE39" Тогда
    //        ВнешняяКомпонента.ТипКода = 3;
    //    ИначеЕсли ТипШтрихкодаВрем = "CODE128" Тогда
    //        ВнешняяКомпонента.ТипКода = 4;
    //    ИначеЕсли ТипШтрихкодаВрем = "ITF14" Тогда
    //        ВнешняяКомпонента.ТипКода = 11;
    //    ИначеЕсли ТипШтрихкодаВрем = "QR" Тогда
    //        ВнешняяКомпонента.ТипКода = 16;
    //    ИначеЕсли ТипШтрихкодаВрем = "EAN13Addon2" Тогда
    //        ВнешняяКомпонента.ТипКода = 14;
    //    ИначеЕсли ТипШтрихкодаВрем = "EAN13Addon5" Тогда
    //        ВнешняяКомпонента.ТипКода = 15;
    //    Иначе
    //        ВнешняяКомпонента.АвтоТип = Истина;
    //    КонецЕсли;
    //Иначе
    //    ВнешняяКомпонента.АвтоТип = Ложь;
    //    ВнешняяКомпонента.ТипКода = ПараметрыШтрихкода.ТипКода;
    //КонецЕсли;
    
    //Если ПараметрыШтрихкода.Свойство("ПрозрачныйФон") Тогда
    //    ВнешняяКомпонента.ПрозрачныйФон = ПараметрыШтрихкода.ПрозрачныйФон;
    //КонецЕсли;
    //
    //Если ПараметрыШтрихкода.Свойство("GS1DatabarКоличествоСтрок") Тогда
    //    ВнешняяКомпонента.GS1DatabarКоличествоСтрок = ПараметрыШтрихкода.GS1DatabarКоличествоСтрок;
    //КонецЕсли;
    
    //ВнешняяКомпонента.ОтображатьТекст = ПараметрыШтрихкода.ОтображатьТекст;
    ВнешняяКомпонента.ОтображатьТекст = ПараметрыШтрихкода.ОтображатьТекст;
    
    // Формируем картинку штрихкода.
    ВнешняяКомпонента.ЗначениеКода = ПараметрыШтрихкода.Штрихкод;
    // Угол поворота штрихкода.
    //ВнешняяКомпонента.УголПоворота = ?(ПараметрыШтрихкода.Свойство("УголПоворота"), ПараметрыШтрихкода.УголПоворота, 0);
    // Уровень коррекции QR кода (L=0, M=1, Q=2, H=3).
    //ВнешняяКомпонента.УровеньКоррекцииQR = ?(ПараметрыШтрихкода.Свойство("УровеньКоррекцииQR"), ПараметрыШтрихкода.УровеньКоррекцииQR, 1);
    
    // Для обеспечения совместимости с предыдущими версиями БПО.
    Если Не ПараметрыШтрихкода.Свойство("Масштабировать")
        Или (ПараметрыШтрихкода.Свойство("Масштабировать") И ПараметрыШтрихкода.Масштабировать) Тогда
        
        Если Не ПараметрыШтрихкода.Свойство("СохранятьПропорции")
                Или (ПараметрыШтрихкода.Свойство("СохранятьПропорции") И Не ПараметрыШтрихкода.СохранятьПропорции) Тогда
            
            // Если установленная нами ширина меньше минимально допустимой для этого штрихкода.
            Если ВнешняяКомпонента.Ширина < ВнешняяКомпонента.МинимальнаяШиринаКода Тогда
                ВнешняяКомпонента.Ширина = ВнешняяКомпонента.МинимальнаяШиринаКода;
            КонецЕсли;
            
            // Если установленная нами высота меньше минимально допустимой для этого штрихкода.
            Если ВнешняяКомпонента.Высота < ВнешняяКомпонента.МинимальнаяВысотаКода Тогда
                ВнешняяКомпонента.Высота = ВнешняяКомпонента.МинимальнаяВысотаКода;
            КонецЕсли;
            
        ИначеЕсли ПараметрыШтрихкода.Свойство("СохранятьПропорции") И ПараметрыШтрихкода.СохранятьПропорции Тогда
            
            Пока ВнешняяКомпонента.Ширина < ВнешняяКомпонента.МинимальнаяШиринаКода 
                Или ВнешняяКомпонента.Высота < ВнешняяКомпонента.МинимальнаяВысотаКода Цикл
                
                // Если установленная нами ширина меньше минимально допустимой для этого штрихкода.
                Если ВнешняяКомпонента.Ширина < ВнешняяКомпонента.МинимальнаяШиринаКода Тогда
                    ВнешняяКомпонента.Ширина = ВнешняяКомпонента.МинимальнаяШиринаКода;
                    ВнешняяКомпонента.Высота = (ВнешняяКомпонента.МинимальнаяШиринаКода / Окр(ПараметрыШтрихкода.Ширина)) * Окр(ПараметрыШтрихкода.Высота);
                КонецЕсли;
                
                // Если установленная нами высота меньше минимально допустимой для этого штрихкода.
                Если ВнешняяКомпонента.Высота < ВнешняяКомпонента.МинимальнаяВысотаКода Тогда
                    ВнешняяКомпонента.Высота = ВнешняяКомпонента.МинимальнаяВысотаКода;
                    ВнешняяКомпонента.Ширина = (ВнешняяКомпонента.МинимальнаяВысотаКода / Окр(ПараметрыШтрихкода.Высота)) * Окр(ПараметрыШтрихкода.Ширина);
                КонецЕсли;
                
            КонецЦикла;
            
        КонецЕсли;
    КонецЕсли;
    
    // ВертикальноеВыравниваниеКода: 1 - по верхнему краю, 2 - по центру, 3 - по нижнему краю.
    
    ВнешняяКомпонента.ВертикальноеВыравниваниеКода = 1;
    //Если ПараметрыШтрихкода.Свойство("ВертикальноеВыравнивание") И (ПараметрыШтрихкода.ВертикальноеВыравнивание > 0) Тогда
    //    ВнешняяКомпонента.ВертикальноеВыравниваниеКода = ПараметрыШтрихкода.ВертикальноеВыравнивание;
    //КонецЕсли;

    Если ПараметрыШтрихкода.Свойство("РазмерШрифта") И (ПараметрыШтрихкода.РазмерШрифта > 0) 
        И (ПараметрыШтрихкода.ОтображатьТекст) И (ВнешняяКомпонента.РазмерШрифта <> ПараметрыШтрихкода.РазмерШрифта) Тогда
        ВнешняяКомпонента.РазмерШрифта = ПараметрыШтрихкода.РазмерШрифта;
    КонецЕсли;
    ВнешняяКомпонента.РазмерШрифта = 16;
    
    Если ПараметрыШтрихкода.Свойство("РазмерШрифта") И ПараметрыШтрихкода.РазмерШрифта > 0
        И ПараметрыШтрихкода.Свойство("МонохромныйШрифт") Тогда
        
        Если ПараметрыШтрихкода.МонохромныйШрифт Тогда
            ВнешняяКомпонента.МаксимальныйРазмерШрифтаДляПринтеровНизкогоРазрешения = ПараметрыШтрихкода.РазмерШрифта + 1;
        Иначе
            ВнешняяКомпонента.МаксимальныйРазмерШрифтаДляПринтеровНизкогоРазрешения = -1;
        КонецЕсли;
        
    КонецЕсли;
    
    // Сформируем картинку
    ДвоичныеДанныеКартинки = ВнешняяКомпонента.ПолучитьШтрихкод();
    
    // Если картинка сформировалась.
    Если ДвоичныеДанныеКартинки <> Неопределено Тогда
        // Формируем из двоичных данных.
        Возврат Новый Картинка(ДвоичныеДанныеКартинки);
    КонецЕсли;
    
    Возврат Неопределено;

КонецФункции

Функция ПодключитьВнешнююКомпонентуПечатиШтрихкода() Экспорт
    
    
    макет  = ПолучитьМакет ("КомпонентаПечатиШтрихкодов");
    адрес = ПоместитьВоВременноеХранилище( макет );
    ПодключениеВыполнено = ПодключитьВнешнююКомпоненту(адрес, "КартинкаШтрихкода", ТипВнешнейКомпоненты.Native);
    
    // Создадим объект внешней компоненты.
    Если ПодключениеВыполнено Тогда
        ВнешняяКомпонента = Новый("AddIn.КартинкаШтрихкода.Barcode");
    Иначе
        Возврат Неопределено;
    КонецЕсли;
    
    // Если нет возможности рисовать.
    Если НЕ ВнешняяКомпонента.ГрафикаУстановлена Тогда
        // То картинку сформировать не сможем.
        Возврат Неопределено;
    Иначе
        // Установим основные параметры компоненты.
        // Если в системе установлен шрифт Tahoma.
        Если ВнешняяКомпонента.НайтиШрифт("Tahoma") Тогда
            // Выбираем его как шрифт для формирования картинки.
            ВнешняяКомпонента.Шрифт = "Tahoma";
        Иначе
            // Шрифт Tahoma в системе отсутствует.
            // Обойдем все доступные компоненте шрифты.
            Для Сч = 0 По ВнешняяКомпонента.КоличествоШрифтов -1 Цикл
                // Получим очередной шрифт, доступный компоненте.
                ТекущийШрифт = ВнешняяКомпонента.ШрифтПоИндексу(Сч);
                // Если шрифт доступен
                Если ТекущийШрифт <> Неопределено Тогда
                    // Они и будет шрифтом для формирования штрихкода.
                    ВнешняяКомпонента.Шрифт = ТекущийШрифт;
                    Прервать;
                КонецЕсли;
            КонецЦикла;
        КонецЕсли;
        // Установим размер шрифта
        ВнешняяКомпонента.РазмерШрифта = 12;
        
        Возврат ВнешняяКомпонента;
    КонецЕсли;
    
КонецФункции

 

печать штрихкод внешняя компонента неуправляемые формы

См. также

Медиадисплей. Рекламный информационный монитор для покупателя.

Разработка внешних компонент POS терминал Рабочее место Розничная торговля Платформа 1С v8.3 1С:Комплексная автоматизация 1.х 1С:Управление торговлей 10 1С:Розница 2 1С:Управление нашей фирмой 1.6 1С:ERP Управление предприятием 2 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х Розничная и сетевая торговля (FMCG) Рестораны, кафе и фаст-фуд Реклама, PR и маркетинг Управленческий учет Платные (руб)

Монитор покупателя может отображать текущую покупку на кассовом месте, показывать видеорекламу, баннеры, во время простоя разворачивать рекламу на весь экран. Можно использовать в качестве графического меню-борда в кафе и видеовывески. Управление выводом на телевизор через hdmi-приставку на базе Windows или Android. В качестве устройства отображения можно использовать Android-планшеты, фоторамки с Android, монитор любого Windows-компьютера, доступного по сети. Настраивается ЛЮБОЙ ДИЗАЙН экрана!

16800 руб.

30.05.2017    52118    34    69    

43

Ценники и этикетки со штрих-кодом для 1С 8.х любой конфигурации

Этикетки, ценники Платформа 1С v8.3 Конфигурации 1cv8 Розничная и сетевая торговля (FMCG) Рестораны, кафе и фаст-фуд Беларусь Украина Россия Управленческий учет Платные (руб)

Простая в использовании обработка для формирования и печати ценников и этикеток со штрих-кодом, с дополнительной ценой, для 1С8.х любой конфигурации. Большое разнообразие шаблонов печатных форм. Управляемая форма (Такси) + Обычный режим.

3588 руб.

11.11.2020    47571    53    44    

64

Печать ценников. (Розница 2.3, УНФ 1.6, две цены + серийные номера) + УНФ 3.0

Этикетки, ценники Платформа 1С v8.3 Управляемые формы 1С:Розница 2 1С:Управление нашей фирмой 1.6 Платные (руб)

Встроенная в конфигурации Розница 2.3 и УНФ 1.6 подсистема печати ценников по мне слишком неповоротлива и с усилиями поддается тонкой настройке, решил с нуля написать свою универсальную печать ценников для этих конфигураций.

2000 руб.

04.11.2019    28150    113    87    

52

Внешняя компонента для сканирования (замена TWAIN-компоненты БСП) (Native Win 32/64)

Разработка внешних компонент Платформа 1С v8.3 Конфигурации 1cv8 Платные (руб)

Внешняя компонента позволяет работать c TWAIN-совместимым оборудованием (сканерами, камерами) . Полностью совместима со стандартной TWAIN-компонентой из БСП и может применяться как ее замена без изменения вызовов, при этом может работать с 64-разрядной платформой, а так же имеет расширенную функциональность, например, сохранение результата непосредственно в PDF без использования сторонних утилит. Прекрасно работает на сервере, тонком клиенте и веб-клиенте (проверена работа в браузерах Google Chrome, Mozilla Firefox и Microsoft Internet Explorer).

2400 руб.

12.05.2020    26253    131    99    

83

Внешняя компонента для подключения 1С к телефонии Asterisk

Разработка внешних компонент Телефония, SIP Платформа 1С v8.3 Конфигурации 1cv8 Россия Платные (руб)

Внешняя компонента выполнена по технологии Native API для 1С 8.х, обеспечивает доступ к программным АТС Asterisk (FreePBX, Elastix) через AMI интерфейс. Через него можно управлять многими функциями Asterisk (определение номеров, перевод звонков, набор телефона и т. д.)

2400 руб.

04.05.2018    44988    117    64    

60

Внешняя компонента печати PDF (Native Win 32/64)

Разработка внешних компонент Платформа 1С v8.3 Конфигурации 1cv8 Платные (руб)

Внешняя компонента позволяет печатать PDF файлы непосредственно из 1С, не используя при этом сторонних программ. Прекрасно работает на сервере, тонком клиенте и веб-клиенте. Основана на проекте PDFium из состава проекта Chromium/Chrome

1500 руб.

17.09.2018    35089    104    123    

111

Мастер создания внешних компонент 1С (технология COM) для DELPHI 6/7/8/2005/2006/2007/2008/2010/XE/XE2/XE3

Разработка внешних компонент Платформа 1С v8.3 Платные (руб)

Средство для сверхбыстрой разработки внешних компонент 1С:Предприятия 7.7 и 8 по технологии COM на всех версиях DELPHI, начиная с 6.

2000 руб.

28.03.2013    54006    35    14    

68

QR-код с логотипом компании (обычная и управляемая форма)

Разработка внешних компонент Платформа 1С v8.3 Управляемые формы Конфигурации 1cv8 Платные (руб)

Как известно, стремление сделать свою рекламную продукцию запоминающейся и выделяющейся — верный путь к успеху. Сегодня, мы поговорим с вами о том, что можно сделать с обычным черно-белым QR-кодом, чтобы он стал более живым и привлекательным. Если вам не терпится попробовать сделать QR-код с логотипом компании, то эта обработка для вас!

2400 руб.

22.06.2016    30844    4    4    

8
Комментарии
В избранное Подписаться на ответы Сортировка: Древо развёрнутое
Свернуть все
1. dandykry 9 10.02.20 11:06 Сейчас в теме
Просто код типовых конфигураций? Ничего своего?
2. karamazoff 95 10.02.20 11:07 Сейчас в теме
3. unknown181538 151 16.03.20 00:16 Сейчас в теме
4. SONICUS 21.05.20 14:50 Сейчас в теме
Не знаю как тут, а у меня качество отстой полный.
5. karamazoff 95 21.05.20 15:40 Сейчас в теме
(4)а вы использовали приведенные выше процедуры и макеты из УНФ, или скачали обработку?
6. SONICUS 21.05.20 17:57 Сейчас в теме
использовал код. Кстати, в нем есть 2 места где в непосредственно присваивается размер шрифта и нет ни какого смысла его в параметрах передавать. Саму компоненту я тоже выдрал с унф и даже пробовал с ут11. Сканеры такое отказываются считывать и на вид мыло сплошное. Погуглил в интернете и понял, что я не одинок в этом. Возможно большие штрих коды он более менее печатает, а вот меньше ужас один. Прикреплю скрин, где показано как было в 8,2 и как стало на 16 платформе.
Прикрепленные файлы:
7. karamazoff 95 22.05.20 09:43 Сейчас в теме
(6)то что он менее четкий, чем был раньше, это да (раньше то это просто шрифт был), но у меня 2*4 см читается сканером хорошо. Да и у вас на правой картинке не так все плохо,мой телефон его распознал с такой-же скоростью как и левый.
До того как догадался использовать макет "Эталон" и код установки размеров по нему, тоже были пляски с бубнами с подгоном размеров, шрифтов и т.п.
Это ж типовой функционал, если бы он плохо работал юзеры давно бы уже взвыли...
8. SONICUS 22.05.20 13:28 Сейчас в теме
Они и воют. В унф всего 2 места, где можно печатать штрихкод и то ими ни кто не пользуется. Этот шрихкод читается, т.к он не выведен на печать. Я если попробовать например в пдф на виртуальный принтер распечатать, то он не читаемый уже. У нас многие клиенты например могут с пдф в телефоне прийти и вот у таких он не прочитается. прикреплю скрин из пдф. попробуйте прочтите сканером.
Прикрепленные файлы:
9. karamazoff 95 23.05.20 11:50 Сейчас в теме
(8)этот, да, не читается, но у меня 3 конторы на унф где на складе ведут учет по ШК, печатают клеют, сканируют, проблем нигде нет...
10. SONICUS 25.05.20 09:43 Сейчас в теме
Тогда я не понимаю что не так у меня. почему такое качество фиговое при печати.
11. user1274052 04.11.20 19:12 Сейчас в теме
У меня УНФ на mac при печати этикеток со штрихкодами выдает след.ошибку "ошибка подключения внешней компоненты печати штрихкода "
Подскажите есть ли решение данной проблемы?
12. karamazoff 95 04.11.20 20:35 Сейчас в теме
(11)про mac не подскажу, если даже типовая унф не выводит штрих, то это к разработчикам
13. Светлый ум 406 02.07.21 07:58 Сейчас в теме
+1 Пригодилось на последнем релизу УНФ.
Причины отвалившейся печати баркода:

- Использование 64 битной платформы (под 32 все работает)
- Патченная платформа (там вообще не угадаешь из-за чего)
Оставьте свое сообщение