Печать штрихкода EAN8

//----------------------------------------------------------------
// Процедуры формирования штрих-кодов (фирма 1С)
// Для печати штрих-кодов используются шрифты
// производства фирмы Bear Rock Technologies Corp.http://www.bearrock.com/brhome.htm
// EanBwrP36Tt	- EAN13 
// C39HrP36DlTt	- CODE93
//----------------------------------------------------------------
// Вспомогательные функции
Функция ДобавитьСлева(Стр1, Длн, Стр2)
	Стр0=Стр1;
	Пока СтрДлина(Стр0) <= Длн Цикл
		Стр0=Стр2+Стр0;
	КонецЦикла;
	Стр0=Прав(Стр0, Длн);
	Возврат Стр0;
КонецФункции
//----------------------------------------------------------------
Функция ToUpper(Num)
	UpperCharSet="ABCDEFGHIJ"; Num=Число(Прав(Num,1)); Стр=Сред(UpperCharSet, Num+1, 1);
	Возврат Стр;
КонецФункции
//----------------------------------------------------------------
Функция NumberToLowerChar(Num)
	LowerCharSet="abcdefghij"; Num=Число(Прав(Num,1)); Стр=Сред(LowerCharSet, Num+1, 1);
	Возврат Стр;
КонецФункции
//----------------------------------------------------------------
Функция ParityCheck(Код) // Вычисление кода четности
	четн=0; неч=0;
	// Для строки с нечетной длинной верхняя граница округлается в большую сторону
	Для Поз=1 По Окр(СтрДлина(Код) / 2+0.1, 0) Цикл
		неч=неч+Сред(Код, Поз * 2 - 1, 1);
		Если Поз * 2 <= СтрДлина(Код) Тогда
			четн=четн+Сред(Код, Поз * 2, 1);
		КонецЕсли;
	КонецЦикла;
	КодЧетности=Число(Прав(Строка(1000 - четн - неч * 3), 1));
	Возврат КодЧетности;
КонецФункции
//----------------------------------------------------------------
// Генерация строки, печатаемой как код EAN13
Функция ЕАН13(код) Экспорт
	код=ДобавитьСлева(Строка(код),12,"0");
	код=код+Строка(ParityCheck("0"+Код));
	ПервыйФлаг=Число(Сред(код,1,1));
	левстр=Сред(код,2,6);
	правстр=Сред(код,8,6);
	правкод="";
	Для Поз=1 По 6 Цикл правкод=правкод+NumberToLowerChar(Сред(правстр,Поз,1)); КонецЦикла;
	Если ПервыйФлаг=0 Тогда
// 0 A A A A A
левкод="#!"+Лев(левстр,1)+Сред(левстр,2,1)+Сред(левстр,3,1)+Сред(левстр,4,1)+Сред(левстр,5,1)+Сред(левстр,6,1);
	ИначеЕсли ПервыйФлаг=1 Тогда
// 1 A A B A B B
левкод="$!"+Лев(левстр,1)+Сред(левстр,2,1)+ToUpper(Сред(левстр,3,1))+Сред(левстр,4,1)+ToUpper(Сред(левстр,5,1))+ToUpper(Сред(левстр,6,1));
	ИначеЕсли ПервыйФлаг=2 Тогда
// 2 A A B B A B
левкод="%!"+Лев(левстр,1)+Сред(левстр,2,1)+ToUpper(Сред(левстр,3,1))+ToUpper(Сред(левстр,4,1))+Сред(левстр,5,1)+ToUpper(Сред(левстр,6,1));
	ИначеЕсли ПервыйФлаг=3 Тогда
// 3 A A B B B A
левкод="&!"+Лев(левстр,1)+Сред(левстр,2,1)+ToUpper(Сред(левстр,3,1))+ToUpper(Сред(левстр,4,1))+ToUpper(Сред(левстр,5,1))+Сред(левстр,6,1);
	ИначеЕсли ПервыйФлаг=4 Тогда
// 4 A B A A B B
левкод="'!"+Лев(левстр,1)+ToUpper(Сред(левстр,2,1))+Сред(левстр,3,1)+Сред(левстр,4,1)+ToUpper(Сред(левстр,5,1))+ToUpper(Сред(левстр,6,1));
	ИначеЕсли ПервыйФлаг=5 Тогда
// 5 A B B A A B
левкод="(!"+Лев(левстр,1)+ToUpper(Сред(левстр,2,1))+ToUpper(Сред(левстр,3,1))+Сред(левстр,4,1)+Сред(левстр,5,1)+ToUpper(Сред(левстр,6,1));
	ИначеЕсли ПервыйФлаг=6 Тогда
// 6 A B B B A A
левкод=")!"+Лев(левстр,1)+ToUpper(Сред(левстр,2,1))+ToUpper(Сред(левстр,3,1))+ToUpper(Сред(левстр,4,1))+Сред(левстр,5,1)+Сред(левстр,6,1);
	ИначеЕсли ПервыйФлаг=7 Тогда
// 7 A B A B A B
левкод="*!"+Лев(левстр,1)+ToUpper(Сред(левстр,2,1))+Сред(левстр,3,1)+ToUpper(Сред(левстр,4,1))+Сред(левстр,5,1)+ToUpper(Сред(левстр,6,1));
	ИначеЕсли ПервыйФлаг=8 Тогда
// 8 A B A B B A
левкод="+!"+Лев(левстр,1)+ToUpper(Сред(левстр,2,1))+Сред(левстр,3,1)+ToUpper(Сред(левстр,4,1))+ToUpper(Сред(левстр,5,1))+Сред(левстр,6,1);
	ИначеЕсли ПервыйФлаг=9 Тогда
// 9 A B B A B A
левкод=",!"+Лев(левстр,1)+ToUpper(Сред(левстр,2,1))+ToUpper(Сред(левстр,3,1))+Сред(левстр,4,1)+ToUpper(Сред(левстр,5,1))+Сред(левстр,6,1);
	КонецЕсли;
	кодстр=левкод+"-"+правкод+"!";
	Возврат кодстр;
КонецФункции