0
1987denis
31.08.13
✎
17:07
|
Имеется документ, в него добавлен реквизит ШтрихКод, при записи документа Документ.Номер=Документ.ШтрихКод.
Имеется печатная форма,в печатную форму реквизит ШтрихКод передается но как цифры, необходим графический элемент, чтобы можно было потом считывать его сканером.
Реквизит ШтрихКод Тип: строка.
Установил 1с 8.0 : Печать Штрихкодов.
Добавил графический элемент в макет.
Шрифт:EanGnivc
Размер кода 8 цифр, ТипКода=EAN8;
Процедура Печать(ТабДок, Ссылка) Экспорт
Макет = Документы.ЗаявкаПокупателяССайта.ПолучитьМакет("Печать");
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| ЗаявкаПокупателяССайта.Номер как Номер,
| ЗаявкаПокупателяССайта.ШтрихКод Как ШтрихКод,
| ЗаявкаПокупателяССайта.Товары.(
| НомерСтроки,
| Номенклатура,
| Вес
|)
|ИЗ
| Документ.ЗаявкаПокупателяССайта КАК ЗаявкаПокупателяССайта
|ГДЕ
| ЗаявкаПокупателяССайта.Ссылка В (&Ссылка)";
Запрос.Параметры.Вставить("Ссылка", Ссылка);
Выборка = Запрос.Выполнить().Выбрать();
ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");
Шапка = Макет.ПолучитьОбласть("Шапка");
ОбластьТоварыШапка = Макет.ПолучитьОбласть("ТоварыШапка");
ОбластьТовары = Макет.ПолучитьОбласть("Товары");
Подвал=Макет.ПолучитьОбласть("подвал");
ОбластьМакета=Макет.ПолучитьОбласть("Штрихкод");
ТабДок.Очистить();
ВставлятьРазделительСтраниц = Ложь;
Пока Выборка.Следующий() Цикл
Если ВставлятьРазделительСтраниц Тогда ТабДок.ВывестиГоризонтальныйРазделительСтраниц();
КонецЕсли;
ТабДок.Вывести(ОбластьЗаголовок);
Шапка.Параметры.Заполнить(Выборка);
ТабДок.Вывести(Шапка, Выборка.Уровень());
ТабДок.Вывести(ОбластьТоварыШапка);
ВыборкаТовары = Выборка.Товары.Выбрать();
Пока ВыборкаТовары.Следующий() Цикл ОбластьТовары.Параметры.Заполнить(ВыборкаТовары);
ТабДок.Вывести(ОбластьТовары, ВыборкаТовары.Уровень());
КонецЦикла;
ОбластьМакета.Рисунки.D2.Объект.ТекстКода=Выборка.ШтрихКод;
Подвал.Параметры.Заполнить(Выборка);
ТабДок.Вывести(Подвал);
Табдок.Вывести(ОбластьМакета);
ВставлятьРазделительСтраниц = Истина;
КонецЦикла;
КонецПроцедуры
Если убрать строчку
ОбластьМакета.Рисунки.D2.Объект.ТекстКода=Выборка.ШтрихКод;
То графический элемент штрихкод не будет отображаться в макете.
Помогите разобраться в чем проблема.
|
|