Стандартные доработки. Штрихкодирование документов.

Процедура НапечататьДокумент(ПечДокумент, КоличествоЭкземпляров = 1, НаПринтер = Ложь, Заголовок = "", Ссылка = Неопределено, ИсточникМакета = Неопределено) Экспорт
    
	
	Если ПечДокумент = Неопределено тогда
		Возврат;
	КонецЕсли;


	Если ЗначениеЗаполнено(Ссылка) и ИнтеграцияЭХД_ИТ.ПроверитьВхождениеДокументаВПереченьЭХД(Ссылка) и ИнтеграцияЭХД_ИТ.ПолучитьВидДокументаЭХД(Ссылка) = 2 Тогда
		МакетОбщ = ПолучитьОбщийМакет("ШтрихКод");
		Область = МакетОбщ.ПолучитьОбласть("Штрихкод");
		ОбщМаскаКода = "000000000000";
		Код =  ИнтеграцияЭХД_ИТ.ВернутьШтрихКодДокументаЭХД(Ссылка);
		ТипКода = ПланыВидовХарактеристик.ТипыШтрихкодов.Code128;
		ТипКодаЗнч = УправлениеРозничнойТорговлей.ПолучитьЗначениеТипаШтрихкодаДляЭУ(ТипКода);
		Если УправлениеРозничнойТорговлей.ПроверитьШтрихКод(Код,ТипКода) Тогда
			Попытка
				Область.Рисунки.ШтрихКодТО.Объект.ТипКода = ТипКодаЗнч;
				Область.Рисунки.ШтрихКодТО.Объект.Сообщение = Код;
			Исключение
			    Сообщить("Для вывода штрихкода на печатную форму необходимо установать ""1С:Печать штрихкодов"" ");
			КонецПопытки;
		КонецЕсли;
		табт = новый ТабличныйДокумент;
		табт.Вывести(Область);
		табт.ИмяПараметровПечати = ПечДокумент.ИмяПараметровПечати;
		табт.ОриентацияСтраницы = ПечДокумент.ОриентацияСтраницы;
		ДобавитьТабличныйДокумент(табт, ПечДокумент);
		ПечДокумент = табт;
		ПечДокумент.ТолькоПросмотр = истина;
	КонецЕсли;
...
КонецПроцедуры

Функция СтрокаТабличногоДокументаИмеетФормат(ТабличныйДокумент, НомерСтроки)
      
      тбФормата = Новый ТабличныйДокумент;
      ШиринаКолонки = ТабличныйДокумент.Область("R"+НомерСтроки+"C1").ШиринаКолонки + 1;
      тбФормата.Область("R1C1").ШиринаКолонки = ШиринаКолонки;
      тбФормата.ВставитьОбласть(ТабличныйДокумент.Область("R"+НомерСтроки),тбФормата.Область("R1C1"));
      Если НЕ тбФормата.Область("R1C1").ШиринаКолонки = ШиринаКолонки Тогда
            Возврат Истина;
      Иначе
            Возврат Ложь;
      КонецЕсли; 
      
КонецФункции

Функция ПолучитьНомерСтрокиКонцаФормата(ПечДокумент,НомерНачальнойСтроки)
      
      фл = СтрокаТабличногоДокументаИмеетФормат(ПечДокумент, НомерНачальнойСтроки);
      
      Для i = НомерНачальнойСтроки + 1 По ПечДокумент.ВысотаТаблицы Цикл
            
            Если СтрокаТабличногоДокументаИмеетФормат(ПечДокумент, i) <> фл Тогда
                Возврат (i-1);
            КонецЕсли; 
            
            Для j = 1 По ПечДокумент.ШиринаТаблицы Цикл
                  Если НЕ ПечДокумент.Область("R"+НомерНачальнойСтроки+"C"+j).ШиринаКолонки = ПечДокумент.Область("R"+i+"C"+j).ШиринаКолонки Тогда
                        Возврат (i-1);
                  КонецЕсли;
            КонецЦикла;
            
      КонецЦикла; 
      
      Возврат ПечДокумент.ВысотаТаблицы; 
      
КонецФункции

