ИНН: что это такое и почему он критически важен для вашего антикризисного плана

Полезный код 1с

Для чего может быть полезен этот код 1С: проверка корректности ИНН контрагентов перед проведением операций. Этот код написан под абстрактную конфигурацию, не претендует на полноту и может содержать ошибки, т.к. сгенерирован ИИ.

Процедура ПроверкаИНН()
    // Проверка ИНН для юридических лиц
    Для Каждого Контрагент Из Справочники.Контрагенты.Выбрать() Цикл
        ИНН = Контрагент.ИНН;
        Если СтрДлина(ИНН) <> 12 ИЛИ НЕ ПроверитьКонтрольноеЧисло(ИНН, 12) Тогда
            Сообщить(""Некорректный ИНН для юридического лица: "" + Контрагент.Наименование + "" - "" + ИНН);
        КонецЕсли;
    КонецЦикла;

    // Проверка ИНН для физических лиц
    Для Каждого Сотрудник Из Справочники.Сотрудники.Выбрать() Цикл
        ИНН = Сотрудник.ИНН;
        Если СтрДлина(ИНН) <> 10 ИЛИ НЕ ПроверитьКонтрольноеЧисло(ИНН, 10) Тогда
            Сообщить(""Некорректный ИНН для физического лица: "" + Сотрудник.Наименование + "" - "" + ИНН);
        КонецЕсли;
    КонецЦикла;
КонецПроцедуры

Функция ПроверитьКонтрольноеЧисло(ИНН, Длина)
    // Простая проверка контрольного числа ИНН
    Коэффициенты = Новый Массив;
    Если Длина = 12 Тогда
        Коэффициенты = [7, 2, 4, 10, 3, 5, 9, 4, 6, 8, 0, 0];
    Иначе
        Коэффициенты = [7, 2, 4, 10, 3, 5, 9, 4, 6, 8];
    КонецЕсли;

    Сумма = 0;
    Для Индекс = 0 По Длина - 1 Цикл
        Сумма = Сумма + Число(Сред(ИНН, Индекс + 1, 1)) * Коэффициенты[Индекс];
    КонецЦикла;

    Возврат (Сумма % 11) % 10 = Число(Прав(ИНН, 1));
КонецФункции