Попытка
ОбластьСтрокаОбщий.Рисунки.EAN.Объект = Новый COMОбъект("V8.Barcod");
Исключение
Сообщить("Элемент управления не установлен");
КомпонентШК = Неопределено;
КонецПопытки;
Если ОбластьСтрокаОбщий.Рисунки.EAN.Объект <> Неопределено Тогда
Попытка
ОбластьСтрокаОбщий.Рисунки.EAN.Объект.ТипКода = 1;
ОбластьСтрокаОбщий.Рисунки.EAN.Объект.Сообщение = ШтрихКодНоменклатуры;
ОбластьСтрокаОбщий.Рисунки.EAN.Объект.ТекстКода = ШтрихКодНоменклатуры;
Исключение
// Ошибка
КонецПопытки;
КонецЕсли;
ОбъектМодуль = РеквизитФормыВЗначение("Объект");
макет = ОбъектМодуль.ПолучитьМакет("КомпонентаПечатиDataMatrix");
адрес = ПоместитьВоВременноеХранилище(макет);
Если ПодключитьВнешнююКомпоненту(адрес, "DM", ТипВнешнейКомпоненты.Native) Тогда
DMCodeGenerator = Новый("AddIn.DM.Barcode");
Иначе
Сообщить(ТекстОшибки+ПодробноеПредставлениеОшибки(ИнформацияОбОшибке()));
Отказ = истина;
КонецЕсли
Подключить компоненту пытаюсь, но выдаёт ошибку.
Чтобы обнаруживать ошибки, программист должен иметь ум, которому доставляет удовольствие находить изъяны там, где, казалось, царят красота и совершенство. Фредерик Брукс-младший