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

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

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

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