Функция проверки контрольного числа ИНН

[Андре]

Недавно узнал, что ИНН это оказывается не просто уникальная последовательность цифр, но и последовательность сгенерированная по определенным правилам.
Идея не моя - взял здесь: http://www.delphikingdom.com/treasury/inn_pf.htm
Я всего лишь перевел код с Дельфи на X++.

Все это дело оформлено в виде функции. Функция вычисляет контрольное число ИНН и возвращает true если ИНН введен правильно или false в противном случае.
В качестве параметра передается проверяемый ИНН:

PHP код:

 boolean checkINN(str INN)
    {
      int factor1[9];
      int factor2[10];
      int factor3[11];
      int sm, sm2;
      int i;

      factor1[1] = 2;    factor1[2] = 4;    factor1[3] = 10;    factor1[4] = 3;     factor1[5] = 5;
      factor1[6] = 9;    factor1[7] = 4;    factor1[8] = 6;     factor1[9] = 8;

      factor2[1] = 7;    factor2[2] = 2;    factor2[3] = 4;     factor2[4] = 10;    factor2[5]  = 3;
      factor2[6] = 5;    factor2[7] = 9;    factor2[8] = 4;     factor2[9] = 6;     factor2[10] = 8;

      factor3[1]  = 3;    factor3[2] = 7;    factor3[3] = 2;     factor3[4] = 4;    factor3[5]  = 10;
      factor3[6]  = 3;    factor3[7] = 5;    factor3[8] = 9;     factor3[9] = 4;    factor3[10] = 6;
      factor3[11] = 8;


      if (strlen(INN) == 10)
      {
        sm = 0;
        for (i=1; i<10; i++)
          sm = sm + str2int(substr(INN,i,1))*factor1[i];
        sm = sm mod 11;
        sm = sm mod 10;
        if (str2int(substr(INN,10,1)) == sm) return true;
                                      else   return false;
      }
      else if (strlen(INN) == 12)
      {
        sm = 0;
        for (i=1; i<11; i++)
          sm = sm + str2int(substr(INN,i,1))*factor2[i];
        sm = sm mod 11;
        sm = sm mod 10;

        sm2 = 0;
        for (i=1; i<12; i++)
          sm2 = sm2 + str2int(substr(INN,i,1))*factor3[i];
        sm2 = sm2 mod 11;
        sm2 = sm2 mod 10;
        if ((str2int(substr(INN,11,1)) == sm) && (str2int(substr(INN,12,1)) == sm2)) return true;
                      else return false;
      }
      else return false;
    } 


Кстати, неужели в Аксапте нет более удобного способа инициализировать массивы ?

[Wamr]

Если задать строку длиной 10-12 состоящую НЕ из цифр или из 0, то функция вернет true.

[Андре]

Согласен.

Решить можно например так:

PHP код:

.......................................
 factor3[11] = 8;

  if ((strlen(INN) == 10) || (strlen(INN) == 12)) INN = strkeep(INN,"0123456789");
  if ((INN == "0000000000") || (INN == "000000000000")) return false;

  if (strlen(INN) == 10)
....................................... 


Кроме того, хорошо бы проверять уникальность ИНН в таблицах поставщиков и клиентов. Кроме явных ошибок ввода это позволит не допустить случаев, когда два разных сотрудника вводят одного и того же поставщика/клиента.

[EVGL]

Wow! Копирайта нет?
Можно включить в базовую версию.

[Андре]

Цитата:

Wow! Копирайта нет?
Можно включить в базовую версию.

Там где я брал идею - http://www.delphikingdom.com/treasury/inn_pf.htm вроде бы не было. Если имеется в виду моя конкретная реализация - то нет проблем, для того и выложил - чтобы каждый использовал на свое усмотрение.

[Роман Кошелев]

http://www.axforum.info/forums/showt...=&threadid=136

[Андре]

С одной стороны:

Цитата:

2.1. Проекты запрещается:
- продавать,
- обменивать,
- добавлять в качестве "бесплатного приложения"
- использовать каким-либо другим аналогичным образом, предполагающим коммерческую выгоду.

с другой:

Цитата:

Если не оговорены специальные условия для конкретных Проектов, то их использование подчиняется следующим правилам:

Поэтому мне кажется, что я имею право, снять запрет на этот проект, налагающийся пунктом 2. Если я не прав, пусть меня поправят.

[Роман Кошелев]

Андрей,
Совершенно верно.
Проект Ваш - можете его хоть за деньги продавать, хоть бесплатно дорабатывать для ребят из МБС.
Лицензия прикрывает только те проекты, для которых авторы не указали правила их использования.

[EVGL]

Цитата:

Изначально опубликовано Андре
я имею право, снять запрет на этот проект, налагающийся пунктом 2.

OK. Будет включено в версию 3.0 CIS. Родина вас не забудет.

[maxsmirnov]

и правда включили...
в обязательном порядке (в validateField)
пришлось лезть руками в код и отключать - иначе не вбиваются инн украинских контрагентов.

[Андре]

Цитата:

и правда включили... в обязательном порядке (в validateField)

Угу. Я даже в mbs писал, просил, чтобы сделали это настраиваемой опцией.
Отказали
Пришлось самому делать

[maxsmirnov]

имхо, проще и полезнее предупреждение выводить, но ввод данных не отменять.

[Андре]

Не, люди видят предупреждение - начинают нервничать. Я пытался предложить им всевозможные методики релаксации - не помогает.
Пришлось настройку сделать - проверять/не проверять.