pumbaEO

Функция нфПолучитьКЧ_ЕДРПОУ(Код,ВесКоэф,СмещениеКоэф=0)
  КонтрольнаяСумма=0;
	Для ПерЦ=1 По СтрДлина(ВесКоэф) Цикл
		КонтрольнаяСумма=КонтрольнаяСумма+(Число(Сред(Код,ПерЦ,1))*(Число(Сред(ВесКоэф,ПерЦ,1))+СмещениеКоэф));
	КонецЦикла;                                                                                
	КонтрЧисло = КонтрольнаяСумма-Цел(КонтрольнаяСумма/11)*11;
	Возврат КонтрЧисло;
КонецФункции //ПолучитьКЧ_ЕДРПОУ

// нфОшибкаЕДРПОУ ===============================