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