Добавление штрихкода на печатную форму

// Формирование изображения штрихкода.
//
// Параметры: 
//   ПараметрыШтрихкода - см. ГенерацияШтрихкода.ПараметрыГенерацииШтрихкода.
//
// Возвращаемое значение: 
//   Структура:
//      Результат - Булево - результат генерации штрихкода.
//      ДвоичныеДанные - ДвоичныеДанные - двоичные данные изображения штрихкода.
//      Картинка - Картинка - картинка с сформированным штрихкодом или НЕОПРЕДЕЛЕНО.
//
Функция ИзображениеШтрихкода(ПараметрыШтрихкода) Экспорт

&НаКлиенте
Процедура ПечатьЗадания(Команда)
	
	ФормаПечати = ПечатьЗаданияНаСервере();
	ФормаПечати.Показать();

КонецПроцедуры

&НаСервере
Функция ПечатьЗаданияНаСервере()

	ТаблДок = Новый ТабличныйДокумент;
	ТекОбъект = РеквизитФормыВЗначение("Объект");
	Макет = ТекОбъект.ПолучитьМакет("ПроизводственноеЗадание");
	Запрос = Новый Запрос;
	Запрос.Текст =
	"ВЫБРАТЬ
	|	ПроизводственноеЗаданиеГАС.Дата КАК Дата,
	|	ПроизводственноеЗаданиеГАС.ДатаВыполнения КАК ДатаВыполнения,
	|	ПроизводственноеЗаданиеГАС.Номер КАК Номер,
	|	ПроизводственноеЗаданиеГАС.Подразделение КАК Подразделение,
	|	ПроизводственноеЗаданиеГАС.Сотрудник КАК Сотрудник,
	|	ПроизводственноеЗаданиеГАС.ТехнологияПроведенияРабот КАК ТехнологияПроведенияРабот,
	|	ПроизводственноеЗаданиеГАС.Штрихкод КАК Штрихкод,
	|	ПроизводственноеЗаданиеГАС.ВыданоВРаботу.(
	|		ОперацияВРаботу КАК ОперацияВРаботу,
	|		ИзделиеВРаботу КАК ИзделиеВРаботу,
	|		КоличествоВРаботу КАК КоличествоВРаботу,
	|		ОборудованиеВРаботу КАК ОборудованиеВРаботу,
	|		ШтампВРаботу КАК ШтампВРаботу,
	|		МестоПолученияВРаботу КАК МестоПолученияВРаботу,
	|		МестоСкладированияВРаботу КАК МестоСкладированияВРаботу
	|	) КАК ВыданоВРаботу,
	|	ПроизводственноеЗаданиеГАС.ПолучитьНаСкладе.(
	|		НомерСтроки КАК НомерСтроки,
	|		НаименованиеКПолучению КАК НаименованиеКПолучению,
	|		Количество КАК Количество
	|	) КАК ПолучитьНаСкладе,
	|	ПроизводственноеЗаданиеГАС.Оснастка.(
	|		НомерСтроки КАК НомерСтроки,
	|		НаименованиеОснастки КАК НаименованиеОснастки
	|	) КАК Оснастка
	|ИЗ
	|	Документ.ПроизводственноеЗаданиеГАС КАК ПроизводственноеЗаданиеГАС
	|ГДЕ
	|	ПроизводственноеЗаданиеГАС.Номер = &Номер";
	Запрос.Параметры.Вставить("Номер", Объект.Номер);
	Выборка = Запрос.Выполнить().Выбрать();

	ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");
	Шапка = Макет.ПолучитьОбласть("Шапка");
	ОбластьВыданоВРаботуШапка = Макет.ПолучитьОбласть("ВыданоВРаботуШапка");
	ОбластьВыданоВРаботу = Макет.ПолучитьОбласть("ВыданоВРаботу");
	ОбластьПолучитьНаСкладеШапка = Макет.ПолучитьОбласть("ПолучитьНаСкладеШапка");
	ОбластьПолучитьНаСкладе = Макет.ПолучитьОбласть("ПолучитьНаСкладе");
	ОбластьОснасткаШапка = Макет.ПолучитьОбласть("ОснасткаШапка");
	ОбластьОснастка = Макет.ПолучитьОбласть("Оснастка");
	Подвал = Макет.ПолучитьОбласть("Подвал");

	ТаблДок.Очистить();

	ВставлятьРазделительСтраниц = Ложь;
	Пока Выборка.Следующий() Цикл
		Если ВставлятьРазделительСтраниц Тогда
			ТаблДок.ВывестиГоризонтальныйРазделительСтраниц();
		КонецЕсли;
		
	ШтрихкодК = ПолучитьКартинкуШтрихкода(Объект.Штрихкод);
	Если ШтрихкодК  <> Неопределено Тогда
		ОбластьЗаголовок.Рисунки.ШтрихкодК.Картинка = ШтрихкодК;
	КонецЕсли;
		ТаблДок.Вывести(ОбластьЗаголовок);
					
		Шапка.Параметры.Заполнить(Выборка);
		Шапка.Параметры.ДатаВыполнения = Формат(Выборка.ДатаВыполнения, "ДФ=dd.MM.yyyy");
		ТаблДок.Вывести(Шапка, Выборка.Уровень());

		ТаблДок.Вывести(ОбластьВыданоВРаботуШапка);
		ВыборкаВыданоВРаботу = Выборка.ВыданоВРаботу.Выбрать();
		Пока ВыборкаВыданоВРаботу.Следующий() Цикл
			ОбластьВыданоВРаботу.Параметры.Заполнить(ВыборкаВыданоВРаботу);
			ТаблДок.Вывести(ОбластьВыданоВРаботу, ВыборкаВыданоВРаботу.Уровень());
		КонецЦикла;

	 	ТаблДок.Вывести(ОбластьПолучитьНаСкладеШапка);
		ВыборкаПолучитьНаСкладе = Выборка.ПолучитьНаСкладе.Выбрать();
		Пока ВыборкаПолучитьНаСкладе.Следующий() Цикл
			ОбластьПолучитьНаСкладе.Параметры.Заполнить(ВыборкаПолучитьНаСкладе);
			ТаблДок.Вывести(ОбластьПолучитьНаСкладе, ВыборкаПолучитьНаСкладе.Уровень());
		КонецЦикла;

		ТаблДок.Вывести(ОбластьОснасткаШапка);
		ВыборкаОснастка = Выборка.Оснастка.Выбрать();
		Пока ВыборкаОснастка.Следующий() Цикл
			ОбластьОснастка.Параметры.Заполнить(ВыборкаОснастка);
			ТаблДок.Вывести(ОбластьОснастка, ВыборкаОснастка.Уровень());
		КонецЦикла;

		Подвал.Параметры.Заполнить(Выборка);
		ТаблДок.Вывести(Подвал);

		ВставлятьРазделительСтраниц = Истина;
	КонецЦикла;
	Возврат ТаблДок;
