1c 7.7 QR-Код

В статье пример создания QR-кода с помощью компоненты Formex

В таблице добавляем изображение и в формуле прописываем

ВыводШтрихкодаВТаблицу(Таб.ТекущийОбъект, 58, ЗначениеШтрихкода)
Перем Сервис;

Процедура ВыводШтрихкодаВТаблицу(Картинка,ТипЧислом,ЗначениеШтрихкода)	
	Сервис.НарисоватьШтрихкод(Картинка,ТипЧислом,ЗначениеШтрихкода,0);
	Картинка.РежимРисования(3);	
КонецПроцедуры




Процедура Сформировать()
	Таб = СоздатьОбъект("Таблица");
	Попытка
		Сервис = СоздатьОбъект("Сервис");
	Исключение
		сообщить("Неудачная попытка создания объекта Сервис. Возможно, нужно установить более новую версию formex.dll");
		Возврат
	КонецПопытки;
	лСтрокаВерсияСервиса = ""; 
	лНомерВерсияСервиса = Сервис.Версия(лСтрокаВерсияСервиса);
	
	Если лНомерВерсияСервиса < 33555843 Тогда
		сообщить("Установлена версия Formex.dll "+лСтрокаВерсияСервиса+". Для печати QR-кода версия должна быть не ниже 2.0.5.131.","!!");
		Возврат
	КонецЕсли;
	
	ЗначениеШтрихкода= Сервис.DecodeToUTF8("Проверка QR кода");
	Таб.ВывестиСекцию("Строка");
	
	Таб.Показать();
	
КонецПроцедуры

В итоге получаем следующее

Добавить комментарий

Ваш адрес email не будет опубликован. Обязательные поля помечены *