Процедура ДобавитьТабличныйДокумент(ВыходнойДокумент, ПечДокумент)
      i = 1;
      Пока i < ПечДокумент.ВысотаТаблицы Цикл
            k = ПолучитьНомерСтрокиКонцаФормата(ПечДокумент,i);
            ОбластьСтроки = ПечДокумент.Область(i,,k,);
            ОбластьСтроки.СоздатьФорматСтрок();
            ВыходнойДокумент.ВставитьОбласть(ОбластьСтроки, ВыходнойДокумент.Область(ВыходнойДокумент.ВысотаТаблицы + 1, , ВыходнойДокумент.ВысотаТаблицы + 1+(k-i), ));
            i = k + 1;
      КонецЦикла; 
КонецПроцедуры

Перем мКартинкаШтрихкода;
Перем мНадписьТекст;

//Получает данные о штрихкоде объекта. Если у объекта нет штрихкода, он присваивается
//Параметры: 
//			Объект - ссылка на объект, данные о штрихкоде которого собираются
//			ВысотаКартинкиВПроцентах - высота изображения штрихкода в процентах
//Возвращает:
//			структура
//				Штрихкод - значение штрихкода
//				ДвоичныеДанныеИзображенияШК - двоичные данные изображения штрихкода
//				ДвоичныеДанныеФайла - двоичные данные файла, если Объект - это файл
//				НеобходимостьВставкиВместоТэга - влаг, показывающий, что штрихкод только сформирован для файла 
//					и что необходимо выполнить попытку вставить изображение штрихкода вместо тэга в файле
//				ВставкаШКвMSнаСервере - флаг, показывающий, что вставка изображения в файл MS Word выполняется на сервере
//				НастройкиШтрихкода - структура из персональных настроек
//					ПоказыватьФормуНастройкиШтрихкода - показывать форму настройки положения штрихкода
//					ПоложениеШтрихкодаНаСтранице - значение из перечисления ВариантыРасположенияШтрихкода
//					СмещениеПоГоризонтали - расстояние от левого края страницы
//					СмещениеПоВертикали - расстояние от верха страницы	
//
//			Неопределено, если объект - это файл в папке ШаблоныФайлов
&НаСервере
Функция ПолучитьДанныеДляВставкиШтрихкодаВОбъект(Ссылка,НеобходимоПередаватьСодержимоеФайла = Истина)
	
	ДанныеШК = Новый Структура;	
	ДанныеШК.Вставить("ДвоичныеДанныеИзображенияШК", Неопределено);
	
	НеобходимостьВставкиВместоТэга = Ложь;
	Штрихкод = Неопределено;
	
	//Пытаемся найти штрихкод у объекта
	ЗначениеШтрихкода = ПолучитьШтрихКод(Ссылка);			
	
	Если ЗначениеШтрихкода = Неопределено ИЛИ ПустаяСтрока(ЗначениеШтрихкода) Тогда
		Сообщить("Штрихкод для данного документа не сформирован");		
	Иначе
		Штрихкод = ЗначениеШтрихкода;
	КонецЕсли;
	
	Если НЕ Штрихкод = Неопределено Тогда
		
		//Вставим значение ШК
		ДанныеШК.Вставить("Штрихкод", Штрихкод);		
		
		//получаем изображение штрихкода
		ДвоичныеДанныеИзображенияШК = ПолучитьКартинкуШтрихкода(Штрихкод,,21,Истина);
		ДанныеШК.ДвоичныеДанныеИзображенияШК = ДвоичныеДанныеИзображенияШК;
		
		Возврат ДанныеШК;
	Иначе
		Возврат Неопределено;
	КонецЕсли;
	
КонецФункции

&НаСервере
Функция ПолучитьШтрихКод(Ссылка)
	
	НаборЗаписей = РегистрыСведений.ДополнительныеСведения.СоздатьНаборЗаписей();
	НаборЗаписей.Отбор.Объект.Установить(Ссылка);
	НаборЗаписей.Отбор.Свойство.Установить(ПланыВидовХарактеристик.ДополнительныеРеквизитыИСведения.НайтиПоНаименованию("Штрихкод"));
    НаборЗаписей.Прочитать();
	Для Каждого Запись Из НаборЗаписей Цикл
		Возврат Запись.Значение;
	КонецЦикла;
	Возврат Неопределено;
	
КонецФункции //ПолучитьШтрихКод()

