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';
30 $langs->loadLangs(array(
'companies',
'products',
'admin'));
32 $action =
GETPOST(
'action',
'aZ09');
33 $cancel =
GETPOST(
'cancel',
'aZ09');
34 $currencycode =
GETPOST(
'currencycode',
'alpha');
36 if (!empty($conf->multicurrency->enabled) && !empty($conf->global->MULTICURRENCY_USE_LIMIT_BY_CURRENCY)) {
38 $currencycode = (!empty($currencycode) ? $currencycode : $conf->currency);
41 $mainmaxdecimalsunit =
'MAIN_MAX_DECIMALS_UNIT'.(!empty($currencycode) ?
'_'.$currencycode :
'');
42 $mainmaxdecimalstot =
'MAIN_MAX_DECIMALS_TOT'.(!empty($currencycode) ?
'_'.$currencycode :
'');
43 $mainmaxdecimalsshown =
'MAIN_MAX_DECIMALS_SHOWN'.(!empty($currencycode) ?
'_'.$currencycode :
'');
44 $mainroundingruletot =
'MAIN_ROUNDING_RULE_TOT'.(!empty($currencycode) ?
'_'.$currencycode :
'');
46 $valmainmaxdecimalsunit =
GETPOST($mainmaxdecimalsunit,
'int');
47 $valmainmaxdecimalstot =
GETPOST($mainmaxdecimalstot,
'int');
48 $valmainmaxdecimalsshown =
GETPOST($mainmaxdecimalsshown,
'alpha');
49 $valmainroundingruletot =
price2num(
GETPOST($mainroundingruletot,
'alphanohtml'),
'', 2);
60 if ($action ==
'update' && !$cancel) {
63 if ($valmainmaxdecimalsunit > $MAXDEC
64 || $valmainmaxdecimalstot > $MAXDEC
65 || $valmainmaxdecimalsshown > $MAXDEC) {
67 setEventMessages($langs->trans(
"ErrorDecimalLargerThanAreForbidden", $MAXDEC),
null,
'errors');
71 if ($valmainmaxdecimalsunit < 0
72 || $valmainmaxdecimalstot < 0
73 || $valmainmaxdecimalsshown < 0) {
74 $langs->load(
"errors");
76 setEventMessages($langs->trans(
"ErrorNegativeValueNotAllowed"),
null,
'errors');
80 if ($valmainroundingruletot) {
81 if ($valmainroundingruletot * pow(10, $valmainmaxdecimalstot) < 1) {
82 $langs->load(
"errors");
84 setEventMessages($langs->trans(
"ErrorMAIN_ROUNDING_RULE_TOTCanMAIN_MAX_DECIMALS_TOT"),
null,
'errors');
89 if ((
float) $valmainmaxdecimalsshown == 0) {
90 $langs->load(
"errors");
95 if (! $error && ((
float) $valmainmaxdecimalsshown < $valmainmaxdecimalsunit || (
float) $valmainmaxdecimalsshown < $valmainmaxdecimalstot)) {
96 $langs->load(
"errors");
103 dolibarr_set_const($db, $mainmaxdecimalsunit, $valmainmaxdecimalsunit,
'chaine', 0,
'', $conf->entity);
104 dolibarr_set_const($db, $mainmaxdecimalstot, $valmainmaxdecimalstot,
'chaine', 0,
'', $conf->entity);
105 dolibarr_set_const($db, $mainmaxdecimalsshown, $valmainmaxdecimalsshown,
'chaine', 0,
'', $conf->entity);
107 dolibarr_set_const($db, $mainroundingruletot, $valmainroundingruletot,
'chaine', 0,
'', $conf->entity);
109 header(
"Location: ".$_SERVER[
"PHP_SELF"].
"?mainmenu=home&leftmenu=setup".(!empty($currencycode) ?
'¤cycode='.$currencycode :
''));
121 $title = $langs->trans(
"LimitsSetup");
128 $aCurrencies = array($conf->currency);
130 if (!empty($conf->multicurrency->enabled) && !empty($conf->global->MULTICURRENCY_USE_LIMIT_BY_CURRENCY)) {
131 require_once DOL_DOCUMENT_ROOT.
'/core/lib/multicurrency.lib.php';
133 $sql =
"SELECT rowid, code FROM ".MAIN_DB_PREFIX.
"multicurrency";
134 $sql .=
" WHERE entity = ".((int) $conf->entity);
135 $sql .=
" AND code <> '".$db->escape($conf->currency).
"'";
136 $resql = $db->query($sql);
138 while ($obj = $db->fetch_object(
$resql)) {
139 $aCurrencies[] = $obj->code;
143 if (!empty($aCurrencies) && count($aCurrencies) > 1) {
150 print
'<span class="opacitymedium">'.$langs->trans(
"LimitsDesc").
"</span><br>\n";
153 if ($action ==
'edit') {
154 print
'<form method="POST" action="'.$_SERVER[
"PHP_SELF"].
'">';
155 print
'<input type="hidden" name="token" value="'.newToken().
'">';
156 print
'<input type="hidden" name="action" value="update">';
157 if (!empty($conf->multicurrency->enabled) && !empty($conf->global->MULTICURRENCY_USE_LIMIT_BY_CURRENCY)) {
158 print
'<input type="hidden" name="currencycode" value="'.$currencycode.
'">';
163 print
'<table class="noborder centpercent">';
164 print
'<tr class="liste_titre"><td>'.$langs->trans(
"Parameters").
'</td><td>'.$langs->trans(
"Value").
'</td></tr>';
166 print
'<tr class="oddeven"><td>';
167 print
$form->textwithpicto($langs->trans(
"MAIN_MAX_DECIMALS_UNIT"), $langs->trans(
"ParameterActiveForNextInputOnly"));
168 print
'</td><td><input class="flat right" name="'.$mainmaxdecimalsunit.
'" size="3" value="'.(
GETPOSTISSET($mainmaxdecimalsunit) ?
GETPOST($mainmaxdecimalsunit) :
getDolGlobalInt(
'MAIN_MAX_DECIMALS_UNIT', 0)).
'"></td></tr>';
170 print
'<tr class="oddeven"><td>';
171 print
$form->textwithpicto($langs->trans(
"MAIN_MAX_DECIMALS_TOT"), $langs->trans(
"ParameterActiveForNextInputOnly"));
172 print
'</td><td><input class="flat right" name="'.$mainmaxdecimalstot.
'" size="3" value="'.(
GETPOSTISSET($mainmaxdecimalstot) ?
GETPOST($mainmaxdecimalstot) :
getDolGlobalInt(
'MAIN_MAX_DECIMALS_TOT', 0)).
'"></td></tr>';
174 print
'<tr class="oddeven"><td>'.$langs->trans(
"MAIN_MAX_DECIMALS_SHOWN").
'</td>';
175 print
'<td><input class="flat right" name="'.$mainmaxdecimalsshown.
'" size="3" value="'.(
GETPOSTISSET($mainmaxdecimalsshown) ?
GETPOST($mainmaxdecimalsshown) :
getDolGlobalString(
'MAIN_MAX_DECIMALS_SHOWN')).
'"></td></tr>';
177 print
'<tr class="oddeven"><td>';
178 print
$form->textwithpicto($langs->trans(
"MAIN_ROUNDING_RULE_TOT"), $langs->trans(
"ParameterActiveForNextInputOnly"));
179 print
'</td><td><input class="flat right" name="'.$mainroundingruletot.
'" size="3" value="'.(
GETPOSTISSET($mainroundingruletot) ?
GETPOST($mainroundingruletot) :
getDolGlobalString(
'MAIN_ROUNDING_RULE_TOT')).
'"></td></tr>';
183 print
'<div class="center">';
184 print
'<input class="button button-save" type="submit" name="save" value="'.$langs->trans(
"Save").
'">';
186 print
'<input class="button button-cancel" type="submit" name="cancel" value="'.$langs->trans(
"Cancel").
'">';
193 print
'<div class="div-table-responsive-no-min">';
194 print
'<table class="noborder centpercent">';
195 print
'<tr class="liste_titre"><td>'.$langs->trans(
"Parameter").
'</td><td class="right">'.$langs->trans(
"Value").
'</td></tr>';
197 print
'<tr class="oddeven"><td>';
198 print
$form->textwithpicto($langs->trans(
"MAIN_MAX_DECIMALS_UNIT"), $langs->trans(
"ParameterActiveForNextInputOnly"));
199 print
'</td><td align="right">'.(isset($conf->global->$mainmaxdecimalsunit) ? $conf->global->$mainmaxdecimalsunit : $conf->global->MAIN_MAX_DECIMALS_UNIT).
'</td></tr>';
201 print
'<tr class="oddeven"><td>';
202 print
$form->textwithpicto($langs->trans(
"MAIN_MAX_DECIMALS_TOT"), $langs->trans(
"ParameterActiveForNextInputOnly"));
203 print
'</td><td align="right">'.(isset($conf->global->$mainmaxdecimalstot) ? $conf->global->$mainmaxdecimalstot : $conf->global->MAIN_MAX_DECIMALS_TOT).
'</td></tr>';
205 print
'<tr class="oddeven"><td>'.$langs->trans(
"MAIN_MAX_DECIMALS_SHOWN").
'</td>';
206 print
'<td align="right">'.(isset($conf->global->$mainmaxdecimalsshown) ? $conf->global->$mainmaxdecimalsshown : $conf->global->MAIN_MAX_DECIMALS_SHOWN).
'</td></tr>';
208 print
'<tr class="oddeven"><td>';
209 print
$form->textwithpicto($langs->trans(
"MAIN_ROUNDING_RULE_TOT"), $langs->trans(
"ParameterActiveForNextInputOnly"));
210 print
'</td><td align="right">'.(isset($conf->global->$mainroundingruletot) ? $conf->global->$mainroundingruletot : (!empty($conf->global->MAIN_ROUNDING_RULE_TOT) ? $conf->global->MAIN_ROUNDING_RULE_TOT :
'')).
'</td></tr>';
215 print
'<div class="tabsAction">';
216 print
'<a class="butAction" href="'.$_SERVER[
"PHP_SELF"].
'?action=edit&token='.
newToken().(!empty($currencycode) ?
'¤cycode='.$currencycode :
'').
'">'.$langs->trans(
"Modify").
'</a>';
220 if (!empty($conf->multicurrency->enabled) && !empty($conf->global->MULTICURRENCY_USE_LIMIT_BY_CURRENCY)) {
221 if (!empty($aCurrencies) && count($aCurrencies) > 1) {
226 if (empty($mysoc->country_code)) {
227 $langs->load(
"errors");
228 $warnpicto =
img_warning($langs->trans(
"WarningMandatorySetupNotComplete"));
229 print
'<br><a href="'.DOL_URL_ROOT.
'/admin/company.php?mainmenu=home">'.$warnpicto.
' '.$langs->trans(
"WarningMandatorySetupNotComplete").
'</a>';
234 print
'<span class="opacitymedium">'.$langs->trans(
"Format").
':</span> '.
price(
price2num(1234.56789,
'MT'), 0, $langs, 1, -1, -1, $currencycode).
"<br>\n";
237 $s = 2 / 3; $qty = 1; $vat = 0;
238 $tmparray =
calcul_price_total(1, $qty *
price2num($s,
'MU'), 0, $vat, 0, 0, 0,
'HT', 0, 0, $mysoc);
239 print
'<span class="opacitymedium">'.$langs->trans(
"UnitPriceOfProduct").
":</span> ".
price2num($s,
'MU');
240 print
" x ".$langs->trans(
"Quantity").
": ".$qty;
241 print
" - ".$langs->trans(
"VAT").
": ".$vat.
'%';
242 print
' -> <span class="opacitymedium">'.$langs->trans(
"TotalPriceAfterRounding").
":</span> ".$tmparray[0].
' / '.$tmparray[1].
' / '.$tmparray[2].
"<br>\n";
244 $s = 10 / 3; $qty = 1; $vat = 0;
245 $tmparray =
calcul_price_total(1, $qty *
price2num($s,
'MU'), 0, $vat, 0, 0, 0,
'HT', 0, 0, $mysoc);
246 print
'<span class="opacitymedium">'.$langs->trans(
"UnitPriceOfProduct").
":</span> ".
price2num($s,
'MU');
247 print
" x ".$langs->trans(
"Quantity").
": ".$qty;
248 print
" - ".$langs->trans(
"VAT").
": ".$vat.
'%';
249 print
' -> <span class="opacitymedium">'.$langs->trans(
"TotalPriceAfterRounding").
":</span> ".$tmparray[0].
' / '.$tmparray[1].
' / '.$tmparray[2].
"<br>\n";
251 $s = 10 / 3; $qty = 2; $vat = 0;
252 $tmparray =
calcul_price_total(1, $qty *
price2num($s,
'MU'), 0, $vat, 0, 0, 0,
'HT', 0, 0, $mysoc);
253 print
'<span class="opacitymedium">'.$langs->trans(
"UnitPriceOfProduct").
":</span> ".
price2num($s,
'MU');
254 print
" x ".$langs->trans(
"Quantity").
": ".$qty;
255 print
" - ".$langs->trans(
"VAT").
": ".$vat.
'%';
256 print
' -> <span class="opacitymedium">'.$langs->trans(
"TotalPriceAfterRounding").
":</span> ".$tmparray[0].
' / '.$tmparray[1].
' / '.$tmparray[2].
"<br>\n";
259 $vat_rates = array();
261 $sql =
"SELECT taux as vat_rate, t.code as vat_code, t.localtax1 as localtax_rate1, t.localtax2 as localtax_rate2";
262 $sql .=
" FROM ".MAIN_DB_PREFIX.
"c_tva as t, ".MAIN_DB_PREFIX.
"c_country as c";
263 $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')";
264 $sql .=
" ORDER BY t.taux ASC";
265 $resql = $db->query($sql);
267 $num = $db->num_rows(
$resql);
269 for ($i = 0; $i < $num; $i++) {
270 $obj = $db->fetch_object(
$resql);
271 $vat_rates[] = array(
'vat_rate'=>$obj->vat_rate,
'code'=>$obj->vat_code,
'localtax_rate1'=>$obj->localtax_rate1,
'locltax_rate2'=>$obj->localtax_rate2);
278 if (count($vat_rates)) {
279 foreach ($vat_rates as $vatarray) {
280 $vat = $vatarray[
'vat_rate'];
281 for ($qty = 1; $qty <= 2; $qty++) {
282 $vattxt = $vat.($vatarray[
'code'] ?
' ('.$vatarray[
'code'].
')' :
'');
287 $tmparray =
calcul_price_total($qty,
price2num($s,
'MU'), 0, $vat, -1, -1, 0,
'HT', 0, 0, $mysoc, $localtax_array);
288 print
'<span class="opacitymedium">'.$langs->trans(
"UnitPriceOfProduct").
":</span> ".
price2num($s,
'MU');
289 print
" x ".$langs->trans(
"Quantity").
": ".$qty;
290 print
" - ".$langs->trans(
"VAT").
": ".$vat.
'%';
291 print ($vatarray[
'code'] ?
' ('.$vatarray[
'code'].
')' :
'');
292 print
' -> <span class="opacitymedium">'.$langs->trans(
"TotalPriceAfterRounding").
":</span> ";
293 print $tmparray[0].
' / '.$tmparray[1].($tmparray[9] ?
'+'.$tmparray[9] :
'').($tmparray[10] ?
'+'.$tmparray[10] :
'').
' / '.$tmparray[2];
302 $localtax_array = array();
304 $s = 10 / 3; $qty = 1; $vat = 10;
305 $tmparray =
calcul_price_total($qty,
price2num($s,
'MU'), 0, $vat, -1, -1, 0,
'HT', 0, 0, $mysoc, $localtax_array);
306 print
'<span class="opacitymedium">'.$langs->trans(
"UnitPriceOfProduct").
":</span> ".
price2num($s,
'MU');
307 print
" x ".$langs->trans(
"Quantity").
": ".$qty;
308 print
" - ".$langs->trans(
"VAT").
": ".$vat.
'%';
309 print
' -> <span class="opacitymedium">'.$langs->trans(
"TotalPriceAfterRounding").
":</span> ".$tmparray[0].
' / '.$tmparray[1].
' / '.$tmparray[2].
"<br>\n";
311 $s = 10 / 3; $qty = 2; $vat = 10;
312 $tmparray =
calcul_price_total($qty,
price2num($s,
'MU'), 0, $vat, -1, -1, 0,
'HT', 0, 0, $mysoc, $localtax_array);
313 print
'<span class="opacitymedium">'.$langs->trans(
"UnitPriceOfProduct").
":</span> ".
price2num($s,
'MU');
314 print
" x ".$langs->trans(
"Quantity").
": ".$qty;
315 print
" - ".$langs->trans(
"VAT").
": ".$vat.
'%';
316 print
' -> <span class="opacitymedium">'.$langs->trans(
"TotalPriceAfterRounding").
":</span> ".$tmparray[0].
' / '.$tmparray[1].
' / '.$tmparray[2].
"<br>\n";