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

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

	

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

	

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

	

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

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

	КонецЕсли;

	

	Попытка

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

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

	Исключение

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

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

	

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

		Всего=0;

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

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

		КонецЦикла;

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

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

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

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

		КонецЕсли;

	КонецЕсли;

	

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

	

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

 

Режим = РежимДиалогаВыбораФайла.Открытие;

ДиалогВыбораФайла = Новый ДиалогВыбораФайла(Режим);

ДиалогВыбораФайла.Фильтр 	= "Все файлы (все)|*.*";	

ДиалогВыбораФайла.Заголовок = "Выберите медиафайл";



Если ДиалогВыбораФайла.Выбрать() Тогда

	ПутьКМедиаФайлу = ДиалогВыбораФайла.ПолноеИмяФайла;

	// В зависимости от варианта объекта запись полного пути к файлу производится либо в свойство FileName, либо в свойство URL.

	Попытка

		ЭлементыФормы.WMP.FileName = ПутьКМедиаФайлу;

	Исключение	

		ЭлементыФормы.WMP.URL = ПутьКМедиаФайлу;

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

КонецЕсли;