8.х BarCode

Тема в разделе "Конфигурирование на платформе "1С:Предприятие 8"", создана пользователем bestuzhev, 22 апр 2008.

  1. TopicStarter Overlay
    bestuzhev
    Offline

    bestuzhev

    Регистрация:
    13 июл 2007
    Сообщения:
    11
    Симпатии:
    0
    Баллы:
    1
    Ткните вдоку по работе с barcode из 1с 8.1....
    А еще лучшее примерчик...
  2. GRUV
    Offline

    GRUV Опытный в 1С

    Регистрация:
    7 ноя 2007
    Сообщения:
    106
    Симпатии:
    0
    Баллы:
    26
    Нужно установить драйвер "Печать штрих-кода"

    пример:

    Код:
    //Печать штрих-кода
    ТипКода = 4;      // Тип штрих-кода: Code128
    ФИО = "Вася Пупкин";
    ШтрихКод = "123456789";
    Попытка
    КомпонентШК = Новый COMОбъект("V8.Barcod");
    Исключение
    Сообщить("Компонента 1С:Печать штрих-кодов не установлена на данном компьютере!"+Символы.ПС+
    "Обратитесь к администратору"+Символы.ПС, СтатусСообщения.Важное);
    Возврат;
    КонецПопытки;
    
    Попытка
    КомпонентШК.ТипКода   = ТипКода;
    КомпонентШК.Сообщение = ШтрихКод;
    КомпонентШК.ОтображатьТекст = Ложь;
    Исключение
    Сообщить("Ошибка печати"+Символы.ПС+"Обратитесь к администратору"+Символы.ПС);
    Возврат;
    КонецПопытки;
    
    ТабДок                         = Новый ТабличныйДокумент;
    Макет                           = ПолучитьОбщийМакет("ШтрихКодСотрудника");
    ЭтикеткаОбласть           = Макет.ПолучитьОбласть(1,1,6,2);
    ОбластьСотрудник   	= ЭтикеткаОбласть.Области.Сотрудник;
    ОбластьШтрихкод         = ЭтикеткаОбласть.Области.ОбластьШтрихкод;
    РисунокШтрихкод         = ЭтикеткаОбласть.Рисунки.Штрихкод;
    РисунокШтрихкод.Расположить(ОбластьШтрихкод);
    
    ЭтикеткаОбласть.Рисунки.Штрихкод.Объект.ТипКода = КомпонентШК.ТипКода;
    ЭтикеткаОбласть.Рисунки.Штрихкод.Объект.Сообщение = КомпонентШК.Сообщение;
    ЭтикеткаОбласть.Рисунки.Штрихкод.Объект.ОтображатьТекст = КомпонентШК.ОтображатьТекст;
    
    ОбластьСотрудник.Текст  = ФИО;
    
    ТабДок.Присоединить(ЭтикеткаОбласть);
    
    ТабДок.Напечатать(Ложь);
    
  3. BabySG
    Offline

    BabySG Администраторы Команда форума Администратор

    Регистрация:
    10 июн 2007
    Сообщения:
    11.853
    Симпатии:
    12
    Баллы:
    29
    На диске ИТС есть описание.

Поделиться этой страницей