ДЛЯ УКРАИНЫ
код не мой
Проверка ключевания лицевого счета на мфо банка
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.
PROCEDURE check_ls
LPARAMETERS par1,par2
*par1- МФО
*par2- ЛС
DIMENSION arr( 19 )
STORE 1 TO arr( 1 )
STORE 3 TO arr( 2 )
STORE 7 TO arr( 3 )
STORE 1 TO arr( 4 )
STORE 3 TO arr( 5 )
STORE 3 TO arr( 6 )
STORE 7 TO arr( 7 )
STORE 1 TO arr( 8 )
STORE 3 TO arr( 9 )
STORE 0 TO arr( 10 )
STORE 1 TO arr( 11 )
STORE 3 TO arr( 12 )
STORE 7 TO arr( 13 )
STORE 1 TO arr( 14 )
STORE 3 TO arr( 15 )
STORE 7 TO arr( 16 )
STORE 1 TO arr( 17 )
STORE 3 TO arr( 18 )
STORE 7 TO arr( 19 )
lll=LEN(ALLTRIM(par1))
stroc1=LEFT(par2, 5 )+PADR(par1, 14 ,'0')
res= 0
FOR i= 1 TO 19
res=MOD(res+(val(substr(stroc1,i, 1 ))*arr[i]), 10 )
next
res=MOD(MOD(res+lll, 10 )* 7 , 10 )
if res<>VAL(substr(par1, 5 , 1 ))
CheckKey=.f.
else
CheckKey=.t.
endi
RETURN CheckKey
Проверяет контрольный разряд в коде ЄДРПОУ
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.
Function check_edrpou_ukr(IDK )
Local lnKod,lnCS,ret
If Type('IDK')='N'
IDK=Padl(Transform(IDK), 8 ,'0')
Else
IDK=Alltrim(IDK)
Endif
If Len(IDK)<> 8
Return - 1
Endif
If Val(IDK) < 30000000 Or Val(IDK) > 60000000
lnCS = Val(Left(IDK, 1 )) +;
VAL(Substr(IDK, 2 , 1 )) * 2 +;
VAL(Substr(IDK, 3 , 1 )) * 3 +;
VAL(Substr(IDK, 4 , 1 )) * 4 +;
VAL(Substr(IDK, 5 , 1 )) * 5 +;
VAL(Substr(IDK, 6 , 1 )) * 6 +;
VAL(Substr(IDK, 7 , 1 )) * 7
Else
lnCS = Val(Left(IDK, 1 )) * 7 +;
VAL(Substr(IDK, 2 , 1 )) +;
VAL(Substr(IDK, 3 , 1 )) * 2 +;
VAL(Substr(IDK, 4 , 1 )) * 3 +;
VAL(Substr(IDK, 5 , 1 )) * 4 +;
VAL(Substr(IDK, 6 , 1 )) * 5 +;
VAL(Substr(IDK, 7 , 1 )) * 6
Endif
*lnKod = lnCS - Int(lnCS / 11 ) * 11
lnKod=Mod(lnCS, 11 )
If lnKod = 10 Then
If Val(IDK) < 30000000 Or Val(IDK) > 60000000
lnCS = Val(Left(IDK, 1 )) * 3 +;
VAL(Substr(IDK, 2 , 1 )) * 4 +;
VAL(Substr(IDK, 3 , 1 )) * 5 +;
VAL(Substr(IDK, 4 , 1 )) * 6 +;
VAL(Substr(IDK, 5 , 1 )) * 7 +;
VAL(Substr(IDK, 6 , 1 )) * 8 +;
VAL(Substr(IDK, 7 , 1 )) * 9
Else
lnCS = Val(Left(IDK, 1 )) * 9 +;
VAL(Substr(IDK, 2 , 1 )) * 3 +;
VAL(Substr(IDK, 3 , 1 )) * 4 +;
VAL(Substr(IDK, 4 , 1 )) * 5 +;
VAL(Substr(IDK, 5 , 1 )) * 6 +;
VAL(Substr(IDK, 6 , 1 )) * 7 +;
VAL(Substr(IDK, 7 , 1 )) * 8
Endif
lnKod=Mod(lnCS, 11 )
If lnKod = 10
lnKod = 0
Endif
Endif
If Val(right(IDK, 1 ))=lnKod
ret=lnKod
Else
ret=- 1
Endif
Return ret
Проверка ИНН физ лица
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.
103.
104.
105.
106.
107.
108.
109.
110.
111.
112.
113.
114.
115.
116.
117.
118.
119.
120.
121.
122.
123.
124.
125.
126.
127.
128.
129.
130.
131.
132.
133.
134.
135.
136.
Function check_inn_ukr(IDK ,mode)
Local lnKod,lnCS,ret
If Empty(mode)
mode= 0
Endif
If Type('IDK')='N'
IDK=Transform(IDK)
Else
IDK=Alltrim(IDK)
Endif
If Len(IDK)<> 10 And Len(IDK)<> 12 And Len(IDK)<> 9
Return - 1
Endif
Do Case
Case Len(IDK)= 10
* Физ.лицо
lnCS = Val(Left(IDK, 1 )) * - 1 +;
VAL(Substr(IDK, 2 , 1 )) * 5 +;
VAL(Substr(IDK, 3 , 1 )) * 7 +;
VAL(Substr(IDK, 4 , 1 )) * 9 +;
VAL(Substr(IDK, 5 , 1 )) * 4 +;
VAL(Substr(IDK, 6 , 1 )) * 6 +;
VAL(Substr(IDK, 7 , 1 )) * 10 +;
VAL(Substr(IDK, 8 , 1 )) * 5 +;
VAL(Substr(IDK, 9 , 1 )) * 7
lnKod=Mod(lnCS, 11 )
If lnKod= 10
lnKod= 0
Endif
If Val(Right(IDK, 1 ))=lnKod
If mode= 0
ret=lnKod
Else
ret='Код правильный. Дата рождения-'+Transform(Date( 1899 , 12 , 31 )+Val(Substr(IDK, 1 , 5 )))+'. Пол-'+Iif(Mod(Val(Substr(IDK, 9 , 1 )), 2 )= 0 ,'<Ж>','<М>')
Endif
Else
If mode= 0
ret=- 1
Else
ret='Код неправильный'
Endif
Endif
Case Len(IDK)= 12
* юр.лицо
lnCS = Val(Left(IDK, 1 )) * 11 +;
VAL(Substr(IDK, 2 , 1 )) * 13 +;
VAL(Substr(IDK, 3 , 1 )) * 17 +;
VAL(Substr(IDK, 4 , 1 )) * 19 +;
VAL(Substr(IDK, 5 , 1 )) * 23 +;
VAL(Substr(IDK, 6 , 1 )) * 29 +;
VAL(Substr(IDK, 7 , 1 )) * 31 +;
VAL(Substr(IDK, 8 , 1 )) * 37 +;
VAL(Substr(IDK, 9 , 1 )) * 41 +;
VAL(Substr(IDK, 10 , 1 )) * 43 +;
VAL(Substr(IDK, 11 , 1 )) * 47
lnKod=Mod(lnCS, 11 )
If lnKod= 10
lnCS = Val(Left(IDK, 1 )) * 13 +;
VAL(Substr(IDK, 2 , 1 )) * 17 +;
VAL(Substr(IDK, 3 , 1 )) * 19 +;
VAL(Substr(IDK, 4 , 1 )) * 23 +;
VAL(Substr(IDK, 5 , 1 )) * 29 +;
VAL(Substr(IDK, 6 , 1 )) * 31 +;
VAL(Substr(IDK, 7 , 1 )) * 37 +;
VAL(Substr(IDK, 8 , 1 )) * 41 +;
VAL(Substr(IDK, 9 , 1 )) * 43 +;
VAL(Substr(IDK, 10 , 1 )) * 47 +;
VAL(Substr(IDK, 11 , 1 )) * 53
lnKod=Mod(lnCS, 11 )
If lnKod= 10
lnKod= 0
Endif
Endif
If Val(Right(IDK, 1 ))=lnKod
If mode= 0
ret=lnKod
Else
ret='Код правильный.'
Endif
Else
If mode= 0
ret=- 1
Else
ret='Код неправильный'
Endif
Endif
Otherwise
* ТРДПАУ
lnCS = Val(Left(IDK, 1 )) * 9 +;
VAL(Substr(IDK, 2 , 1 )) * 11 +;
VAL(Substr(IDK, 3 , 1 )) * 13 +;
VAL(Substr(IDK, 4 , 1 )) * 17 +;
VAL(Substr(IDK, 5 , 1 )) * 19 +;
VAL(Substr(IDK, 6 , 1 )) * 23 +;
VAL(Substr(IDK, 7 , 1 )) * 29 +;
VAL(Substr(IDK, 8 , 1 )) * 31
lnKod=Mod(lnCS, 11 )
If lnKod= 10
lnCS = Val(Left(IDK, 1 )) * 11 +;
VAL(Substr(IDK, 2 , 1 )) * 13 +;
VAL(Substr(IDK, 3 , 1 )) * 17 +;
VAL(Substr(IDK, 4 , 1 )) * 19 +;
VAL(Substr(IDK, 5 , 1 )) * 23 +;
VAL(Substr(IDK, 6 , 1 )) * 29 +;
VAL(Substr(IDK, 7 , 1 )) * 31 +;
VAL(Substr(IDK, 8 , 1 )) * 37
lnKod=Mod(lnCS, 11 )
If lnKod= 10
lnKod= 0
Endif
Endif
If Val(Right(IDK, 1 ))=lnKod
If mode= 0
ret=lnKod
Else
ret='Код правильный.'
Endif
Else
If mode= 0
ret=- 1
Else
ret='Код неправильный'
Endif
Endif
Endcase
Return ret
Описание и пример в Excel |
