dolibarr
20.0.0
Main Page
Related Pages
Topics
Classes
Files
File List
File Members
dolibarr_20.0
htdocs
core
lib
functions_ch.lib.php
Go to the documentation of this file.
1
<?php
2
/* Copyright (C) 2010 Laurent Destailleur <eldy@users.sourceforge.net>
3
*
4
* This program is free software; you can redistribute it and/or modify
5
* it under the terms of the GNU General Public License as published by
6
* the Free Software Foundation; either version 3 of the License, or
7
* (at your option) any later version.
8
*
9
* This program is distributed in the hope that it will be useful,
10
* but WITHOUT ANY WARRANTY; without even the implied warranty of
11
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12
* GNU General Public License for more details.
13
*
14
* You should have received a copy of the GNU General Public License
15
* along with this program. If not, see <https://www.gnu.org/licenses/>.
16
* or see https://www.gnu.org/
17
*/
18
32
function
dol_ch_controle_bvrb
($bvrb)
33
{
34
// Init array for control
35
$tableau = array();
36
$tableau[0][0] = 0;
37
$tableau[0][1] = 9;
38
$tableau[0][2] = 4;
39
$tableau[0][3] = 6;
40
$tableau[0][4] = 8;
41
$tableau[0][5] = 2;
42
$tableau[0][6] = 7;
43
$tableau[0][7] = 1;
44
$tableau[0][8] = 3;
45
$tableau[0][9] = 5;
46
$tableau[0][10] = 0;
47
48
$tableau[1][0] = 9;
49
$tableau[1][1] = 4;
50
$tableau[1][2] = 6;
51
$tableau[1][3] = 8;
52
$tableau[1][4] = 2;
53
$tableau[1][5] = 7;
54
$tableau[1][6] = 1;
55
$tableau[1][7] = 3;
56
$tableau[1][8] = 5;
57
$tableau[1][9] = 0;
58
$tableau[1][10] = 9;
59
60
$tableau[2][0] = 4;
61
$tableau[2][1] = 6;
62
$tableau[2][2] = 8;
63
$tableau[2][3] = 2;
64
$tableau[2][4] = 7;
65
$tableau[2][5] = 1;
66
$tableau[2][6] = 3;
67
$tableau[2][7] = 5;
68
$tableau[2][8] = 0;
69
$tableau[2][9] = 9;
70
$tableau[2][10] = 8;
71
72
$tableau[3][0] = 6;
73
$tableau[3][1] = 8;
74
$tableau[3][2] = 2;
75
$tableau[3][3] = 7;
76
$tableau[3][4] = 1;
77
$tableau[3][5] = 3;
78
$tableau[3][6] = 5;
79
$tableau[3][7] = 0;
80
$tableau[3][8] = 9;
81
$tableau[3][9] = 4;
82
$tableau[3][10] = 7;
83
84
$tableau[4][0] = 8;
85
$tableau[4][1] = 2;
86
$tableau[4][2] = 7;
87
$tableau[4][3] = 1;
88
$tableau[4][4] = 3;
89
$tableau[4][5] = 5;
90
$tableau[4][6] = 0;
91
$tableau[4][7] = 9;
92
$tableau[4][8] = 4;
93
$tableau[4][9] = 6;
94
$tableau[4][10] = 6;
95
96
$tableau[5][0] = 2;
97
$tableau[5][1] = 7;
98
$tableau[5][2] = 1;
99
$tableau[5][3] = 3;
100
$tableau[5][4] = 5;
101
$tableau[5][5] = 0;
102
$tableau[5][6] = 9;
103
$tableau[5][7] = 4;
104
$tableau[5][8] = 6;
105
$tableau[5][9] = 8;
106
$tableau[5][10] = 5;
107
108
$tableau[6][0] = 7;
109
$tableau[6][1] = 1;
110
$tableau[6][2] = 3;
111
$tableau[6][3] = 5;
112
$tableau[6][4] = 0;
113
$tableau[6][5] = 9;
114
$tableau[6][6] = 4;
115
$tableau[6][7] = 6;
116
$tableau[6][8] = 8;
117
$tableau[6][9] = 2;
118
$tableau[6][10] = 4;
119
120
$tableau[7][0] = 1;
121
$tableau[7][1] = 3;
122
$tableau[7][2] = 5;
123
$tableau[7][3] = 0;
124
$tableau[7][4] = 9;
125
$tableau[7][5] = 4;
126
$tableau[7][6] = 6;
127
$tableau[7][7] = 8;
128
$tableau[7][8] = 2;
129
$tableau[7][9] = 7;
130
$tableau[7][10] = 3;
131
132
$tableau[8][0] = 3;
133
$tableau[8][1] = 5;
134
$tableau[8][2] = 0;
135
$tableau[8][3] = 9;
136
$tableau[8][4] = 4;
137
$tableau[8][5] = 6;
138
$tableau[8][6] = 8;
139
$tableau[8][7] = 2;
140
$tableau[8][8] = 7;
141
$tableau[8][9] = 1;
142
$tableau[8][10] = 2;
143
144
$tableau[9][0] = 5;
145
$tableau[9][1] = 0;
146
$tableau[9][2] = 9;
147
$tableau[9][3] = 4;
148
$tableau[9][4] = 6;
149
$tableau[9][5] = 8;
150
$tableau[9][6] = 2;
151
$tableau[9][7] = 7;
152
$tableau[9][8] = 1;
153
$tableau[9][9] = 3;
154
$tableau[9][10] = 1;
155
156
157
// Clean data
158
$bv = str_replace(
' '
,
''
, $bvrb);
159
160
// Check (verify/validate)
161
$report = 0;
162
while
(
dol_strlen
($bv) > 1) {
163
$match = substr($bv, 0, 1);
164
$report = $tableau[$report][$match];
165
$bv = substr($bv, 1);
166
}
167
$check = $tableau[$report][10];
168
169
return
($check == $bv);
170
}
dol_strlen
dol_strlen($string, $stringencoding='UTF-8')
Make a strlen call.
Definition
functions.lib.php:4624
dol_ch_controle_bvrb
dol_ch_controle_bvrb($bvrb)
Return if a BVRB number is valid or not (For Switzerland)
Definition
functions_ch.lib.php:32
Generated on Sat Oct 5 2024 01:00:22 for
dolibarr
by Doxygen 1.11.0