QR-код в 1с (ocvita barcode)

Функция СформироватьШтрихКод(Макет, Ссылка);
    Макет.Рисунки.Штрихкод.Объект.symbology = 58; // тип = QR
    Макет.Рисунки.Штрихкод.Объект.barcode = ВернутьСтрокуДляКодирования(Ссылка); 

КонецФункции

// Опишем вспомогательную функцию для преобразования в UTF8

Функция UTF8(Ст)
    НоваяСт = "";
    Для i=1 по СтрДлина(Ст) Цикл
        Символ = Сред(Ст,i,1);
        КодСимвола = КодСимвола(Символ);
        Если (КодСимвола > 191) и (КодСимвола < 224) Тогда// А - Я
 
            НоваяСт = НоваяСт + Символ(208)+Символ(КодСимвола-48);
        ИначеЕсли (КодСимвола > 223) и (КодСимвола < 240) Тогда// а - п
 
            НоваяСт = НоваяСт + Символ(208)+Символ(КодСимвола-48);
        ИначеЕсли (КодСимвола > 239) и (КодСимвола < 256) Тогда// р - я
 
            НоваяСт = НоваяСт + Символ(209)+Символ(КодСимвола-112);
        ИначеЕсли (Символ = "ё") или (Символ = "Ё") Тогда
            НоваяСт = НоваяСт + Символ(208)+Символ(КодСимвола-39);
        ИначеЕсли (Символ = "№") Тогда
            НоваяСт = НоваяСт + Символ(226)+Символ(132)+Символ(150);
        Иначе
            НоваяСт = НоваяСт + Символ;
        КонецЕсли;
    КонецЦикла;
    Возврат НоваяСт;
КонецФункции

//Текст для кодирования выглядит примерно так

Функция ВернутьСтрокуДляКодирования(Ссылка)

	
	СтрокаРазбор = Новый ТекстовыйДокумент;
    СтрокаРазбор.УстановитьТекст(СтрЗаменить(Ссылка.Контрагент.НаименованиеПолное," ",Символы.ПС));
	Фамилия = СтрокаРазбор.ПолучитьСтроку(1);
    Имя = СтрокаРазбор.ПолучитьСтроку(2);
    Отчество = СтрокаРазбор.ПолучитьСтроку(3);

	Символ_ = "|";
	CodeVersion = "0001";
	CodePage = 2; //UTF	
	Name = "Name=" + Ссылка.Контрагент;
	PersonalAcc ="PersonalAcc=" + "*************";
	BankName = "BankName=" +"*************";
	BIC = "BIC=" + "043207612";
	CorrespAcc = "CorrespAcc=" + "*************";
	PayeeINN = "PayeeINN=" +"*************";
	Category = "Category=" + "*************"; 
	PersAcc = "PersAcc=" +ПолучитьЛицевойСчет(Ссылка.Контрагент);
	LastName = "LastName=" + Имя;
	FirstName = "FirstName=" + Фамилия;
	MiddleName = "MiddleName=" + Отчество;
	payerAddress ="payerAddress=" +ПолучитьАдрес(Ссылка.Контрагент);
	Sum = "Sum=" + СтрЗаменить(Ссылка.СуммаДокумента*100, Символы.НПП, ""); //в копейках, т.е не 100,52, а 10052	

	Рез = CodeVersion + CodePage + Символ_ +
		  Name + Символ_ +
		  PersonalAcc + Символ_ +
		  BankName + Символ_ +
		  BIC + Символ_ +
		  CorrespAcc + Символ_ +
		  PayeeINN + Символ_ +
		  Category +  Символ_ +		  
		  PersAcc +  Символ_ +		  
		  LastName +  Символ_ +
		  FirstName +  Символ_ +
		  MiddleName +  Символ_ +
		  payerAddress +  Символ_ +
		  Sum + Символ_;
		  
	Возврат UTF8(Рез);
КонецФункции