|
Генерация штрихкодов в УТ 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) Да спасибо, я уже ее нашел через обработку на которую мне указали выше=)
|
|
Чтобы обнаруживать ошибки, программист должен иметь ум, которому доставляет удовольствие находить изъяны там, где, казалось, царят красота и совершенство. Фредерик Брукс-младший