//Получает изображение штрихкода
//Параметры:
//			Код - значение штрихкода
//			ТипКода - формат штрихкода. По умолчанию EAN-13
//			ВысотаВПроцентах - высота штрихкода в процентах
//Возвращает:
//			Картинка с изображением штрихкода
&НаСервере
Функция ПолучитьКартинкуШтрихкода(Код, ТипКода = 1, ВысотаВМиллиметрах, ВставлятьЦифры) Экспорт
	
	// В зависимости от типа платформы подключим соответствующую внешнюю компоненту
	ИнформацияОСистеме = Новый СистемнаяИнформация;
	Если ИнформацияОСистеме.ТипПлатформы = ТипПлатформы.Windows_x86 Тогда		
		
		СтрокаАдресаКомпонентыПечатиШК = "\\192.168.0.18\tmplts\ExternalComponentOfThePressOfBarcode\КомпонентаПеч­атиШтрихкодовВин32.dll";
						
	ИначеЕсли ИнформацияОСистеме.ТипПлатформы = ТипПлатформы.Windows_x86_64 Тогда
		
		СтрокаАдресаКомпонентыПечатиШК = "\\192.168.0.18\tmplts\ExternalComponentOfThePressOfBarcode\КомпонентаПеч­атиШтрихкодовВин32.dll";	
		
	КонецЕсли;
	
	ПодключитьВнешнююКомпоненту(СтрокаАдресаКомпонентыПечатиШК, "КартинкаШтрихкода", ТипВнешнейКомпоненты.Native);
	
	// Создадим объект внешней компоненты
	Компонент = Новый("AddIn.КартинкаШтрихкода.Barcode");
	
	Компонент.ОтображатьТекст = ВставлятьЦифры;
	
	// Если нет возможности рисовать
	Если НЕ Компонент.ГрафикаУстановлена Тогда
		// То картинку сформировать не сможем
		Возврат Неопределено;
	КонецЕсли;
	
	Если ИнформацияОСистеме.ТипПлатформы = ТипПлатформы.Linux_x86
		ИЛИ ИнформацияОСистеме.ТипПлатформы = ТипПлатформы.Linux_x86_64 Тогда
		Если Компонент.НайтиШрифт("DejaVu-Serif-Book") = Истина Тогда
			Компонент.Шрифт = "DejaVu-Serif-Book";
		Иначе
			Возврат Неопределено;
		КонецЕсли;
	Иначе	
		// Если в системе установлен шрифт Arial
		Если Компонент.НайтиШрифт("Arial") Тогда
			// Выбираем его как шрифт для формирования картинки
			Компонент.Шрифт = "Arial";
		Иначе
			// Шрифт Arial в системе отсутствует
			// Обойдем все доступные компоненте шрифты
			Для Сч = 0 По Компонент.КоличествоШрифтов -1 Цикл
				// Получим очередной шрифт, доступный компоненте
				ТекущийШрифт = Компонент.ШрифтПоИндексу(Сч);
				// Если шрифт доступен
				Если ТекущийШрифт <> Неопределено Тогда
					// Они и будет шрифтом для формирования штрихкода
					Компонент.Шрифт = ТекущийШрифт;
					Прервать;
				КонецЕсли;
			КонецЦикла;
		КонецЕсли;
	КонецЕсли;
	// Установим размер шрифта
	Компонент.РазмерШрифта = 12;
	Компонент.ОриентацияТекста = 3;
	// Зададим размер картинки
	Если НЕ ЗначениеЗаполнено(ВысотаВМиллиметрах) Тогда
		ВысотаВМиллиметрах = 21;
	КонецЕсли;
	Компонент.Высота = Число(Формат((ВысотаВМиллиметрах/35.3) * 100, "ЧДЦ=0"));
	
	//EAN-13 по умолчанию
	Компонент.ТипКода = ТипКода;
	
	// Если код содержит контрольный символ, обязательно указываем
	Компонент.СодержитКС = Истина;
	
	// Формируем картинку штрихкода
	Компонент.ЗначениеКода = Код;
	
	Компонент.Ширина = Компонент.МинимальнаяШиринаКода + 5;
		
	// Сформируем картинку
	ДвоичныеДанныеКартинки = Компонент.ПолучитьШтрихкод();
	// Если картинка сформировалась
	Если НЕ ДвоичныеДанныеКартинки = Неопределено Тогда
		// Формируем из двоичных данных
		Картинка = Новый Картинка(ДвоичныеДанныеКартинки);
		Возврат Картинка;
	КонецЕсли;
	
	Возврат Неопределено;
	
КонецФункции

