Имя: Пароль:
1C
1С v8
Штрихкодирование в 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) Ну у меня в номере документа есть префикс организации, поэтому ищется без проблем