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

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

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

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



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

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

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

	Попытка

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

	Исключение	

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

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

КонецЕсли;    

 // Параметры:

//		ИНН - строка - проверяемый индивидуальный номер налогоплательщика,

//		ВладелецИНН - ПеречислениеСсылка.ЮрФизЛицо - тип владельца ИНН: физлицо или юрлицо

Функция ИННСоответствуетТребованиям(Знач ИНН, ВладелецИНН) Экспорт



	ИНН = СокрЛП(ИНН);

	ДлинаИНН =  СтрДлина(ИНН);



	Если НЕ ТолькоЦифрыВСтроке(ИНН) Тогда

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

	КонецЕсли;



	Если ДлинаИНН = 10  и ВладелецИНН = Перечисления.ЮрФизЛицо.ЮрЛицо Тогда



		КонтрольнаяСумма = 0;



		Для Н = 1 По 9 Цикл



			Если 	  Н = 1 Тогда

				Множитель = 2;

			ИначеЕсли Н = 2 Тогда

				Множитель = 4;

			ИначеЕсли Н = 3 Тогда

				Множитель = 10;

			ИначеЕсли Н = 4 Тогда

				Множитель = 3;

			ИначеЕсли Н = 5 Тогда

				Множитель = 5;

			ИначеЕсли Н = 6 Тогда

				Множитель = 9;

			ИначеЕсли Н = 7 Тогда

				Множитель = 4;

			ИначеЕсли Н = 8 Тогда

				Множитель = 6;

			ИначеЕсли Н = 9 Тогда

				Множитель = 8;

			КонецЕсли; 

			

			Цифра = Число(Сред(ИНН,Н,1));

			КонтрольнаяСумма = КонтрольнаяСумма + Цифра * Множитель;

			

		КонецЦикла; 

		

		КонтрольныйРазряд = (КонтрольнаяСумма %11) %10;

		

		Если КонтрольныйРазряд <> Число(Сред(ИНН,10,1)) Тогда

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

		КонецЕсли; 

		

	ИначеЕсли ДлинаИНН =12 и ВладелецИНН = Перечисления.ЮрФизЛицо.ФизЛицо Тогда

		

		КонтрольнаяСумма11 = 0;

		КонтрольнаяСумма12 = 0;

		

		Для Н=1 По 11 Цикл

			

			// Расчет множителя для 11-го и 12-го разрядов

			Если Н = 1 Тогда

				Множитель11 = 7;

				Множитель12 = 3;

			ИначеЕсли Н = 2 Тогда

				Множитель11 = 2;

				Множитель12 = 7;

			ИначеЕсли Н = 3 Тогда

				Множитель11 = 4;

				Множитель12 = 2;

			ИначеЕсли Н = 4 Тогда

				Множитель11 = 10;

				Множитель12 = 4;

			ИначеЕсли Н = 5 Тогда

				Множитель11 = 3;

				Множитель12 = 10;

			ИначеЕсли Н = 6 Тогда

				Множитель11 = 5;

				Множитель12 = 3;

			ИначеЕсли Н = 7 Тогда

				Множитель11 = 9;

				Множитель12 = 5;

			ИначеЕсли Н = 8 Тогда

				Множитель11 = 4;

				Множитель12 = 9;

			ИначеЕсли Н = 9 Тогда

				Множитель11 = 6;

				Множитель12 = 4;

			ИначеЕсли Н = 10 Тогда

				Множитель11 = 8;

				Множитель12 = 6;

			ИначеЕсли Н = 11 Тогда

				Множитель11 = 0;

				Множитель12 = 8;

			КонецЕсли; 

			

			Цифра = Число(Сред(ИНН,Н,1));

			КонтрольнаяСумма11 = КонтрольнаяСумма11 + Цифра * Множитель11;

			КонтрольнаяСумма12 = КонтрольнаяСумма12 + Цифра * Множитель12;

			

		КонецЦикла; 

		

		КонтрольныйРазряд11 = (КонтрольнаяСумма11 %11) %10;

		КонтрольныйРазряд12 = (КонтрольнаяСумма12 %11) %10;

		

		Если КонтрольныйРазряд11 <> Число(Сред(ИНН,11,1))

			ИЛИ КонтрольныйРазряд12 <> Число(Сред(ИНН,12,1)) Тогда

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

		КонецЕсли; 

		

	Иначе		

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

	КонецЕсли; 	

	Возврат Истина;	

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