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
19/**
20 *	\file			htdocs/core/lib/functions_ch.lib.php
21 *	\brief			A set of swiss functions for Dolibarr
22 *					This file contains rare functions.
23 */
24
25
26/**
27 * Return if a BVRB number is valid or not (For switzerland)
28 *
29 * @param	string	$bvrb		BVRB number
30 * @return 	boolean				True if OK, false if KO
31 */
32function dol_ch_controle_bvrb($bvrb)
33{
34	// Init array for control
35	$tableau[0][0] = 0;
36	$tableau[0][1] = 9;
37	$tableau[0][2] = 4;
38	$tableau[0][3] = 6;
39	$tableau[0][4] = 8;
40	$tableau[0][5] = 2;
41	$tableau[0][6] = 7;
42	$tableau[0][7] = 1;
43	$tableau[0][8] = 3;
44	$tableau[0][9] = 5;
45	$tableau[0][10] = 0;
46
47	$tableau[1][0] = 9;
48	$tableau[1][1] = 4;
49	$tableau[1][2] = 6;
50	$tableau[1][3] = 8;
51	$tableau[1][4] = 2;
52	$tableau[1][5] = 7;
53	$tableau[1][6] = 1;
54	$tableau[1][7] = 3;
55	$tableau[1][8] = 5;
56	$tableau[1][9] = 0;
57	$tableau[1][10] = 9;
58
59	$tableau[2][0] = 4;
60	$tableau[2][1] = 6;
61	$tableau[2][2] = 8;
62	$tableau[2][3] = 2;
63	$tableau[2][4] = 7;
64	$tableau[2][5] = 1;
65	$tableau[2][6] = 3;
66	$tableau[2][7] = 5;
67	$tableau[2][8] = 0;
68	$tableau[2][9] = 9;
69	$tableau[2][10] = 8;
70
71	$tableau[3][0] = 6;
72	$tableau[3][1] = 8;
73	$tableau[3][2] = 2;
74	$tableau[3][3] = 7;
75	$tableau[3][4] = 1;
76	$tableau[3][5] = 3;
77	$tableau[3][6] = 5;
78	$tableau[3][7] = 0;
79	$tableau[3][8] = 9;
80	$tableau[3][9] = 4;
81	$tableau[3][10] = 7;
82
83	$tableau[4][0] = 8;
84	$tableau[4][1] = 2;
85	$tableau[4][2] = 7;
86	$tableau[4][3] = 1;
87	$tableau[4][4] = 3;
88	$tableau[4][5] = 5;
89	$tableau[4][6] = 0;
90	$tableau[4][7] = 9;
91	$tableau[4][8] = 4;
92	$tableau[4][9] = 6;
93	$tableau[4][10] = 6;
94
95	$tableau[5][0] = 2;
96	$tableau[5][1] = 7;
97	$tableau[5][2] = 1;
98	$tableau[5][3] = 3;
99	$tableau[5][4] = 5;
100	$tableau[5][5] = 0;
101	$tableau[5][6] = 9;
102	$tableau[5][7] = 4;
103	$tableau[5][8] = 6;
104	$tableau[5][9] = 8;
105	$tableau[5][10] = 5;
106
107	$tableau[6][0] = 7;
108	$tableau[6][1] = 1;
109	$tableau[6][2] = 3;
110	$tableau[6][3] = 5;
111	$tableau[6][4] = 0;
112	$tableau[6][5] = 9;
113	$tableau[6][6] = 4;
114	$tableau[6][7] = 6;
115	$tableau[6][8] = 8;
116	$tableau[6][9] = 2;
117	$tableau[6][10] = 4;
118
119	$tableau[7][0] = 1;
120	$tableau[7][1] = 3;
121	$tableau[7][2] = 5;
122	$tableau[7][3] = 0;
123	$tableau[7][4] = 9;
124	$tableau[7][5] = 4;
125	$tableau[7][6] = 6;
126	$tableau[7][7] = 8;
127	$tableau[7][8] = 2;
128	$tableau[7][9] = 7;
129	$tableau[7][10] = 3;
130
131	$tableau[8][0] = 3;
132	$tableau[8][1] = 5;
133	$tableau[8][2] = 0;
134	$tableau[8][3] = 9;
135	$tableau[8][4] = 4;
136	$tableau[8][5] = 6;
137	$tableau[8][6] = 8;
138	$tableau[8][7] = 2;
139	$tableau[8][8] = 7;
140	$tableau[8][9] = 1;
141	$tableau[8][10] = 2;
142
143	$tableau[9][0] = 5;
144	$tableau[9][1] = 0;
145	$tableau[9][2] = 9;
146	$tableau[9][3] = 4;
147	$tableau[9][4] = 6;
148	$tableau[9][5] = 8;
149	$tableau[9][6] = 2;
150	$tableau[9][7] = 7;
151	$tableau[9][8] = 1;
152	$tableau[9][9] = 3;
153	$tableau[9][10] = 1;
154
155
156	// Clean data
157	$bv = str_replace(' ', '', $bvrb);
158
159	// Make control
160	$report = 0;
161	while (dol_strlen($bv) > 1) {
162		$match = substr($bv, 0, 1);
163		$report = $tableau[$report][$match];
164		$bv = substr($bv, 1);
165	}
166	$controle = $tableau[$report][10];
167
168	return ($controle == $bv);
169}
170