____________________________________________________________­_______________________________________

а вот этот кусочек встроить там, где выводится область с рисунком ШК:

ДанныеОШтрихкоде = ПолучитьДанныеДляВставкиШтрихкодаВОбъект(ВыборкаПоШапке.Ссылка, Ложь);
		Если ДанныеОШтрихкоде <> Неопределено
			И ДанныеОШтрихкоде.Свойство("ДвоичныеДанныеИзображенияШК") Тогда
			КартинкаШтрихкода = ПолучитьКартинкуШтрихкода(ДанныеОШтрихкоде.Штрихкод,,21,Истина);
			
			Если ДанныеОШтрихкоде.Свойство("СообщениеОбОшибке") Тогда
				ВызватьИсключение(ДанныеОШтрихкоде.СообщениеОбОшибке);
			КонецЕсли;
			
			Если НЕ КартинкаШтрихкода = Неопределено Тогда
				ОриентацияПортрет = Истина;
				ОриентацияПортрет = Истина;				
				
				Рисунок = Шапка.Область("Картинка");
				Рисунок.Высота = 19;		
				Рисунок.Ширина = 37;
				Рисунок.Картинка = КартинкаШтрихкода;
				
				Надпись = Шапка.Область("НадписьЗаголовок");				
				Надпись.Текст = ВыборкаПоШапке.ОрганизацияПолучатель.Наименование;
				
				//Расположение элементов штампа относительно друг друга
				Надпись.Лево = Рисунок.Лево;
				Надпись.Верх = Рисунок.Верх - Надпись.Высота;
				
				мНадписьТекст = ВыборкаПоШапке.ОрганизацияПолучатель.Наименование;
				мКартинкаШтрихкода = КартинкаШтрихкода;
				
			КонецЕсли;

ОбластьМакета.Рисунки.ШтрихКод.Объект.Сообщение = ВРег(СокрЛП(СсылкаНаОбъект[0].Ссылка.УникальныйИдентификатор()))

						ОбластьБирка.Рисунки.ШтрихКод_PDF417.Объект.ТипКода			=	6;
			ОбластьБирка.Рисунки.ШтрихКод_PDF417.Объект.Сообщение			=	Парам_ДанныеДляПечати.СерийныйНомер;
			ОбластьБирка.Рисунки.ШтрихКод_PDF417.Объект.Пропорции			=	"1:4";
			ОбластьБирка.Рисунки.ШтрихКод_PDF417.Объект.УровеньКоррекции	=	4;
			ОбластьБирка.Рисунки.ШтрихКод_PDF417.Объект.ВыравниваниеКода	=	2;

        #Область Рис_Штрихкода
        	м_КоличествоМиллиметровВПикселе=Получить_КоличествоМиллиметр­овВПикселе();
            
            Рисунок_ШК=ОбластьБирка.Рисунки.Рис_ШК_Партии;
            ПараметрыШтрихкода = Новый Структура;
            ПараметрыШтрихкода.Вставить("Ширина",          Окр( 180 / м_КоличествоМиллиметровВПикселе));
            ПараметрыШтрихкода.Вставить("Высота",          Окр(  20 / м_КоличествоМиллиметровВПикселе));
            ПараметрыШтрихкода.Вставить("Штрихкод",        СокрЛП(Парам_ДанныеДляПечати.Серия_Номер));
            ПараметрыШтрихкода.Вставить("ТипКода",         6);  // Штрихкод PDF417
            ПараметрыШтрихкода.Вставить("ОтображатьТекст", Ложь);
            ПараметрыШтрихкода.Вставить("РазмерШрифта",    12);
            
            м_Картинка = МенеджерОборудованияВызовСервера_ПолучитьКартинкуШтрихкода(ПараметрыШтрихкода);
            
            Если  ЗначениеЗаполнено(м_Картинка) Тогда
                Рисунок_ШК.Картинка = м_Картинка ;
                Рисунок_ШК.ВыводитьНаПечать = Истина;                
            иначе
                Рисунок_ШК.ВыводитьНаПечать = Ложь;                
            КонецЕсли;    
        #КонецОбласти 


//..............

    Функция Получить_КоличествоМиллиметровВПикселе()

    	Эталон = ПолучитьМакет("Эталон");
    	Возврат Эталон.Рисунки.Квадрат100Пикселей.Высота / 100;

    КонецФункции // ()