25 if (!defined(
'CSRFCHECK_WITH_TOKEN')) {
26 define(
'CSRFCHECK_WITH_TOKEN',
'1');
29 require
'../../main.inc.php';
30 require_once DOL_DOCUMENT_ROOT.
'/core/class/html.formadmin.class.php';
31 require_once DOL_DOCUMENT_ROOT.
'/core/class/html.formcompany.class.php';
32 require_once DOL_DOCUMENT_ROOT.
'/core/lib/admin.lib.php';
33 require_once DOL_DOCUMENT_ROOT.
'/core/lib/functions2.lib.php';
34 require_once DOL_DOCUMENT_ROOT.
'/core/class/doleditor.class.php';
35 require_once DOL_DOCUMENT_ROOT.
'/core/lib/accounting.lib.php';
36 require_once DOL_DOCUMENT_ROOT.
'/accountancy/class/accountingjournal.class.php';
39 $langs->loadLangs(array(
"admin",
"compta",
"accountancy"));
41 $action =
GETPOST(
'action',
'aZ09') ?
GETPOST(
'action',
'aZ09') :
'view';
42 $confirm =
GETPOST(
'confirm',
'alpha');
44 $rowid =
GETPOST(
'rowid',
'alpha');
45 $code =
GETPOST(
'code',
'alpha');
48 if (empty($user->rights->accounting->chartofaccount)) {
52 $acts[0] =
"activate";
54 $actl[0] =
img_picto($langs->trans(
"Disabled"),
'switch_off',
'class="size15x"');
55 $actl[1] =
img_picto($langs->trans(
"Activated"),
'switch_on',
'class="size15x"');
57 $listoffset =
GETPOST(
'listoffset',
'alpha');
58 $listlimit =
GETPOST(
'listlimit',
'int') > 0 ?
GETPOST(
'listlimit',
'int') : 1000;
61 $sortfield =
GETPOST(
'sortfield',
'aZ09comma');
62 $sortorder =
GETPOST(
'sortorder',
'aZ09comma');
64 if (empty($page) || $page == -1) {
67 $offset = $listlimit * $page;
68 $pageprev = $page - 1;
69 $pagenext = $page + 1;
70 if (empty($sortfield)) {
73 if (empty($sortorder)) {
79 $search_country_id =
GETPOST(
'search_country_id',
'int');
82 $hookmanager->initHooks(array(
'admin'));
88 $taborder = array(35);
92 $tabname[35] = MAIN_DB_PREFIX.
"accounting_journal";
96 $tablib[35] =
"DictionaryAccountancyJournal";
100 $tabsql[35] =
"SELECT a.rowid as rowid, a.code as code, a.label, a.nature, a.active FROM ".MAIN_DB_PREFIX.
"accounting_journal as a";
103 $tabsqlsort = array();
104 $tabsqlsort[35] =
"code ASC";
108 $tabfield[35] =
"code,label,nature";
111 $tabfieldvalue = array();
112 $tabfieldvalue[35] =
"code,label,nature";
115 $tabfieldinsert = array();
116 $tabfieldinsert[35] =
"code,label,nature";
130 $tabhelp[35] = array(
'code'=>$langs->trans(
"EnterAnyCode"));
133 $tabfieldcheck = array();
134 $tabfieldcheck[35] = array();
137 complete_dictionary_with_modules($taborder, $tabname, $tablib, $tabsql, $tabsqlsort, $tabfield, $tabfieldvalue, $tabfieldinsert, $tabrowid, $tabcond, $tabhelp, $tabfieldcheck);
141 $elementList = array();
144 '1' => $langs->trans(
'AccountingJournalType1'),
145 '2' => $langs->trans(
'AccountingJournalType2'),
146 '3' => $langs->trans(
'AccountingJournalType3'),
147 '4' => $langs->trans(
'AccountingJournalType4'),
148 '5' => $langs->trans(
'AccountingJournalType5'),
149 '8' => $langs->trans(
'AccountingJournalType8'),
150 '9' => $langs->trans(
'AccountingJournalType9'),
157 if (
GETPOST(
'button_removefilter',
'alpha') ||
GETPOST(
'button_removefilter.x',
'alpha') ||
GETPOST(
'button_removefilter_x',
'alpha')) {
158 $search_country_id =
'';
162 if (
GETPOST(
'actionadd',
'alpha') ||
GETPOST(
'actionmodify',
'alpha')) {
163 $listfield = explode(
',', str_replace(
' ',
'', $tabfield[$id]));
164 $listfieldinsert = explode(
',', $tabfieldinsert[$id]);
165 $listfieldmodify = explode(
',', $tabfieldinsert[$id]);
166 $listfieldvalue = explode(
',', $tabfieldvalue[$id]);
175 setEventMessages($langs->transnoentities(
'ErrorCodeCantContainZero'),
null,
'errors');
178 if (!
GETPOST(
'label',
'alpha')) {
179 setEventMessages($langs->transnoentities(
"ErrorFieldRequired", $langs->transnoentitiesnoconv(
"Label")),
null,
'errors');
184 if ($ok &&
GETPOST(
'actionadd',
'alpha')) {
185 if ($tabrowid[$id]) {
188 $sql =
"SELECT max(".$tabrowid[$id].
") newid from ".$tabname[$id];
189 $result = $db->query($sql);
191 $obj = $db->fetch_object($result);
192 $newid = ($obj->newid + 1);
199 $sql =
"INSERT INTO ".$tabname[$id].
" (";
201 if ($tabrowid[$id] && !in_array($tabrowid[$id], $listfieldinsert)) {
202 $sql .= $tabrowid[$id].
",";
204 $sql .= $tabfieldinsert[$id];
205 $sql .=
",active,entity)";
209 if ($tabrowid[$id] && !in_array($tabrowid[$id], $listfieldinsert)) {
213 foreach ($listfieldinsert as $f => $value) {
217 if (
GETPOST($listfieldvalue[$i]) ==
'') {
220 $sql .=
"'".$db->escape(
GETPOST($listfieldvalue[$i])).
"'";
224 $sql .=
",1,".$conf->entity.
")";
227 $result = $db->query($sql);
230 $_POST = array(
'id'=>$id);
232 if ($db->errno() ==
'DB_ERROR_RECORD_ALREADY_EXISTS') {
233 setEventMessages($langs->transnoentities(
"ErrorRecordAlreadyExists"),
null,
'errors');
241 if ($ok &&
GETPOST(
'actionmodify',
'alpha')) {
242 if ($tabrowid[$id]) {
243 $rowidcol = $tabrowid[$id];
249 $sql =
"UPDATE ".$tabname[$id].
" SET ";
251 if ($tabrowid[$id] && !in_array($tabrowid[$id], $listfieldmodify)) {
252 $sql .= $tabrowid[$id].
"=";
253 $sql .=
"'".$db->escape($rowid).
"', ";
256 foreach ($listfieldmodify as $field) {
260 $sql .= $field.
" = ";
261 $sql .=
"'".$db->escape(
GETPOST($listfieldvalue[$i])).
"'";
264 $sql .=
" WHERE ".$rowidcol.
" = ".((int) $rowid);
265 $sql .=
" AND entity = ".((int) $conf->entity);
269 $resql = $db->query($sql);
282 if ($action ==
'confirm_delete' && $confirm ==
'yes') {
283 if ($tabrowid[$id]) {
284 $rowidcol = $tabrowid[$id];
289 $sql =
"DELETE from ".$tabname[$id].
" WHERE ".$rowidcol.
" = ".((int) $rowid);
290 $sql .=
" AND entity = ".((int) $conf->entity);
293 $result = $db->query($sql);
295 if ($db->errno() ==
'DB_ERROR_CHILD_EXISTS') {
296 setEventMessages($langs->transnoentities(
"ErrorRecordIsUsedByChild"),
null,
'errors');
304 if ($action == $acts[0]) {
305 if ($tabrowid[$id]) {
306 $rowidcol = $tabrowid[$id];
312 $sql =
"UPDATE ".$tabname[$id].
" SET active = 1 WHERE ".$rowidcol.
" = ".((int) $rowid);
314 $sql =
"UPDATE ".$tabname[$id].
" SET active = 1 WHERE code='".$db->escape($code).
"'";
316 $sql .=
" AND entity = ".$conf->entity;
318 $result = $db->query($sql);
325 if ($action == $acts[1]) {
326 if ($tabrowid[$id]) {
327 $rowidcol = $tabrowid[$id];
333 $sql =
"UPDATE ".$tabname[$id].
" SET active = 0 WHERE ".$rowidcol.
" = ".((int) $rowid);
335 $sql =
"UPDATE ".$tabname[$id].
" SET active = 0 WHERE code='".$db->escape($code).
"'";
337 $sql .=
" AND entity = ".$conf->entity;
339 $result = $db->query($sql);
355 $titre = $langs->trans(
"DictionarySetup");
358 $titre .=
' - '.$langs->trans($tablib[$id]);
359 $titlepicto =
'title_accountancy';
366 if ($action ==
'delete') {
367 print
$form->formconfirm($_SERVER[
"PHP_SELF"].
'?'.($page ?
'page='.$page.
'&' :
'').
'sortfield='.$sortfield.
'&sortorder='.$sortorder.
'&rowid='.$rowid.
'&code='.$code.
'&id='.$id, $langs->trans(
'DeleteLine'), $langs->trans(
'ConfirmDeleteLine'),
'confirm_delete',
'', 0, 1);
377 $sql .=
" WHERE a.entity = ".((int) $conf->entity);
380 if ($sortfield ==
'country') {
381 $sortfield =
'country_code';
383 $sql .= $db->order($sortfield, $sortorder);
384 $sql .= $db->plimit($listlimit + 1, $offset);
386 $fieldlist = explode(
',', $tabfield[$id]);
388 print
'<form action="'.$_SERVER[
'PHP_SELF'].
'?id='.$id.
'" method="POST">';
389 print
'<input type="hidden" name="token" value="'.newToken().
'">';
390 print
'<input type="hidden" name="from" value="'.dol_escape_htmltag(
GETPOST(
'from',
'alpha')).
'">';
392 print
'<div class="div-table-responsive">';
393 print
'<table class="noborder centpercent">';
397 $fieldlist = explode(
',', $tabfield[$id]);
400 print
'<tr class="liste_titre">';
401 foreach ($fieldlist as $field => $value) {
404 $valuetoshow = ucfirst($fieldlist[$field]);
405 $valuetoshow = $langs->trans($valuetoshow);
407 if ($fieldlist[$field] ==
'code') {
408 $valuetoshow = $langs->trans(
"Code");
410 if ($fieldlist[$field] ==
'libelle' || $fieldlist[$field] ==
'label') {
411 $valuetoshow = $langs->trans(
"Label");
413 if ($fieldlist[$field] ==
'nature') {
414 $valuetoshow = $langs->trans(
"NatureOfJournal");
417 if ($valuetoshow !=
'') {
418 print
'<td class="'.$class.
'">';
419 if (!empty($tabhelp[$id][$value]) && preg_match(
'/^http(s*):/i', $tabhelp[$id][$value])) {
420 print
'<a href="'.$tabhelp[$id][$value].
'">'.$valuetoshow.
' '.
img_help(1, $valuetoshow).
'</a>';
421 } elseif (!empty($tabhelp[$id][$value])) {
422 print
$form->textwithpicto($valuetoshow, $tabhelp[$id][$value]);
431 print
'<input type="hidden" name="id" value="'.$id.
'">';
433 print
'<td style="min-width: 26px;"></td>';
434 print
'<td style="min-width: 26px;"></td>';
435 print
'<td style="min-width: 26px;"></td>';
439 print
'<tr class="oddeven nodrag nodrap nohover">';
441 $obj =
new stdClass();
443 if (
GETPOST(
'actionadd',
'alpha')) {
444 foreach ($fieldlist as $key => $val) {
451 $tmpaction =
'create';
452 $parameters = array(
'fieldlist'=>$fieldlist,
'tabname'=>$tabname[$id]);
453 $reshook = $hookmanager->executeHooks(
'createDictionaryFieldlist', $parameters, $obj, $tmpaction);
454 $error = $hookmanager->error; $errors = $hookmanager->errors;
456 if (empty($reshook)) {
460 print
'<td colspan="4" class="right">';
461 print
'<input type="submit" class="button button-add" name="actionadd" value="'.$langs->trans(
"Add").
'">';
465 print
'<tr><td colspan="7"> </td></tr>';
472 $resql = $db->query($sql);
474 $num = $db->num_rows(
$resql);
477 $param =
'&id='.((int) $id);
478 if ($search_country_id > 0) {
479 $param .=
'&search_country_id='.urlencode($search_country_id);
481 $paramwithsearch = $param;
483 $paramwithsearch .=
'&sortorder='.$sortorder;
486 $paramwithsearch .=
'&sortfield='.$sortfield;
488 if (
GETPOST(
'from',
'alpha')) {
489 $paramwithsearch .=
'&from='.GETPOST(
'from',
'alpha');
493 if ($num > $listlimit) {
494 print
'<tr class="none"><td class="right" colspan="'.(3 + count($fieldlist)).
'">';
495 print_fleche_navigation($page, $_SERVER[
"PHP_SELF"], $paramwithsearch, ($num > $listlimit),
'<li class="pagination"><span>'.$langs->trans(
"Page").
' '.($page + 1).
'</span></li>');
515 print
'<tr class="liste_titre liste_titre_add">';
516 foreach ($fieldlist as $field => $value) {
530 $valuetoshow = ucfirst($fieldlist[$field]);
531 $valuetoshow = $langs->trans($valuetoshow);
532 if ($fieldlist[$field] ==
'code') {
533 $valuetoshow = $langs->trans(
"Code");
535 if ($fieldlist[$field] ==
'libelle' || $fieldlist[$field] ==
'label') {
536 $valuetoshow = $langs->trans(
"Label");
538 if ($fieldlist[$field] ==
'nature') {
539 $valuetoshow = $langs->trans(
"NatureOfJournal");
544 print
getTitleFieldOfList($valuetoshow, 0, $_SERVER[
"PHP_SELF"], ($sortable ? $fieldlist[$field] :
''), ($page ?
'page='.$page.
'&' :
''), $param,
"", $sortfield, $sortorder, $class.
' ');
547 print
getTitleFieldOfList($langs->trans(
"Status"), 0, $_SERVER[
"PHP_SELF"],
"active", ($page ?
'page='.$page.
'&' :
''), $param,
'', $sortfield, $sortorder,
'center ');
556 $obj = $db->fetch_object(
$resql);
558 print
'<tr class="oddeven" id="rowid-'.$obj->rowid.
'">';
559 if ($action ==
'edit' && ($rowid == (!empty($obj->rowid) ? $obj->rowid : $obj->code))) {
561 $parameters = array(
'fieldlist'=>$fieldlist,
'tabname'=>$tabname[$id]);
562 $reshook = $hookmanager->executeHooks(
'editDictionaryFieldlist', $parameters, $obj, $tmpaction);
563 $error = $hookmanager->error; $errors = $hookmanager->errors;
566 if (empty($reshook)) {
570 print
'<td class="center" colspan="4">';
571 print
'<input type="hidden" name="page" value="'.$page.
'">';
572 print
'<input type="hidden" name="rowid" value="'.$rowid.
'">';
573 print
'<input type="submit" class="button button-edit" name="actionmodify" value="'.$langs->trans(
"Modify").
'">';
574 print
'<input type="submit" class="button button-cancel" name="actioncancel" value="'.$langs->trans(
"Cancel").
'">';
575 print
'<div name="'.(!empty($obj->rowid) ? $obj->rowid : $obj->code).
'"></div>';
579 $parameters = array(
'fieldlist'=>$fieldlist,
'tabname'=>$tabname[$id]);
580 $reshook = $hookmanager->executeHooks(
'viewDictionaryFieldlist', $parameters, $obj, $tmpaction);
582 $error = $hookmanager->error; $errors = $hookmanager->errors;
584 if (empty($reshook)) {
585 $langs->load(
"accountancy");
586 foreach ($fieldlist as $field => $value) {
589 $valuetoshow = $obj->{$fieldlist[$field]};
590 if ($valuetoshow ==
'all') {
591 $valuetoshow = $langs->trans(
'All');
592 } elseif ($fieldlist[$field] ==
'nature' && $tabname[$id] == MAIN_DB_PREFIX.
'accounting_journal') {
593 $key = $langs->trans(
"AccountingJournalType".strtoupper($obj->nature));
594 $valuetoshow = ($obj->nature && $key !=
"AccountingJournalType".strtoupper($langs->trans($obj->nature)) ? $key : $obj->{$fieldlist[$field]});
595 } elseif ($fieldlist[$field] ==
'label' && $tabname[$id] == MAIN_DB_PREFIX.
'accounting_journal') {
596 $valuetoshow = $langs->trans($obj->label);
602 print
'<!-- '.$fieldlist[$field].
' --><td class="'.$class.
'">'.
dol_escape_htmltag($valuetoshow).
'</td>';
608 $iserasable = 1; $canbedisabled = 1; $canbemodified = 1;
609 if (isset($obj->code) && $id != 10) {
610 if (($obj->code ==
'0' || $obj->code ==
'' || preg_match(
'/unknown/i', $obj->code))) {
613 } elseif ($obj->code ==
'RECEP') {
616 } elseif ($obj->code ==
'EF0') {
622 $canbemodified = $iserasable;
624 $url = $_SERVER[
"PHP_SELF"].
'?'.($page ?
'page='.$page.
'&' :
'').
'sortfield='.$sortfield.
'&sortorder='.$sortorder.
'&rowid='.(!empty($obj->rowid) ? $obj->rowid : (!empty($obj->code) ? $obj->code :
'')).
'&code='.(!empty($obj->code) ?urlencode($obj->code) :
'');
631 print
'<td class="nowrap center">';
632 if ($canbedisabled) {
633 print
'<a href="'.$url.
'action='.$acts[$obj->active].
'&token='.
newToken().
'">'.$actl[$obj->active].
'</a>';
635 print $langs->trans(
"AlwaysActive");
640 if ($canbemodified) {
641 print
'<td class="center"><a class="reposition editfielda" href="'.$url.
'action=edit&token='.
newToken().
'">'.
img_edit().
'</a></td>';
643 print
'<td> </td>';
648 print
'<td class="center">';
655 print
'<td> </td>';
695 global $conf, $langs, $db;
696 global
$form, $mysoc;
698 global $elementList, $sourceList, $localtax_typeList;
704 foreach ($fieldlist as $field => $value) {
705 if ($fieldlist[$field] ==
'nature') {
707 print
$form->selectarray(
'nature', $sourceList, (!empty($obj->{$fieldlist[$field]}) ? $obj->{$fieldlist[$field]}:
''));
709 } elseif ($fieldlist[$field] ==
'code' && isset($obj->{$fieldlist[$field]})) {
710 print
'<td><input type="text" class="flat minwidth100" value="'.(!empty($obj->{$fieldlist[$field]}) ? $obj->{$fieldlist[$field]}:
'').
'" name="'.$fieldlist[$field].
'"></td>';
713 $size =
''; $class =
'';
714 if ($fieldlist[$field] ==
'code') {
715 $class =
'maxwidth100';
717 if ($fieldlist[$field] ==
'label') {
718 $class =
'quatrevingtpercent';
720 if ($fieldlist[$field] ==
'sortorder' || $fieldlist[$field] ==
'sens' || $fieldlist[$field] ==
'category_type') {
723 print
'<input type="text" '.$size.
'class="flat'.($class ?
' '.$class :
'').
'" value="'.(isset($obj->{$fieldlist[$field]}) ? $obj->{$fieldlist[$field]}:
'').
'" name="'.$fieldlist[$field].
'">';