* Copyright (C) 2013-2017 Alexandre Spangaro * Copyright (C) 2014 Florian Henry * Copyright (C) 2014 Marcos García * Copyright (C) 2014 Juanjo Menent * Copyright (C) 2015 Jean-François Ferry * Copyright (C) 2016 Laurent Destailleur * * 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 htdocs/accountancy/admin/journal.php * \ingroup Advanced accountancy * \brief Setup page to configure accounting expert module */ require '../../main.inc.php'; // Class require_once DOL_DOCUMENT_ROOT . '/core/lib/admin.lib.php'; require_once DOL_DOCUMENT_ROOT . '/core/lib/accounting.lib.php'; require_once DOL_DOCUMENT_ROOT . '/core/lib/bank.lib.php'; require_once DOL_DOCUMENT_ROOT . '/compta/bank/class/account.class.php'; $langs->load("compta"); $langs->load("bills"); $langs->load("admin"); $langs->load("accountancy"); $langs->load("salaries"); // Security check if (empty($user->admin) || ! empty($user->rights->accountancy->chartofaccount)) { accessforbidden(); } $action = GETPOST('action', 'alpha'); // Other parameters ACCOUNTING_* $list = array ( 'ACCOUNTING_SELL_JOURNAL', 'ACCOUNTING_PURCHASE_JOURNAL', 'ACCOUNTING_SOCIAL_JOURNAL', 'ACCOUNTING_MISCELLANEOUS_JOURNAL', 'ACCOUNTING_EXPENSEREPORT_JOURNAL' ); /* * Actions */ if ($action == 'update') { $error = 0; // Save vars foreach ($list as $constname) { $constvalue = GETPOST($constname, 'alpha'); if (! dolibarr_set_const($db, $constname, $constvalue, 'chaine', 0, '', $conf->entity)) { $error ++; } } // Save bank account journals $arrayofbankaccount = GETPOST('bank_account', 'array'); foreach($arrayofbankaccount as $key => $code) { $bankaccount = new Account($db); $res = $bankaccount->fetch($key); if ($res > 0) { $bankaccount->accountancy_journal = $code; $bankaccount->update($user); } else { $error++; break; } } if (! $error) { setEventMessages($langs->trans("SetupSaved"), null, 'mesgs'); } else { setEventMessages($langs->trans("Error"), null, 'errors'); } } /* * View */ llxHeader(); $form = new Form($db); $linkback = '' . $langs->trans("BackToModuleList") . ''; print load_fiche_titre($langs->trans('ConfigAccountingExpert'), $linkback, 'title_setup'); $head = admin_accounting_prepare_head(null); print '

'; print ''; print ''; dol_fiche_head($head, 'journal', $langs->trans("Configuration"), 0, 'cron'); print ''; print ''; print ''; print "\n"; foreach ( $list as $key ) { print ''; // Param $label = $langs->trans($key); print ''; // Value print ''; } print "

' . $langs->trans('Journaux') . '
' . $label . '	'; print ''; print '

\n"; print '
'; print ''; print ''; print ''; print "\n"; // Bank account $sql = "SELECT rowid, ref, label, number, account_number, accountancy_journal"; $sql .= " FROM " . MAIN_DB_PREFIX . "bank_account"; $sql .= " WHERE entity = " . $conf->entity; $sql .= " AND clos = 0"; $sql .= " ORDER BY label"; $resql = $db->query($sql); if ($resql) { $numr = $db->num_rows($resql); $i = 0; if ($numr > 0) $bankaccountstatic = new Account($db); while ( $i < $numr ) { $objp = $db->fetch_object($resql); $bankaccountstatic->rowid = $objp->rowid; $bankaccountstatic->id = $objp->rowid; $bankaccountstatic->ref = $objp->ref; $bankaccountstatic->label = $objp->label; $bankaccountstatic->number = $objp->number; $bankaccountstatic->account_number = $objp->account_number; $bankaccountstatic->accountancy_journal = $objp->accountancy_journal; print ''; // Param print ''; // Value print ''; $i ++; } $db->free($resql); } else { dol_print_error($db); } print "

' . $langs->trans('JournalFinancial') . ' ('.$langs->trans('Opened').')
' . $langs->trans("Journal"); print ' - '.$bankaccountstatic->getNomUrl(1); print '	'; print ''; print '

\n"; dol_fiche_end(); print '

'; print '

'; llxFooter(); $db->close();