Mexxe
24.02.2017, 16:18
Добрый День! Помогите пожалуйста разобраться в чем проблема с выводом штрихкода в печатную форму, как текст(через параметр), без проблем выводится, а на рисунке не хочет ни как, подскажите ПРОФИ, новичку пожалуйста что не правильно делаю?
1.Внешняя печатная форма.
2.Получение через запрос.
3.Код вот такой
| ЗаказПокупателя.Штрихкод
|ИЗ
| Документ.ЗаказПокупателя КАК ЗаказПокупателя
| ЛЕВОЕ СОЕДИНЕНИЕ Справочник.Клиенты КАК Клиенты
| ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ДанныеКли� �нта.СрезПоследних(, Клиент = &Клиент) КАК ДанныеКлиентаСрезПоследни х
| ПО Клиенты.Ссылка = ДанныеКлиентаСрезПоследни х.Клиент
| ПО ЗаказПокупателя.КлиентЗак� �зчик = Клиенты.Ссылка
|ГДЕ
| Клиенты.Ссылка = &Клиент";
Запрос.УстановитьПараметр("Клиент",СсылкаНаОбъект.КлиентЗака зчик);
Выборка = Запрос.Выполнить().Выбрать() ;
КомпонентаШтрихКодировани я = Неопределено;
Попытка
КомпонентаШтрихКодировани я = Новый COMОбъект("V8.Barcod");
Исключение
Сообщить("Компонента для печати штрихкодов не установлена!");
КонецПопытки;
Если КомпонентаШтрихКодировани я <> Неопределено Тогда
ТипКода = УправлениеРозничнойТоргов лей.ПолучитьЗначениеТипаШ� �рихкодаДляЭУ(ПланыВидовХа рактеристик.ТипыШтрихкодо� �.EAN13);
Область.Рисунки.Штрихкод.О� �ъект.ТипКода = ТипКода;
Область.Рисунки.Штрихкод.О� �ъект.Сообщение = ?(ЗначениеЗаполнено(Штрихк� �д),Штрихкод,"");
Область.Рисунки.Штрихкод.О� �ъект.ТекстКода = Штрихкод;
КонецЕсли;
ТабДок.Вывести(Область);
Рисунок имя как "ШтрихКод"
Что не правильно делаю подскажите пожалуйста
1.Внешняя печатная форма.
2.Получение через запрос.
3.Код вот такой
| ЗаказПокупателя.Штрихкод
|ИЗ
| Документ.ЗаказПокупателя КАК ЗаказПокупателя
| ЛЕВОЕ СОЕДИНЕНИЕ Справочник.Клиенты КАК Клиенты
| ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ДанныеКли� �нта.СрезПоследних(, Клиент = &Клиент) КАК ДанныеКлиентаСрезПоследни х
| ПО Клиенты.Ссылка = ДанныеКлиентаСрезПоследни х.Клиент
| ПО ЗаказПокупателя.КлиентЗак� �зчик = Клиенты.Ссылка
|ГДЕ
| Клиенты.Ссылка = &Клиент";
Запрос.УстановитьПараметр("Клиент",СсылкаНаОбъект.КлиентЗака зчик);
Выборка = Запрос.Выполнить().Выбрать() ;
КомпонентаШтрихКодировани я = Неопределено;
Попытка
КомпонентаШтрихКодировани я = Новый COMОбъект("V8.Barcod");
Исключение
Сообщить("Компонента для печати штрихкодов не установлена!");
КонецПопытки;
Если КомпонентаШтрихКодировани я <> Неопределено Тогда
ТипКода = УправлениеРозничнойТоргов лей.ПолучитьЗначениеТипаШ� �рихкодаДляЭУ(ПланыВидовХа рактеристик.ТипыШтрихкодо� �.EAN13);
Область.Рисунки.Штрихкод.О� �ъект.ТипКода = ТипКода;
Область.Рисунки.Штрихкод.О� �ъект.Сообщение = ?(ЗначениеЗаполнено(Штрихк� �д),Штрихкод,"");
Область.Рисунки.Штрихкод.О� �ъект.ТекстКода = Штрихкод;
КонецЕсли;
ТабДок.Вывести(Область);
Рисунок имя как "ШтрихКод"
Что не правильно делаю подскажите пожалуйста