КонецФункции

&НаСервере
Функция ПолучитьКартинкуШтрихкода(Штрихкод)
	ИнформацияОСистеме = Новый СистемнаяИнформация;
	ПодключитьВнешнююКомпоненту("ОбщийМакет.КомпонентаПечатиШтрихкодов", "КартинкаШтрихкода", ТипВнешнейКомпоненты.Native);
	Компонент = Новый ("AddIn.КартинкаШтрихкода.Barcode");
	Если Не Компонент.ГрафикаУстановлена Тогда
		Возврат Неопределено;
	КонецЕсли; 
	Если Компонент.НайтиШрифт("Times New Roman") = Истина Тогда
		Компонент.Шрифт = "Times New Roman";
	Иначе
		Для Сч = 0 По Компонент.КоличествоШрифтов -1 Цикл
			ТекущийШрифт = Компонент.ШрифтПоИдексу(Сч);
			Если ТекущийШрифт <> Неопределено Тогда
				Компонент.Шрифт = ТекущийШрифт;
				Прервать;
			КонецЕсли;
		КонецЦикла;
	КонецЕсли;
	Компонент.РазмерШрифта = 15;
	Компонент.Ширина = 100;
	Компонент.Высота = 90;
	Компонент.ТипКода = 1; // EAN-13
	Компонент.ВидимостьКС = Ложь;
	Компонент.ЗначениеКода = Штрихкод;
	Если Компонент.Ширина < Компонент.МинимальнаяШиринаКода Тогда
		Компонент.Ширина = Компонент.МинимальнаяШиринаКода + 10;
	КонецЕсли;
	ДвоичныеДанныеКартинки = Компонент.ПолучитьШтрихкод();
	Если НЕ ДвоичныеДанныеКартинки= Неопределено Тогда
		Возврат Новый Картинка (ДвоичныеДанныеКартинки);
	КонецЕсли;
	Возврат Неопределено;
КонецФункции;