Вход | Регистрация
 
1С:Предприятие :: 1С:Предприятие 8 общая

Помощь по выводу штрихкода на печатную форму

Помощь по выводу штрихкода на печатную форму
Я
   Kaban145
 
04.09.21 - 22:55
Здравствуйте, написал небольшой код:
Макет = Документы.ЗаказПокупателя.ПолучитьМакет("МакетШтрихкод");
    Область = Макет.ПолучитьОбласть("ОбластьШтрихкод");
    ПараметрыШтрихкода = Новый Структура;
    ПараметрыШтрихкода.Вставить("Ширина",58);
    ПараметрыШтрихкода.Вставить("Высота",40);
    ПараметрыШтрихкода.Вставить("Штрихкод",СтрочВар);
    ПараметрыШтрихкода.Вставить("ТипКода",1);
    ПараметрыШтрихкода.Вставить("ОтображатьТекст", Истина);
    ПараметрыШтрихкода.Вставить("РазмерШрифта",5);
    ПараметрыШтрихкода.Вставить("УголПоворота", 0);
    Картинка = МенеджерОборудованияВызовСервера.ПолучитьКартинкуШтрихкода(ПараметрыШтрихкода);
    Область.Рисунки.КартинкаШтрихкода.Картинка = Картинка;
    ТабДок.Вывести(Область);
Выдаёт ошибку: Ошибка при установке значения атрибута контекста (Картинка)
    Область.Рисунки.КартинкаШтрихкода.Картинка = Картинка;
по причине:
Несоответствие типов

Не могу понять в чём дело, если выводить например QR код, то всё нормально, а с любым линейным вот такая ошибка
Заранее спасибо за помощь
   Ненавижу 1С
 
1 - 04.09.21 - 22:59
// Возвращаемое значение: 

//   Картинка - Картинка со сформированным штрихкодом или НЕОПРЕДЕЛЕНО
   Ненавижу 1С
 
2 - 04.09.21 - 23:01
Что там в СтрочВар?
   kauksi
 
3 - 05.09.21 - 09:32
Эталон = ПолучитьОбщийМакет("ЭталонИС");
    КоличествоМиллиметровВПикселе = Эталон.Рисунки.Квадрат100Пикселей.Высота / 100;

            Рисунок = Обл.Рисунки.ШтрихКод1;

                ПараметрыШтрихкода = Новый Структура;
                ПараметрыШтрихкода.Вставить("Ширина",          Окр(Рисунок.Ширина / КоличествоМиллиметровВПикселе));
                ПараметрыШтрихкода.Вставить("Высота",          Окр(Рисунок.Высота / КоличествоМиллиметровВПикселе));
                ПараметрыШтрихкода.Вставить("Штрихкод",        СокрЛП(ДанныеШтрихКода));
                ПараметрыШтрихкода.Вставить("ТипКода",         4);
                ПараметрыШтрихкода.Вставить("ОтображатьТекст", Истина);
                ПараметрыШтрихкода.Вставить("Масштабировать", Истина);
                ПараметрыШтрихкода.Вставить("СохранятьПропорции", Истина);
                ПараметрыШтрихкода.Вставить("МонохромныйШрифт", Истина);
                ПараметрыШтрихкода.Вставить("РазмерШрифта", 10);
                //ПараметрыШтрихкода.Вставить("Ширина", 700);

                КартинкаШтрихкода=МенеджерОборудованияВызовСервера.ПолучитьКартинкуШтрихкода(ПараметрыШтрихкода);
                Рисунок.Картинка = КартинкаШтрихкода;

Список тем форума
 
ВНИМАНИЕ! Если вы потеряли окно ввода сообщения, нажмите Ctrl-F5 или Ctrl-R или кнопку "Обновить" в браузере.