gifts2017

Внешняя печатная форма ТОРГ-12 со штрих-кодом для УТ 10.3

Опубликовал Евгений Косторной (angryagayn75) в раздел Печать - Печатные формы документов

Внешняя печатная форма ТОРГ-12 с печатью штрих-кода в поле Код для УТ 10.3

Необходимо было быстро по просьбе товарища создать ВПФ ТОРГ-12 для документа РТУ с выводом штрих-кода в поле Код. Найденная ВПФ выводила ШК с помощью коипоненты 1С:Печать штрих-кодов, что не удовлетворило заказчика. Требовалось выводить ШК в виде строки. К тому же ШК в базе имели разную длину (товар косметика из США) 8, 10 или 12 символов.

На просторах интернета была найдена функция (код взял «как есть» без изменений).

Function НайтиШтрихКод(НоменклатураВТаблице)
ШтрихКодНом="";
ОтборШ = Новый Структура;
ОтборШ.Вставить("Владелец",НоменклатураВТаблице);
ВыборкаШтрихКодов = РегистрыСведений.Штрихкоды.Выбрать(ОтборШ);
While ВыборкаШтрихКодов.Следующий() Do
 ШтрихКодНом=ВыборкаШтрихКодов.Штрихкод;
 If Не ПустаяСтрока(ШтрихКодНом) Then
  break;
 EndIf;
EndDo;
Return ШтрихКодНом;
EndFunction

Т.к. функция работает с входными данными НоменклатураВТаблице типа «ссылка», был добавлен код

ТоварВыбор = ВыборкаСтрок.ТоварНаименование;
ТоварСсылка=Справочники.Номенклатура.НайтиПоНаименованию(ТоварВыбор);
БаркодТовара = НайтиШтрихКод (ТоварСсылка);
ОбластьМакета.Параметры.ШК    = БаркодТовара;

Соответственно выборка поля Код для товара закомментирована и по просьбе заказчика закомментирована выборка Масса. Т.к. товары имеют один единственный штрих-код, выборка по характеристикам не производится. Если кому-то надо, пишите в личку допишу.

На оригинальность не претендую т.к. не программист 1С, занимаюсь от случая к случаю и больше для расширения кругозора.  

Скачать файлы

Наименование Файл Версия Размер
ВПФ Торг-12 16
.epf 20,04Kb
09.11.15
16
.epf 20,04Kb Скачать

См. также

Подписаться Добавить вознаграждение

Комментарии

1. Jersi (Jersi) 29.08.16 10:24
Здравствуйте.
Скачал данную обработку.
Выскакивает ошибка :

{ВнешняяОбработка.ТОРГ12ШК.МодульОбъекта(360)}: Поле объекта не обнаружено (КодПерекрестка)
Если ЗначениеЗаполнено(СсылкаНаОбъект.Контрагент.КодПерекрестка) Тогда

В конфигураторе отправляет сюда:
Если ЗначениеЗаполнено(СсылкаНаОбъект.Контрагент.КодПерекрестка) Тогда
кодПост = ", Код поставщика " + СсылкаНаОбъект.Контрагент.КодПерекрестка;
Иначе
кодПост = "";
КонецЕсли;


Наша версия 1с : 1С:Предприятие 8.2 (8.2.15.319) "Управление торговлей", редакция 10.3 (10.3.21.1)
Помогите, пожалуйста, решить проблему.

С уважением, Юрий
aktivplus@bk.ru
Для написания сообщения необходимо авторизоваться
Прикрепить файл
Дополнительные параметры ответа