Необходимо было быстро по просьбе товарища создать ВПФ ТОРГ-12 для документа РТУ с выводом штрих-кода в поле Код. Найденная ВПФ выводила ШК с помощью коипоненты 1С:Печать штрих-кодов, что не удовлетворило заказчика. Требовалось выводить ШК в виде строки. К тому же ШК в базе имели разную длину (товар косметика из США) 8, 10 или 12 символов.
На просторах интернета была найдена функция (код взял «как есть» без изменений).
Function НайтиШтрихКод(НоменклатураВТаблице)
ШтрихКодНом="";
ОтборШ = Новый Структура;
ОтборШ.Вставить("Владелец",НоменклатураВТаблице);
ВыборкаШтрихКодов = РегистрыСведений.Штрихкоды.Выбрать(ОтборШ);
While ВыборкаШтрихКодов.Следующий() Do
ШтрихКодНом=ВыборкаШтрихКодов.Штрихкод;
If Не ПустаяСтрока(ШтрихКодНом) Then
break;
EndIf;
EndDo;
Return ШтрихКодНом;
EndFunction
Т.к. функция работает с входными данными НоменклатураВТаблице типа «ссылка», был добавлен код
ТоварВыбор = ВыборкаСтрок.ТоварНаименование;
ТоварСсылка=Справочники.Номенклатура.НайтиПоНаименованию(ТоварВыбор);
БаркодТовара = НайтиШтрихКод (ТоварСсылка);
ОбластьМакета.Параметры.ШК = БаркодТовара;
Соответственно выборка поля Код для товара закомментирована и по просьбе заказчика закомментирована выборка Масса. Т.к. товары имеют один единственный штрих-код, выборка по характеристикам не производится. Если кому-то надо, пишите в личку допишу.
На оригинальность не претендую т.к. не программист 1С, занимаюсь от случая к случаю и больше для расширения кругозора.
Вступайте в нашу телеграмм-группу Инфостарт
