Dev ›
Дублирование кода Честный знак ›
#1
29.12.23 14:53
Всем привет, нужно решить такую задачу. Нам необходимо наклеить дубликат честного знака на упаковку, для отправки товара на маркетплейсы. Данный товар, через честный знак, на нашу организацию не переводится.
Следовательно ни какой информации о товаре в РС ПулКодовМаркировкиСУЗ - нет.
Попробовал напечатать ту информацию которую выдает сканер, но полученный ШК не проходит проверку. Как я понял в ШК есть еще не печатаемые символы, которые сканер не передает.
Попробовал типовыми средствами разделить полученную строку от сканера
командой
РазборКодаМаркировкиИССлужебныйКлиент.РазобратьКодМаркировки(ШтрихкодВФорматеGS1)
тут получил структуру в которой есть такие данные как EAN, GTIN, СерийныйНомер, НормализованныйКодМаркировки и пр. сопутствующие данные. Однако при наличии всех этих данных, добиться корректного кода пока не получается.
| Код |
|---|
ШтрихкодВФорматеGS1 = ШтрихкодированиеИСКлиентСервер.ШтрихкодВФорматеGS1(КМ_Кратко);
СтруктураКМ = РазборКодаМаркировкиИССлужебныйКлиент.РазобратьКодМаркировки(ШтрихкодВФорматеGS1);
ПараметрыШтрихкода = ПечатьЭтикетокИСМПКлиентСервер.СтруктураПечатиЭтикетки();
ПараметрыШтрихкода.Вставить("Штрихкод" , ПолныйКодМаркировки);
ПараметрыШтрихкода.Вставить("GTIN" , СтруктураКМ.СоставКодаМаркировки.GTIN);
ПараметрыШтрихкода.Вставить("Док" , Документы.ПриобретениеТоваровУслуг.ПустаяСсылка());
ПараметрыШтрихкода.Вставить("ВидПродукции" , ВидыПродукцииИС);
ПараметрыШтрихкода.Вставить("ЕстьВПулеКодовМаркировки" , Истина);
ДанныеКодаМаркировки = Новый Структура;
ДанныеКодаМаркировки.Вставить("ПараметрыСканирования" , "");
ДанныеКодаМаркировки.Вставить("ДанныеШтрихкода" , ПараметрыШтрихкода);
//СтруктураПараметров.Вставить("ДанныеШтрихкода" , ПолеВвода);
ПараметрыСканирования = ДанныеКодаМаркировки.ПараметрыСканирования;
ДанныеШтрихкода = ДанныеКодаМаркировки.ДанныеШтрихкода;
Если Не ДанныеШтрихкода.ЕстьВПулеКодовМаркировки Тогда
ШтрихкодированиеИСМПСлужебный.СохранениеКодаМаркировкиВПул(
ШтрихкодированиеИС.ИнициализироватьРезультатОбработкиШтрихкода(),
ДанныеШтрихкода,
ПараметрыСканирования);
КонецЕсли;
Если ИнтеграцияИСПовтИсп.ЭтоПродукцияМОТП(ДанныеШтрихкода.ВидПродукции) Тогда
КодМаркировки = РазборКодаМаркировкиИССлужебныйКлиентСервер.НормализоватьКодМаркировки(
ДанныеШтрихкода.ДанныеРазбора,
ДанныеШтрихкода.ВидПродукции,
РазборКодаМаркировкиИССлужебныйКлиентСервер.НастройкиРазбораКодаМаркировкиДляСохраненияВПул());
ИначеЕсли ИнтеграцияИСПовтИсп.ЭтоПродукцияИСМП(ДанныеШтрихкода.ВидПродукции) Тогда
КодМаркировки = ДанныеШтрихкода.Штрихкод;
Иначе
КодМаркировки = ДанныеШтрихкода.Штрихкод;
КонецЕсли;
ХешСуммаКодаМаркировки = ИнтеграцияИС.ХешированиеДанныхSHA256(КодМаркировки);
ОбъектыПечати = Новый Массив;
ПараметрыШтрихкода = ПечатьЭтикетокИСМПКлиентСервер.СтруктураПечатиЭтикетки();
ЗаполнитьЗначенияСвойств(ПараметрыШтрихкода, ДанныеШтрихкода);
ПараметрыШтрихкода.ШаблонЭтикетки = Объект.ШаблонЭтикетки;
ПараметрыШтрихкода.Количество = 1;
ПараметрыШтрихкода.КодМаркировки = КодМаркировки;
ПараметрыШтрихкода.ХешСуммаКодаМаркировки = ХешСуммаКодаМаркировки;
ОбъектыПечати.Добавить(ПараметрыШтрихкода);
ДанныеДляПечати = Новый Структура;
ДанныеДляПечати.Вставить("ОбъектыПечати" , ОбъектыПечати);
ДанныеДляПечати.Вставить("Документ" , ДанныеШтрихкода.Док);
ДанныеДляПечати.Вставить("КаждаяЭтикеткаНаНовомЛисте" , Истина);
ДанныеДляПечати.Вставить("ПакетнаяПечать" , Ложь);
ДанныеДляПечати.Вставить("РазрешитьПовторнуюПечать" , Истина);
ДанныеДляПечати.Вставить("РежимПечати" , "Выборочно");
ДанныеДляПечати.Вставить("ДополнительныеПараметры" , Новый Структура);
ПечатьЭтикетокИСМПКлиент.НапечататьЭтикеткиИСМП(ДанныеДляПечати, ЭтотОбъект);
|
Что я делаю не так, с честным знаком не работал, а задачу надо решить в ближайшее время.
