05.02.2007, 17:03
общий
это ответ
Здравствуйте, Викентий!
В типовой торговле есть файлик - BARCODE.OCX
он позволяет работать со штрих кодами
там же (в типовой торговле) есть печатная форма этикетка (в общих таблицах)
процедура печати находится в форме справочника ТМЦ см. приложение
Приложение:
// ===============================// Название: ПечатьЭтикетки()// Параметры: // НЕТ// Возвращаемое значение:// НЕТ// Вызывается из формул элементов диалога:// кнопка "Этикетка".// Описание:// процедура формирует печаную форму этикетки штрихкодаПроцедура ПечатьЭтикетки() Перем КомпонентABC; // печать этикетки использует компонент ActiveX // разработки фирмы Shenk&Horn - ActiveBarcode версии 3.50 Если ПустоеЗначение(ШтрихКод)=1 Тогда Предупреждение("Не задан штрих код товара"); Возврат; КонецЕсли; Попытка КомпонентABC=СоздатьОбъект("BARCODE.BarcodeCtrl.1"); Исключение Предупреждение(ОписаниеОшибки()+РазделительСтрок +"Компонент ActiveBarcode не установлен на данном компьютере!"+РазделительСтрок +"Порядок установки компоненты ActiveBarcode описан в документации."); Возврат; КонецПопытки; // Создание Таблицы для выходного отчета Таб=СоздатьОбъект("Таблица"); Таб.ИсходнаяТаблица("Этикетка"); ПечНаименование=Наименование+"; "+БазоваяЕдиница; ПечШтрихКод=Строка(ШтрихКод); Таб.ВывестиСекцию("Товар|Этикетка"); //Вызов выходного отчета в окно просмотра и редактирования. Таб.Опции(0,0,0,0,ПарСтрСпр); Таб.Защита(Константа.ФлагЗащитыТаблиц); Таб.ТолькоПросмотр(1); Таб.Показать("Этикетка",""); ВыбТовар=0;КонецПроцедуры // ПечатьЭтикетки