28require
'../main.inc.php';
29require_once DOL_DOCUMENT_ROOT.
'/core/lib/admin.lib.php';
30require_once DOL_DOCUMENT_ROOT.
'/core/lib/price.lib.php';
33$langs->loadLangs(array(
'companies',
'products',
'admin'));
35$action =
GETPOST(
'action',
'aZ09');
36$cancel =
GETPOST(
'cancel',
'aZ09');
37$currencycode =
GETPOST(
'currencycode',
'alpha');
39if (isModEnabled(
'multicompany') &&
getDolGlobalString(
'MULTICURRENCY_USE_LIMIT_BY_CURRENCY')) {
41 $currencycode = (!empty($currencycode) ? $currencycode : $conf->currency);
44$mainmaxdecimalsunit =
'MAIN_MAX_DECIMALS_UNIT'.(!empty($currencycode) ?
'_'.$currencycode :
'');
45$mainmaxdecimalstot =
'MAIN_MAX_DECIMALS_TOT'.(!empty($currencycode) ?
'_'.$currencycode :
'');
46$mainmaxdecimalsshown =
'MAIN_MAX_DECIMALS_SHOWN'.(!empty($currencycode) ?
'_'.$currencycode :
'');
47$mainroundingruletot =
'MAIN_ROUNDING_RULE_TOT'.(!empty($currencycode) ?
'_'.$currencycode :
'');
49$valmainmaxdecimalsunit =
GETPOSTINT($mainmaxdecimalsunit);
50$valmainmaxdecimalstot =
GETPOSTINT($mainmaxdecimalstot);
51$valmainmaxdecimalsshown =
GETPOST($mainmaxdecimalsshown,
'alpha');
52$valmainroundingruletot =
price2num(
GETPOST($mainroundingruletot,
'alphanohtml'),
'', 2);
63if ($action ==
'update' && !$cancel) {
66 if ($valmainmaxdecimalsunit > $MAXDEC
67 || $valmainmaxdecimalstot > $MAXDEC
68 || $valmainmaxdecimalsshown > $MAXDEC) {
70 setEventMessages($langs->trans(
"ErrorDecimalLargerThanAreForbidden", $MAXDEC),
null,
'errors');
74 if ($valmainmaxdecimalsunit < 0
75 || $valmainmaxdecimalstot < 0
76 || $valmainmaxdecimalsshown < 0) {
77 $langs->load(
"errors");
79 setEventMessages($langs->trans(
"ErrorNegativeValueNotAllowed"),
null,
'errors');
83 if ($valmainroundingruletot) {
84 if ((
float) $valmainroundingruletot * pow(10, $valmainmaxdecimalstot) < 1) {
85 $langs->load(
"errors");
87 setEventMessages($langs->trans(
"ErrorMAIN_ROUNDING_RULE_TOTCanMAIN_MAX_DECIMALS_TOT"),
null,
'errors');
92 if ((
float) $valmainmaxdecimalsshown == 0) {
93 $langs->load(
"errors");
98 if (! $error && ((
float) $valmainmaxdecimalsshown < $valmainmaxdecimalsunit || (
float) $valmainmaxdecimalsshown < $valmainmaxdecimalstot)) {
99 $langs->load(
"errors");
106 dolibarr_set_const($db, $mainmaxdecimalsunit, $valmainmaxdecimalsunit,
'chaine', 0,
'', $conf->entity);
107 dolibarr_set_const($db, $mainmaxdecimalstot, $valmainmaxdecimalstot,
'chaine', 0,
'', $conf->entity);
108 dolibarr_set_const($db, $mainmaxdecimalsshown, $valmainmaxdecimalsshown,
'chaine', 0,
'', $conf->entity);
110 dolibarr_set_const($db, $mainroundingruletot, $valmainroundingruletot,
'chaine', 0,
'', $conf->entity);
112 header(
"Location: ".$_SERVER[
"PHP_SELF"].
"?mainmenu=home&leftmenu=setup".(!empty($currencycode) ?
'¤cycode='.$currencycode :
''));
122$form =
new Form($db);
124$title = $langs->trans(
"LimitsSetup");
127llxHeader(
'', $title, $help_url,
'', 0, 0,
'',
'',
'',
'mod-admin page-limits');
131$aCurrencies = array($conf->currency);
133if (isModEnabled(
'multicompany') &&
getDolGlobalString(
'MULTICURRENCY_USE_LIMIT_BY_CURRENCY')) {
134 require_once DOL_DOCUMENT_ROOT .
'/core/lib/multicurrency.lib.php';
136 $sql =
"SELECT rowid, code FROM " . MAIN_DB_PREFIX .
"multicurrency";
137 $sql .=
" WHERE entity = " . ((int) $conf->entity);
138 $sql .=
" AND code <> '" . $db->escape($conf->currency) .
"'";
139 $resql = $db->query($sql);
141 while ($obj = $db->fetch_object($resql)) {
142 $aCurrencies[] = $obj->code;
146 if (!empty($aCurrencies) && count($aCurrencies) > 1) {
153print
'<span class="opacitymedium">'.$langs->trans(
"LimitsDesc").
"</span><br>\n";
156if ($action ==
'edit') {
157 print
'<form method="POST" action="' . $_SERVER[
"PHP_SELF"] .
'">';
158 print
'<input type="hidden" name="token" value="' .
newToken() .
'">';
159 print
'<input type="hidden" name="action" value="update">';
160 if (isModEnabled(
'multicompany') &&
getDolGlobalString(
'MULTICURRENCY_USE_LIMIT_BY_CURRENCY')) {
161 print
'<input type="hidden" name="currencycode" value="' . $currencycode .
'">';
166 print
'<table class="noborder centpercent">';
167 print
'<tr class="liste_titre"><td>'.$langs->trans(
"Parameters").
'</td><td>'.$langs->trans(
"Value").
'</td></tr>';
169 print
'<tr class="oddeven"><td>';
170 print $form->textwithpicto($langs->trans(
"MAIN_MAX_DECIMALS_UNIT"), $langs->trans(
"ParameterActiveForNextInputOnly"));
171 print
'</td><td><input class="flat right" name="'.$mainmaxdecimalsunit.
'" size="3" value="'.(GETPOSTISSET($mainmaxdecimalsunit) ?
GETPOST($mainmaxdecimalsunit) :
getDolGlobalInt(
'MAIN_MAX_DECIMALS_UNIT', 0)).
'"></td></tr>';
173 print
'<tr class="oddeven"><td>';
174 print $form->textwithpicto($langs->trans(
"MAIN_MAX_DECIMALS_TOT"), $langs->trans(
"ParameterActiveForNextInputOnly"));
175 print
'</td><td><input class="flat right" name="'.$mainmaxdecimalstot.
'" size="3" value="'.(GETPOSTISSET($mainmaxdecimalstot) ?
GETPOST($mainmaxdecimalstot) :
getDolGlobalInt(
'MAIN_MAX_DECIMALS_TOT', 0)).
'"></td></tr>';
177 print
'<tr class="oddeven"><td>'.$langs->trans(
"MAIN_MAX_DECIMALS_SHOWN").
'</td>';
178 print
'<td><input class="flat right" name="'.$mainmaxdecimalsshown.
'" size="3" value="'.(GETPOSTISSET($mainmaxdecimalsshown) ?
GETPOST($mainmaxdecimalsshown) :
getDolGlobalString(
'MAIN_MAX_DECIMALS_SHOWN')).
'"></td></tr>';
180 print
'<tr class="oddeven"><td>';
181 print $form->textwithpicto($langs->trans(
"MAIN_ROUNDING_RULE_TOT"), $langs->trans(
"ParameterActiveForNextInputOnly"));
182 print
'</td><td><input class="flat right" name="'.$mainroundingruletot.
'" size="3" value="'.(GETPOSTISSET($mainroundingruletot) ?
GETPOST($mainroundingruletot) :
getDolGlobalString(
'MAIN_ROUNDING_RULE_TOT')).
'"></td></tr>';
186 print
'<div class="center">';
187 print
'<input class="button button-save" type="submit" name="save" value="'.$langs->trans(
"Save").
'">';
189 print
'<input class="button button-cancel" type="submit" name="cancel" value="'.$langs->trans(
"Cancel").
'">';
196 print
'<div class="div-table-responsive-no-min">';
197 print
'<table class="noborder centpercent">';
198 print
'<tr class="liste_titre"><td>'.$langs->trans(
"Parameter").
'</td><td class="right">'.$langs->trans(
"Value").
'</td></tr>';
200 print
'<tr class="oddeven"><td>';
201 print $form->textwithpicto($langs->trans(
"MAIN_MAX_DECIMALS_UNIT"), $langs->trans(
"ParameterActiveForNextInputOnly"));
202 print
'</td><td align="right">'.(isset($conf->global->$mainmaxdecimalsunit) ? $conf->global->$mainmaxdecimalsunit : $conf->global->MAIN_MAX_DECIMALS_UNIT).
'</td></tr>';
204 print
'<tr class="oddeven"><td>';
205 print $form->textwithpicto($langs->trans(
"MAIN_MAX_DECIMALS_TOT"), $langs->trans(
"ParameterActiveForNextInputOnly"));
206 print
'</td><td align="right">'.(isset($conf->global->$mainmaxdecimalstot) ? $conf->global->$mainmaxdecimalstot : $conf->global->MAIN_MAX_DECIMALS_TOT).
'</td></tr>';
208 print
'<tr class="oddeven"><td>'.$langs->trans(
"MAIN_MAX_DECIMALS_SHOWN").
'</td>';
209 print
'<td align="right">'.(isset($conf->global->$mainmaxdecimalsshown) ? $conf->global->$mainmaxdecimalsshown : $conf->global->MAIN_MAX_DECIMALS_SHOWN).
'</td></tr>';
211 print
'<tr class="oddeven"><td>';
212 print $form->textwithpicto($langs->trans(
"MAIN_ROUNDING_RULE_TOT"), $langs->trans(
"ParameterActiveForNextInputOnly"));
213 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>';
218 print
'<div class="tabsAction">';
219 print
'<a class="butAction" href="'.$_SERVER[
"PHP_SELF"].
'?action=edit&token='.
newToken().(!empty($currencycode) ?
'¤cycode='.$currencycode :
'').
'">'.$langs->trans(
"Modify").
'</a>';
223if (isModEnabled(
'multicompany') &&
getDolGlobalString(
'MULTICURRENCY_USE_LIMIT_BY_CURRENCY')) {
224 if (!empty($aCurrencies) && count($aCurrencies) > 1) {
229if (empty($mysoc->country_code)) {
230 $langs->load(
"errors");
231 $warnpicto =
img_warning($langs->trans(
"WarningMandatorySetupNotComplete"));
232 print
'<br><a href="'.DOL_URL_ROOT.
'/admin/company.php?mainmenu=home">'.$warnpicto.
' '.$langs->trans(
"WarningMandatorySetupNotComplete").
'</a>';
237 print
'<span class="opacitymedium">'.$langs->trans(
"NumberFormatForATotalPrice",
'1234.56789').
':</span> '.
price(
price2num(1234.56789,
'MT'), 0, $langs, 1, -1, -1, $currencycode).
"<br>\n";
243 $tmparray =
calcul_price_total(1, $qty * (
float)
price2num($s,
'MU'), 0, $vat, 0, 0, 0,
'HT', 0, 0, $mysoc);
244 print
'<span class="opacitymedium">'.$langs->trans(
"UnitPriceOfProduct").
":</span> ".
price2num($s,
'MU');
245 print
' x <span class="opacitymedium">'.$langs->trans(
"Quantity").
":</span> ".$qty;
246 print
' - <span class="opacitymedium">'.$langs->trans(
"VAT").
":</span> ".$vat.
'%';
247 print
' -> <span class="opacitymedium">'.$langs->trans(
"TotalPriceAfterRounding").
":</span> ".$tmparray[0].
' / '.$tmparray[1].
' / '.$tmparray[2].
"<br>\n";
252 $tmparray =
calcul_price_total(1, $qty * (
float)
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 <span class="opacitymedium">'.$langs->trans(
"Quantity").
":</span> ".$qty;
255 print
' - <span class="opacitymedium">'.$langs->trans(
"VAT").
":</span> ".$vat.
'%';
256 print
' -> <span class="opacitymedium">'.$langs->trans(
"TotalPriceAfterRounding").
":</span> ".$tmparray[0].
' / '.$tmparray[1].
' / '.$tmparray[2].
"<br>\n";
261 $tmparray =
calcul_price_total(1, $qty * (
float)
price2num($s,
'MU'), 0, $vat, 0, 0, 0,
'HT', 0, 0, $mysoc);
262 print
'<span class="opacitymedium">'.$langs->trans(
"UnitPriceOfProduct").
":</span> ".
price2num($s,
'MU');
263 print
' x <span class="opacitymedium">'.$langs->trans(
"Quantity").
":</span> ".$qty;
264 print
' - <span class="opacitymedium">'.$langs->trans(
"VAT").
":</span> ".$vat.
'%';
265 print
' -> <span class="opacitymedium">'.$langs->trans(
"TotalPriceAfterRounding").
":</span> ".$tmparray[0].
' / '.$tmparray[1].
' / '.$tmparray[2].
"<br>\n";
268 $vat_rates = array();
270 $sql =
"SELECT taux as vat_rate, t.code as vat_code, t.localtax1 as localtax_rate1, t.localtax2 as localtax_rate2";
271 $sql .=
" FROM ".MAIN_DB_PREFIX.
"c_tva as t, ".MAIN_DB_PREFIX.
"c_country as c";
272 $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')";
273 $sql .=
" AND t.entity IN (".getEntity(
'c_tva').
")";
274 $sql .=
" ORDER BY t.taux ASC";
275 $resql = $db->query($sql);
277 $num = $db->num_rows($resql);
279 for ($i = 0; $i < $num; $i++) {
280 $obj = $db->fetch_object($resql);
281 $vat_rates[] = array(
'vat_rate' => $obj->vat_rate,
'code' => $obj->vat_code,
'localtax_rate1' => $obj->localtax_rate1,
'locltax_rate2' => $obj->localtax_rate2);
288 if (count($vat_rates)) {
289 foreach ($vat_rates as $vatarray) {
290 $vat = $vatarray[
'vat_rate'];
291 for ($qty = 1; $qty <= 2; $qty++) {
292 $vattxt = $vat.($vatarray[
'code'] ?
' ('.$vatarray[
'code'].
')' :
'');
297 $tmparray =
calcul_price_total($qty,
price2num($s,
'MU'), 0, $vat, -1, -1, 0,
'HT', 0, 0, $mysoc, $localtax_array);
298 print
'<span class="opacitymedium">'.$langs->trans(
"UnitPriceOfProduct").
":</span> ".
price2num($s,
'MU');
299 print
' x <span class="opacitymedium">'.$langs->trans(
"Quantity").
":</span> ".$qty;
300 print
' - <span class="opacitymedium">'.$langs->trans(
"VAT").
':</span> '.$vat.
'%';
301 print($vatarray[
'code'] ?
' ('.$vatarray[
'code'].
')' :
'');
302 print
' -> <span class="opacitymedium">'.$langs->trans(
"TotalPriceAfterRounding").
":</span> ";
303 print $tmparray[0].
' / '.$tmparray[1].($tmparray[9] ?
'+'.$tmparray[9] :
'').($tmparray[10] ?
'+'.$tmparray[10] :
'').
' / '.$tmparray[2];
309 $vattxt = $vat.($vatarray[
'code'] ?
' ('.$vatarray[
'code'].
')' :
'');
314 $tmparray =
calcul_price_total($qty,
price2num($s,
'MU'), 0, $vat, -1, -1, 0,
'HT', 0, 0, $mysoc, $localtax_array);
315 print
'<span class="opacitymedium">'.$langs->trans(
"UnitPriceOfProduct").
":</span> ".
price2num($s,
'MU');
316 print
' x <span class="opacitymedium">'.$langs->trans(
"Quantity").
":</span> ".$qty;
317 print
' - <span class="opacitymedium">'.$langs->trans(
"VAT").
':</span> '.$vat.
'%';
318 print($vatarray[
'code'] ?
' ('.$vatarray[
'code'].
')' :
'');
319 print
' -> <span class="opacitymedium">'.$langs->trans(
"TotalPriceAfterRounding").
":</span> ";
320 print $tmparray[0].
' / '.$tmparray[1].($tmparray[9] ?
'+'.$tmparray[9] :
'').($tmparray[10] ?
'+'.$tmparray[10] :
'').
' / '.$tmparray[2];
329 $localtax_array = array();
334 $tmparray =
calcul_price_total($qty,
price2num($s,
'MU'), 0, $vat, -1, -1, 0,
'HT', 0, 0, $mysoc, $localtax_array);
335 print
'<span class="opacitymedium">'.$langs->trans(
"UnitPriceOfProduct").
":</span> ".
price2num($s,
'MU');
336 print
' x <span class="opacitymedium">'.$langs->trans(
"Quantity").
":</span> ".$qty;
337 print
' - <span class="opacitymedium">'.$langs->trans(
"VAT").
":</span> ".$vat.
'%';
338 print
' -> <span class="opacitymedium">'.$langs->trans(
"TotalPriceAfterRounding").
":</span> ".$tmparray[0].
' / '.$tmparray[1].
' / '.$tmparray[2].
"<br>\n";
343 $tmparray =
calcul_price_total($qty,
price2num($s,
'MU'), 0, $vat, -1, -1, 0,
'HT', 0, 0, $mysoc, $localtax_array);
344 print
'<span class="opacitymedium">'.$langs->trans(
"UnitPriceOfProduct").
":</span> ".
price2num($s,
'MU');
345 print
' x <span class="opacitymedium">'.$langs->trans(
"Quantity").
":</span> ".$qty;
346 print
' - <span class="opacitymedium">'.$langs->trans(
"VAT").
":</span> ".$vat.
'%';
347 print
' -> <span class="opacitymedium">'.$langs->trans(
"TotalPriceAfterRounding").
":</span> ".$tmparray[0].
' / '.$tmparray[1].
' / '.$tmparray[2].
"<br>\n";
dolibarr_set_const($db, $name, $value, $type='chaine', $visible=0, $note='', $entity=1)
Insert a parameter (key,value) into database (delete old key then insert it again).
if(!defined('NOREQUIRESOC')) if(!defined( 'NOREQUIRETRAN')) if(!defined('NOTOKENRENEWAL')) if(!defined( 'NOREQUIREMENU')) if(!defined('NOREQUIREHTML')) if(!defined( 'NOREQUIREAJAX')) llxHeader()
Empty header.
load_fiche_titre($title, $morehtmlright='', $picto='generic', $pictoisfullpath=0, $id='', $morecssontable='', $morehtmlcenter='')
Load a title with picto.
img_warning($titlealt='default', $moreatt='', $morecss='pictowarning')
Show warning logo.
GETPOSTINT($paramname, $method=0)
Return the value of a $_GET or $_POST supervariable, converted into integer.
dol_get_fiche_head($links=array(), $active='', $title='', $notab=0, $picto='', $pictoisfullpath=0, $morehtmlright='', $morecss='', $limittoshow=0, $moretabssuffix='', $dragdropfile=0)
Show tabs of a record.
dol_string_nohtmltag($stringtoclean, $removelinefeed=1, $pagecodeto='UTF-8', $strip_tags=0, $removedoublespaces=1)
Clean a string from all HTML tags and entities.
price2num($amount, $rounding='', $option=0)
Function that return a number with universal decimal format (decimal separator is '.
dol_get_fiche_end($notab=0)
Return tab footer of a card.
price($amount, $form=0, $outlangs='', $trunc=1, $rounding=-1, $forcerounding=-1, $currency_code='')
Function to format a value into an amount for visual output Function used into PDF and HTML pages.
getDolGlobalInt($key, $default=0)
Return a Dolibarr global constant int value.
getLocalTaxesFromRate($vatrate, $local, $buyer, $seller, $firstparamisid=0)
Get type and rate of localtaxes for a particular vat rate/country of a thirdparty.
newToken()
Return the value of token currently saved into session with name 'newtoken'.
GETPOST($paramname, $check='alphanohtml', $method=0, $filter=null, $options=null, $noreplace=0)
Return value of a param into GET or POST supervariable.
setEventMessages($mesg, $mesgs, $style='mesgs', $messagekey='', $noduplicate=0)
Set event messages in dol_events session object.
dol_print_error($db=null, $error='', $errors=null)
Displays error message system with all the information to facilitate the diagnosis and the escalation...
dol_trunc($string, $size=40, $trunc='right', $stringencoding='UTF-8', $nodot=0, $display=0)
Truncate a string to a particular length adding '…' if string larger than length.
getDolGlobalString($key, $default='')
Return dolibarr global constant string value.
multicurrencyLimitPrepareHead($aCurrencies)
Prepare array with list of currency tabs.
calcul_price_total($qty, $pu, $remise_percent_ligne, $txtva, $uselocaltax1_rate, $uselocaltax2_rate, $remise_percent_global, $price_base_type, $info_bits, $type, $seller='', $localtaxes_array=[], $progress=100, $multicurrency_tx=1, $pu_devise=0, $multicurrency_code='')
Calculate totals (net, vat, ...) of a line.
accessforbidden($message='', $printheader=1, $printfooter=1, $showonlymessage=0, $params=null)
Show a message to say access is forbidden and stop program.