Как проверить ИНН на валидность в 1С?

[Odineski]

проверить инн на валидность

[Odin — Одинэсник]

Алексей К, проверка ИНН на валидность — это классическая задача, которая сводится к проверке длины и контрольных цифр по алгоритму ФНС.

Для ИНН юридического лица (10 цифр) и ИП (12 цифр) алгоритмы проверки разные.

Вот пример кода на 1С (встроенный язык), который проверяет ИНН на валидность:

1С (Код)

Функция ПроверитьИНН(ИНН) КОНСТАНТА_ДЛИНА_ИНН_ЮРИДИЧЕСКОГО = 10; КОНСТАНТА_ДЛИНА_ИНН_ИП = 12; // Убираем все нецифровые символы ИНН = СтрЗаменить(ИНН, " ", ""); ИНН = СтрЗаменить(ИНН, "-", ""); ИНН = СтрЗаменить(ИНН, ".", ""); ИНН = СтрЗаменить(ИНН, ",", ""); Если НЕ РегулярныеВыражения.Соответствует(ИНН, "^d{10}$") И НЕ РегулярныеВыражения.Соответствует(ИНН, "^d{12}$") Тогда Возврат Ложь; // Длина не 10 и не 12 КонецЕсли; МассивЦифр = Новый Массив; Для Индекс = 1 По СтрДлина(ИНН) Цикл МассивЦифр.Добавить(Число(Сред(ИНН, Индекс, 1))); КонецЦикла; Если СтрДлина(ИНН) = КОНСТАНТА_ДЛИНА_ИНН_ЮРИДИЧЕСКОГО Тогда // Проверка для юридических лиц (10 цифр) КонтрольныеКоэффициенты = Новый Массив; КонтрольныеКоэффициенты.Добавить(2); КонтрольныеКоэффициенты.Добавить(4); КонтрольныеКоэффициенты.Добавить(10); КонтрольныеКоэффициенты.Добавить(3); КонтрольныеКоэффициенты.Добавить(5); КонтрольныеКоэффициенты.Добавить(9); КонтрольныеКоэффициенты.Добавить(6); КонтрольныеКоэффициенты.Добавить(8); Сумма = 0; Для Индекс = 0 По 8 Цикл Сумма = Сумма + МассивЦифр[Индекс] * КонтрольныеКоэффициенты[Индекс]; КонецЦикла; Остаток = Сумма % 11; Если Остаток > 9 Тогда Остаток = Остаток % 10; КонецЕсли; Возврат Остаток = МассивЦифр[9]; ИначеЕсли СтрДлина(ИНН) = КОНСТАНТА_ДЛИНА_ИНН_ИП Тогда // Проверка для ИП (12 цифр) Коэффициенты1 = Новый Массив; Коэффициенты1.Добавить(7); Коэффициенты1.Добавить(2); Коэффициенты1.Добавить(4); Коэффициенты1.Добавить(10); Коэффициенты1.Добавить(3); Коэффициенты1.Добавить(5); Коэффициенты1.Добавить(9); Коэффициенты1.Добавить(4); Коэффициенты1.Добавить(6); Коэффициенты1.Добавить(8); Коэффициенты1.Добавить(0); Коэффициенты2 = Новый Массив; Коэффициенты2.Добавить(3); Коэффициенты2.Добавить(7); Коэффициенты2.Добавить(2); Коэффициенты2.Добавить(4); Коэффициенты2.Добавить(10); Коэффициенты2.Добавить(3); Коэффициенты2.Добавить(5); Коэффициенты2.Добавить(9); Коэффициенты2.Добавить(4); Коэффициенты2.Добавить(6); Коэффициенты2.Добавить(8); Коэффициенты2.Добавить(0); // Проверка первой контрольной цифры (11-я цифра) Сумма1 = 0; Для Индекс = 0 По 10 Цикл Сумма1 = Сумма1 + МассивЦифр[Индекс] * Коэффициенты1[Индекс]; КонецЦикла; Остаток1 = Сумма1 % 11; Если Остаток1 > 9 Тогда Остаток1 = Остаток1 % 10; КонецЕсли; Если Остаток1 <> МассивЦифр[10] Тогда Возврат Ложь; КонецЕсли; // Проверка второй контрольной цифры (12-я цифра) Сумма2 = 0; Для Индекс = 0 По 11 Цикл Сумма2 = Сумма2 + МассивЦифр[Индекс] * Коэффициенты2[Индекс]; КонецЦикла; Остаток2 = Сумма2 % 11; Если Остаток2 > 9 Тогда Остаток2 = Остаток2 % 10; КонецЕсли; Возврат Остаток2 = МассивЦифр[11]; Иначе Возврат Ложь; КонецЕсли; КонецФункции

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102

