?iť?
Current Path : /home/scgforma/www/soc064/htdocs/core/lib/ |
Current File : /home/scgforma/www/soc064/htdocs/core/lib/accounting.lib.php |
<?php /* Copyright (C) 2013-2014 Olivier Geffroy <jeff@jeffinfo.com> * Copyright (C) 2013-2017 Alexandre Spangaro <aspangaro@open-dsi.fr> * Copyright (C) 2014 Florian Henry <florian.henry@open-concept.pro> * Copyright (C) 2019 Eric Seigne <eric.seigne@cap-rel.fr> * * 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 <http://www.gnu.org/licenses/>. */ /** * \file htdocs/core/lib/accounting.lib.php * \ingroup Accountancy (Double entries) * \brief Library of accountancy functions */ /** * Check if a value is empty with some options * * @author Michael - https://www.php.net/manual/fr/function.empty.php#90767 * @param mixed $var Value to test * @param int|null $allow_false Setting this to true will make the function consider a boolean value of false as NOT empty. This parameter is false by default. * @param int|null $allow_ws Setting this to true will make the function consider a string with nothing but white space as NOT empty. This parameter is false by default. * @return boolean True of False */ function is_empty($var, $allow_false = false, $allow_ws = false) { if (!isset($var) || is_null($var) || ($allow_ws == false && trim($var) == "" && !is_bool($var)) || ($allow_false === false && is_bool($var) && $var === false) || (is_array($var) && empty($var))) { return true; } return false; } /** * Prepare array with list of tabs * * @param AccountingAccount $object Accounting account * @return array Array of tabs to show */ function accounting_prepare_head(AccountingAccount $object) { global $langs, $conf; $h = 0; $head = array (); $head[$h][0] = DOL_URL_ROOT.'/accountancy/admin/card.php?id=' . $object->id; $head[$h][1] = $langs->trans("Card"); $head[$h][2] = 'card'; $h ++; // Show more tabs from modules // Entries must be declared in modules descriptor with line // $this->tabs = array('entity:+tabname:Title:@mymodule:/mymodule/mypage.php?id=__ID__'); to add new tab // $this->tabs = array('entity:-tabname); to remove a tab complete_head_from_modules($conf, $langs, $object, $head, $h, 'accounting_account'); complete_head_from_modules($conf, $langs, $object, $head, $h, 'accounting_account', 'remove'); return $head; } /** * Return accounting account without zero on the right * * @param string $account Accounting account * @return string String without zero on the right */ function clean_account($account) { $account = rtrim($account, "0"); return $account; } /** * Return General accounting account with defined length (used for product and miscellaneous) * * @param string $account General accounting account * @return string String with defined length */ function length_accountg($account) { global $conf; if ($account < 0 || is_empty($account)) return ''; if (! is_empty($conf->global->ACCOUNTING_MANAGE_ZERO)) return $account; $g = $conf->global->ACCOUNTING_LENGTH_GACCOUNT; if (! is_empty($g)) { // Clean parameters $i = strlen($account); if ($i >= 1) { while ( $i < $g ) { $account .= '0'; $i ++; } return $account; } else { return $account; } } else { return $account; } } /** * Return Auxiliary accounting account of thirdparties with defined length * * @param string $accounta Auxiliary accounting account * @return string String with defined length */ function length_accounta($accounta) { global $conf; if ($accounta < 0 || is_empty($accounta)) return ''; if (! is_empty($conf->global->ACCOUNTING_MANAGE_ZERO)) return $accounta; $a = $conf->global->ACCOUNTING_LENGTH_AACCOUNT; if (! is_empty($a)) { // Clean parameters $i = strlen($accounta); if ($i >= 1) { while ( $i < $a ) { $accounta .= '0'; $i ++; } return $accounta; } else { return $accounta; } } else { return $accounta; } } /** * Show header of a VAT report * * @param string $nom Name of report * @param string $variante Link for alternate report * @param string $period Period of report * @param string $periodlink Link to switch period * @param string $description Description * @param integer $builddate Date of generation * @param string $exportlink Link for export or '' * @param array $moreparam Array with list of params to add into form * @param string $calcmode Calculation mode * @param string $varlink Add a variable into the address of the page * @return void */ function journalHead($nom, $variante, $period, $periodlink, $description, $builddate, $exportlink = '', $moreparam = array(), $calcmode = '', $varlink = '') { global $langs; print "\n\n<!-- start banner journal -->\n"; if(! is_empty($varlink)) $varlink = '?'.$varlink; $head=array(); $h=0; $head[$h][0] = $_SERVER["PHP_SELF"].$varlink; $head[$h][1] = $langs->trans("Journalization"); $head[$h][2] = 'journal'; print '<form method="POST" action="'.$_SERVER["PHP_SELF"].$varlink.'">'; print '<input type="hidden" name="token" value="'.$_SESSION['newtoken'].'">'; dol_fiche_head($head, 'journal'); foreach($moreparam as $key => $value) { print '<input type="hidden" name="'.$key.'" value="'.$value.'">'; } print '<table width="100%" class="border">'; // Ligne de titre print '<tr>'; print '<td width="110">'.$langs->trans("Name").'</td>'; print '<td colspan="3">'; print $nom; print '</td>'; print '</tr>'; // Calculation mode if ($calcmode) { print '<tr>'; print '<td width="110">'.$langs->trans("CalculationMode").'</td>'; if (! $variante) print '<td colspan="3">'; else print '<td>'; print $calcmode; if ($variante) print '</td><td colspan="2">'.$variante; print '</td>'; print '</tr>'; } // Ligne de la periode d'analyse du rapport print '<tr>'; print '<td>'.$langs->trans("ReportPeriod").'</td>'; if (! $periodlink) print '<td colspan="3">'; else print '<td>'; if ($period) print $period; if ($periodlink) print '</td><td colspan="2">'.$periodlink; print '</td>'; print '</tr>'; // Ligne de description print '<tr>'; print '<td>'.$langs->trans("ReportDescription").'</td>'; print '<td colspan="3">'.$description.'</td>'; print '</tr>'; print '</table>'; dol_fiche_end(); print '<div class="center"><input type="submit" class="button" name="submit" value="'.$langs->trans("Refresh").'"></div>'; print '</form>'; print "\n<!-- end banner journal -->\n\n"; }