limits.php 16 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325
  1. <?php
  2. /* Copyright (C) 2007-2022 Laurent Destailleur <eldy@users.sourceforge.net>
  3. * Copyright (C) 2009-2018 Regis Houssin <regis.houssin@inodbox.com>
  4. * Copyright (C) 2010 Juanjo Menent <jmenent@2byte.es>
  5. * Copyright (C) 2023 Alexandre Spangaro <aspangaro@open-dsi.fr>
  6. *
  7. * This program is free software; you can redistribute it and/or modify
  8. * it under the terms of the GNU General Public License as published by
  9. * the Free Software Foundation; either version 3 of the License, or
  10. * (at your option) any later version.
  11. *
  12. * This program is distributed in the hope that it will be useful,
  13. * but WITHOUT ANY WARRANTY; without even the implied warranty of
  14. * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
  15. * GNU General Public License for more details.
  16. *
  17. * You should have received a copy of the GNU General Public License
  18. * along with this program. If not, see <https://www.gnu.org/licenses/>.
  19. */
  20. /**
  21. * \file htdocs/admin/limits.php
  22. * \brief Page to setup limits
  23. */
  24. // Load Dolibarr environment
  25. require '../main.inc.php';
  26. require_once DOL_DOCUMENT_ROOT.'/core/lib/admin.lib.php';
  27. require_once DOL_DOCUMENT_ROOT.'/core/lib/price.lib.php';
  28. // Load translation files required by the page
  29. $langs->loadLangs(array('companies', 'products', 'admin'));
  30. $action = GETPOST('action', 'aZ09');
  31. $cancel = GETPOST('cancel', 'aZ09');
  32. $currencycode = GETPOST('currencycode', 'alpha');
  33. if (isModEnabled('multicompany') && getDolGlobalString('MULTICURRENCY_USE_LIMIT_BY_CURRENCY')) {
  34. // When MULTICURRENCY_USE_LIMIT_BY_CURRENCY is on, we use always a defined currency code instead of '' even for default.
  35. $currencycode = (!empty($currencycode) ? $currencycode : $conf->currency);
  36. }
  37. $mainmaxdecimalsunit = 'MAIN_MAX_DECIMALS_UNIT'.(!empty($currencycode) ? '_'.$currencycode : '');
  38. $mainmaxdecimalstot = 'MAIN_MAX_DECIMALS_TOT'.(!empty($currencycode) ? '_'.$currencycode : '');
  39. $mainmaxdecimalsshown = 'MAIN_MAX_DECIMALS_SHOWN'.(!empty($currencycode) ? '_'.$currencycode : '');
  40. $mainroundingruletot = 'MAIN_ROUNDING_RULE_TOT'.(!empty($currencycode) ? '_'.$currencycode : '');
  41. $valmainmaxdecimalsunit = GETPOST($mainmaxdecimalsunit, 'int');
  42. $valmainmaxdecimalstot = GETPOST($mainmaxdecimalstot, 'int');
  43. $valmainmaxdecimalsshown = GETPOST($mainmaxdecimalsshown, 'alpha'); // Can be 'x.y' but also 'x...'
  44. $valmainroundingruletot = price2num(GETPOST($mainroundingruletot, 'alphanohtml'), '', 2);
  45. if (!$user->admin) {
  46. accessforbidden();
  47. }
  48. /*
  49. * Actions
  50. */
  51. if ($action == 'update' && !$cancel) {
  52. $error = 0;
  53. $MAXDEC = 8;
  54. if ($valmainmaxdecimalsunit > $MAXDEC
  55. || $valmainmaxdecimalstot > $MAXDEC
  56. || $valmainmaxdecimalsshown > $MAXDEC) {
  57. $error++;
  58. setEventMessages($langs->trans("ErrorDecimalLargerThanAreForbidden", $MAXDEC), null, 'errors');
  59. $action = 'edit';
  60. }
  61. if ($valmainmaxdecimalsunit < 0
  62. || $valmainmaxdecimalstot < 0
  63. || $valmainmaxdecimalsshown < 0) {
  64. $langs->load("errors");
  65. $error++;
  66. setEventMessages($langs->trans("ErrorNegativeValueNotAllowed"), null, 'errors');
  67. $action = 'edit';
  68. }
  69. if ($valmainroundingruletot) {
  70. if ($valmainroundingruletot * pow(10, $valmainmaxdecimalstot) < 1) {
  71. $langs->load("errors");
  72. $error++;
  73. setEventMessages($langs->trans("ErrorMAIN_ROUNDING_RULE_TOTCanMAIN_MAX_DECIMALS_TOT"), null, 'errors');
  74. $action = 'edit';
  75. }
  76. }
  77. if ((float) $valmainmaxdecimalsshown == 0) {
  78. $langs->load("errors");
  79. $error++;
  80. setEventMessages($langs->trans("ErrorValueCantBeNull", dol_trunc(dol_string_nohtmltag($langs->transnoentitiesnoconv("MAIN_MAX_DECIMALS_SHOWN")), 40)), null, 'errors');
  81. $action = 'edit';
  82. }
  83. if (! $error && ((float) $valmainmaxdecimalsshown < $valmainmaxdecimalsunit || (float) $valmainmaxdecimalsshown < $valmainmaxdecimalstot)) {
  84. $langs->load("errors");
  85. $error++;
  86. setEventMessages($langs->trans("ErrorValueForTooLow", dol_trunc(dol_string_nohtmltag($langs->transnoentitiesnoconv("MAIN_MAX_DECIMALS_SHOWN")), 40)), null, 'errors');
  87. $action = 'edit';
  88. }
  89. if (!$error) {
  90. dolibarr_set_const($db, $mainmaxdecimalsunit, $valmainmaxdecimalsunit, 'chaine', 0, '', $conf->entity);
  91. dolibarr_set_const($db, $mainmaxdecimalstot, $valmainmaxdecimalstot, 'chaine', 0, '', $conf->entity);
  92. dolibarr_set_const($db, $mainmaxdecimalsshown, $valmainmaxdecimalsshown, 'chaine', 0, '', $conf->entity);
  93. dolibarr_set_const($db, $mainroundingruletot, $valmainroundingruletot, 'chaine', 0, '', $conf->entity);
  94. header("Location: ".$_SERVER["PHP_SELF"]."?mainmenu=home&leftmenu=setup".(!empty($currencycode) ? '&currencycode='.$currencycode : ''));
  95. exit;
  96. }
  97. }
  98. /*
  99. * View
  100. */
  101. $form = new Form($db);
  102. $title = $langs->trans("LimitsSetup");
  103. $help_url = '';
  104. llxHeader('', $title, $help_url);
  105. print load_fiche_titre($title, '', 'title_setup');
  106. $aCurrencies = array($conf->currency); // Default currency always first position
  107. if (isModEnabled('multicompany') && getDolGlobalString('MULTICURRENCY_USE_LIMIT_BY_CURRENCY')) {
  108. require_once DOL_DOCUMENT_ROOT . '/core/lib/multicurrency.lib.php';
  109. $sql = "SELECT rowid, code FROM " . MAIN_DB_PREFIX . "multicurrency";
  110. $sql .= " WHERE entity = " . ((int) $conf->entity);
  111. $sql .= " AND code <> '" . $db->escape($conf->currency) . "'"; // Default currency always first position
  112. $resql = $db->query($sql);
  113. if ($resql) {
  114. while ($obj = $db->fetch_object($resql)) {
  115. $aCurrencies[] = $obj->code;
  116. }
  117. }
  118. if (!empty($aCurrencies) && count($aCurrencies) > 1) {
  119. $head = multicurrencyLimitPrepareHead($aCurrencies);
  120. print dol_get_fiche_head($head, $currencycode, '', -1, '');
  121. }
  122. }
  123. print '<span class="opacitymedium">'.$langs->trans("LimitsDesc")."</span><br>\n";
  124. print "<br>\n";
  125. if ($action == 'edit') {
  126. print '<form method="POST" action="' . $_SERVER["PHP_SELF"] . '">';
  127. print '<input type="hidden" name="token" value="' . newToken() . '">';
  128. print '<input type="hidden" name="action" value="update">';
  129. if (isModEnabled('multicompany') && getDolGlobalString('MULTICURRENCY_USE_LIMIT_BY_CURRENCY')) {
  130. print '<input type="hidden" name="currencycode" value="' . $currencycode . '">';
  131. }
  132. clearstatcache();
  133. print '<table class="noborder centpercent">';
  134. print '<tr class="liste_titre"><td>'.$langs->trans("Parameters").'</td><td>'.$langs->trans("Value").'</td></tr>';
  135. print '<tr class="oddeven"><td>';
  136. print $form->textwithpicto($langs->trans("MAIN_MAX_DECIMALS_UNIT"), $langs->trans("ParameterActiveForNextInputOnly"));
  137. print '</td><td><input class="flat right" name="'.$mainmaxdecimalsunit.'" size="3" value="'.(GETPOSTISSET($mainmaxdecimalsunit) ? GETPOST($mainmaxdecimalsunit) : getDolGlobalInt('MAIN_MAX_DECIMALS_UNIT', 0)).'"></td></tr>';
  138. print '<tr class="oddeven"><td>';
  139. print $form->textwithpicto($langs->trans("MAIN_MAX_DECIMALS_TOT"), $langs->trans("ParameterActiveForNextInputOnly"));
  140. print '</td><td><input class="flat right" name="'.$mainmaxdecimalstot.'" size="3" value="'.(GETPOSTISSET($mainmaxdecimalstot) ? GETPOST($mainmaxdecimalstot) : getDolGlobalInt('MAIN_MAX_DECIMALS_TOT', 0)).'"></td></tr>';
  141. print '<tr class="oddeven"><td>'.$langs->trans("MAIN_MAX_DECIMALS_SHOWN").'</td>';
  142. print '<td><input class="flat right" name="'.$mainmaxdecimalsshown.'" size="3" value="'.(GETPOSTISSET($mainmaxdecimalsshown) ? GETPOST($mainmaxdecimalsshown) : getDolGlobalString('MAIN_MAX_DECIMALS_SHOWN')).'"></td></tr>';
  143. print '<tr class="oddeven"><td>';
  144. print $form->textwithpicto($langs->trans("MAIN_ROUNDING_RULE_TOT"), $langs->trans("ParameterActiveForNextInputOnly"));
  145. print '</td><td><input class="flat right" name="'.$mainroundingruletot.'" size="3" value="'.(GETPOSTISSET($mainroundingruletot) ? GETPOST($mainroundingruletot) : getDolGlobalString('MAIN_ROUNDING_RULE_TOT')).'"></td></tr>';
  146. print '</table>';
  147. print '<div class="center">';
  148. print '<input class="button button-save" type="submit" name="save" value="'.$langs->trans("Save").'">';
  149. print ' &nbsp; ';
  150. print '<input class="button button-cancel" type="submit" name="cancel" value="'.$langs->trans("Cancel").'">';
  151. print '</div>';
  152. print '<br>';
  153. print '</form>';
  154. print '<br>';
  155. } else {
  156. print '<div class="div-table-responsive-no-min">';
  157. print '<table class="noborder centpercent">';
  158. print '<tr class="liste_titre"><td>'.$langs->trans("Parameter").'</td><td class="right">'.$langs->trans("Value").'</td></tr>';
  159. print '<tr class="oddeven"><td>';
  160. print $form->textwithpicto($langs->trans("MAIN_MAX_DECIMALS_UNIT"), $langs->trans("ParameterActiveForNextInputOnly"));
  161. print '</td><td align="right">'.(isset($conf->global->$mainmaxdecimalsunit) ? $conf->global->$mainmaxdecimalsunit : $conf->global->MAIN_MAX_DECIMALS_UNIT).'</td></tr>';
  162. print '<tr class="oddeven"><td>';
  163. print $form->textwithpicto($langs->trans("MAIN_MAX_DECIMALS_TOT"), $langs->trans("ParameterActiveForNextInputOnly"));
  164. print '</td><td align="right">'.(isset($conf->global->$mainmaxdecimalstot) ? $conf->global->$mainmaxdecimalstot : $conf->global->MAIN_MAX_DECIMALS_TOT).'</td></tr>';
  165. print '<tr class="oddeven"><td>'.$langs->trans("MAIN_MAX_DECIMALS_SHOWN").'</td>';
  166. print '<td align="right">'.(isset($conf->global->$mainmaxdecimalsshown) ? $conf->global->$mainmaxdecimalsshown : $conf->global->MAIN_MAX_DECIMALS_SHOWN).'</td></tr>';
  167. print '<tr class="oddeven"><td>';
  168. print $form->textwithpicto($langs->trans("MAIN_ROUNDING_RULE_TOT"), $langs->trans("ParameterActiveForNextInputOnly"));
  169. print '</td><td align="right">'.(isset($conf->global->$mainroundingruletot) ? $conf->global->$mainroundingruletot : (getDolGlobalString('MAIN_ROUNDING_RULE_TOT') ? $conf->global->MAIN_ROUNDING_RULE_TOT : '')).'</td></tr>';
  170. print '</table>';
  171. print '</div>';
  172. print '<div class="tabsAction">';
  173. print '<a class="butAction" href="'.$_SERVER["PHP_SELF"].'?action=edit&token='.newToken().(!empty($currencycode) ? '&currencycode='.$currencycode : '').'">'.$langs->trans("Modify").'</a>';
  174. print '</div>';
  175. }
  176. if (isModEnabled('multicompany') && getDolGlobalString('MULTICURRENCY_USE_LIMIT_BY_CURRENCY')) {
  177. if (!empty($aCurrencies) && count($aCurrencies) > 1) {
  178. print dol_get_fiche_end();
  179. }
  180. }
  181. if (empty($mysoc->country_code)) {
  182. $langs->load("errors");
  183. $warnpicto = img_warning($langs->trans("WarningMandatorySetupNotComplete"));
  184. print '<br><a href="'.DOL_URL_ROOT.'/admin/company.php?mainmenu=home">'.$warnpicto.' '.$langs->trans("WarningMandatorySetupNotComplete").'</a>';
  185. } else {
  186. // Show examples
  187. print load_fiche_titre($langs->trans("ExamplesWithCurrentSetup"), '', '');
  188. print '<span class="opacitymedium">'.$langs->trans("Format").':</span> '.price(price2num(1234.56789, 'MT'), 0, $langs, 1, -1, -1, $currencycode)."<br>\n";
  189. // Always show vat rates with vat 0
  190. $s = 2 / 3; $qty = 1; $vat = 0;
  191. $tmparray = calcul_price_total(1, $qty * price2num($s, 'MU'), 0, $vat, 0, 0, 0, 'HT', 0, 0, $mysoc);
  192. print '<span class="opacitymedium">'.$langs->trans("UnitPriceOfProduct").":</span> ".price2num($s, 'MU');
  193. print ' x <span class="opacitymedium">'.$langs->trans("Quantity").":</span> ".$qty;
  194. print ' - <span class="opacitymedium">'.$langs->trans("VAT").":</span> ".$vat.'%';
  195. print ' &nbsp; -> &nbsp; <span class="opacitymedium">'.$langs->trans("TotalPriceAfterRounding").":</span> ".$tmparray[0].' / '.$tmparray[1].' / '.$tmparray[2]."<br>\n";
  196. $s = 10 / 3; $qty = 1; $vat = 0;
  197. $tmparray = calcul_price_total(1, $qty * price2num($s, 'MU'), 0, $vat, 0, 0, 0, 'HT', 0, 0, $mysoc);
  198. print '<span class="opacitymedium">'.$langs->trans("UnitPriceOfProduct").":</span> ".price2num($s, 'MU');
  199. print ' x <span class="opacitymedium">'.$langs->trans("Quantity").":</span> ".$qty;
  200. print ' - <span class="opacitymedium">'.$langs->trans("VAT").":</span> ".$vat.'%';
  201. print ' &nbsp; -> &nbsp; <span class="opacitymedium">'.$langs->trans("TotalPriceAfterRounding").":</span> ".$tmparray[0].' / '.$tmparray[1].' / '.$tmparray[2]."<br>\n";
  202. $s = 10 / 3; $qty = 2; $vat = 0;
  203. $tmparray = calcul_price_total(1, $qty * price2num($s, 'MU'), 0, $vat, 0, 0, 0, 'HT', 0, 0, $mysoc);
  204. print '<span class="opacitymedium">'.$langs->trans("UnitPriceOfProduct").":</span> ".price2num($s, 'MU');
  205. print ' x <span class="opacitymedium">'.$langs->trans("Quantity").":</span> ".$qty;
  206. print ' - <span class="opacitymedium">'.$langs->trans("VAT").":</span> ".$vat.'%';
  207. print ' &nbsp; -> &nbsp; <span class="opacitymedium">'.$langs->trans("TotalPriceAfterRounding").":</span> ".$tmparray[0].' / '.$tmparray[1].' / '.$tmparray[2]."<br>\n";
  208. // Add vat rates examples specific to country
  209. $vat_rates = array();
  210. $sql = "SELECT taux as vat_rate, t.code as vat_code, t.localtax1 as localtax_rate1, t.localtax2 as localtax_rate2";
  211. $sql .= " FROM ".MAIN_DB_PREFIX."c_tva as t, ".MAIN_DB_PREFIX."c_country as c";
  212. $sql .= " WHERE t.active=1 AND t.fk_pays = c.rowid AND c.code='".$db->escape($mysoc->country_code)."' AND (t.taux <> 0 OR t.localtax1 <> '0' OR t.localtax2 <> '0')";
  213. $sql .= " AND t.entity IN (".getEntity('c_tva').")";
  214. $sql .= " ORDER BY t.taux ASC";
  215. $resql = $db->query($sql);
  216. if ($resql) {
  217. $num = $db->num_rows($resql);
  218. if ($num) {
  219. for ($i = 0; $i < $num; $i++) {
  220. $obj = $db->fetch_object($resql);
  221. $vat_rates[] = array('vat_rate'=>$obj->vat_rate, 'code'=>$obj->vat_code, 'localtax_rate1'=>$obj->localtax_rate1, 'locltax_rate2'=>$obj->localtax_rate2);
  222. }
  223. }
  224. } else {
  225. dol_print_error($db);
  226. }
  227. if (count($vat_rates)) {
  228. foreach ($vat_rates as $vatarray) {
  229. $vat = $vatarray['vat_rate'];
  230. for ($qty = 1; $qty <= 2; $qty++) {
  231. $vattxt = $vat.($vatarray['code'] ? ' ('.$vatarray['code'].')' : '');
  232. $localtax_array = getLocalTaxesFromRate($vattxt, 0, $mysoc, $mysoc);
  233. $s = 10 / 3;
  234. $tmparray = calcul_price_total($qty, price2num($s, 'MU'), 0, $vat, -1, -1, 0, 'HT', 0, 0, $mysoc, $localtax_array);
  235. print '<span class="opacitymedium">'.$langs->trans("UnitPriceOfProduct").":</span> ".price2num($s, 'MU');
  236. print ' x <span class="opacitymedium">'.$langs->trans("Quantity").":</span> ".$qty;
  237. print ' - <span class="opacitymedium">'.$langs->trans("VAT").':</span> '.$vat.'%';
  238. print ($vatarray['code'] ? ' ('.$vatarray['code'].')' : '');
  239. print ' &nbsp; -> &nbsp; <span class="opacitymedium">'.$langs->trans("TotalPriceAfterRounding").":</span> ";
  240. print $tmparray[0].' / '.$tmparray[1].($tmparray[9] ? '+'.$tmparray[9] : '').($tmparray[10] ? '+'.$tmparray[10] : '').' / '.$tmparray[2];
  241. print "<br>\n";
  242. }
  243. }
  244. } else {
  245. // More examples if not specific vat rate found
  246. // This example must be kept for test purpose with current value because value used (2/7, 10/3, and vat 0, 10)
  247. // were calculated to show all possible cases of rounding. If we change this, examples becomes useless or show the same rounding rule.
  248. $localtax_array = array();
  249. $s = 10 / 3; $qty = 1; $vat = 10;
  250. $tmparray = calcul_price_total($qty, price2num($s, 'MU'), 0, $vat, -1, -1, 0, 'HT', 0, 0, $mysoc, $localtax_array);
  251. print '<span class="opacitymedium">'.$langs->trans("UnitPriceOfProduct").":</span> ".price2num($s, 'MU');
  252. print ' x <span class="opacitymedium">'.$langs->trans("Quantity").":</span> ".$qty;
  253. print ' - <span class="opacitymedium">'.$langs->trans("VAT").":</span> ".$vat.'%';
  254. print ' &nbsp; -> &nbsp; <span class="opacitymedium">'.$langs->trans("TotalPriceAfterRounding").":</span> ".$tmparray[0].' / '.$tmparray[1].' / '.$tmparray[2]."<br>\n";
  255. $s = 10 / 3; $qty = 2; $vat = 10;
  256. $tmparray = calcul_price_total($qty, price2num($s, 'MU'), 0, $vat, -1, -1, 0, 'HT', 0, 0, $mysoc, $localtax_array);
  257. print '<span class="opacitymedium">'.$langs->trans("UnitPriceOfProduct").":</span> ".price2num($s, 'MU');
  258. print ' x <span class="opacitymedium">'.$langs->trans("Quantity").":</span> ".$qty;
  259. print ' - <span class="opacitymedium">'.$langs->trans("VAT").":</span> ".$vat.'%';
  260. print ' &nbsp; -> &nbsp; <span class="opacitymedium">'.$langs->trans("TotalPriceAfterRounding").":</span> ".$tmparray[0].' / '.$tmparray[1].' / '.$tmparray[2]."<br>\n";
  261. }
  262. }
  263. // End of page
  264. llxFooter();
  265. $db->close();