* Copyright (C) 2015 ATM Consulting * * This program is free software: you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation, either version 3 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program. If not, see . */ /** * \file admin/multicurrency.php * \ingroup multicurrency * \brief Page to setup multicurrency module */ // Dolibarr environment require '../main.inc.php'; require_once DOL_DOCUMENT_ROOT.'/core/lib/admin.lib.php'; require_once DOL_DOCUMENT_ROOT.'/core/lib/multicurrency.lib.php'; require_once DOL_DOCUMENT_ROOT.'/multicurrency/class/multicurrency.class.php'; // Load translation files required by the page $langs->loadLangs(array('admin', 'multicurrency')); // Access control if (!$user->admin || !isModEnabled('multicurrency')) { accessforbidden(); } // Parameters $action = GETPOST('action', 'aZ09'); /* * Actions */ $reg = array(); if (preg_match('/set_([a-z0-9_\-]+)/i', $action, $reg)) { $code = $reg[1]; $value = GETPOST($code, 'alpha'); if (dolibarr_set_const($db, $code, $value, 'chaine', 0, '', $conf->entity) > 0) { setEventMessages($langs->trans("SetupSaved"), null, 'mesgs'); } else { setEventMessages($langs->trans("Error"), null, 'errors'); } } if (preg_match('/del_([a-z0-9_\-]+)/i', $action, $reg)) { $code = $reg[1]; if (dolibarr_del_const($db, $code, 0) > 0) { setEventMessages($langs->trans("SetupSaved"), null, 'mesgs'); } else { setEventMessages($langs->trans("Error"), null, 'errors'); } } if ($action == 'add_currency') { $error = 0; $langs->loadCacheCurrencies(''); $code = GETPOST('code', 'alpha'); $rate = price2num(GETPOST('rate', 'alpha')); $currency = new MultiCurrency($db); $currency->code = $code; $currency->name = !empty($langs->cache_currencies[$code]['label']) ? $langs->cache_currencies[$code]['label'].' ('.$langs->getCurrencySymbol($code).')' : $code; if (empty($currency->code) || $currency->code == '-1') { setEventMessages($langs->trans('ErrorFieldRequired', $langs->transnoentitiesnoconv("Currency")), null, 'errors'); $error++; } if (empty($rate)) { setEventMessages($langs->trans('ErrorFieldRequired', $langs->transnoentitiesnoconv("Rate")), null, 'errors'); $error++; } if (!$error) { if ($currency->create($user) > 0) { if ($currency->addRate($rate)) { setEventMessages($langs->trans('RecordSaved'), array()); } else { setEventMessages($langs->trans('ErrorAddRateFail'), array(), 'errors'); } } else { setEventMessages($langs->trans('ErrorAddCurrencyFail'), $currency->errors, 'errors'); } } } elseif ($action == 'update_currency') { $error = 0; if (GETPOST('updatecurrency', 'alpha')) { $fk_multicurrency = GETPOSTINT('fk_multicurrency'); $rate = price2num(GETPOST('rate', 'alpha')); $currency = new MultiCurrency($db); if (empty($rate)) { setEventMessages($langs->trans('ErrorFieldRequired', $langs->transnoentitiesnoconv("Rate")), null, 'errors'); $error++; } if (!$error) { if ($currency->fetch($fk_multicurrency) > 0) { $result = $currency->updateRate($rate); if ($result < 0) { setEventMessages(null, $currency->errors, 'errors'); } } } } elseif (GETPOST('deletecurrency', 'alpha')) { $fk_multicurrency = GETPOSTINT('fk_multicurrency'); $currency = new MultiCurrency($db); if ($currency->fetch($fk_multicurrency) > 0) { if ($currency->delete($user) > 0) { setEventMessages($langs->trans('RecordDeleted'), array()); } else { setEventMessages($langs->trans('ErrorDeleteCurrencyFail'), array(), 'errors'); } } } } elseif ($action == 'setapilayer') { if (GETPOSTISSET('modify_apilayer')) { dolibarr_set_const($db, 'MULTICURRENCY_APP_ID', GETPOST('MULTICURRENCY_APP_ID', 'alpha')); dolibarr_set_const($db, 'MULTICURRENCY_APP_SOURCE', GETPOST('MULTICURRENCY_APP_SOURCE', 'alpha')); //dolibarr_set_const($db, 'MULTICURRENCY_ALTERNATE_SOURCE', GETPOST('MULTICURRENCY_ALTERNATE_SOURCE', 'alpha')); } else { $multiurrency = new MultiCurrency($db); $result = $multiurrency->syncRates(getDolGlobalString('MULTICURRENCY_APP_ID')); if ($result > 0) { setEventMessages($langs->trans("CurrencyRateSyncSucceed"), null, "mesgs"); } } } $TAvailableCurrency = array(); $sql = "SELECT code_iso, label, unicode, active FROM ".MAIN_DB_PREFIX."c_currencies"; $resql = $db->query($sql); if ($resql) { while ($obj = $db->fetch_object($resql)) { $TAvailableCurrency[$obj->code_iso] = array('code'=>$obj->code_iso, 'active'=>$obj->active); } } $TCurrency = array(); $sql = "SELECT rowid FROM ".MAIN_DB_PREFIX."multicurrency WHERE entity = ".((int) $conf->entity); $resql = $db->query($sql); if ($resql) { while ($obj = $db->fetch_object($resql)) { $currency = new MultiCurrency($db); $currency->fetch($obj->rowid); $TCurrency[] = $currency; } } /* * View */ $form = new Form($db); $page_name = "MultiCurrencySetup"; $help_url = ''; llxHeader('', $langs->trans($page_name), $help_url, '', 0, 0, '', '', '', 'mod-admin page-multicurrency'); // Subheader $linkback = ''.$langs->trans("BackToModuleList").''; print load_fiche_titre($langs->trans($page_name), $linkback); // Configuration header $head = multicurrencyAdminPrepareHead(); print dol_get_fiche_head($head, 'settings', $langs->trans($page_name), -1, "multicurrency"); print '
'; print ''; print ''; print ''."\n"; print ''."\n"; print ''; print ''; print ''; print ''; print ''; print ''; print ''; // Online payment with currency on document. This option should be on by default. if (getDolGlobalInt('MAIN_FEATURES_LEVEL') >= 2) { print ''; print ''; print ''; } /* TODO uncomment when the functionality will integrated print ''; print ''; print ''; */ /* TODO uncomment when the functionality will integrated print ''; print ''; print ''; */ print '
'.$langs->trans("Parameters").''.$langs->trans("Status").'
'.$langs->transnoentitiesnoconv("MULTICURRENCY_USE_RATE_ON_DOCUMENT_DATE").''; if ($conf->use_javascript_ajax) { print ajax_constantonoff('MULTICURRENCY_USE_RATE_ON_DOCUMENT_DATE'); } else { $arrval = array('0' => $langs->trans("No"), '1' => $langs->trans("Yes")); print $form->selectarray("MULTICURRENCY_USE_RATE_ON_DOCUMENT_DATE", $arrval, $conf->global->MULTICURRENCY_USE_RATE_ON_DOCUMENT_DATE); } print '
'.$langs->transnoentitiesnoconv("multicurrency_useOriginTx").''; if ($conf->use_javascript_ajax) { print ajax_constantonoff('MULTICURRENCY_USE_ORIGIN_TX', null, null, 0, 0, 0, 2, 0, 1); } else { $arrval = array('0' => $langs->trans("No"), '1' => $langs->trans("Yes")); print $form->selectarray("MULTICURRENCY_USE_ORIGIN_TX", $arrval, $conf->global->MULTICURRENCY_USE_ORIGIN_TX); } print '
'.$langs->transnoentitiesnoconv("MULTICURRENCY_USE_CURRENCY_ON_DOCUMENT").''; if ($conf->use_javascript_ajax) { print ajax_constantonoff('MULTICURRENCY_USE_CURRENCY_ON_DOCUMENT'); } else { $arrval = array('0' => $langs->trans("No"), '1' => $langs->trans("Yes")); print $form->selectarray("MULTICURRENCY_USE_CURRENCY_ON_DOCUMENT", $arrval, $conf->global->MULTICURRENCY_USE_CURRENCY_ON_DOCUMENT); } print '
'.$langs->transnoentitiesnoconv("multicurrency_buyPriceInCurrency").''; print '
'; print ''; print ''; print $form->selectyesno("MULTICURRENCY_BUY_PRICE_IN_CURRENCY",$conf->global->MULTICURRENCY_BUY_PRICE_IN_CURRENCY,1); print ''; print '
'; print '
'.$langs->transnoentitiesnoconv("multicurrency_modifyRateApplication").''; print '
'; print ''; print ''; print $form->selectarray('MULTICURRENCY_MODIFY_RATE_APPLICATION', array('PU_DOLIBARR' => 'PU_DOLIBARR', 'PU_CURRENCY' => 'PU_CURRENCY'), $conf->global->MULTICURRENCY_MODIFY_RATE_APPLICATION); print ''; print '
'; print '
'; print '
'; print '
'; print ''; print ''; print ''."\n"; print ''."\n"; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; // Main currency print ''; print ''; print ''; print ''; foreach ($TCurrency as &$currency) { if ($currency->code == $conf->currency) { continue; } print ''; print ''; print ''; } print '
'.$form->textwithpicto($langs->trans("CurrenciesUsed"), $langs->transnoentitiesnoconv("CurrenciesUsed_help_to_add")).''.$langs->trans("Rate").' / '.$langs->getCurrencySymbol($conf->currency).'
'.$form->selectCurrency('', 'code', 1, '1').''; print ' '; print ''; print '
'.$conf->currency; print ' ('.$langs->getCurrencySymbol($conf->currency).')'; print $form->textwithpicto(' ', $langs->trans("BaseCurrency")); if (!empty($TAvailableCurrency[$conf->currency]) && empty($TAvailableCurrency[$conf->currency]['active'])) { print img_warning('Warning: This code has been disabled into Home - Setup - Dictionaries - Currencies'); } print '1
'.$currency->code.' - '.$currency->name; if (!empty($TAvailableCurrency[$currency->code]) && empty($TAvailableCurrency[$currency->code]['active'])) { print img_warning('Warning: The code '.$currency->code.' has been disabled into Home - Setup - Dictionaries - Currencies'); } print ''; print '
'; print ''; print ''; print ''; print '1 '.$conf->currency.' = '; print ' '.$currency->code.' '; print ' '; print ''; print '
'; print '
'; print '
'; print ' '; print '
'; if (!getDolGlobalString('MULTICURRENCY_DISABLE_SYNC_CURRENCYLAYER')) { print '
'; print ''; print ''; print '
'; print ''; $urlforapilayer = 'https://currencylayer.com'; //https://apilayer.net print ''; print ''."\n"; print ''; print ''; print ''; print ''; print ''; print ''; print ''; /*print ''; print ''; print '';*/ print '
'.$form->textwithpicto($langs->trans("CurrencyLayerAccount"), $langs->trans("CurrencyLayerAccount_help_to_synchronize", $urlforapilayer)).''; print ''; print ''; print ''; print '
'.$langs->transnoentitiesnoconv("multicurrency_appId").''; print ' '; print '
'.$langs->transnoentitiesnoconv("multicurrency_appCurrencySource").''; print ' '; // Default: USD print '
'.$langs->transnoentitiesnoconv("multicurrency_alternateCurrencySource").''; print ' '; // Example: EUR print '
'; print '
'; print '
'; print '
'; } // End of page llxFooter(); $db->close();