* 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) { accessforbidden(); } // Parameters $action = GETPOST('action', 'alpha'); /* * Actions */ if (preg_match('/set_([a-z0-9_\-]+)/i',$action,$reg)) { $code=$reg[1]; $value=(GETPOST($code, 'alpha') ? GETPOST($code, 'alpha') : 1); if (dolibarr_set_const($db, $code, $value, 'chaine', 0, '', $conf->entity) > 0) { header("Location: ".$_SERVER["PHP_SELF"]); exit; } else { dol_print_error($db); } } if (preg_match('/del_([a-z0-9_\-]+)/i',$action,$reg)) { $code=$reg[1]; if (dolibarr_del_const($db, $code, 0) > 0) { header("Location: ".$_SERVER["PHP_SELF"]); exit; } else { dol_print_error($db); } } 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($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; $submit = GETPOST('submit', 'alpha'); if ($submit == $langs->trans('Modify')) { $fk_multicurrency = GETPOST('fk_multicurrency', 'int'); $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) { $currency->updateRate($rate); } } } elseif ($submit == $langs->trans('Delete')) { $fk_multicurrency = GETPOST('fk_multicurrency', 'int'); $currency = new MultiCurrency($db); if ($currency->fetch($fk_multicurrency) > 0) { if ($currency->delete() > 0) setEventMessages($langs->trans('RecordDeleted'), array()); else setEventMessages($langs->trans('ErrorDeleteCurrencyFail'), array(), 'errors'); } } } elseif ($action == 'synchronize') { MultiCurrency::syncRates($conf->global->MULTICURRENCY_APP_ID); } $TCurrency = array(); $sql = 'SELECT rowid FROM '.MAIN_DB_PREFIX.'multicurrency WHERE entity = '.$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"; llxHeader('', $langs->trans($page_name)); // Subheader $linkback = '' . $langs->trans("BackToModuleList") . ''; print load_fiche_titre($langs->trans($page_name), $linkback); // Configuration header $head = multicurrencyAdminPrepareHead(); dol_fiche_head($head, 'settings', $langs->trans("ModuleSetup"), -1, "multicurrency"); print ''; print ''; print ''."\n"; print ''."\n"; print ''; print ''; print ''; print ''; 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("Value").'
'.$langs->transnoentitiesnoconv("MULTICURRENCY_USE_RATE_ON_DOCUMENT_DATE").''; print '
'; print ''; print ''; print $form->selectyesno("MULTICURRENCY_USE_RATE_ON_DOCUMENT_DATE",$conf->global->MULTICURRENCY_USE_RATE_ON_DOCUMENT_DATE,1); print ''; print '
'; print '
'.$langs->transnoentitiesnoconv("multicurrency_useOriginTx").''; print '
'; print ''; print ''; print $form->selectyesno("MULTICURRENCY_USE_ORIGIN_TX",$conf->global->MULTICURRENCY_USE_ORIGIN_TX,1); print ''; print '
'; 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 '
'; if (!empty($conf->global->MAIN_MULTICURRENCY_ALLOW_SYNCHRONIZATION)) { print '
'; print ''; 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")).''; print '
'; print ''; print ''; print $langs->trans("Value").' '; print '
'; print '
'.$langs->transnoentitiesnoconv("multicurrency_appId").''; print '
'; print ''; print ''; print ' '; print ''; print '
'; print '
'.$langs->transnoentitiesnoconv("multicurrency_appCurrencySource").''; print '
'; print ''; print ''; print ' '; // Default: USD print ''; print '
'; print '
'.$langs->transnoentitiesnoconv("multicurrency_alternateCurrencySource").''; print '
'; print ''; print ''; print ' '; // Example: EUR print ''; print '
'; print '
'; print '
'; print '
'; } print '
'; print ''; print ''; print ''."\n"; print ''."\n"; print ''; print ''; print ''; print ''; print ''; print ''; print ''; 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").'
'.$form->selectCurrency('', 'code').''; print ''; print ''; print ' '; print ''; print '
'.$conf->currency.$form->textwithpicto(' ', $langs->trans("BaseCurrency")).'1
'.$currency->code.' - '.$currency->name.''; print '
'; print ''; print ''; print ''; print '1 '.$conf->currency.' = '; print ' '.$currency->code.' '; print ' '; print ''; print '
'; print '
'; print '
'; print ' '; // End of page llxFooter(); $db->close();