Имеем штрихкод 200999999999_ нужно определить чексум 

Start Code C,  20 ,  09 ,  99 ,  99 ,  99 ,  99 

 105 ,  20 ,  09 ,  99 ,  99 ,  99 ,  99 

 1 , 1 , 2 , 3 , 4 , 5 , 6 

 105 * 1 = 105 
 20 * 1 = 20 
 09 * 2 = 18 
 99 * 3 = 297 
 99 * 4 = 396 
 99 * 5 = 495 
 99 * 6 = 594 

 105 + 20 + 18 + 297 + 396 + 495 + 954 = 2285 

 2285 / 103 = 22 , 1844 

Функция ПривестиСтрокуКЧислу(ЧислоСтрокой, ВозвращатьНеопределено = Ложь) Экспорт
	
	ОписаниеТипаЧисла = Новый ОписаниеТипов("Число");
	ЗначениеЧисла = ОписаниеТипаЧисла.ПривестиЗначение(ЧислоСтрокой);
	
	Если ВозвращатьНеопределено И (ЗначениеЧисла =  0 ) Тогда
		
		Стр = Строка(ЧислоСтрокой);
		Если Стр = "" Тогда
			Возврат Неопределено;
		КонецЕсли;
		
		Стр = СтрЗаменить(СокрЛП(Стр), "0", "");
		Если (Стр <> "") И (Стр <> ".") И (Стр <> ",") Тогда
			Возврат Неопределено;
		КонецЕсли;
	КонецЕсли;
	
	Возврат ЗначениеЧисла;	
	
КонецФункции

//Сформировать штирихкод ЕАН128
Функция СформироватьШтрихКодEAN128() Экспорт
	
Префикс = СокрЛП(ПланыВидовХарактеристик.ТипыШтрихкодов.EAN128.ПрефиксДокумента);
Если Префикс = Null Тогда
	Сообщить("Не указан префикс документа!");
	Возврат "";
КонецЕсли;
			
Запрос = Новый Запрос("
	|ВЫБРАТЬ
	|	МАКСИМУМ(ПОДСТРОКА(РегШтрихКоды.Штрихкод, 3, 16)) КАК Код
	|ИЗ
	|	РегистрСведений.ШтрихКоды КАК РегШтрихКоды
	|ГДЕ
	|	РегШтрихКоды.ТипШтрихкода = ЗНАЧЕНИЕ(ПланВидовХарактеристик.ТипыШтрихкодов.EAN128)
	|	И РегШтрихКоды.Штрихкод ПОДОБНО ""2" + Префикс + "__________________""
	|");

	Выборка = Запрос.Выполнить().Выбрать();
	Выборка.Следующий();

	ТекКод = ?(Выборка.Код = NULL,  1 , Мин(ПривестиСтрокуКЧислу(Выборка.Код) +  1 ,  9999999999999999 ));

	Штрихкод = "2" + Префикс + Формат(ТекКод, "ЧЦ=16; ЧВН=; ЧГ=");
	Штрихкод = Штрихкод + КонтрольныйСимволEAN128(ШтрихКод,  20 );

	Возврат Штрихкод;

КонецФункции // СформироватьШтрихКод EAN128()

// Функция вычисляет контрольный символ кода EAN128
Функция КонтрольныйСимволEAN128(ШтрихКод, Тип) Экспорт

	КоличествоИтераций =  9 ;
	
	Code =  105 ;
	
	Для Индекс =  1  по КоличествоИтераций Цикл
		Code = Code + (Сред(ШтрихКод, Индекс *  2  -  1 ,  2 )) * Индекс;
	КонецЦикла;
	
	Code = Code/ 103 ;
	
	Возврат Формат(Code, "ЧЦ=2; ЧВН=");
	
КонецФункции // КонтрольныйСимволEAN128()