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