1С 8.x : Функция проверяет номер страхового свидетельства на соответствие требованиям ПФР

 //Проверяет номер страхового свидетельства на соответствие требованиям ПФР

Функция СтраховойНомерПФРСоответствуетТребованиям(СтраховойНомер) Экспорт

	

	Результат = Истина;

	

	СтрокаЦифр=СтрЗаменить(Лев(СтраховойНомер,11),"-","");

	

	Если ПустаяСтрока(СтрокаЦифр) Тогда

		Возврат Ложь;

	КонецЕсли;

	

	Попытка

		П1 = Число(СтрокаЦифр);	

		КонтрольноеЧисло=Число(Прав(СтраховойНомер,2));

	Исключение

		Возврат Ложь;

	КонецПопытки; 

	

	Если Число(Лев(СтрокаЦифр,9)) > 1001998 Тогда

		Всего=0;

		Для Сч = 1 По 9 Цикл

			Всего=Всего+Число(Сред(СтрокаЦифр,10-Сч,1))*Сч

		КонецЦикла;

		Остаток=Всего%101;

		Остаток=?(Остаток=100,0,Остаток);

		Если Остаток<>КонтрольноеЧисло Тогда

			Результат = Ложь;

		КонецЕсли;

	КонецЕсли;

	

	Возврат Результат;

	

КонецФункции