Как добавить GTIN из маркировки в карточку номенклатуры в 1С:РМК?

[Odineski]

можешь дать полный код, который в рмк после сканирования маркировки корректно добавит его в карточку?
если отсканировать маркировку, то вылетит окно сопоставления. мы отсканируем штрихкод с товара, потом «перенести в документ» и тут должен корректно привязаться только gtin из маркировки, а не вся маркировка, и затем вылететь меню сопоставления упаковки, где мы выберем «потребительская упаковка»
обратный вариант — сначала штрихкод, он попросит маркировку, отсканируем. тут в карточку должен привязаться gtin из маркировки, потом вылететь выбор «потребительская упаковка».
ну или сразу добавлять gtin к номенклатуре с потребительской упаковкой после сканирования марки или переноса в документ с привязанной характеристикой

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

Вот пример кода расширения (или внешней обработки) для 1С:Розница 2.3, который перехватывает ввод маркировки в РМК, выделяет из DataMatrix только GTIN (EAN13), и корректно связывает его с номенклатурой и характеристикой, а затем вызывает стандартное окно выбора упаковки (потребительской).

Основная идея:

— При сканировании маркировки вызывается функция, которая выделяет GTIN из полного кода маркировки.

— По GTIN ищется номенклатура и характеристика.

— В карточку добавляется именно GTIN.

— После этого вызывается стандартное окно сопоставления упаковки.

—

### Пример кода (BSL):

1С (Код)

// Функция выделения GTIN из маркировки DataMatrix Функция ПолучитьGTINИзМаркировки(Маркировка) // Пример маркировки: (01)04099979378698(21)54r<KqJ"&l)Yu // Нужно взять 14 цифр после (01), убрать ведущий 0 Паттерн = "(s*01s*)(d{14})"; РегЭксп = Новый РегулярноеВыражение(Паттерн); Результат = РегЭксп.Найти(Маркировка); Если Результат = Неопределено Тогда Возврат Неопределено; КонецЕсли; Код = Результат.Получить(1); // Убираем ведущий 0 Если Лев(Код,1) = "0" Тогда Код = Сред(Код,2); КонецЕсли; Возврат Код; КонецФункции // Процедура обработки сканирования маркировки в РМК Процедура ОбработатьСканированиеМаркировки(СтрокаМаркировки, РМКОбъект) // Получаем GTIN из маркировки GTIN = ПолучитьGTINИзМаркировки(СтрокаМаркировки); Если GTIN = Неопределено Тогда // Если не удалось выделить GTIN, используем исходную маркировку GTIN = СтрокаМаркировки; КонецЕсли; // Ищем номенклатуру и характеристику по GTIN Запрос = Новый Запрос; Запрос.Текст = |ВЫБРАТЬ | ШтрихкодыНоменклатуры.Номенклатура, | ШтрихкодыНоменклатуры.Характеристика |ИЗ | РегистрСведений.ШтрихкодыНоменклатуры КАК ШтрихкодыНоменклатуры |ГДЕ | ШтрихкодыНоменклатуры.Штрихкод = &Штрихкод | И ШтрихкодыНоменклатуры.Активность = ИСТИНА |УПОРЯДОЧИТЬ ПО | ШтрихкодыНоменклатуры.ДатаНачала ДЕСТВИЯ УБЫВ |; Запрос.УстановитьПараметр("Штрихкод", GTIN); Результат = Запрос.Выполнить(); Выборка = Результат.Выбрать(); Если Выборка.Следующий() Тогда Номенклатура = Выборка.Номенклатура; Характеристика = Выборка.Характеристика; Иначе // Если не нашли, можно предложить выбрать вручную Номенклатура = Неопределено; Характеристика = Неопределено; КонецЕсли; // Добавляем позицию в документ РМК с найденной номенклатурой и характеристикой Если Номенклатура <> Неопределено Тогда // Добавляем позицию с GTIN как штрихкодом упаковки НоваяСтрока = РМКОбъект.Товары.Добавить(); НоваяСтрока.Номенклатура = Номенклатура; НоваяСтрока.Характеристика = Характеристика; НоваяСтрока.Количество = 1; // Записываем GTIN в штрихкод упаковки (потребительская упаковка) НоваяСтрока.ШтрихкодУпаковки = GTIN; Иначе // Если не нашли, вызываем стандартное окно выбора номенклатуры РМКОбъект.ВыбратьНоменклатуру(); // После выбора можно повторить добавление с GTIN КонецЕсли; // Вызвать стандартное окно выбора упаковки (потребительская упаковка) Если РМКОбъект.Товары.Количество() > 0 Тогда ТекущаяСтрока = РМКОбъект.Товары[РМКОбъект.Товары.Количество() - 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 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74

