multicurrency.php 13 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363
  1. <?php
  2. /* <one line to give the program's name and a brief idea of what it does.>
  3. * Copyright (C) 2015 ATM Consulting <support@atm-consulting.fr>
  4. *
  5. * This program is free software: you can redistribute it and/or modify
  6. * it under the terms of the GNU General Public License as published by
  7. * the Free Software Foundation, either version 3 of the License, or
  8. * (at your option) any later version.
  9. *
  10. * This program is distributed in the hope that it will be useful,
  11. * but WITHOUT ANY WARRANTY; without even the implied warranty of
  12. * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
  13. * GNU General Public License for more details.
  14. *
  15. * You should have received a copy of the GNU General Public License
  16. * along with this program. If not, see <https://www.gnu.org/licenses/>.
  17. */
  18. /**
  19. * \file admin/multicurrency.php
  20. * \ingroup multicurrency
  21. * \brief Page to setup multicurrency module
  22. */
  23. // Dolibarr environment
  24. require '../main.inc.php';
  25. require_once DOL_DOCUMENT_ROOT.'/core/lib/admin.lib.php';
  26. require_once DOL_DOCUMENT_ROOT.'/core/lib/multicurrency.lib.php';
  27. require_once DOL_DOCUMENT_ROOT.'/multicurrency/class/multicurrency.class.php';
  28. // Load translation files required by the page
  29. $langs->loadLangs(array('admin', 'multicurrency'));
  30. // Access control
  31. if (!$user->admin || empty($conf->multicurrency->enabled)) {
  32. accessforbidden();
  33. }
  34. // Parameters
  35. $action = GETPOST('action', 'aZ09');
  36. /*
  37. * Actions
  38. */
  39. $reg = array();
  40. if (preg_match('/set_([a-z0-9_\-]+)/i', $action, $reg)) {
  41. $code = $reg[1];
  42. $value = GETPOST($code, 'alpha');
  43. if (dolibarr_set_const($db, $code, $value, 'chaine', 0, '', $conf->entity) > 0) {
  44. setEventMessages($langs->trans("SetupSaved"), null, 'mesgs');
  45. } else {
  46. setEventMessages($langs->trans("Error"), null, 'errors');
  47. }
  48. }
  49. if (preg_match('/del_([a-z0-9_\-]+)/i', $action, $reg)) {
  50. $code = $reg[1];
  51. if (dolibarr_del_const($db, $code, 0) > 0) {
  52. setEventMessages($langs->trans("SetupSaved"), null, 'mesgs');
  53. } else {
  54. setEventMessages($langs->trans("Error"), null, 'errors');
  55. }
  56. }
  57. if ($action == 'add_currency') {
  58. $error = 0;
  59. $langs->loadCacheCurrencies('');
  60. $code = GETPOST('code', 'alpha');
  61. $rate = price2num(GETPOST('rate', 'alpha'));
  62. $currency = new MultiCurrency($db);
  63. $currency->code = $code;
  64. $currency->name = !empty($langs->cache_currencies[$code]['label']) ? $langs->cache_currencies[$code]['label'].' ('.$langs->getCurrencySymbol($code).')' : $code;
  65. if (empty($currency->code) || $currency->code == '-1') {
  66. setEventMessages($langs->trans('ErrorFieldRequired', $langs->transnoentitiesnoconv("Currency")), null, 'errors');
  67. $error++;
  68. }
  69. if (empty($rate)) {
  70. setEventMessages($langs->trans('ErrorFieldRequired', $langs->transnoentitiesnoconv("Rate")), null, 'errors');
  71. $error++;
  72. }
  73. if (!$error) {
  74. if ($currency->create($user) > 0) {
  75. if ($currency->addRate($rate)) {
  76. setEventMessages($langs->trans('RecordSaved'), array());
  77. } else {
  78. setEventMessages($langs->trans('ErrorAddRateFail'), array(), 'errors');
  79. }
  80. } else {
  81. setEventMessages($langs->trans('ErrorAddCurrencyFail'), $currency->errors, 'errors');
  82. }
  83. }
  84. } elseif ($action == 'update_currency') {
  85. $error = 0;
  86. if (GETPOST('updatecurrency', 'alpha')) {
  87. $fk_multicurrency = GETPOST('fk_multicurrency', 'int');
  88. $rate = price2num(GETPOST('rate', 'alpha'));
  89. $currency = new MultiCurrency($db);
  90. if (empty($rate)) {
  91. setEventMessages($langs->trans('ErrorFieldRequired', $langs->transnoentitiesnoconv("Rate")), null, 'errors');
  92. $error++;
  93. }
  94. if (!$error) {
  95. if ($currency->fetch($fk_multicurrency) > 0) {
  96. $result = $currency->updateRate($rate);
  97. if ($result < 0) {
  98. setEventMessages(null, $currency->errors, 'errors');
  99. }
  100. }
  101. }
  102. } elseif (GETPOST('deletecurrency', 'alpha')) {
  103. $fk_multicurrency = GETPOST('fk_multicurrency', 'int');
  104. $currency = new MultiCurrency($db);
  105. if ($currency->fetch($fk_multicurrency) > 0) {
  106. if ($currency->delete() > 0) {
  107. setEventMessages($langs->trans('RecordDeleted'), array());
  108. } else {
  109. setEventMessages($langs->trans('ErrorDeleteCurrencyFail'), array(), 'errors');
  110. }
  111. }
  112. }
  113. } elseif ($action == 'setapilayer') {
  114. if (GETPOSTISSET('modify_apilayer')) {
  115. dolibarr_set_const($db, 'MULTICURRENCY_APP_ID', GETPOST('MULTICURRENCY_APP_ID', 'alpha'));
  116. dolibarr_set_const($db, 'MULTICURRENCY_APP_SOURCE', GETPOST('MULTICURRENCY_APP_SOURCE', 'alpha'));
  117. //dolibarr_set_const($db, 'MULTICURRENCY_ALTERNATE_SOURCE', GETPOST('MULTICURRENCY_ALTERNATE_SOURCE', 'alpha'));
  118. } else {
  119. $result = MultiCurrency::syncRates($conf->global->MULTICURRENCY_APP_ID);
  120. if ($result > 0) {
  121. setEventMessages($langs->trans("CurrencyRateSyncSucceed"), null, "mesgs");
  122. }
  123. }
  124. }
  125. $TCurrency = array();
  126. $sql = "SELECT rowid FROM ".MAIN_DB_PREFIX."multicurrency WHERE entity = ".((int) $conf->entity);
  127. $resql = $db->query($sql);
  128. if ($resql) {
  129. while ($obj = $db->fetch_object($resql)) {
  130. $currency = new MultiCurrency($db);
  131. $currency->fetch($obj->rowid);
  132. $TCurrency[] = $currency;
  133. }
  134. }
  135. /*
  136. * View
  137. */
  138. $form = new Form($db);
  139. $page_name = "MultiCurrencySetup";
  140. $help_url = '';
  141. llxHeader('', $langs->trans($page_name), $help_url);
  142. // Subheader
  143. $linkback = '<a href="'.DOL_URL_ROOT.'/admin/modules.php?restore_lastsearch_values=1">'.$langs->trans("BackToModuleList").'</a>';
  144. print load_fiche_titre($langs->trans($page_name), $linkback);
  145. // Configuration header
  146. $head = multicurrencyAdminPrepareHead();
  147. print dol_get_fiche_head($head, 'settings', $langs->trans($page_name), -1, "multicurrency");
  148. print '<div class="div-table-responsive-no-min">';
  149. print '<table class="noborder centpercent">';
  150. print '<tr class="liste_titre">';
  151. print '<td>'.$langs->trans("Parameters").'</td>'."\n";
  152. print '<td class="center">'.$langs->trans("Status").'</td>'."\n";
  153. print '</tr>';
  154. print '<tr class="oddeven">';
  155. print '<td>'.$langs->transnoentitiesnoconv("MULTICURRENCY_USE_RATE_ON_DOCUMENT_DATE").'</td>';
  156. print '<td class="center">';
  157. if ($conf->use_javascript_ajax) {
  158. print ajax_constantonoff('MULTICURRENCY_USE_RATE_ON_DOCUMENT_DATE');
  159. } else {
  160. $arrval = array('0' => $langs->trans("No"), '1' => $langs->trans("Yes"));
  161. print $form->selectarray("MULTICURRENCY_USE_RATE_ON_DOCUMENT_DATE", $arrval, $conf->global->MULTICURRENCY_USE_RATE_ON_DOCUMENT_DATE);
  162. }
  163. print '</td></tr>';
  164. print '<tr class="oddeven">';
  165. print '<td>'.$langs->transnoentitiesnoconv("multicurrency_useOriginTx").'</td>';
  166. print '<td class="center">';
  167. if ($conf->use_javascript_ajax) {
  168. print ajax_constantonoff('MULTICURRENCY_USE_ORIGIN_TX', null, null, 0, 0, 0, 2, 0, 1);
  169. } else {
  170. $arrval = array('0' => $langs->trans("No"), '1' => $langs->trans("Yes"));
  171. print $form->selectarray("MULTICURRENCY_USE_ORIGIN_TX", $arrval, $conf->global->MULTICURRENCY_USE_ORIGIN_TX);
  172. }
  173. print '</td></tr>';
  174. // Online payment with currency on document. This option should be on by default.
  175. if ($conf->global->MAIN_FEATURES_LEVEL >= 2) {
  176. print '<tr class="oddeven">';
  177. print '<td>'.$langs->transnoentitiesnoconv("MULTICURRENCY_USE_CURRENCY_ON_DOCUMENT").'</td>';
  178. print '<td class="center">';
  179. if ($conf->use_javascript_ajax) {
  180. print ajax_constantonoff('MULTICURRENCY_USE_CURRENCY_ON_DOCUMENT');
  181. } else {
  182. $arrval = array('0' => $langs->trans("No"), '1' => $langs->trans("Yes"));
  183. print $form->selectarray("MULTICURRENCY_USE_CURRENCY_ON_DOCUMENT", $arrval, $conf->global->MULTICURRENCY_USE_CURRENCY_ON_DOCUMENT);
  184. }
  185. print '</td></tr>';
  186. }
  187. /* TODO uncomment when the functionality will integrated
  188. print '<tr class="oddeven">';
  189. print '<td>'.$langs->transnoentitiesnoconv("multicurrency_buyPriceInCurrency").'</td>';
  190. print '<td class="right">';
  191. print '<form method="POST" action="'.$_SERVER['PHP_SELF'].'">';
  192. print '<input type="hidden" name="token" value="'.newToken().'">';
  193. print '<input type="hidden" name="action" value="set_MULTICURRENCY_BUY_PRICE_IN_CURRENCY">';
  194. print $form->selectyesno("MULTICURRENCY_BUY_PRICE_IN_CURRENCY",$conf->global->MULTICURRENCY_BUY_PRICE_IN_CURRENCY,1);
  195. print '<input type="submit" class="button button-edit" value="'.$langs->trans("Modify").'">';
  196. print '</form>';
  197. print '</td></tr>';
  198. */
  199. /* TODO uncomment when the functionality will integrated
  200. print '<tr class="oddeven">';
  201. print '<td>'.$langs->transnoentitiesnoconv("multicurrency_modifyRateApplication").'</td>';
  202. print '<td class="right">';
  203. print '<form method="POST" action="'.$_SERVER['PHP_SELF'].'">';
  204. print '<input type="hidden" name="token" value="'.newToken().'">';
  205. print '<input type="hidden" name="action" value="set_MULTICURRENCY_MODIFY_RATE_APPLICATION">';
  206. print $form->selectarray('MULTICURRENCY_MODIFY_RATE_APPLICATION', array('PU_DOLIBARR' => 'PU_DOLIBARR', 'PU_CURRENCY' => 'PU_CURRENCY'), $conf->global->MULTICURRENCY_MODIFY_RATE_APPLICATION);
  207. print '<input type="submit" class="button button-edit" value="'.$langs->trans("Modify").'">';
  208. print '</form>';
  209. print '</td></tr>';
  210. */
  211. print '</table>';
  212. print '</div>';
  213. print '<br>';
  214. if (!empty($conf->global->MAIN_MULTICURRENCY_ALLOW_SYNCHRONIZATION)) {
  215. print '<form method="POST" action="'.$_SERVER['PHP_SELF'].'" id="form_sync">';
  216. print '<input type="hidden" name="token" value="'.newToken().'">';
  217. print '<input type="hidden" name="action" value="setapilayer">';
  218. print '<div class="div-table-responsive-no-min">';
  219. print '<table class="noborder centpercent">';
  220. $urlforapilayer = 'https://currencylayer.com'; //https://apilayer.net
  221. print '<tr class="liste_titre">';
  222. print '<td>'.$form->textwithpicto($langs->trans("CurrencyLayerAccount"), $langs->trans("CurrencyLayerAccount_help_to_synchronize", $urlforapilayer)).'</td>'."\n";
  223. print '<td class="right">';
  224. print '<textarea id="response" class="hideobject" name="response"></textarea>';
  225. print '<input type="submit" name="modify_apilayer" class="button buttongen" value="'.$langs->trans("Modify").'">';
  226. print '<input type="submit" id="bt_sync" name="bt_sync_apilayer" class="button buttongen" value="'.$langs->trans('Synchronize').'" />';
  227. print '</td></tr>';
  228. print '<tr class="oddeven">';
  229. print '<td class="fieldrequired"><a target="_blank" rel="noopener noreferrer external" href="'.$urlforapilayer.'">'.$langs->transnoentitiesnoconv("multicurrency_appId").'</a></td>';
  230. print '<td class="right">';
  231. print '<input type="text" name="MULTICURRENCY_APP_ID" value="'.$conf->global->MULTICURRENCY_APP_ID.'" size="28" />&nbsp;';
  232. print '</td></tr>';
  233. print '<tr class="oddeven">';
  234. print '<td>'.$langs->transnoentitiesnoconv("multicurrency_appCurrencySource").'</td>';
  235. print '<td class="right">';
  236. print '<input type="text" name="MULTICURRENCY_APP_SOURCE" value="'.$conf->global->MULTICURRENCY_APP_SOURCE.'" size="10" placeholder="USD" />&nbsp;'; // Default: USD
  237. print '</form>';
  238. print '</td></tr>';
  239. /*print '<tr class="oddeven">';
  240. print '<td>'.$langs->transnoentitiesnoconv("multicurrency_alternateCurrencySource").'</td>';
  241. print '<td class="right">';
  242. print '<input type="text" name="MULTICURRENCY_ALTERNATE_SOURCE" value="'.$conf->global->MULTICURRENCY_ALTERNATE_SOURCE.'" size="10" placeholder="EUR" />&nbsp;'; // Example: EUR
  243. print '</td></tr>';*/
  244. print '</table>';
  245. print '</div>';
  246. print '<br>';
  247. print '</form>';
  248. }
  249. print '<div class="div-table-responsive-no-min">';
  250. print '<table class="noborder centpercent nomarginbottom">';
  251. print '<tr class="liste_titre">';
  252. print '<td>'.$form->textwithpicto($langs->trans("CurrenciesUsed"), $langs->transnoentitiesnoconv("CurrenciesUsed_help_to_add")).'</td>'."\n";
  253. print '<td class="right">'.$langs->trans("Rate").' / '.$langs->getCurrencySymbol($conf->currency).'</td>'."\n";
  254. print '</tr>';
  255. print '<form method="POST" action="'.$_SERVER['PHP_SELF'].'">';
  256. print '<input type="hidden" name="token" value="'.newToken().'">';
  257. print '<input type="hidden" name="action" value="add_currency">';
  258. print '<tr class="oddeven">';
  259. print '<td>'.$form->selectCurrency('', 'code', 1, '1').'</td>';
  260. print '<td class="right">';
  261. print '<input type="text" name="rate" value="" class="width75 right" placeholder="'.$langs->trans('Rate').'" />&nbsp;';
  262. print '<input type="submit" class="button button-add smallpaddingimp" value="'.$langs->trans("Add").'">';
  263. print '</td>';
  264. print '</tr>';
  265. print '</form>';
  266. print '<tr class="oddeven">';
  267. print '<td>'.$conf->currency;
  268. print ' ('.$langs->getCurrencySymbol($conf->currency).')';
  269. print $form->textwithpicto(' ', $langs->trans("BaseCurrency")).'</td>';
  270. print '<td class="right">1</td>';
  271. print '</tr>';
  272. foreach ($TCurrency as &$currency) {
  273. if ($currency->code == $conf->currency) {
  274. continue;
  275. }
  276. print '<tr class="oddeven">';
  277. print '<td>'.$currency->code.' - '.$currency->name.'</td>';
  278. print '<td class="right">';
  279. print '<form method="POST" action="'.$_SERVER['PHP_SELF'].'">';
  280. print '<input type="hidden" name="token" value="'.newToken().'">';
  281. print '<input type="hidden" name="action" value="update_currency">';
  282. print '<input type="hidden" name="fk_multicurrency" value="'.$currency->id.'">';
  283. print '1 '.$conf->currency.' = ';
  284. print '<input type="text" name="rate" class="width75 right" value="'.($currency->rate->rate ? $currency->rate->rate : '').'" size="13">&nbsp;'.$currency->code.'&nbsp;';
  285. print '<input type="submit" name="updatecurrency" class="button button-edit smallpaddingimp" value="'.$langs->trans("Modify").'">&nbsp;';
  286. print '<input type="submit" name="deletecurrency" class="button smallpaddingimp" value="'.$langs->trans("Delete").'">';
  287. print '</form>';
  288. print '</td></tr>';
  289. }
  290. print '</table>';
  291. print '</div>';
  292. print '
  293. <script type="text/javascript">
  294. function getRates()
  295. {
  296. $("#bt_sync").attr("disabled", true);
  297. return true;
  298. }
  299. </script>
  300. ';
  301. // End of page
  302. llxFooter();
  303. $db->close();