Функция ПроверитьИНН(ИНН)     КОНСТАНТА_ДЛИНА_ИНН_ЮРИДИЧЕСКОГО = 10;     КОНСТАНТА_ДЛИНА_ИНН_ИП = 12;       // Убираем все нецифровые символы     ИНН = СтрЗаменить(ИНН, " ", "");     ИНН = СтрЗаменить(ИНН, "-", "");     ИНН = СтрЗаменить(ИНН, ".", "");     ИНН = СтрЗаменить(ИНН, ",", "");       Если НЕ РегулярныеВыражения.Соответствует(ИНН, "^d{10}$") И НЕ РегулярныеВыражения.Соответствует(ИНН, "^d{12}$") Тогда         Возврат Ложь; // Длина не 10 и не 12     КонецЕсли;       МассивЦифр = Новый Массив;     Для Индекс = 1 По СтрДлина(ИНН) Цикл         МассивЦифр.Добавить(Число(Сред(ИНН, Индекс, 1)));     КонецЦикла;       Если СтрДлина(ИНН) = КОНСТАНТА_ДЛИНА_ИНН_ЮРИДИЧЕСКОГО Тогда         // Проверка для юридических лиц (10 цифр)         КонтрольныеКоэффициенты = Новый Массив;         КонтрольныеКоэффициенты.Добавить(2);         КонтрольныеКоэффициенты.Добавить(4);         КонтрольныеКоэффициенты.Добавить(10);         КонтрольныеКоэффициенты.Добавить(3);         КонтрольныеКоэффициенты.Добавить(5);         КонтрольныеКоэффициенты.Добавить(9);         КонтрольныеКоэффициенты.Добавить(6);         КонтрольныеКоэффициенты.Добавить(8);           Сумма = 0;         Для Индекс = 0 По 8 Цикл             Сумма = Сумма + МассивЦифр[Индекс] * КонтрольныеКоэффициенты[Индекс];         КонецЦикла;           Остаток = Сумма % 11;         Если Остаток > 9 Тогда             Остаток = Остаток % 10;         КонецЕсли;           Возврат Остаток = МассивЦифр[9];     ИначеЕсли СтрДлина(ИНН) = КОНСТАНТА_ДЛИНА_ИНН_ИП Тогда         // Проверка для ИП (12 цифр)         Коэффициенты1 = Новый Массив;         Коэффициенты1.Добавить(7);         Коэффициенты1.Добавить(2);         Коэффициенты1.Добавить(4);         Коэффициенты1.Добавить(10);         Коэффициенты1.Добавить(3);         Коэффициенты1.Добавить(5);         Коэффициенты1.Добавить(9);         Коэффициенты1.Добавить(4);         Коэффициенты1.Добавить(6);         Коэффициенты1.Добавить(8);         Коэффициенты1.Добавить(0);           Коэффициенты2 = Новый Массив;         Коэффициенты2.Добавить(3);         Коэффициенты2.Добавить(7);         Коэффициенты2.Добавить(2);         Коэффициенты2.Добавить(4);         Коэффициенты2.Добавить(10);         Коэффициенты2.Добавить(3);         Коэффициенты2.Добавить(5);         Коэффициенты2.Добавить(9);         Коэффициенты2.Добавить(4);         Коэффициенты2.Добавить(6);         Коэффициенты2.Добавить(8);         Коэффициенты2.Добавить(0);           // Проверка первой контрольной цифры (11-я цифра)         Сумма1 = 0;         Для Индекс = 0 По 10 Цикл             Сумма1 = Сумма1 + МассивЦифр[Индекс] * Коэффициенты1[Индекс];         КонецЦикла;           Остаток1 = Сумма1 % 11;         Если Остаток1 > 9 Тогда             Остаток1 = Остаток1 % 10;         КонецЕсли;           Если Остаток1 <> МассивЦифр[10] Тогда             Возврат Ложь;         КонецЕсли;           // Проверка второй контрольной цифры (12-я цифра)         Сумма2 = 0;         Для Индекс = 0 По 11 Цикл             Сумма2 = Сумма2 + МассивЦифр[Индекс] * Коэффициенты2[Индекс];         КонецЦикла;           Остаток2 = Сумма2 % 11;         Если Остаток2 > 9 Тогда             Остаток2 = Остаток2 % 10;         КонецЕсли;           Возврат Остаток2 = МассивЦифр[11];     Иначе         Возврат Ложь;     КонецЕсли; КонецФункции

Пример использования:

1С (Код)

Если ПроверитьИНН("7707083893") Тогда СообщитьИнформацию("ИНН валиден"); Иначе СообщитьИнформацию("ИНН невалиден"); КонецЕсли;

1 2 3 4 5

Если ПроверитьИНН("7707083893") Тогда     СообщитьИнформацию("ИНН валиден"); Иначе     СообщитьИнформацию("ИНН невалиден"); КонецЕсли;

Этот код проверит ИНН на корректность по контрольным цифрам и длине.

Рекомендую использовать именно такой алгоритм для проверки ИНН в 1С.

Если нужна помощь с кодом или интеграцией — обращайтесь.

[Автор]

Сообщения