//********************************************************************************
Функция ЦифрыВБуквыНижнегоРегистра(Цифра)
	БуквыНижнегоРегистра = "abcdefghij";
	Цифра = Число(Прав(Цифра, 1 ));
	Стр = Сред(БуквыНижнегоРегистра, Цифра +  1 ,  1 );
	Возврат Стр;
КонецФункции
//********************************************************************************
Функция ЦифрыВБуквыВерхнегоРегистра(Цифра)
	БуквыВерхнегоРегистра = "ABCDEFGHIJ";
	Цифра = Число(Прав(Цифра, 1 ));
	Стр = Сред(БуквыВерхнегоРегистра, Цифра +  1 ,  1 );
	Возврат Стр;
КонецФункции
//********************************************************************************
Функция СформироватьКодEAN13(код)
	ПервыйФлаг = Число(Сред(код, 1 , 1 ));
	левстр     = Сред(код, 2 , 6 );
	правстр    = Сред(код, 8 , 6 );
	правкод = "";
	Для Поз =  1  По  6 
	Цикл
		правкод = правкод + ЦифрыВБуквыНижнегоРегистра(Сред(правстр,Поз, 1 ));
	КонецЦикла;
	//  Формируем левую часть кода в зависимости от значениа ПервыйФлаг
	Если      ПервыйФлаг =  0 
	Тогда //•••  0  ••• AAAAA •••
		левкод = "#!"+Лев(левстр, 1 )+Сред(левстр, 2 , 1 )+Сред(левстр, 3 , 1 )+Сред(левстр, 4 , 1 )+Сред(левстр, 5 , 1 )+Сред(левстр, 6 , 1 );
	ИначеЕсли ПервыйФлаг =  1 
	Тогда //•••  1  ••• AABABB •••
		левкод = "$!"+Лев(левстр, 1 )+Сред(левстр, 2 , 1 )+ЦифрыВБуквыВерхнегоРегистра(Сред(левстр, 3 , 1 ))+Сред(левстр, 4 , 1 )+ЦифрыВБуквыВерхнегоРегистра(Сред(левстр, 5 , 1 ))+ЦифрыВБуквыВерхнегоРегистра(Сред(левстр, 6 , 1 ));
	ИначеЕсли ПервыйФлаг =  2 
	Тогда //•••  2  ••• AABBAB •••
		левкод = "%!"+Лев(левстр, 1 )+Сред(левстр, 2 , 1 )+ЦифрыВБуквыВерхнегоРегистра(Сред(левстр, 3 , 1 ))+ЦифрыВБуквыВерхнегоРегистра(Сред(левстр, 4 , 1 ))+Сред(левстр, 5 , 1 )+ЦифрыВБуквыВерхнегоРегистра(Сред(левстр, 6 , 1 ));
	ИначеЕсли ПервыйФлаг =  3 
	Тогда //•••  3  ••• AABBBA •••
		левкод = "&!"+Лев(левстр, 1 )+Сред(левстр, 2 , 1 )+ЦифрыВБуквыВерхнегоРегистра(Сред(левстр, 3 , 1 ))+ЦифрыВБуквыВерхнегоРегистра(Сред(левстр, 4 , 1 ))+ЦифрыВБуквыВерхнегоРегистра(Сред(левстр, 5 , 1 ))+Сред(левстр, 6 , 1 );
	ИначеЕсли ПервыйФлаг =  4 
	Тогда //•••  4  ••• ABAABB •••
		левкод = "'!"+Лев(левстр, 1 )+ЦифрыВБуквыВерхнегоРегистра(Сред(левстр, 2 , 1 ))+Сред(левстр, 3 , 1 )+Сред(левстр, 4 , 1 )+ЦифрыВБуквыВерхнегоРегистра(Сред(левстр, 5 , 1 ))+ЦифрыВБуквыВерхнегоРегистра(Сред(левстр, 6 , 1 ));
	ИначеЕсли ПервыйФлаг =  5 
	Тогда //•••  5  ••• ABBAAB •••
		левкод = "(!"+Лев(левстр, 1 )+ЦифрыВБуквыВерхнегоРегистра(Сред(левстр, 2 , 1 ))+ЦифрыВБуквыВерхнегоРегистра(Сред(левстр, 3 , 1 ))+Сред(левстр, 4 , 1 )+Сред(левстр, 5 , 1 )+ЦифрыВБуквыВерхнегоРегистра(Сред(левстр, 6 , 1 ));
	ИначеЕсли ПервыйФлаг =  6 
	Тогда //•••  6  ••• ABBBAA •••
		левкод = ")!"+Лев(левстр, 1 )+ЦифрыВБуквыВерхнегоРегистра(Сред(левстр, 2 , 1 ))+ЦифрыВБуквыВерхнегоРегистра(Сред(левстр, 3 , 1 ))+ЦифрыВБуквыВерхнегоРегистра(Сред(левстр, 4 , 1 ))+Сред(левстр, 5 , 1 )+Сред(левстр, 6 , 1 );
	ИначеЕсли ПервыйФлаг =  7 
	Тогда //•••  7  ••• ABABAB •••
		левкод = "*!"+Лев(левстр, 1 )+ЦифрыВБуквыВерхнегоРегистра(Сред(левстр, 2 , 1 ))+Сред(левстр, 3 , 1 )+ЦифрыВБуквыВерхнегоРегистра(Сред(левстр, 4 , 1 ))+Сред(левстр, 5 , 1 )+ЦифрыВБуквыВерхнегоРегистра(Сред(левстр, 6 , 1 ));
	ИначеЕсли ПервыйФлаг =  8 
	Тогда //•••  8  ••• ABABBA •••
		левкод = "+!"+Лев(левстр, 1 )+ЦифрыВБуквыВерхнегоРегистра(Сред(левстр, 2 , 1 ))+Сред(левстр, 3 , 1 )+ЦифрыВБуквыВерхнегоРегистра(Сред(левстр, 4 , 1 ))+ЦифрыВБуквыВерхнегоРегистра(Сред(левстр, 5 , 1 ))+Сред(левстр, 6 , 1 );
	ИначеЕсли ПервыйФлаг =  9 
	Тогда //•••  9  ••• ABBABA •••
		левкод = ",!"+Лев(левстр, 1 )+ЦифрыВБуквыВерхнегоРегистра(Сред(левстр, 2 , 1 ))+ЦифрыВБуквыВерхнегоРегистра(Сред(левстр, 3 , 1 ))+Сред(левстр, 4 , 1 )+ЦифрыВБуквыВерхнегоРегистра(Сред(левстр, 5 , 1 ))+Сред(левстр, 6 , 1 );
	КонецЕсли;
	// Возвращаем результат
	кодстр = левкод + "-" + правкод + "!";
	Возврат кодстр;
КонецФункции
//********************************************************************************