Код

Функция ПолучитьМассивЧиселИзСимволовСтроки(строкаСимволов)
	длинаМассива = СтрДлина(строкаСимволов);
	массивЭлементовСтроки = Новый Массив(длинаМассива);
	Для счЭлементов = 0 по длинаМассива-1 Цикл
		анализируемыйСимвол = Сред(строкаСимволов,счЭлементов+1,1);
		массивЭлементовСтроки[счЭлементов] =
                     Число(?(ПустаяСтрока(СокрЛП(анализируемыйСимвол)),"0",анализируемыйСимвол ) );
	КонецЦикла;
	Возврат массивЭлементовСтроки;
КонецФункции


Функция ИННКорректен(строкаИНН, СтрокаПроверки = "")
		мци = ПолучитьМассивЧиселИзСимволовСтроки(строкаИНН);
		///мци = массивЦифрИНН; //для удобства чтения кода - кажется я загнался ;-)
		    //  массивЦифрИНН = ""; //чтобы не было циклической ссылки
		Если мци.Количество() = 10 Тогда
	    	контрольнаяЦифра =
				 (2*мци[0]+4*мци[1]+10*мци[2]+3*мци[3]+5*мци[4]+9*мци[5]+4*мци[6]+6*мци[7]+8*мци[8])%11;
      		контрольнаяЦифра = ?(контрольнаяЦифра = 10,0,контрольнаяЦифра);
	        Если контрольнаяЦифра = мци[9] Тогда
            	Возврат Истина;
			Иначе
				СтрокаПроверки = "Контрольные цифры ИНН неверны - такого ИНН не может быть согласно Законодательства РФ";
				Возврат Ложь;
			КонецЕсли;
		ИначеЕсли  мци.Количество() = 12 Тогда

       		контрольнаяЦифра =
				(7*мци[0]+2*мци[1]+4*мци[2]+10*мци[3]+3*мци[4]+5*мци[5]+9*мци[6]+4*мци[7]+6*мци[8]+8*мци[9])%11;
	        контрольнаяЦифра = ?(контрольнаяЦифра = 10,0,контрольнаяЦифра);

    	        контрольнаяЦифра2 = (3*мци[0]+7*мци[1]+2*мци[2]+4*мци[3]+10*мци[4]+3*мци[5]+5*мци[6]+9*мци[7]+4*мци[8]+6*мци[9]+8*мци[10])%11;
        	контрольнаяЦифра2 = ?(контрольнаяЦифра2 = 10,0,контрольнаяЦифра2);

        	Если контрольнаяЦифра = мци[10] И контрольнаяЦифра2 =мци[11] Тогда
            	Возврат Истина;
			Иначе
				СтрокаПроверки = "<p>Контрольные цифры ИНН неверны - такого ИНН не может быть согласно Законодательства РФ</p>";
				Возврат Ложь;
			КонецЕсли;
 		Иначе
		    СтрокаПроверки = "<p>Длина введенного ИНН неверна - необходимо указать ИНН состоящий из 10 или 12 цифр </p>";
    		Возврат Ложь;
		КонецЕСли;
    КонецЕсли;

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

 

lustin писал(а) 26. Февраля 2010 :: 11:54:

Код

                массивЦифрИНН = ""; //чтобы не было циклической ссылки
		Если массивЦифрИНН.Количество() = 10 Тогда
 

Я извиняюсь, а как это работает?

Код

 массивЦифрИНН = ПолучитьМассивЧиселИзСимволовСтроки(строкаИНН);
 мци = массивЦифрИНН; //для удобства чтения кода