QR код - помощь с вызовом метода

функция ПолучитьГенераторQRкода()
        лМакетКомпоненты = ПолучитьОбщийМакет("КомпонентаПечатиQRКода");
        лАдрес = ПоместитьВоВременноеХранилище(лМакетКомпоненты);
        ГенераторQRкода = Неопределено;
        Попытка
            Если ПодключитьВнешнююКомпоненту(лАдрес,"QR") Тогда
                ГенераторQRкода = Новый("AddIn.QR.QRCodeExtension");
            Иначе
                Сообщить("Не удалось подключить компоненту генерации QR кода");        
            КонецЕсли;
        Исключение
            Сообщить(ОписаниеОшибки());    
        КонецПопытки;
        Возврат ГенераторQRкода;
КонецФункции

    
Функция ПолучитьQRкод(QRСтрока, УровеньКоррекции, Размер) Экспорт
        ГенераторQRКода = ПолучитьГенераторQRкода();
        Если ГенераторQRКода = Неопределено Тогда
            Возврат Неопределено;
        КонецЕсли;
        
        Попытка
            ДвоичныеДанныеКартинки = ГенераторQRКода.GenerateQRCode(QRСтрока, УровеньКоррекции, Размер);
        Исключение
            Сообщить(ОписаниеОшибки());
        КонецПопытки;
        
        Возврат ДвоичныеДанныеКартинки;
        
    КонецФункции
    
