Печать штрих-кодов в управляемом приложении

12 Comments

1. fibrsb 19.06.2012 at 10:30

   >Внешняя печатная форма для типовых конфгураций на управляемом приложении для печати штрихкодов.

   >В УТ 11 эта форма подключается к документу реализации. для подключения к другим документам и в других конфигурациях — смотрите >процедуру ПолучитьНазначениеОбработки() в модуле объекта.

   >Печатная форма просто выводит список номенклатуры и штрихкода из табличной части.

   как раз столкнулся в необходимости в данной обработке, а какие форматы штрих кодов поддерживает обработка? Полагаю все?

   Reply ↓
2. Stim213 19.06.2012 at 10:52

   все. Обработка использует типовые методы формирования ШК

   Reply ↓
3. RomanUzmov 24.06.2012 at 22:55

   С 2D-штрихкодами тоже умеет работать?

   Reply ↓
4. Dethmond 25.06.2012 at 10:23

   Интересно, спасибо

   Reply ↓
5. Stim213 25.06.2012 at 10:41

   (3) а разве типовые базы умеют хранить двумерные ШК?
   
   а задача интересная

   Reply ↓
6. v.l. 25.06.2012 at 16:00

   (5) О, да. Хранятся данные, которые потом этим кодом шифруются.

   Reply ↓
7. v.l. 25.06.2012 at 16:00

   В статье напиши, пожалуйста, примеры кода. А кому лень — пусть качают.

   Reply ↓
8. serq82 12.09.2014 at 08:00

   в данное время подключение компоненты делается так:

   ПодключениеВыполнено = ПодключитьВнешнююКомпоненту(«ОбщийМакет.КомпонентаПечатиШтрихкодов», «КартинкаШтрихкода», ТипВнешнейКомпоненты.Native);

   Reply ↓
9. markovki 16.12.2014 at 16:44

   (2) благодарю за пример!!! Долго мучился, не получалось напечатать штрихкод в виде картинки, адаптировал несколько фрагметов кода под свою обработку печати этикеток и ценников, для конфигурации розница 2.1

   Reply ↓
10. roofless 01.09.2015 at 08:39

    (10) markovki, получилось напечатать в виде картинки?

    Reply ↓
11. roofless 03.09.2015 at 14:54

    (11) roofless, нужно было вывести именно картинку, не просто на печатную форму, а чтобы можно было копировать в буфер.
    
    сделал так
    

    &НаКлиенте
    Процедура ВывестиШтрихкод(Команда)
    ДанныеФайла = ВывестиШтрихкодНаСервере();
    ОткрытьЗначение(ДанныеФайла);
    КонецПроцедуры
    
    &НаСервере
    Функция ВывестиШтрихкодНаСервере()
    Запрос = Новый Запрос(«ВЫБРАТЬ
    | ШтрихкодыНоменклатуры.Штрихкод,
    | ШтрихкодыНоменклатуры.Номенклатура.НаименованиеПолное КАК НаименованиеПолное
    |ИЗ
    | РегистрСведений.ШтрихкодыНоменклатуры КАК ШтрихкодыНоменклатуры
    |ГДЕ
    | ШтрихкодыНоменклатуры.Номенклатура = &Номенклатура»
    
    );
    
    Запрос.УстановитьПараметр(«Номенклатура», Объект.Ссылка);
    МассивРезультатов = Запрос.ВыполнитьПакет();
    ДанныеПечати = МассивРезультатов[0].Выбрать();
    
    Если ДанныеПечати.Количество() = 0 Тогда
    Возврат Неопределено
    Иначе
    
    ВнешняяКомпонента = Обработки.ПечатьЭтикетокИЦенников.ПодключитьВнешнююКомпонентуПечатиШтрихкода();
    Если ВнешняяКомпонента = Неопределено Тогда
    ВызватьИсключение НСтр(«ru = ‘Ошибка подключения внешней компоненты печати штрихкода!'»);
    КонецЕсли;
    
    Пока ДанныеПечати.Следующий() Цикл
    ФайлКартинки = ПолучитьКартинкуШтрихкода(ВнешняяКомпонента, ДанныеПечати.Штрихкод, 300, 110);
    КонецЦикла;
    
    Возврат ФайлКартинки;
    КонецЕсли;
    
    КонецФункции
    
    &НаСервере
    Функция ПолучитьКартинкуШтрихкода(ВнешняяКомпонента, Штрихкод, Ширина, Высота) Экспорт
    
    // Зададим размер картинки
    ВнешняяКомпонента.Ширина =Ширина;
    ВнешняяКомпонента.Высота =Высота;
    
    // Разрешим компоненте самой определять тип кода
    ВнешняяКомпонента.АвтоТип = истина;
    
    // Если код содержит контрольный символ, обязательно указываем
    ВнешняяКомпонента.СодержитКС = СтрДлина(Штрихкод) = 13;
    
    // Если отображать контрольный символ не нужно
    // ВнешняяКомпонента.ВидимостьКС = Ложь;
    
    // Формируем картинку штрихкода
    ВнешняяКомпонента.ЗначениеКода = Штрихкод;
    
    // Если установленная нами ширина меньше минимально допустимой для этого штрихкода
    Если ВнешняяКомпонента.Ширина < ВнешняяКомпонента.МинимальнаяШиринаКода Тогда
    // Скорректируем ширину
    ВнешняяКомпонента.Ширина = ВнешняяКомпонента.МинимальнаяШиринаКода + 10;
    КонецЕсли;
    // Сформируем картинку
    ДвоичныеДанныеКартинки = ВнешняяКомпонента.ПолучитьШтрихкод();
    
    // Если картинка сформировалась
    Если ДвоичныеДанныеКартинки <> Неопределено Тогда
    // Формируем из двоичных данных
    Возврат Новый Картинка(ДвоичныеДанныеКартинки);
    КонецЕсли;
    
    Возврат Неопределено;
    
    КонецФункции

    Показать

    Reply ↓
12. alex8miros 19.09.2017 at 15:16

    Зря только последний $m отдал. Совсем не то, что нужно 🙁

    Reply ↓