27require
'../../main.inc.php';
28require_once DOL_DOCUMENT_ROOT.
'/core/lib/accounting.lib.php';
29require_once DOL_DOCUMENT_ROOT.
'/core/lib/admin.lib.php';
33$langs->loadLangs(array(
"accountancy",
"admin",
"bills",
"compta",
"errors",
"hrm",
"salaries"));
36$action =
GETPOST(
'action',
'aZ09');
37$cancel =
GETPOST(
'cancel',
'alpha');
40$massaction =
GETPOST(
'massaction',
'aZ09');
41$optioncss =
GETPOST(
'optioncss',
'alpha');
43$contextpage =
GETPOST(
'contextpage',
'aZ') ?
GETPOST(
'contextpage',
'aZ') :
'accountingsubaccountlist';
45$search_subaccount =
GETPOST(
'search_subaccount',
'alpha');
46$search_label =
GETPOST(
'search_label',
'alpha');
47$search_type =
GETPOST(
'search_type',
'intcomma');
50if ($user->socid > 0) {
53if (!$user->hasRight(
'accounting',
'chartofaccount')) {
59$sortfield =
GETPOST(
'sortfield',
'aZ09comma');
60$sortorder =
GETPOST(
'sortorder',
'aZ09comma');
62if (empty($page) || $page == -1) {
65$offset = $limit * $page;
76 'subaccount'=>array(
'label'=>$langs->trans(
"AccountNumber"),
'checked'=>1),
77 'label'=>array(
'label'=>$langs->trans(
"Label"),
'checked'=>1),
78 'type'=>array(
'label'=>$langs->trans(
"Type"),
'checked'=>1),
79 'reconcilable'=>array(
'label'=>$langs->trans(
"Reconcilable"),
'checked'=>1)
83 unset($arrayfields[
'reconcilable']);
91if (
GETPOST(
'cancel',
'alpha')) {
95if (!
GETPOST(
'confirmmassaction',
'alpha')) {
100$reshook = $hookmanager->executeHooks(
'doActions', $parameters,
$object, $action);
105if (empty($reshook)) {
106 if (!empty($cancel)) {
110 include DOL_DOCUMENT_ROOT.
'/core/actions_changeselectedfields.inc.php';
112 if (
GETPOST(
'button_removefilter_x',
'alpha') ||
GETPOST(
'button_removefilter.x',
'alpha') ||
GETPOST(
'button_removefilter',
'alpha')) {
113 $search_subaccount =
"";
116 $search_array_options = array();
125$form =
new Form($db);
129$help_url =
'EN:Module_Double_Entry_Accounting#Setup|FR:Module_Comptabilité_en_Partie_Double#Configuration';
130$title = $langs->trans(
'ChartOfIndividualAccountsOfSubsidiaryLedger');
136$sql =
"SELECT sa.rowid, sa.nom as label, sa.code_compta as subaccount, '1' as type, sa.entity, sa.client as nature";
137$sql .=
" FROM ".MAIN_DB_PREFIX.
"societe sa";
138$sql .=
" WHERE sa.entity IN (".getEntity(
'societe').
")";
139$sql .=
" AND sa.code_compta <> ''";
141if (strlen(trim($search_subaccount))) {
142 $lengthpaddingaccount = 0;
146 $search_subaccount_tmp = $search_subaccount;
147 $weremovedsomezero = 0;
148 if (strlen($search_subaccount_tmp) <= $lengthpaddingaccount) {
149 for ($i = 0; $i < $lengthpaddingaccount; $i++) {
150 if (preg_match(
'/0$/', $search_subaccount_tmp)) {
151 $weremovedsomezero++;
152 $search_subaccount_tmp = preg_replace(
'/0$/',
'', $search_subaccount_tmp);
158 if ($search_subaccount_tmp) {
159 if ($weremovedsomezero) {
160 $search_subaccount_tmp_clean = $search_subaccount_tmp;
161 $search_subaccount_clean = $search_subaccount;
163 if (strpos($search_subaccount_tmp,
'^') === 0) {
165 $search_subaccount_tmp_clean = preg_replace(
'/^\^/',
'', $search_subaccount_tmp);
166 $search_subaccount_clean = preg_replace(
'/^\^/',
'', $search_subaccount);
168 $sql .=
" AND (sa.code_compta LIKE '".$db->escape($startchar.$search_subaccount_tmp_clean).
"'";
169 $sql .=
" OR sa.code_compta LIKE '".$db->escape($startchar.$search_subaccount_clean).
"%')";
175if (strlen(trim($search_label))) {
178if (!empty($search_type) && $search_type >= 0) {
179 $sql .=
" HAVING type LIKE '".$db->escape($search_type).
"'";
184$sql .=
" SELECT sa.rowid, sa.nom as label, sa.code_compta_fournisseur as subaccount, '2' as type, sa.entity, '0' as nature FROM ".MAIN_DB_PREFIX.
"societe sa";
185$sql .=
" WHERE sa.entity IN (".getEntity(
'societe').
")";
186$sql .=
" AND sa.code_compta_fournisseur <> ''";
188if (strlen(trim($search_subaccount))) {
189 $lengthpaddingaccount = 0;
193 $search_subaccount_tmp = $search_subaccount;
194 $weremovedsomezero = 0;
195 if (strlen($search_subaccount_tmp) <= $lengthpaddingaccount) {
196 for ($i = 0; $i < $lengthpaddingaccount; $i++) {
197 if (preg_match(
'/0$/', $search_subaccount_tmp)) {
198 $weremovedsomezero++;
199 $search_subaccount_tmp = preg_replace(
'/0$/',
'', $search_subaccount_tmp);
205 if ($search_subaccount_tmp) {
206 if ($weremovedsomezero) {
207 $search_subaccount_tmp_clean = $search_subaccount_tmp;
208 $search_subaccount_clean = $search_subaccount;
210 if (strpos($search_subaccount_tmp,
'^') === 0) {
212 $search_subaccount_tmp_clean = preg_replace(
'/^\^/',
'', $search_subaccount_tmp);
213 $search_subaccount_clean = preg_replace(
'/^\^/',
'', $search_subaccount);
215 $sql .=
" AND (sa.code_compta_fournisseur LIKE '".$db->escape($startchar.$search_subaccount_tmp_clean).
"'";
216 $sql .=
" OR sa.code_compta_fournisseur LIKE '".$db->escape($startchar.$search_subaccount_clean).
"%')";
218 $sql .=
natural_search(
"sa.code_compta_fournisseur", $search_subaccount_tmp);
222if (strlen(trim($search_label))) {
225if (!empty($search_type) && $search_type >= 0) {
226 $sql .=
" HAVING type LIKE '".$db->escape($search_type).
"'";
231$sql .=
" SELECT u.rowid, u.lastname as label, u.accountancy_code as subaccount, '3' as type, u.entity, '0' as nature FROM ".MAIN_DB_PREFIX.
"user u";
232$sql .=
" WHERE u.entity IN (".getEntity(
'user').
")";
233$sql .=
" AND u.accountancy_code <> ''";
235if (strlen(trim($search_subaccount))) {
236 $lengthpaddingaccount = 0;
240 $search_subaccount_tmp = $search_subaccount;
241 $weremovedsomezero = 0;
242 if (strlen($search_subaccount_tmp) <= $lengthpaddingaccount) {
243 for ($i = 0; $i < $lengthpaddingaccount; $i++) {
244 if (preg_match(
'/0$/', $search_subaccount_tmp)) {
245 $weremovedsomezero++;
246 $search_subaccount_tmp = preg_replace(
'/0$/',
'', $search_subaccount_tmp);
252 if ($search_subaccount_tmp) {
253 if ($weremovedsomezero) {
254 $search_subaccount_tmp_clean = $search_subaccount_tmp;
255 $search_subaccount_clean = $search_subaccount;
257 if (strpos($search_subaccount_tmp,
'^') === 0) {
259 $search_subaccount_tmp_clean = preg_replace(
'/^\^/',
'', $search_subaccount_tmp);
260 $search_subaccount_clean = preg_replace(
'/^\^/',
'', $search_subaccount);
262 $sql .=
" AND (u.accountancy_code LIKE '".$db->escape($startchar.$search_subaccount_tmp_clean).
"'";
263 $sql .=
" OR u.accountancy_code LIKE '".$db->escape($startchar.$search_subaccount_clean).
"%')";
265 $sql .=
natural_search(
"u.accountancy_code", $search_subaccount_tmp);
269if (strlen(trim($search_label))) {
272if (!empty($search_type) && $search_type >= 0) {
273 $sql .=
" HAVING type LIKE '".$db->escape($search_type).
"'";
276$sql .= $db->order($sortfield, $sortorder);
279$nbtotalofrecords =
'';
281 $resql = $db->query($sql);
282 $nbtotalofrecords = $db->num_rows($resql);
283 if (($page * $limit) > $nbtotalofrecords) {
289$sql .= $db->plimit($limit + 1, $offset);
291dol_syslog(
"accountancy/admin/subaccount.php:: sql=".$sql);
292$resql = $db->query($sql);
295 $num = $db->num_rows($resql);
298 if (!empty($contextpage) && $contextpage != $_SERVER[
"PHP_SELF"]) {
299 $param .=
'&contextpage='.urlencode($contextpage);
301 if ($limit > 0 && $limit != $conf->liste_limit) {
302 $param .=
'&limit='.((int) $limit);
304 if ($optioncss !=
'') {
305 $param .=
'&optioncss='.urlencode($optioncss);
307 if ($search_subaccount) {
308 $param .=
'&search_subaccount='.urlencode($search_subaccount);
311 $param .=
'&search_label='.urlencode($search_label);
314 $param .=
'&search_type='.urlencode($search_type);
318 $arrayofmassactions = array();
320 print
'<form method="POST" id="searchFormList" action="'.$_SERVER[
"PHP_SELF"].
'">';
321 if ($optioncss !=
'') {
322 print
'<input type="hidden" name="optioncss" value="'.$optioncss.
'">';
324 print
'<input type="hidden" name="token" value="'.newToken().
'">';
325 print
'<input type="hidden" name="formfilteraction" id="formfilteraction" value="list">';
326 print
'<input type="hidden" name="action" value="list">';
327 print
'<input type="hidden" name="sortfield" value="'.$sortfield.
'">';
328 print
'<input type="hidden" name="sortorder" value="'.$sortorder.
'">';
329 print
'<input type="hidden" name="contextpage" value="'.$contextpage.
'">';
331 print_barre_liste($title, $page, $_SERVER[
"PHP_SELF"], $param, $sortfield, $sortorder,
'', $num, $nbtotalofrecords,
'title_accountancy', 0,
'',
'', $limit, 0, 0, 1);
333 print
'<div class="info">'.$langs->trans(
"WarningCreateSubAccounts").
'</div>';
335 $varpage = empty($contextpage) ? $_SERVER[
"PHP_SELF"] : $contextpage;
336 $htmlofselectarray = $form->multiSelectArrayWithCheckbox(
'selectedfields', $arrayfields, $varpage,
getDolGlobalString(
'MAIN_CHECKBOX_LEFT_COLUMN'));
337 $selectedfields = ($mode !=
'kanban' ? $htmlofselectarray :
'');
338 $selectedfields .= (count($arrayofmassactions) ? $form->showCheckAddButtons(
'checkforselect', 1) :
'');
341 $massactionbutton =
'';
343 print
'<div class="div-table-responsive">';
344 print
'<table class="tagtable liste'.($moreforfilter ?
" listwithfilterbefore" :
"").
'">'.
"\n";
347 print
'<tr class="liste_titre_filter">';
350 print
'<td class="liste_titre center maxwidthsearch">';
351 $searchpicto = $form->showFilterAndCheckAddButtons($massactionbutton ? 1 : 0,
'checkforselect', 1);
355 if (!empty($arrayfields[
'subaccount'][
'checked'])) {
356 print
'<td class="liste_titre"><input type="text" class="flat" size="10" name="search_subaccount" value="'.$search_subaccount.
'"></td>';
358 if (!empty($arrayfields[
'label'][
'checked'])) {
359 print
'<td class="liste_titre"><input type="text" class="flat" size="20" name="search_label" value="'.$search_label.
'"></td>';
361 if (!empty($arrayfields[
'type'][
'checked'])) {
362 print
'<td class="liste_titre center">'.$form->selectarray(
'search_type', array(
'1'=>$langs->trans(
'Customer'),
'2'=>$langs->trans(
'Supplier'),
'3'=>$langs->trans(
'Employee')), $search_type, 1).
'</td>';
365 if (!empty($arrayfields[
'reconcilable'][
'checked'])) {
366 print
'<td class="liste_titre"> </td>';
371 print
'<td class="liste_titre maxwidthsearch">';
372 $searchpicto = $form->showFilterAndCheckAddButtons($massactionbutton ? 1 : 0,
'checkforselect', 1);
378 print
'<tr class="liste_titre">';
381 print_liste_field_titre($selectedfields, $_SERVER[
"PHP_SELF"],
"",
'', $param,
'', $sortfield, $sortorder,
'center maxwidthsearch ');
383 if (!empty($arrayfields[
'subaccount'][
'checked'])) {
384 print_liste_field_titre($arrayfields[
'subaccount'][
'label'], $_SERVER[
"PHP_SELF"],
"subaccount",
"", $param,
'', $sortfield, $sortorder);
386 if (!empty($arrayfields[
'label'][
'checked'])) {
387 print_liste_field_titre($arrayfields[
'label'][
'label'], $_SERVER[
"PHP_SELF"],
"label",
"", $param,
'', $sortfield, $sortorder);
389 if (!empty($arrayfields[
'type'][
'checked'])) {
390 print_liste_field_titre($arrayfields[
'type'][
'label'], $_SERVER[
"PHP_SELF"],
"type",
"", $param,
'', $sortfield, $sortorder,
'center ');
393 if (!empty($arrayfields[
'reconcilable'][
'checked'])) {
394 print_liste_field_titre($arrayfields[
'reconcilable'][
'label'], $_SERVER[
"PHP_SELF"],
'reconcilable',
'', $param,
'', $sortfield, $sortorder,
'center ');
399 print_liste_field_titre($selectedfields, $_SERVER[
"PHP_SELF"],
"",
'', $param,
'', $sortfield, $sortorder,
'center maxwidthsearch ');
403 $totalarray = array();
404 $totalarray[
'nbfield'] = 0;
406 while ($i < min($num, $limit)) {
407 $obj = $db->fetch_object($resql);
409 print
'<tr class="oddeven">';
413 print
'<td class="center">';
417 if ($obj->type == 1) {
418 $e .=
'<a class="editfielda" title="'.$langs->trans(
"Customer").
'" href="'.DOL_URL_ROOT.
'/societe/card.php?action=edit&token='.
newToken().
'&socid='.$obj->rowid.
'&backtopage='.urlencode($_SERVER[
"PHP_SELF"]).
'">'.
img_edit().
'</a>';
419 } elseif ($obj->type == 2) {
421 $e .=
'<a class="editfielda" title="'.$langs->trans(
"Supplier").
'" href="'.DOL_URL_ROOT.
'/societe/card.php?action=edit&token='.
newToken().
'&socid='.$obj->rowid.
'&backtopage='.urlencode($_SERVER[
"PHP_SELF"]).
'">'.
img_edit().
'</a>';
422 } elseif ($obj->type == 3) {
424 $e .=
'<a class="editfielda" title="'.$langs->trans(
"Employee").
'" href="'.DOL_URL_ROOT.
'/user/card.php?action=edit&token='.
newToken().
'&id='.$obj->rowid.
'&backtopage='.urlencode($_SERVER[
"PHP_SELF"]).
'">'.
img_edit().
'</a>';
429 $totalarray[
'nbfield']++;
434 if (!empty($arrayfields[
'subaccount'][
'checked'])) {
439 $totalarray[
'nbfield']++;
444 if (!empty($arrayfields[
'label'][
'checked'])) {
449 $totalarray[
'nbfield']++;
454 if (!empty($arrayfields[
'type'][
'checked'])) {
455 print
'<td class="center">';
459 if ($obj->type == 1) {
460 $s .=
'<a class="customer-back" style="padding-left: 6px; padding-right: 6px" title="'.$langs->trans(
"Customer").
'" href="'.DOL_URL_ROOT.
'/comm/card.php?socid='.$obj->rowid.
'">'.$langs->trans(
"Customer").
'</a>';
461 } elseif ($obj->type == 2) {
463 $s .=
'<a class="vendor-back" style="padding-left: 6px; padding-right: 6px" title="'.$langs->trans(
"Supplier").
'" href="'.DOL_URL_ROOT.
'/fourn/card.php?socid='.$obj->rowid.
'">'.$langs->trans(
"Supplier").
'</a>';
464 } elseif ($obj->type == 3) {
466 $s .=
'<a class="user-back" style="padding-left: 6px; padding-right: 6px" title="'.$langs->trans(
"Employee").
'" href="'.DOL_URL_ROOT.
'/user/card.php?id='.$obj->rowid.
'">'.$langs->trans(
"Employee").
'</a>';
469 if ($obj->nature == 2) {
470 print
' <span class="warning bold">('.$langs->trans(
"Prospect").
')</span>';
474 $totalarray[
'nbfield']++;
480 if (!empty($arrayfields[
'reconcilable'][
'checked'])) {
481 print
'<td class="center">';
482 if (empty($obj->reconcilable)) {
483 print
'<a class="reposition" href="'.$_SERVER[
"PHP_SELF"].
'?id='.$obj->rowid.
'&action=enable&mode=1&token='.
newToken().
'">';
484 print
img_picto($langs->trans(
"Disabled"),
'switch_off');
487 print
'<a class="reposition" href="'.$_SERVER[
"PHP_SELF"].
'?id='.$obj->rowid.
'&action=disable&mode=1&token='.
newToken().
'">';
488 print
img_picto($langs->trans(
"Activated"),
'switch_on');
493 $totalarray[
'nbfield']++;
500 print
'<td class="center">';
504 if ($obj->type == 1) {
505 $e .=
'<a class="editfielda" title="'.$langs->trans(
"Customer").
'" href="'.DOL_URL_ROOT.
'/societe/card.php?action=edit&token='.
newToken().
'&socid='.$obj->rowid.
'&backtopage='.urlencode($_SERVER[
"PHP_SELF"]).
'">'.
img_edit().
'</a>';
506 } elseif ($obj->type == 2) {
508 $e .=
'<a class="editfielda" title="'.$langs->trans(
"Supplier").
'" href="'.DOL_URL_ROOT.
'/societe/card.php?action=edit&token='.
newToken().
'&socid='.$obj->rowid.
'&backtopage='.urlencode($_SERVER[
"PHP_SELF"]).
'">'.
img_edit().
'</a>';
509 } elseif ($obj->type == 3) {
511 $e .=
'<a class="editfielda" title="'.$langs->trans(
"Employee").
'" href="'.DOL_URL_ROOT.
'/user/card.php?action=edit&token='.
newToken().
'&id='.$obj->rowid.
'&backtopage='.urlencode($_SERVER[
"PHP_SELF"]).
'">'.
img_edit().
'</a>';
516 $totalarray[
'nbfield']++;
527 foreach ($arrayfields as $key => $val) {
528 if (!empty($val[
'checked'])) {
532 print
'<tr><td colspan="'.$colspan.
'"><span class="opacitymedium">'.$langs->trans(
"NoRecordFound").
'</span></td></tr>';
537 $parameters = array(
'arrayfields'=>$arrayfields,
'sql'=>$sql);
538 $reshook = $hookmanager->executeHooks(
'printFieldListFooter', $parameters);
539 print $hookmanager->resPrint;
if( $user->socid > 0) if(! $user->hasRight('accounting', 'chartofaccount')) $object
length_accounta($accounta)
Return Auxiliary accounting account of thirdparties with defined length.
if(!defined('NOREQUIRESOC')) if(!defined( 'NOREQUIRETRAN')) if(!defined('NOTOKENRENEWAL')) if(!defined( 'NOREQUIREMENU')) if(!defined('NOREQUIREHTML')) if(!defined( 'NOREQUIREAJAX')) llxHeader()
Empty header.
img_picto($titlealt, $picto, $moreatt='', $pictoisfullpath=0, $srconly=0, $notitle=0, $alt='', $morecss='', $marginleftonlyshort=2)
Show picto whatever it's its name (generic function)
GETPOSTINT($paramname, $method=0)
Return the value of a $_GET or $_POST supervariable, converted into integer.
natural_search($fields, $value, $mode=0, $nofirstand=0)
Generate natural SQL search string for a criteria (this criteria can be tested on one or several fiel...
getDolGlobalInt($key, $default=0)
Return a Dolibarr global constant int value.
newToken()
Return the value of token currently saved into session with name 'newtoken'.
print_liste_field_titre($name, $file="", $field="", $begin="", $moreparam="", $moreattrib="", $sortfield="", $sortorder="", $prefix="", $tooltip="", $forcenowrapcolumntitle=0)
Show title line of an array.
print_barre_liste($title, $page, $file, $options='', $sortfield='', $sortorder='', $morehtmlcenter='', $num=-1, $totalnboflines='', $picto='generic', $pictoisfullpath=0, $morehtmlright='', $morecss='', $limit=-1, $hideselectlimit=0, $hidenavigation=0, $pagenavastextinput=0, $morehtmlrightbeforearrow='')
Print a title with navigation controls for pagination.
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.
dol_print_error($db=null, $error='', $errors=null)
Displays error message system with all the information to facilitate the diagnosis and the escalation...
getDolGlobalString($key, $default='')
Return dolibarr global constant string value.
img_edit($titlealt='default', $float=0, $other='')
Show logo edit/modify fiche.
dol_syslog($message, $level=LOG_INFO, $ident=0, $suffixinfilename='', $restricttologhandler='', $logcontext=null)
Write log message into outputs.
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.