dolibarr 19.0.3
subaccount.php
Go to the documentation of this file.
1<?php
2/* Copyright (C) 2013-2016 Olivier Geffroy <jeff@jeffinfo.com>
3 * Copyright (C) 2013-2024 Alexandre Spangaro <aspangaro@easya.solutions>
4 * Copyright (C) 2016-2018 Laurent Destailleur <eldy@users.sourceforge.net>
5 *
6 * This program is free software; you can redistribute it and/or modify
7 * it under the terms of the GNU General Public License as published by
8 * the Free Software Foundation; either version 3 of the License, or
9 * (at your option) any later version.
10 *
11 * This program is distributed in the hope that it will be useful,
12 * but WITHOUT ANY WARRANTY; without even the implied warranty of
13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 * GNU General Public License for more details.
15 *
16 * You should have received a copy of the GNU General Public License
17 * along with this program. If not, see <https://www.gnu.org/licenses/>.
18 */
19
26// Load Dolibarr environment
27require '../../main.inc.php';
28require_once DOL_DOCUMENT_ROOT.'/core/lib/accounting.lib.php';
29require_once DOL_DOCUMENT_ROOT.'/core/lib/admin.lib.php';
30
31
32// Load translation files required by the page
33$langs->loadLangs(array("accountancy", "admin", "bills", "compta", "errors", "hrm", "salaries"));
34
35$mesg = '';
36$action = GETPOST('action', 'aZ09');
37$cancel = GETPOST('cancel', 'alpha');
38$id = GETPOST('id', 'int');
39$rowid = GETPOST('rowid', 'int');
40$massaction = GETPOST('massaction', 'aZ09');
41$optioncss = GETPOST('optioncss', 'alpha');
42$mode = GETPOST('mode', 'aZ'); // The output mode ('list', 'kanban', 'hierarchy', 'calendar', ...)
43$contextpage = GETPOST('contextpage', 'aZ') ? GETPOST('contextpage', 'aZ') : 'accountingsubaccountlist'; // To manage different context of search
44
45$search_subaccount = GETPOST('search_subaccount', 'alpha');
46$search_label = GETPOST('search_label', 'alpha');
47$search_type = GETPOST('search_type', 'int');
48
49// Security check
50if ($user->socid > 0) {
52}
53if (!$user->hasRight('accounting', 'chartofaccount')) {
55}
56
57// Load variable for pagination
58$limit = GETPOST('limit', 'int') ? GETPOST('limit', 'int') : $conf->liste_limit;
59$sortfield = GETPOST('sortfield', 'aZ09comma');
60$sortorder = GETPOST('sortorder', 'aZ09comma');
61$page = GETPOSTISSET('pageplusone') ? (GETPOST('pageplusone') - 1) : GETPOST("page", 'int');
62if (empty($page) || $page == -1) {
63 $page = 0;
64} // If $page is not defined, or '' or -1
65$offset = $limit * $page;
66$pageprev = $page - 1;
67$pagenext = $page + 1;
68if (!$sortfield) {
69 $sortfield = "label";
70}
71if (!$sortorder) {
72 $sortorder = "ASC";
73}
74
75$arrayfields = array(
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)
80);
81
82if (getDolGlobalInt('MAIN_FEATURES_LEVEL') < 2) {
83 unset($arrayfields['reconcilable']);
84}
85
86
87/*
88 * Actions
89 */
90
91if (GETPOST('cancel', 'alpha')) {
92 $action = 'list';
93 $massaction = '';
94}
95if (!GETPOST('confirmmassaction', 'alpha')) {
96 $massaction = '';
97}
98
99$parameters = array();
100$reshook = $hookmanager->executeHooks('doActions', $parameters, $object, $action); // Note that $action and $object may have been modified by some hooks
101if ($reshook < 0) {
102 setEventMessages($hookmanager->error, $hookmanager->errors, 'errors');
103}
104
105if (empty($reshook)) {
106 if (!empty($cancel)) {
107 $action = '';
108 }
109
110 include DOL_DOCUMENT_ROOT.'/core/actions_changeselectedfields.inc.php';
111
112 if (GETPOST('button_removefilter_x', 'alpha') || GETPOST('button_removefilter.x', 'alpha') || GETPOST('button_removefilter', 'alpha')) { // All test are required to be compatible with all browsers
113 $search_subaccount = "";
114 $search_label = "";
115 $search_type = "";
116 $search_array_options = array();
117 }
118}
119
120
121/*
122 * View
123 */
124
125$form = new Form($db);
126
127
128// Page Header
129$help_url = 'EN:Module_Double_Entry_Accounting#Setup|FR:Module_Comptabilit&eacute;_en_Partie_Double#Configuration';
130$title = $langs->trans('ChartOfIndividualAccountsOfSubsidiaryLedger');
131
132llxHeader('', $title, $help_url);
133
134
135// Customer
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 <> ''";
140//print $sql;
141if (strlen(trim($search_subaccount))) {
142 $lengthpaddingaccount = 0;
143 if (getDolGlobalInt('ACCOUNTING_LENGTH_AACCOUNT')) {
144 $lengthpaddingaccount = getDolGlobalInt('ACCOUNTING_LENGTH_AACCOUNT');
145 }
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);
153 }
154 }
155 }
156
157 //var_dump($search_subaccount); exit;
158 if ($search_subaccount_tmp) {
159 if ($weremovedsomezero) {
160 $search_subaccount_tmp_clean = $search_subaccount_tmp;
161 $search_subaccount_clean = $search_subaccount;
162 $startchar = '%';
163 if (strpos($search_subaccount_tmp, '^') === 0) {
164 $startchar = '';
165 $search_subaccount_tmp_clean = preg_replace('/^\^/', '', $search_subaccount_tmp);
166 $search_subaccount_clean = preg_replace('/^\^/', '', $search_subaccount);
167 }
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)."%')";
170 } else {
171 $sql .= natural_search("sa.code_compta", $search_subaccount_tmp);
172 }
173 }
174}
175if (strlen(trim($search_label))) {
176 $sql .= natural_search("sa.nom", $search_label);
177}
178if (!empty($search_type) && $search_type >= 0) {
179 $sql .= " HAVING type LIKE '".$db->escape($search_type)."'";
180}
181
182// Supplier
183$sql .= " UNION ";
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 <> ''";
187//print $sql;
188if (strlen(trim($search_subaccount))) {
189 $lengthpaddingaccount = 0;
190 if (getDolGlobalInt('ACCOUNTING_LENGTH_AACCOUNT')) {
191 $lengthpaddingaccount = getDolGlobalInt('ACCOUNTING_LENGTH_AACCOUNT');
192 }
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);
200 }
201 }
202 }
203
204 //var_dump($search_subaccount); exit;
205 if ($search_subaccount_tmp) {
206 if ($weremovedsomezero) {
207 $search_subaccount_tmp_clean = $search_subaccount_tmp;
208 $search_subaccount_clean = $search_subaccount;
209 $startchar = '%';
210 if (strpos($search_subaccount_tmp, '^') === 0) {
211 $startchar = '';
212 $search_subaccount_tmp_clean = preg_replace('/^\^/', '', $search_subaccount_tmp);
213 $search_subaccount_clean = preg_replace('/^\^/', '', $search_subaccount);
214 }
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)."%')";
217 } else {
218 $sql .= natural_search("sa.code_compta_fournisseur", $search_subaccount_tmp);
219 }
220 }
221}
222if (strlen(trim($search_label))) {
223 $sql .= natural_search("sa.nom", $search_label);
224}
225if (!empty($search_type) && $search_type >= 0) {
226 $sql .= " HAVING type LIKE '".$db->escape($search_type)."'";
227}
228
229// User - Employee
230$sql .= " UNION ";
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 <> ''";
234//print $sql;
235if (strlen(trim($search_subaccount))) {
236 $lengthpaddingaccount = 0;
237 if (getDolGlobalInt('ACCOUNTING_LENGTH_AACCOUNT')) {
238 $lengthpaddingaccount = getDolGlobalInt('ACCOUNTING_LENGTH_AACCOUNT');
239 }
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);
247 }
248 }
249 }
250
251 //var_dump($search_subaccount); exit;
252 if ($search_subaccount_tmp) {
253 if ($weremovedsomezero) {
254 $search_subaccount_tmp_clean = $search_subaccount_tmp;
255 $search_subaccount_clean = $search_subaccount;
256 $startchar = '%';
257 if (strpos($search_subaccount_tmp, '^') === 0) {
258 $startchar = '';
259 $search_subaccount_tmp_clean = preg_replace('/^\^/', '', $search_subaccount_tmp);
260 $search_subaccount_clean = preg_replace('/^\^/', '', $search_subaccount);
261 }
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)."%')";
264 } else {
265 $sql .= natural_search("u.accountancy_code", $search_subaccount_tmp);
266 }
267 }
268}
269if (strlen(trim($search_label))) {
270 $sql .= natural_search("u.lastname", $search_label);
271}
272if (!empty($search_type) && $search_type >= 0) {
273 $sql .= " HAVING type LIKE '".$db->escape($search_type)."'";
274}
275
276$sql .= $db->order($sortfield, $sortorder);
277
278// Count total nb of records
279$nbtotalofrecords = '';
280if (!getDolGlobalInt('MAIN_DISABLE_FULL_SCANLIST')) {
281 $resql = $db->query($sql);
282 $nbtotalofrecords = $db->num_rows($resql);
283 if (($page * $limit) > $nbtotalofrecords) { // if total resultset is smaller then paging size (filtering), goto and load page 0
284 $page = 0;
285 $offset = 0;
286 }
287}
288
289$sql .= $db->plimit($limit + 1, $offset);
290
291dol_syslog('accountancy/admin/subaccount.php:: $sql='.$sql);
292$resql = $db->query($sql);
293
294if ($resql) {
295 $num = $db->num_rows($resql);
296
297 $param = '';
298 if (!empty($contextpage) && $contextpage != $_SERVER["PHP_SELF"]) {
299 $param .= '&contextpage='.urlencode($contextpage);
300 }
301 if ($limit > 0 && $limit != $conf->liste_limit) {
302 $param .= '&limit='.((int) $limit);
303 }
304 if ($optioncss != '') {
305 $param .= '&optioncss='.urlencode($optioncss);
306 }
307 if ($search_subaccount) {
308 $param .= '&search_subaccount='.urlencode($search_subaccount);
309 }
310 if ($search_label) {
311 $param .= '&search_label='.urlencode($search_label);
312 }
313 if ($search_type) {
314 $param .= '&search_type='.urlencode($search_type);
315 }
316
317 // List of mass actions available
318 $arrayofmassactions = array();
319
320 print '<form method="POST" id="searchFormList" action="'.$_SERVER["PHP_SELF"].'">';
321 if ($optioncss != '') {
322 print '<input type="hidden" name="optioncss" value="'.$optioncss.'">';
323 }
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.'">';
330
331 print_barre_liste($title, $page, $_SERVER["PHP_SELF"], $param, $sortfield, $sortorder, '', $num, $nbtotalofrecords, 'title_accountancy', 0, '', '', $limit, 0, 0, 1);
332
333 print '<div class="info">'.$langs->trans("WarningCreateSubAccounts").'</div>';
334
335 $varpage = empty($contextpage) ? $_SERVER["PHP_SELF"] : $contextpage;
336 $selectedfields = ($mode != 'kanban' ? $form->multiSelectArrayWithCheckbox('selectedfields', $arrayfields, $varpage, getDolGlobalString('MAIN_CHECKBOX_LEFT_COLUMN', '')) : ''); // This also change content of $arrayfields
337 $selectedfields .= (count($arrayofmassactions) ? $form->showCheckAddButtons('checkforselect', 1) : '');
338
339 $moreforfilter = '';
340 $massactionbutton = '';
341
342 print '<div class="div-table-responsive">';
343 print '<table class="tagtable liste'.($moreforfilter ? " listwithfilterbefore" : "").'">'."\n";
344
345 // Line for search fields
346 print '<tr class="liste_titre_filter">';
347 // Action column
348 if (getDolGlobalString('MAIN_CHECKBOX_LEFT_COLUMN')) {
349 print '<td class="liste_titre center maxwidthsearch">';
350 $searchpicto = $form->showFilterAndCheckAddButtons($massactionbutton ? 1 : 0, 'checkforselect', 1);
351 print $searchpicto;
352 print '</td>';
353 }
354 if (!empty($arrayfields['subaccount']['checked'])) {
355 print '<td class="liste_titre"><input type="text" class="flat" size="10" name="search_subaccount" value="'.$search_subaccount.'"></td>';
356 }
357 if (!empty($arrayfields['label']['checked'])) {
358 print '<td class="liste_titre"><input type="text" class="flat" size="20" name="search_label" value="'.$search_label.'"></td>';
359 }
360 if (!empty($arrayfields['type']['checked'])) {
361 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>';
362 }
363 if (getDolGlobalInt('MAIN_FEATURES_LEVEL') >= 2) {
364 if (!empty($arrayfields['reconcilable']['checked'])) {
365 print '<td class="liste_titre">&nbsp;</td>';
366 }
367 }
368 // Action column
369 if (!getDolGlobalString('MAIN_CHECKBOX_LEFT_COLUMN')) {
370 print '<td class="liste_titre maxwidthsearch">';
371 $searchpicto = $form->showFilterAndCheckAddButtons($massactionbutton ? 1 : 0, 'checkforselect', 1);
372 print $searchpicto;
373 print '</td>';
374 }
375 print '</tr>';
376
377 print '<tr class="liste_titre">';
378 // Action column
379 if (getDolGlobalString('MAIN_CHECKBOX_LEFT_COLUMN')) {
380 print_liste_field_titre($selectedfields, $_SERVER["PHP_SELF"], "", '', $param, '', $sortfield, $sortorder, 'center maxwidthsearch ');
381 }
382 if (!empty($arrayfields['subaccount']['checked'])) {
383 print_liste_field_titre($arrayfields['subaccount']['label'], $_SERVER["PHP_SELF"], "subaccount", "", $param, '', $sortfield, $sortorder);
384 }
385 if (!empty($arrayfields['label']['checked'])) {
386 print_liste_field_titre($arrayfields['label']['label'], $_SERVER["PHP_SELF"], "label", "", $param, '', $sortfield, $sortorder);
387 }
388 if (!empty($arrayfields['type']['checked'])) {
389 print_liste_field_titre($arrayfields['type']['label'], $_SERVER["PHP_SELF"], "type", "", $param, '', $sortfield, $sortorder, 'center ');
390 }
391 if (getDolGlobalInt('MAIN_FEATURES_LEVEL') >= 2) {
392 if (!empty($arrayfields['reconcilable']['checked'])) {
393 print_liste_field_titre($arrayfields['reconcilable']['label'], $_SERVER["PHP_SELF"], 'reconcilable', '', $param, '', $sortfield, $sortorder, 'center ');
394 }
395 }
396 // Action column
397 if (!getDolGlobalString('MAIN_CHECKBOX_LEFT_COLUMN')) {
398 print_liste_field_titre($selectedfields, $_SERVER["PHP_SELF"], "", '', $param, '', $sortfield, $sortorder, 'center maxwidthsearch ');
399 }
400 print "</tr>\n";
401
402 $totalarray = array();
403 $totalarray['nbfield'] = 0;
404 $i = 0;
405 while ($i < min($num, $limit)) {
406 $obj = $db->fetch_object($resql);
407
408 print '<tr class="oddeven">';
409
410 // Action column
411 if (getDolGlobalString('MAIN_CHECKBOX_LEFT_COLUMN')) {
412 print '<td class="center">';
413 $e = '';
414
415 // Customer
416 if ($obj->type == 1) {
417 $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>';
418 } elseif ($obj->type == 2) {
419 // Supplier
420 $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>';
421 } elseif ($obj->type == 3) {
422 // User - Employee
423 $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>';
424 }
425 print $e;
426 print '</td>'."\n";
427 if (!$i) {
428 $totalarray['nbfield']++;
429 }
430 }
431
432 // Account number
433 if (!empty($arrayfields['subaccount']['checked'])) {
434 print "<td>";
435 print length_accounta($obj->subaccount);
436 print "</td>\n";
437 if (!$i) {
438 $totalarray['nbfield']++;
439 }
440 }
441
442 // Subaccount label
443 if (!empty($arrayfields['label']['checked'])) {
444 print "<td>";
445 print dol_escape_htmltag($obj->label);
446 print "</td>\n";
447 if (!$i) {
448 $totalarray['nbfield']++;
449 }
450 }
451
452 // Type
453 if (!empty($arrayfields['type']['checked'])) {
454 print '<td class="center">';
455 $s = '';
456
457 // Customer
458 if ($obj->type == 1) {
459 $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>';
460 } elseif ($obj->type == 2) {
461 // Supplier
462 $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>';
463 } elseif ($obj->type == 3) {
464 // User - Employee
465 $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>';
466 }
467 print $s;
468 if ($obj->nature == 2) {
469 print ' <span class="warning bold">('.$langs->trans("Prospect").')</span>';
470 }
471 print '</td>';
472 if (!$i) {
473 $totalarray['nbfield']++;
474 }
475 }
476
477 if (getDolGlobalInt('MAIN_FEATURES_LEVEL') >= 2) {
478 // Activated or not reconciliation on accounting account
479 if (!empty($arrayfields['reconcilable']['checked'])) {
480 print '<td class="center">';
481 if (empty($obj->reconcilable)) {
482 print '<a class="reposition" href="'.$_SERVER["PHP_SELF"].'?id='.$obj->rowid.'&action=enable&mode=1&token='.newToken().'">';
483 print img_picto($langs->trans("Disabled"), 'switch_off');
484 print '</a>';
485 } else {
486 print '<a class="reposition" href="'.$_SERVER["PHP_SELF"].'?id='.$obj->rowid.'&action=disable&mode=1&token='.newToken().'">';
487 print img_picto($langs->trans("Activated"), 'switch_on');
488 print '</a>';
489 }
490 print '</td>';
491 if (!$i) {
492 $totalarray['nbfield']++;
493 }
494 }
495 }
496
497 // Action column
498 if (!getDolGlobalString('MAIN_CHECKBOX_LEFT_COLUMN')) {
499 print '<td class="center">';
500 $e = '';
501
502 // Customer
503 if ($obj->type == 1) {
504 $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>';
505 } elseif ($obj->type == 2) {
506 // Supplier
507 $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>';
508 } elseif ($obj->type == 3) {
509 // User - Employee
510 $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>';
511 }
512 print $e;
513 print '</td>'."\n";
514 if (!$i) {
515 $totalarray['nbfield']++;
516 }
517 }
518
519 print '</tr>'."\n";
520 $i++;
521 }
522
523 // If no record found
524 if ($num == 0) {
525 $colspan = 1;
526 foreach ($arrayfields as $key => $val) {
527 if (!empty($val['checked'])) {
528 $colspan++;
529 }
530 }
531 print '<tr><td colspan="'.$colspan.'"><span class="opacitymedium">'.$langs->trans("NoRecordFound").'</span></td></tr>';
532 }
533
534 $db->free($resql);
535
536 $parameters = array('arrayfields'=>$arrayfields, 'sql'=>$sql);
537 $reshook = $hookmanager->executeHooks('printFieldListFooter', $parameters); // Note that $action and $object may have been modified by hook
538 print $hookmanager->resPrint;
539
540 print "</table>";
541 print "</div>";
542
543 print '</form>';
544} else {
545 dol_print_error($db);
546}
547
548// End of page
549llxFooter();
550$db->close();
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.
Definition wrapper.php:55
llxFooter()
Empty footer.
Definition wrapper.php:69
Class to manage generation of HTML components Only common components must be here.
dol_print_error($db='', $error='', $errors=null)
Displays error message system with all the information to facilitate the diagnosis and the escalation...
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.
img_picto($titlealt, $picto, $moreatt='', $pictoisfullpath=false, $srconly=0, $notitle=0, $alt='', $morecss='', $marginleftonlyshort=2)
Show picto whatever it's its name (generic function)
print_liste_field_titre($name, $file="", $field="", $begin="", $moreparam="", $moreattrib="", $sortfield="", $sortorder="", $prefix="", $tooltip="", $forcenowrapcolumntitle=0)
Show title line of an array.
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.
print_barre_liste($titre, $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.
getDolGlobalString($key, $default='')
Return dolibarr global constant string value.
img_edit($titlealt='default', $float=0, $other='')
Show logo editer/modifier 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.