// Функция выделения GTIN из маркировки DataMatrix Функция ПолучитьGTINИзМаркировки(Маркировка)     // Пример маркировки: (01)04099979378698(21)54r<KqJ"&l)Yu     // Нужно взять 14 цифр после (01), убрать ведущий 0     Паттерн = "(s*01s*)(d{14})";     РегЭксп = Новый РегулярноеВыражение(Паттерн);     Результат = РегЭксп.Найти(Маркировка);     Если Результат = Неопределено Тогда         Возврат Неопределено;     КонецЕсли;     Код = Результат.Получить(1);     // Убираем ведущий 0     Если Лев(Код,1) = "0" Тогда         Код = Сред(Код,2);     КонецЕсли;     Возврат Код; КонецФункции   // Процедура обработки сканирования маркировки в РМК Процедура ОбработатьСканированиеМаркировки(СтрокаМаркировки, РМКОбъект)     // Получаем GTIN из маркировки     GTIN = ПолучитьGTINИзМаркировки(СтрокаМаркировки);     Если GTIN = Неопределено Тогда         // Если не удалось выделить GTIN, используем исходную маркировку         GTIN = СтрокаМаркировки;     КонецЕсли;       // Ищем номенклатуру и характеристику по GTIN     Запрос = Новый Запрос;     Запрос.Текст =     |ВЫБРАТЬ     |   ШтрихкодыНоменклатуры.Номенклатура,     |   ШтрихкодыНоменклатуры.Характеристика     |ИЗ     |   РегистрСведений.ШтрихкодыНоменклатуры КАК ШтрихкодыНоменклатуры     |ГДЕ     |   ШтрихкодыНоменклатуры.Штрихкод = &Штрихкод     |   И ШтрихкодыНоменклатуры.Активность = ИСТИНА     |УПОРЯДОЧИТЬ ПО     |   ШтрихкодыНоменклатуры.ДатаНачала ДЕСТВИЯ УБЫВ     |;     Запрос.УстановитьПараметр("Штрихкод", GTIN);     Результат = Запрос.Выполнить();     Выборка = Результат.Выбрать();     Если Выборка.Следующий() Тогда         Номенклатура = Выборка.Номенклатура;         Характеристика = Выборка.Характеристика;     Иначе         // Если не нашли, можно предложить выбрать вручную         Номенклатура = Неопределено;         Характеристика = Неопределено;     КонецЕсли;       // Добавляем позицию в документ РМК с найденной номенклатурой и характеристикой     Если Номенклатура <> Неопределено Тогда         // Добавляем позицию с GTIN как штрихкодом упаковки         НоваяСтрока = РМКОбъект.Товары.Добавить();         НоваяСтрока.Номенклатура = Номенклатура;         НоваяСтрока.Характеристика = Характеристика;         НоваяСтрока.Количество = 1;         // Записываем GTIN в штрихкод упаковки (потребительская упаковка)         НоваяСтрока.ШтрихкодУпаковки = GTIN;     Иначе         // Если не нашли, вызываем стандартное окно выбора номенклатуры         РМКОбъект.ВыбратьНоменклатуру();         // После выбора можно повторить добавление с GTIN     КонецЕсли;       // Вызвать стандартное окно выбора упаковки (потребительская упаковка)     Если РМКОбъект.Товары.Количество() > 0 Тогда         ТекущаяСтрока = РМКОбъект.Товары[РМКОбъект.Товары.Количество() - 1];         РМКОбъект.ВыбратьУпаковку(ТекущаяСтрока);     КонецЕсли; КонецПроцедуры

—

### Как использовать:

— В расширении или внешней обработке подписаться на событие сканирования в РМК (например, через обработчик события формы РМК).

— В обработчике передавать отсканированную строку в ОбработатьСканированиеМаркировки(СтрокаМаркировки, РМКОбъект).

— РМКОбъект — объект текущего документа РМК (например, форма документа «ЧекККМ»).

—

### Что делает код:

— Выделяет из маркировки GTIN (EAN13).

— Ищет номенклатуру и характеристику по GTIN в регистре «ШтрихкодыНоменклатуры».

— Добавляет позицию с найденной номенклатурой и характеристикой, записывает GTIN как штрихкод упаковки.

— Вызывает стандартное окно выбора упаковки (потребительская упаковка).

—

Если нужно, могу помочь с примером расширения, которое подключается к РМК и реализует этот функционал полностью. Но в целом, именно так решается задача корректной обработки маркировки без правки типовой конфигурации.

Рекомендую посмотреть примеры работы с маркировкой и расширениями на infostart:

https://infostart.ru/public/2232757/

https://infostart.ru/articles/1325823/

[Автор]

Сообщения