0
KuMar
23.12.13
✎
21:22
|
Перенес компоненты печати штрихкодов из типовой УТ,
в общем модуле добавил функцию ПодключитьВнешнююКомпонентуПечатиШтрихкода() и функцию ПолучитьКартинкуШтрихкода:
Функция ПолучитьКартинкуШтрихкода(ВнешняяКомпонента, ПараметрыШтрихкода) Экспорт
ВнешняяКомпонента.Ширина = Окр(ПараметрыШтрихкода.Ширина);
ВнешняяКомпонента.Высота = Окр(ПараметрыШтрихкода.Высота);
ВнешняяКомпонента.АвтоТип = Ложь;
ВнешняяКомпонента.ТипКода = ПараметрыШтрихкода.ТипКода;
ВнешняяКомпонента.ОтображатьТекст = ПараметрыШтрихкода.ОтображатьТекст;
ВнешняяКомпонента.СодержитКС = СтрДлина(ПараметрыШтрихкода.Штрихкод) = 13;
ВнешняяКомпонента.ЗначениеКода = ПараметрыШтрихкода.Штрихкод;
Если ВнешняяКомпонента.Ширина < ВнешняяКомпонента.МинимальнаяШиринаКода Тогда
ВнешняяКомпонента.Ширина = ВнешняяКомпонента.МинимальнаяШиринаКода + 10;
КонецЕсли;
// Сформируем картинку
ДвоичныеДанныеКартинки = ВнешняяКомпонента.ПолучитьШтрихкод();
// Если картинка сформировалась
Если ДвоичныеДанныеКартинки <> Неопределено Тогда
// Формируем из двоичных данных
ШтрихКод = Новый Картинка (ДвоичныеДанныеКартинки);
Возврат ШтрихКод;
КонецЕсли;
Возврат Неопределено;
КонецФункции
При трассировке все срабатывает нормально ДвоичныеДанныеКартинки определено, но когда я заменяю рисунок макета на полученный результат:
Рисунок.Картинка = ОбщегоНазначения.ПолучитьКартинкуШтрихкода(ВнешняяКомпонента, ПараметрыШтрихкода);
на печать выходит исходная картинка, а не штрихкод полученный в результате работы функции!
Не могу никак понять, что не так. Пролистал форумы, похожей проблемы не нашел. Помогите, добрые люди!
|
|