Это старая версия документа!

Функция ПолучитьШК128ДляВедомости(СсылкаНаДок,ИмяМакетаДляШК) Экспорт 
	
	ПараметрыШтрихКода = Новый Структура;
	ПараметрыШтрихКода.Вставить("ТипКода");
	ПараметрыШтрихКода.Вставить("ОтображатьТекст");
	ПараметрыШтрихКода.Вставить("Сообщение");
	ПараметрыШтрихКода.Вставить("ТекстКода");
	
	
	//Проверяем наличие установленной компоненты	
	Попытка
		КомпонентШК = Новый COMОбъект("V8.Barcod");
	Исключение
		КомпонентШК = Неопределено;
		Сообщить("Компонента 1CBarCode не установлена на данном компьютере! Штрих код не будет сформирован.", СтатусСообщения.Важное);
		Возврат Неопределено;
	КонецПопытки;
		
	
	Если КомпонентШК <> Неопределено Тогда
		
		Если ИмяМакетаДляШК			=	"ТТН (КАШКАН)" Тогда 
			ИмяМакетаДляШК			=	"ТТН_КАШКАН"
		ИначеЕсли ИмяМакетаДляШК	=	"ТТНАлкогольРазд" Тогда 
			ИмяМакетаДляШК			=	"ТТН_Алкоголь_Полный"
		ИначеЕсли ИмяМакетаДляШК	=	"НакладнаяАТБ_КАШКАН" Тогда 
			ИмяМакетаДляШК			=	"ТТН_АТБ"
		ИначеЕсли ИмяМакетаДляШК	=	"ТТНАлкогольАТБ" Тогда 
			ИмяМакетаДляШК			=	"ТТН_Алкоголь_Полный_АТБ"
		ИначеЕсли ИмяМакетаДляШК	=	"ФУРШЕТ" Тогда 
			ИмяМакетаДляШК			=	"НакладнаяФуршет"
		ИначеЕсли ИмяМакетаДляШК	=	"КАРАВАН" Тогда 
			ИмяМакетаДляШК			=	"НакладнаяКараван"
		КонецЕсли;
		
		МойШтрихКод											= Штрихкодирование.СформироватьШК128(СсылкаНаДок,ИмяМакетаДляШК);
		
		Если ЗначениеЗаполнено(МойШтрихКод) Тогда 
			
			ПараметрыШтрихКода.ТипКода 				= 	4; //CODE128
			ПараметрыШтрихКода.ОтображатьТекст		=	Ложь;
			ПараметрыШтрихКода.Сообщение 			= 	СокрЛП(МойШтрихКод);
			ПараметрыШтрихКода.ТекстКода 			= 	СокрЛП(МойШтрихКод);
			Возврат ПараметрыШтрихКода; 
		Иначе 
			Сообщить("Невозможно сформировать штрих код для документа "+СсылкаНаДок+" и его печатной формы "+ИмяМакетаДляШК+" т.к. его нет в таблице кодировки");
			Возврат Неопределено;
		КонецЕсли;
		
	КонецЕсли;		
	
	
КонецФункции