Имя: Пароль:
1C
1С v8
Генерация штрихкодов в УТ 11.1
0 Vade_kirza
 
25.07.14
16:29
Добрый день! помогите разобраться)) есть список номенклатуры и всем им нужно присвоить штрихкод, решил сделать обработку, и в процессе понял что не знаю по какому алгоритму должен он формироваться, решил цепануть из УТ 11.1 алгоритм, но вот незадача, уже всю конфу облазил, а где модуль вызываемый кнопкой "сформировать штрихкод" немогу никак)) может кто подсказать где его искать?)))
1 Холодильник
 
25.07.14
16:30
значит не всю конфу облазил
2 Vade_kirza
 
25.07.14
16:39
(1) ну не спорю) просто уже не знаю куда копать)
3 GreatOne
 
25.07.14
16:41
встроенная обработка "Печать этикеток и ценников"
4 GreatOne
 
25.07.14
16:44
Еще есть такой код: Делал печать штрих кодов, правда этим кодом все равно странно выводилось. Не мог никак подружиться с шириной/высотой картинки, как-то размазано выходило на принтере. Но, может быть будет полезно
5 GreatOne
 
25.07.14
16:44
ой, Для каждого Товар Из РезультатЗапроса Цикл
        Если Товар.Печатать Тогда
            Если Товар.ШтрихКод <> 0 И Товар.ТипШтрихКода <> 0 Тогда
                Для Сч = 1 По Товар.Количество Цикл
                    ПараметрыШтрихкода = Новый Структура;
                    ПараметрыШтрихкода.Вставить("Ширина", 50);
                    ПараметрыШтрихкода.Вставить("Высота", 30);
                    ПараметрыШтрихкода.Вставить("Штрихкод", Товар.ШтрихКод);
                    ПараметрыШтрихкода.Вставить("ТипКода", УстановитьТипШтрихКода(Товар.ТипШтрихКода));
                    ПараметрыШтрихкода.Вставить("ОтображатьТекст", Истина);
                    ПараметрыШтрихкода.Вставить("РазмерШрифта", 12);
                    ПараметрыШтрихкода.Вставить("ПрозрачныйФон", Истина);
                    
                    РисунокШтрихКода = ОбластьШК_ean13.Рисунки.Добавить(ТипРисункаТабличногоДокумента.Картинка);
                    РисунокШтрихКода.Картинка = МенеджерОборудованияВызовСервера.ПолучитьКартинкуШтрихкода(ПараметрыШтрихкода);
                    РисунокШтрихКода.Высота = 30;
                    РисунокШтрихКода.Ширина = 50;
                    РисунокШтрихКода.Верх = 8;
                    РисунокШтрихКода.РазмерКартинки = РазмерКартинки.Пропорционально;  
                    ОбластьШК_ean13.Параметры.Товар = Товар.Товар.НаименованиеПолное;
                    ТабличныйДокумент.Вывести(ОбластьШК_ean13);
                КонецЦикла;
            Иначе
                //Сообщить("Не заполнен регистр у " + Товар.Товар);
            КонецЕсли;
        КонецЕсли;
    КонецЦикла;
6 Vade_kirza
 
25.07.14
16:49
(5) Спасибо, вроде накопал нужную функцию в этой обработке, только вот мне нужно не печатать а именно сформировать циферный реквизит (штрихкод) для каждой позиции номенклатуры просто чтобы в базе были, сейчас их нет вообще, сейчас буду проверять
7 Aceforg
 
25.07.14
16:50
ищи функцию СформироватьШтрихкодEAN13
8 Vade_kirza
 
25.07.14
17:53
(7) Да спасибо, я уже ее нашел через обработку на которую мне указали выше=)