Процедура ПечатьНаклеекИзПоступленияТоваров(Док, ТабДок, Макет, Обл, ВариантПечати)
    
    Макет = ПолучитьМакет("НаклейкаУкрупненная");
    Горизонтально = истина;
    
    Запрос = Новый Запрос("ВЫБРАТЬ
    |    ПоступлениеТоваровУслугТовары.НомерСтроки КАК НомерСтроки,
    |    ПоступлениеТоваровУслугТовары.Номенклатура,
    |    ПоступлениеТоваровУслугТовары.Номенклатура.НоменклатурнаяГруппа КАК НоменклатурнаяГруппа,
    |    ПоступлениеТоваровУслугТовары.Номенклатура.НомерЧертежа КАК НомерЧертежа,
    |    ПоступлениеТоваровУслугТовары.Хранение,
    |    ПоступлениеТоваровУслугТовары.КоличествоМест,
    |    ПоступлениеТоваровУслугТовары.Количество,
    |    ПоступлениеТоваровУслугТовары.ПартияСсылка,
    |    ПоступлениеТоваровУслугТовары.СертификатКачества,
    |    ВЫРАЗИТЬ(ПоступлениеТоваровУслугТовары.ПартияСсылка КАК Справочник.Партии).ЗаводскойНомер КАК ЗавНомерИзПартии,
    |    ВЫРАЗИТЬ(ПоступлениеТоваровУслугТовары.ПартияСсылка КАК Справочник.Партии).СертификатКачества КАК СертификатИзПартии,
    |    ВЫРАЗИТЬ(ПоступлениеТоваровУслугТовары.ПартияСсылка КАК Справочник.Партии).ЗаготовительнаяКарта КАК ЗаготКартаИзПартии,
    |    ВЫРАЗИТЬ(ПоступлениеТоваровУслугТовары.ПартияСсылка КАК Справочник.Партии).Код КАК КодПартии,
    |    ВЫБОР
    |        КОГДА ПоступлениеТоваровУслугТовары.ЗаводскойНомер = ЗНАЧЕНИЕ(Справочник.Номераноменклатуры.ПустаяСсылка)
    |            ТОГДА ВЫРАЗИТЬ(ПоступлениеТоваровУслугТовары.ПартияСсылка КАК Справочник.Партии).ЗаводскойНомер
    |        ИНАЧЕ ПоступлениеТоваровУслугТовары.ЗаводскойНомер
    |    КОНЕЦ КАК ЗаводскойНомер,
    |    ПоступлениеТоваровУслугТовары.ДопТребования,
    |    ПоступлениеТоваровУслугТовары.ЕдиницаИзмерения
    |ПОМЕСТИТЬ втДок
    |ИЗ
    |    Документ.ПоступлениеТоваровУслуг.Товары КАК ПоступлениеТоваровУслугТовары
    |ГДЕ
    |    ПоступлениеТоваровУслугТовары.Ссылка = &Ссылка
    |;
    |
    |////////////////////////////////////////////////////////////­////////////////////
    |ВЫБРАТЬ
    |    втДок.НомерСтроки,
    |    втДок.Номенклатура,
    |    втДок.НоменклатурнаяГруппа,
    |    втДок.НомерЧертежа,
    |    втДок.Хранение,
    |    втДок.КоличествоМест,
    |    втДок.Количество,
    |    втДок.ПартияСсылка,
    |    втДок.СертификатКачества,
    |    втДок.ЗавНомерИзПартии,
    |    втДок.СертификатИзПартии,
    |    втДок.ЗаготКартаИзПартии,
    |    втДок.КодПартии,
    |    втДок.ЗаводскойНомер,
    |    втДок.ДопТребования,
    |    втДок.ЕдиницаИзмерения
    |ИЗ
    |    втДок КАК втДок
    |;
    |
    |////////////////////////////////////////////////////////////­////////////////////
    |ВЫБРАТЬ
    |    втДок.СертификатКачества КАК Документ
    |ИЗ
    |    втДок КАК втДок
    |ГДЕ
    |    втДок.СертификатКачества <> ЗНАЧЕНИЕ(Документ.СертификатКачества.ПустаяСсылка)
    |
    |ОБЪЕДИНИТЬ
    |
    |ВЫБРАТЬ
    |    втДок.ЗаготКартаИзПартии
    |ИЗ
    |    втДок КАК втДок
    |ГДЕ
    |    втДок.ЗаготКартаИзПартии <> ЗНАЧЕНИЕ(Документ.ЗаготовительнаяКарта.ПустаяСсылка)
    |;
    |
    |////////////////////////////////////////////////////////////­////////////////////
    |УНИЧТОЖИТЬ втДок");
    
    Запрос.УстановитьПараметр("Ссылка", СсылкаНаДокумент);
    
    МР = Запрос.ВыполнитьПакет();
    
    Выборка = МР[1].Выбрать();
    
    тзДанныхНомеров = ПолучитьЗаводскиеНомераДокументов(МР[2].Выгрузить().ВыгрузитьКолонку("Документ"));
    
    тзОсновных = ОтфильтроватьОсновнуюДетальАрматурыАЭС(МР[1].Выгрузить().ВыгрузитьКолонку("Номенклатура"));
    
    БезДопТребования = Справочники.ДополнительныеТребованияКВыпускуПродукции.Основной;
     ВнешняяКомпонента=Неопределено;
    Пока Выборка.Следующий() Цикл
        
        обл = Макет.ПолучитьОбласть("Наклейка"); 
        Горизонтально = истина;
        //Штрих = обл.Рисунки.Штрих;
        
        //поиск по сертификату
        Если ЗначениеЗаполнено(Выборка.СертификатКачества) Тогда
            МассивСостава = тзДанныхНомеров.НайтиСтроки(Новый Структура("Источник,Номенклатура", Выборка.СертификатКачества, Выборка.Номенклатура));    
        ИначеЕсли ЗначениеЗаполнено(Выборка.ЗаготКартаИзПартии) Тогда
            МассивСостава = тзДанныхНомеров.НайтиСтроки(Новый Структура("Источник", Выборка.ЗаготКартаИзПартии));        
        Иначе
            Сообщить("Не найдено источника (СК,ЗК) для печати заводского номера.");
        КонецЕсли;          
        
        НужноНапечатать = Выборка.КоличествоМест;
        Если НужноНапечатать=0 Тогда
            НужноНапечатать =1;
        КонецЕсли;
        
        КоличествоНомеровВсего =0;
        
        ОснонаяДеталь = Ложь;
        Если тзОсновных.НайтиСтроки(Новый Структура("Деталь", Выборка.Номенклатура)).Количество()>0 Тогда
            ОснонаяДеталь = Истина;    
        КонецЕсли;
        
        ОбозначениеНоменклатуры = СокрЛП(Выборка.Номенклатура);
        
        ш=9;
            ПараметрыШтрихкода = Новый Структура;
            ПараметрыШтрихкода.Вставить("Ширина",4);
            ПараметрыШтрихкода.Вставить("Высота",5);
            ПараметрыШтрихкода.Вставить("Штрихкод");
            ПараметрыШтрихкода.Вставить("ОтображатьТекст", Истина); 
            ПараметрыШтрихкода.Вставить("СохранятьПропорции",ложь);
            
            
            ОШК = Обл.Области.ОбластьШтрихКода;

        Для х=1 по НужноНапечатать Цикл
            
            Если МассивСостава<>Неопределено и МассивСостава.Количество()>0 Тогда
                КоличествоНомеровВсего = МассивСостава.Количество();
                
                Для Каждого Стр из МассивСостава Цикл                      
                    Если НужноНапечатать>0 Тогда                        
                        ШтрихКод = ШтрихКодОбъекта(Стр.ЗаводскойНомер);
                        Если ЗначениеНеЗаполнено(ШтрихКод) Тогда
                            //штрих-код на партию
                            ШтрихКод = "_" + УдалитьЛишниеПробелы(СокрЛП(Выборка.КодПартии));
                        Иначе
                            ШтрихКод = УдалитьЛишниеПробелы(СокрЛП(ШтрихКод));
                        КонецЕсли;
                        //Штрих.Объект.Сообщение  = ШтрихКод;
                        ПараметрыШтрихкода.Штрихкод=ШтрихКод;
                        ОШК.Картинка = СвойМодульКлиентСервер.ПолучитьКартинкуШтрихкода(ПараметрыШтрихкода,ВнешняяКомпонента);
                        
                        //поиграем со шрифтами                
                        облНом = Макет.Область("ОбозначениеНоменклатуры");
                        РазмерШрифта = 100;
                        облНом.Шрифт = Новый Шрифт(облНом.Шрифт, ,100);    
                        Дельта=0;
                        Пока ТекстУмещаетсяВЯчейке(облНом,Макет, ОбозначениеНоменклатуры, Дельта) = Ложь Цикл
                            
                            Если Дельта>0 Тогда
                                РазмерШрифта = Цел(РазмерШрифта / Sqrt(Дельта));
                            Иначе
                                РазмерШрифта = РазмерШрифта -2;
                            КонецЕсли;
                            
                            облНом.Шрифт = Новый Шрифт(облНом.Шрифт, ,РазмерШрифта);    
                            
                        КонецЦикла;             
                        
                        обл.Рисунки.Номенклатура.Шрифт = Новый Шрифт(облНом.Шрифт,,РазмерШрифта);
                        обл.Рисунки.Номенклатура.Текст = ОбозначениеНоменклатуры;                    
                        ///////////////////////////////////////                 
                        
                        обл.Параметры.ВидХранения = СокрЛП(Выборка.Хранение);
                        обл.Параметры.НомерПлавки = "Плавка: " + СокрЛП(Стр.НомерПлавки);
                        обл.Параметры.НомерПартии = "Партия: " + СокрЛП(Стр.НомерПартии);
                        Если Выборка.ДопТребования = БезДопТребования Тогда
                            обл.Параметры.ДопТребования = "";                    
                        Иначе
                            обл.Параметры.ДопТребования = ", " + СокрЛП(Выборка.ДопТребования);
                        КонецЕсли;
                        обл.Параметры.ОсновнаяДеталь = ?(ОснонаяДеталь = Истина, "Основная", "");
                        обл.Параметры.ЗавНомер = СокрЛП(Стр.ЗаводскойНомер);
                        
                        обл.Параметры.ПоДокументу = "Всего по СК";
                        обл.Параметры.КолвоНомеров = КоличествоНомеровВсего;
                        обл.Параметры.Дата = Строка(Формат(ТекущаяДата(), "ДФ=dd.MM.yyyy")) + " г.";
                        обл.Параметры.Док = "Сертификат Зав. №";                 
                        
                        ТабДок.Вывести(обл);
                        
                        ТабДок.ВывестиГоризонтальныйРазделительСтраниц();
                        
                        НужноНапечатать = НужноНапечатать-1;
                    Иначе
                        Прервать;
                    КонецЕсли;
                    
                КонецЦикла;
            Иначе
                //на партию
                //Штрих.Объект.Сообщение = "_" + УдалитьЛишниеПробелы(СокрЛП(Выборка.КодПартии));
                ПараметрыШтрихкода.Штрихкод="_" + УдалитьЛишниеПробелы(СокрЛП(Выборка.КодПартии));
                ОШК.Картинка = СвойМодульКлиентСервер.ПолучитьКартинкуШтрихкода(ПараметрыШтрихкода,ВнешняяКомпонента);
                
                обл.Параметры.ВидХранения = СокрЛП(Выборка.Хранение);
                Если Выборка.ДопТребования = БезДопТребования Тогда
                    обл.Параметры.ДопТребования = "";          
                Иначе
                    обл.Параметры.ДопТребования = ", " + СокрЛП(Выборка.ДопТребования);
                КонецЕсли;
                обл.Параметры.ОсновнаяДеталь = ?(ОснонаяДеталь = Истина, "Основная", "");
                обл.Параметры.ЗавНомер = "Партия: " + СокрЛП(Выборка.КодПартии) + " (" + Выборка.Количество + " " + СокрЛП(Выборка.ЕдиницаИзмерения) +")"; // Выборка.ЗаводскойНомер;
                обл.Параметры.Дата = Строка(Формат(ТекущаяДата(), "ДФ=dd.MM.yyyy")) + " г.";
                
                //Область = ТабДок.Область("R1C2:R11C11");
                //Область.Объединить();
                
                //поиграем со шрифтами                
                облНом = Макет.Область("ОбозначениеНоменклатуры");
                РазмерШрифта = 100;
                облНом.Шрифт = Новый Шрифт(облНом.Шрифт, ,100);    
                Дельта=0;
                Пока ТекстУмещаетсяВЯчейке(облНом,Макет, ОбозначениеНоменклатуры, Дельта) = Ложь Цикл
                    
                    Если Дельта>0 Тогда
                        РазмерШрифта = Цел(РазмерШрифта / Sqrt(Дельта));
                    Иначе
                        РазмерШрифта = РазмерШрифта -2;
                    КонецЕсли;
                    
                    облНом.Шрифт = Новый Шрифт(облНом.Шрифт, ,РазмерШрифта);    
                    
                КонецЦикла;             
                
                обл.Рисунки.Номенклатура.Шрифт = Новый Шрифт(облНом.Шрифт,,РазмерШрифта);
                обл.Рисунки.Номенклатура.Текст = ОбозначениеНоменклатуры;
                
                ///////////////////////////////////////
                ТабДок.Вывести(обл);
                
                ТабДок.ВывестиГоризонтальныйРазделительСтраниц();                          
                НужноНапечатать = НужноНапечатать-1;
            КонецЕсли;
        КонецЦикла;
        
    КонецЦикла;        
    
КонецПроцедуры