|
Штрихкодирование в 1С Бухгалтерия | ☑ | ||
---|---|---|---|---|
0
Джони1989
14.06.23
✎
09:51
|
Добрый день, Уважаемые Коллеги. Помогите решить одну задачу, возможно для кого-то это будет не сложно, но для меня как для новичка вызывает большую затрудненность в решении данной задачи. Как можно генерировать штрихкод на печатной форме УПД в 1С:Бухгалтерии.
|
|||
1
Мимохожий Однако
14.06.23
✎
09:56
|
(0) Начни с чтения документации к конфигурации Бухгалтерия предприятия 8 на эту тему.
|
|||
2
Мультук
14.06.23
✎
09:56
|
(0)
Генерировать штрихкод ЧЕГО ? Документа ? |
|||
3
Джони1989
14.06.23
✎
10:32
|
Генерировать штрихкод на накладной УПД, да документа.
|
|||
4
vladmenleo
14.06.23
✎
10:55
|
(3) ну вот так например
ШтрихКодДокумента = СсылкаНомерДок + ";" + СсылкаДатаДок + ";" + СокрЛП(Ссылка.Контрагент.Код) + ";" + СокрЛП(Ссылка.Итог("Сумма"))+ ";" + СокрЛП(Ссылка.Итог("НДС")); а потом выводишь его Далее для торговли УТ 11.4 примерно так ОбластьМакетаСекция.Рисунки.Рисунок1.Картинка = СформироватьШтрихкодПечатнойФормы(ШтрихКодДокумента, ОбластьМакетаСекция.Рисунки.Рисунок1); Функция СформироватьШтрихкодПечатнойФормы(XMLШтрихКода, Рисунок) УстановитьПривилегированныйРежим(Истина); Эталон = Обработки.ПечатьЭтикетокИЦенников.ПолучитьМакет("Эталон"); УстановитьПривилегированныйРежим(Ложь); КоличествоМиллиметровВПикселеВысота = Эталон.Рисунки.Квадрат100Пикселей.Высота / 200; КоличествоМиллиметровВПикселеШирина = Эталон.Рисунки.Квадрат100Пикселей.Ширина / 200; ПараметрыШтрихкода = Новый Структура; ПараметрыШтрихкода.Вставить("Ширина" , Окр(Рисунок.Ширина / КоличествоМиллиметровВПикселеШирина)); ПараметрыШтрихкода.Вставить("Высота" , Окр(Рисунок.Высота / КоличествоМиллиметровВПикселеВысота)); ПараметрыШтрихкода.Вставить("ТипКода" , 16); ПараметрыШтрихкода.Вставить("ОтображатьТекст" , Истина); ПараметрыШтрихкода.Вставить("РазмерШрифта" , 16); ПараметрыШтрихкода.Вставить("УголПоворота" , Число(0)); ПараметрыШтрихкода.Вставить("Штрихкод" , XMLШтрихКода); ПараметрыШтрихкода.Вставить("ПрозрачныйФон" , Истина); ПараметрыШтрихкода.Вставить("УровеньКоррекцииQR", 0); Возврат МенеджерОборудованияВызовСервера.ПолучитьКартинкуШтрихкода(ПараметрыШтрихкода); КонецФункции В данном случае выведется QRКод, дальше кури сам |
|||
5
Джони1989
14.06.23
✎
11:37
|
Спасибо!
|
|||
6
Sun_Lin
14.06.23
✎
13:31
|
+(4) Я бы ШК засунул 2 знака - код организации без префикса и нулей, 2 знака год, остальное под номер дока. Легче потом будет искать обработкой со сканером.
|
|||
7
Sun_Lin
14.06.23
✎
13:32
|
но это если EAN-13, но хотя в QR да, можно засунуть хоть весь док.
|
|||
8
vladmenleo
14.06.23
✎
14:46
|
(6) Ну у меня в номере документа есть префикс организации, поэтому ищется без проблем
|
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |