27require
'../../main.inc.php';
28require_once DOL_DOCUMENT_ROOT.
'/core/lib/admin.lib.php';
29require_once DOL_DOCUMENT_ROOT.
'/core/lib/accounting.lib.php';
30require_once DOL_DOCUMENT_ROOT.
'/core/class/html.formaccounting.class.php';
33$langs->loadLangs(array(
"compta",
"admin",
"accountancy"));
36if (!$user->hasRight(
'accounting',
'chartofaccount')) {
40$action =
GETPOST(
'action',
'aZ09');
43$list_account_main = array(
44 'ACCOUNTING_RESULT_PROFIT',
45 'ACCOUNTING_RESULT_LOSS'
52if ($action ==
'update') {
55 $defaultjournal =
GETPOST(
'ACCOUNTING_CLOSURE_DEFAULT_JOURNAL',
'alpha');
57 if (!empty($defaultjournal)) {
58 if (!
dolibarr_set_const($db,
'ACCOUNTING_CLOSURE_DEFAULT_JOURNAL', $defaultjournal,
'chaine', 0,
'', $conf->entity)) {
65 $accountinggroupsusedforbalancesheetaccount =
GETPOST(
'ACCOUNTING_CLOSURE_ACCOUNTING_GROUPS_USED_FOR_BALANCE_SHEET_ACCOUNT',
'alphanohtml');
66 if (!empty($accountinggroupsusedforbalancesheetaccount)) {
67 if (!
dolibarr_set_const($db,
'ACCOUNTING_CLOSURE_ACCOUNTING_GROUPS_USED_FOR_BALANCE_SHEET_ACCOUNT', $accountinggroupsusedforbalancesheetaccount,
'chaine', 0,
'', $conf->entity)) {
74 $accountinggroupsusedforincomestatement =
GETPOST(
'ACCOUNTING_CLOSURE_ACCOUNTING_GROUPS_USED_FOR_INCOME_STATEMENT',
'alpha');
75 if (!empty($accountinggroupsusedforincomestatement)) {
76 if (!
dolibarr_set_const($db,
'ACCOUNTING_CLOSURE_ACCOUNTING_GROUPS_USED_FOR_INCOME_STATEMENT', $accountinggroupsusedforincomestatement,
'chaine', 0,
'', $conf->entity)) {
83 foreach ($list_account_main as $constname) {
84 $constvalue =
GETPOST($constname,
'alpha');
85 if (!
dolibarr_set_const($db, $constname, $constvalue,
'chaine', 0,
'', $conf->entity)) {
102$form =
new Form($db);
105$title = $langs->trans(
'Closure');
107$help_url =
'EN:Module_Double_Entry_Accounting#Setup|FR:Module_Comptabilité_en_Partie_Double#Configuration';
112print
load_fiche_titre($langs->trans(
'MenuClosureAccounts'), $linkback,
'title_accountancy');
114print
'<span class="opacitymedium">'.$langs->trans(
"DefaultClosureDesc").
'</span><br>';
117print
'<form action="'.$_SERVER[
"PHP_SELF"].
'" method="post">';
118print
'<input type="hidden" name="token" value="'.newToken().
'">';
119print
'<input type="hidden" name="action" value="update">';
122print
'<table class="noborder centpercent">';
124foreach ($list_account_main as $key) {
125 print
'<tr class="oddeven value">';
127 $label = $langs->trans($key);
128 $keydesc = $key.
'_Desc';
130 $htmltext = $langs->trans($keydesc);
131 print
'<td class="fieldrequired" width="50%">';
132 print $form->textwithpicto($label, $htmltext);
136 print $formaccounting->select_account(
getDolGlobalString($key), $key, 1, array(), 1, 1);
142print
'<tr class="oddeven">';
143print
'<td class="fieldrequired">'.$langs->trans(
"ACCOUNTING_CLOSURE_DEFAULT_JOURNAL").
'</td>';
146print $formaccounting->select_journal($defaultjournal,
"ACCOUNTING_CLOSURE_DEFAULT_JOURNAL", 9, 1, 0, 0);
150print
'<tr class="oddeven">';
151print
'<td class="fieldrequired">'.$langs->trans(
"ACCOUNTING_CLOSURE_ACCOUNTING_GROUPS_USED_FOR_BALANCE_SHEET_ACCOUNT").
'</td>';
153print
'<input type="text" size="100" id="ACCOUNTING_CLOSURE_ACCOUNTING_GROUPS_USED_FOR_BALANCE_SHEET_ACCOUNT" name="ACCOUNTING_CLOSURE_ACCOUNTING_GROUPS_USED_FOR_BALANCE_SHEET_ACCOUNT" value="' .
dol_escape_htmltag(
getDolGlobalString(
'ACCOUNTING_CLOSURE_ACCOUNTING_GROUPS_USED_FOR_BALANCE_SHEET_ACCOUNT')).
'">';
157print
'<tr class="oddeven">';
158print
'<td class="fieldrequired">'.$langs->trans(
"ACCOUNTING_CLOSURE_ACCOUNTING_GROUPS_USED_FOR_INCOME_STATEMENT").
'</td>';
160print
'<input type="text" size="100" id="ACCOUNTING_CLOSURE_ACCOUNTING_GROUPS_USED_FOR_INCOME_STATEMENT" name="ACCOUNTING_CLOSURE_ACCOUNTING_GROUPS_USED_FOR_INCOME_STATEMENT" value="' .
dol_escape_htmltag(
getDolGlobalString(
'ACCOUNTING_CLOSURE_ACCOUNTING_GROUPS_USED_FOR_INCOME_STATEMENT')).
'">';
165print
'<div class="center"><input type="submit" class="button button-edit" name="button" value="'.$langs->trans(
'Save').
'"></div>';
dolibarr_set_const($db, $name, $value, $type='chaine', $visible=0, $note='', $entity=1)
Insert a parameter (key,value) into database (delete old key then insert it again).
if(!defined('NOREQUIRESOC')) if(!defined( 'NOREQUIRETRAN')) if(!defined('NOTOKENRENEWAL')) if(!defined( 'NOREQUIREMENU')) if(!defined('NOREQUIREHTML')) if(!defined( 'NOREQUIREAJAX')) llxHeader()
Empty header.
load_fiche_titre($title, $morehtmlright='', $picto='generic', $pictoisfullpath=0, $id='', $morecssontable='', $morehtmlcenter='')
Load a title with picto.
GETPOST($paramname, $check='alphanohtml', $method=0, $filter=null, $options=null, $noreplace=0)
Return value of a param into GET or POST supervariable.
setEventMessages($mesg, $mesgs, $style='mesgs', $messagekey='', $noduplicate=0)
Set event messages in dol_events session object.
getDolGlobalString($key, $default='')
Return dolibarr global constant string value.
dol_escape_htmltag($stringtoescape, $keepb=0, $keepn=0, $noescapetags='', $escapeonlyhtmltags=0, $cleanalsojavascript=0)
Returns text escaped for inclusion in HTML alt or title or value tags, or into values of HTML input f...
accessforbidden($message='', $printheader=1, $printfooter=1, $showonlymessage=0, $params=null)
Show a message to say access is forbidden and stop program.