functions_ch.lib.php 3.7 KB

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