Подкиньте пожалуйста функцию у кого есть а то писать лень.
Спасибо.
Контрольная сумма ИНН
Модератор: Дед Пахом
Правила форума
При написании вопроса или обсуждении проблемы, не забывайте указывать версию Clarion который Вы используете.
А так же пользуйтесь спец. тегами при вставке исходников!!!
При написании вопроса или обсуждении проблемы, не забывайте указывать версию Clarion который Вы используете.
А так же пользуйтесь спец. тегами при вставке исходников!!!
- finsoftrz
- ✯ Ветеран ✯
- Сообщения: 4615
- Зарегистрирован: 06 Ноябрь 2014, 12:48
- Благодарил (а): 6 раз
- Поблагодарили: 37 раз
Контрольная сумма ИНН
Код: Выделить всё
MEMBER('fslibs6.clw') ! Это модуль типа MEMBER
TestINN FUNCTION (lop:str) ! Объявление процедуры
FilesOpened LONG
loc:InnR cstring(13)
loc:Gr12 GROUP,PRE()
loc:C0 BYTE(3)
loc:C1 BYTE(7)
loc:C2 BYTE(2)
loc:C3 BYTE(4)
loc:C4 BYTE(10)
loc:C5 BYTE(3)
loc:C6 BYTE(5)
loc:C7 BYTE(9)
loc:C8 BYTE(4)
loc:C9 BYTE(6)
loc:C10 BYTE(8)
END
loc:Const12 BYTE,DIM(11),OVER(loc:Gr12)
loc:s long
loc:i long
loc:zn byte
CODE ! Начало исполняемого кода
loc:zn=0
loc:InnR=clip(lop:Str)
case len(loc:InnR)
of 10 ! Резиденты и нерезиденты (без буквы F)
loc:S=0
loop loc:i=1 to 9
loc:S+=sub(lop:Str,loc:i,1)*loc:Const12[loc:i+2]
.
loop while loc:S=>11 ! модуль 11
loc:S-=11
.
if loc:S=10 ! модуль 10
loc:S=0
.
loc:zn=loc:s
return(loc:zn)
of 12
loc:S=0
loop loc:i=1 to 10
loc:s+=sub(lop:Str,loc:i,1)*loc:Const12[loc:i+1]
.
loop while loc:s=>11 ! модуль 11
loc:s-=11
.
if loc:s=10 ! модуль 10
loc:s=0
.
loc:InnR=sub(lop:str,1,10) & loc:s
loc:s=0
loop loc:i=1 to 11
loc:s+=sub(loc:InnR,loc:i,1)*loc:Const12[loc:i]
.
loop while loc:s=>11 ! модуль 11
loc:s-=11
.
if loc:s=10 ! модуль 10
loc:s=0
.
loc:InnR=sub(loc:InnR,1,11) & loc:s
loc:zn=sub(loc:InnR,11,2)
return(loc:zn)
.
C6/C11, ШВС, tps/btrieve.
- Admin
- Администратор
- Сообщения: 3959
- Зарегистрирован: 05 Июль 2005, 15:59
- Откуда: Хабаровск
- Благодарил (а): 25 раз
- Поблагодарили: 22 раза
- Контактная информация:
Контрольная сумма ИНН
Спасибо
Рай совершает ошибки ничуть не реже чем ад. Просто у него хорошая пресса