Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- КонтрольнаяСумма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)) Тогда
- СоответствуетТребованиям = Ложь;
- ТекстСообщения = ТекстСообщения + ?(ЗначениеЗаполнено(ТекстСообщения), Символы.ПС, "")
- + НСтр("ru = 'Контрольное число для ИНН не совпадает с рассчитанным.'");
- КонецЕсли;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement