Как программно вывести несколько штрихкодов номенклатуры в 1С:КА?

[Odineski]

как в 1с КА программно вывести в печатную форму несколько штрихкодов номенклатуры

[Odin — Одинэсник]

В 1С:КА (Комплексная автоматизация) для вывода нескольких штрихкодов номенклатуры в печатную форму программно нужно:

1. Получить список штрихкодов по номенклатуре из регистра сведений «ШтрихкодыНоменклатуры». В этом регистре хранятся все штрихкоды, привязанные к номенклатуре, характеристикам и упаковкам.

2. Передать полученные штрихкоды в макет печатной формы, например, в табличную часть или массив.

3. В макете печатной формы (например, в макете на СКД или в макете на внешнем формате) организовать вывод нескольких штрихкодов — например, в виде таблицы или списка с подписями.

Пример кода на встроенном языке 1С для получения штрихкодов номенклатуры:

1С (Код)

// Получить все штрихкоды для номенклатуры Функция ПолучитьШтрихкодыНоменклатуры(СсылкаНоменклатуры) Запрос = Новый Запрос; Запрос.Текст = "ВЫБРАТЬ | ШтрихкодыНоменклатуры.Штрихкод, | ШтрихкодыНоменклатуры.Характеристика, | ШтрихкодыНоменклатуры.Упаковка |ИЗ | РегистрСведений.ШтрихкодыНоменклатуры КАК ШтрихкодыНоменклатуры |ГДЕ | ШтрихкодыНоменклатуры.Номенклатура = &Номенклатура"; Запрос.УстановитьПараметр("Номенклатура", СсылкаНоменклатуры); Результат = Запрос.Выполнить(); Выборка = Результат.Выбрать(); МассивШтрихкодов = Новый Массив; Пока Выборка.Следующий() Цикл МассивШтрихкодов.Добавить(Выборка.Штрихкод); КонецЦикла; Возврат МассивШтрихкодов; КонецФункции

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

// Получить все штрихкоды для номенклатуры Функция ПолучитьШтрихкодыНоменклатуры(СсылкаНоменклатуры)     Запрос = Новый Запрос;     Запрос.Текст =     "ВЫБРАТЬ     |   ШтрихкодыНоменклатуры.Штрихкод,     |   ШтрихкодыНоменклатуры.Характеристика,     |   ШтрихкодыНоменклатуры.Упаковка     |ИЗ     |   РегистрСведений.ШтрихкодыНоменклатуры КАК ШтрихкодыНоменклатуры     |ГДЕ     |   ШтрихкодыНоменклатуры.Номенклатура = &Номенклатура";       Запрос.УстановитьПараметр("Номенклатура", СсылкаНоменклатуры);       Результат = Запрос.Выполнить();     Выборка = Результат.Выбрать();       МассивШтрихкодов = Новый Массив;     Пока Выборка.Следующий() Цикл         МассивШтрихкодов.Добавить(Выборка.Штрихкод);     КонецЦикла;       Возврат МассивШтрихкодов; КонецФункции

Далее в процедуре формирования печатной формы передайте этот массив в макет и в макете организуйте вывод штрихкодов, например, с помощью элемента «Таблица» или «Повторитель».

Если используете СКД (Схему Компоновки Данных) для печатной формы, можно сделать запрос по регистру «ШтрихкодыНоменклатуры» с фильтром по номенклатуре и вывести результат в табличном виде.

Для печати штрихкодов в виде графики используйте шрифты штрихкодов (например, Code39, Code128) или генерацию штрихкода через внешние компоненты или встроенные средства (например, библиотеку BarCode).

Если нужно вывести штрихкоды с сериями, характеристиками и количеством, то расширьте запрос и структуру данных, передаваемых в макет.

—

Кратко:

— Запросить штрихкоды из регистра сведений «ШтрихкодыНоменклатуры» по нужной номенклатуре.
— Передать полученный список в макет печатной формы.
— В макете вывести штрихкоды в табличном или списочном виде, используя шрифт штрихкода или графику.

—
https://infostart.ru/public/1835264/ — автоматическая генерация и печать штрихкодов в 1С:УТ, применимо и к КА.
https://infostart.ru/public/1114630/ — выгрузка и работа с регистром штрихкодов.

[Автор]

Сообщения