dolibarr 24.0.0-beta
index.php
Go to the documentation of this file.
1<?php
2/* Copyright (C) 2013-2014 Olivier Geffroy <jeff@jeffinfo.com>
3 * Copyright (C) 2013-2014 Florian Henry <florian.henry@open-concept.pro>
4 * Copyright (C) 2013-2024 Alexandre Spangaro <alexandre@inovea-conseil.com>
5 * Copyright (C) 2014 Juanjo Menent <jmenent@2byte.es>
6 * Copyright (C) 2024 Frédéric France <frederic.france@free.fr>
7 * Copyright (C) 2025 MDW <mdeweerd@users.noreply.github.com>
8 *
9 * This program is free software; you can redistribute it and/or modify
10 * it under the terms of the GNU General Public License as published by
11 * the Free Software Foundation; either version 3 of the License, or
12 * (at your option) any later version.
13 *
14 * This program is distributed in the hope that it will be useful,
15 * but WITHOUT ANY WARRANTY; without even the implied warranty of
16 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
17 * GNU General Public License for more details.
18 *
19 * You should have received a copy of the GNU General Public License
20 * along with this program. If not, see <https://www.gnu.org/licenses/>.
21 */
22
29// Load Dolibarr environment
30require '../../main.inc.php';
38require_once DOL_DOCUMENT_ROOT.'/core/lib/date.lib.php';
39require_once DOL_DOCUMENT_ROOT.'/core/lib/accounting.lib.php';
40require_once DOL_DOCUMENT_ROOT.'/expensereport/class/expensereport.class.php';
41
42// Load translation files required by the page
43$langs->loadLangs(array("compta", "bills", "other", "accountancy"));
44
45$validatemonth = GETPOSTINT('validatemonth');
46$validateyear = GETPOSTINT('validateyear');
47
48$month_start = getDolGlobalInt('SOCIETE_FISCAL_MONTH_START', 1);
49if (GETPOSTINT("year")) {
50 $year_start = GETPOSTINT("year");
51} else {
52 $year_start = dol_print_date(dol_now(), '%Y');
53 if (dol_print_date(dol_now(), '%m') < $month_start) {
54 $year_start--; // If current month is lower that starting fiscal month, we start last year
55 }
56}
57$year_end = $year_start + 1;
58$month_end = $month_start - 1;
59if ($month_end < 1) {
60 $month_end = 12;
61 $year_end--;
62}
63$search_date_start = dol_mktime(0, 0, 0, $month_start, 1, $year_start);
64$search_date_end = dol_get_last_day($year_end, $month_end);
65$year_current = $year_start;
66
67// Validate History
68$action = GETPOST('action', 'aZ09');
69
70$chartaccountcode = dol_getIdFromCode($db, getDolGlobalString('CHARTOFACCOUNTS'), 'accounting_system', 'rowid', 'pcg_version');
71
72// Security check
73if (!isModEnabled('accounting')) {
74 accessforbidden();
75}
76if ($user->socid > 0) {
77 accessforbidden();
78}
79if (!$user->hasRight('accounting', 'bind', 'write')) {
80 accessforbidden();
81}
82
83
84/*
85 * Actions
86 */
87
88$error = 0;
89
90if (($action == 'clean' || $action == 'validatehistory') && $user->hasRight('accounting', 'bind', 'write')) {
91 // Clean database by removing binding done on non existing or no more existing accounts
92 $db->begin();
93 $sql1 = "UPDATE ".$db->prefix()."expensereport_det as erd";
94 $sql1 .= " SET fk_code_ventilation = 0";
95 $sql1 .= ' WHERE erd.fk_code_ventilation NOT IN';
96 $sql1 .= ' (SELECT accnt.rowid ';
97 $sql1 .= ' FROM '.$db->prefix().'accounting_account as accnt';
98 $sql1 .= ' INNER JOIN '.$db->prefix().'accounting_system as syst';
99 $sql1 .= ' ON accnt.fk_pcg_version = syst.pcg_version AND syst.rowid='.((int) getDolGlobalInt('CHARTOFACCOUNTS')).' AND accnt.entity = '.((int) $conf->entity).')';
100 $sql1 .= ' AND erd.fk_expensereport IN (SELECT rowid FROM '.$db->prefix().'expensereport WHERE entity = '.((int) $conf->entity).')';
101 $sql1 .= " AND fk_code_ventilation <> 0";
102 dol_syslog("htdocs/accountancy/customer/index.php fixaccountancycode", LOG_DEBUG);
103 $resql1 = $db->query($sql1);
104 if (!$resql1) {
105 $error++;
106 $db->rollback();
107 setEventMessages($db->lasterror(), null, 'errors');
108 } else {
109 $db->commit();
110 }
111 // End clean database
112}
113
114if ($action == 'validatehistory' && $user->hasRight('accounting', 'bind', 'write')) {
115 $nbbinddone = 0;
116 $nbbindfailed = 0;
117 $notpossible = 0;
118
119 $db->begin();
120
121 // Now make the binding
122 $sql1 = "SELECT erd.rowid, accnt.rowid as suggestedid";
123 $sql1 .= " FROM ".MAIN_DB_PREFIX."expensereport_det as erd";
124 $sql1 .= " LEFT JOIN ".MAIN_DB_PREFIX."c_type_fees as t ON erd.fk_c_type_fees = t.id";
125 $sql1 .= " LEFT JOIN ".MAIN_DB_PREFIX."accounting_account as accnt ON t.accountancy_code = accnt.account_number AND accnt.active = 1 AND accnt.fk_pcg_version = '".$db->escape($chartaccountcode)."' AND accnt.entity =".((int) $conf->entity).",";
126 $sql1 .= " ".MAIN_DB_PREFIX."expensereport as er";
127 $sql1 .= " WHERE erd.fk_expensereport = er.rowid AND er.entity = ".((int) $conf->entity);
128 $sql1 .= " AND er.fk_statut IN (".ExpenseReport::STATUS_APPROVED.", ".ExpenseReport::STATUS_CLOSED.") AND erd.fk_code_ventilation <= 0";
129 if ($validatemonth && $validateyear) {
130 $sql1 .= dolSqlDateFilter('erd.date', 0, $validatemonth, $validateyear);
131 }
132
133 dol_syslog('htdocs/accountancy/expensereport/index.php');
134
135 $result = $db->query($sql1);
136 if (!$result) {
137 $error++;
138 setEventMessages($db->lasterror(), null, 'errors');
139 } else {
140 $num_lines = $db->num_rows($result);
141
142 $i = 0;
143 while ($i < min($num_lines, 10000)) { // No more than 10000 at once
144 $objp = $db->fetch_object($result);
145
146 $lineid = $objp->rowid;
147 $suggestedid = $objp->suggestedid;
148
149 if ($suggestedid > 0) {
150 $sqlupdate = "UPDATE ".MAIN_DB_PREFIX."expensereport_det";
151 $sqlupdate .= " SET fk_code_ventilation = ".((int) $suggestedid);
152 $sqlupdate .= " WHERE fk_code_ventilation <= 0 AND rowid = ".((int) $lineid);
153
154 $resqlupdate = $db->query($sqlupdate);
155 if (!$resqlupdate) {
156 $error++;
157 setEventMessages($db->lasterror(), null, 'errors');
158 $nbbindfailed++;
159 break;
160 } else {
161 $nbbinddone++;
162 }
163 } else {
164 $notpossible++;
165 $nbbindfailed++;
166 }
167
168 $i++;
169 }
170 if ($num_lines > 10000) {
171 $notpossible += ($num_lines - 10000);
172 }
173 }
174
175 if ($error) {
176 $db->rollback();
177 } else {
178 $db->commit();
179 setEventMessages($langs->trans('AutomaticBindingDone', $nbbinddone, $notpossible), null, ($notpossible ? 'warnings' : 'mesgs'));
180 if ($nbbindfailed) {
181 setEventMessages($langs->trans('DoManualBindingForFailedRecord', $nbbindfailed), null, 'warnings');
182 }
183 }
184}
185
186
187/*
188 * View
189 */
190$help_url = 'EN:Module_Double_Entry_Accounting|FR:Module_Comptabilit&eacute;_en_Partie_Double#Liaisons_comptables';
191
192llxHeader('', $langs->trans("ExpenseReportsVentilation"), $help_url, '', 0, 0, '', '', '', 'mod-accountancy accountancy-expensereport page-list');
193
194$textprevyear = '<a href="'.$_SERVER["PHP_SELF"].'?year='.($year_current - 1).'">'.img_previous().'</a>';
195$textnextyear = '&nbsp;<a href="'.$_SERVER["PHP_SELF"].'?year='.($year_current + 1).'">'.img_next().'</a>';
196
197
198print load_fiche_titre($langs->trans("ExpenseReportsVentilation")."&nbsp;".$textprevyear."&nbsp;".$langs->trans("Year")."&nbsp;".$year_start."&nbsp;".$textnextyear, '', 'title_accountancy');
199
200print '<div class="info">';
201print '<span class="">'.$langs->trans("DescVentilExpenseReport").'</span><br>';
202print '<span class="hideonsmartphone">'.$langs->trans("DescVentilExpenseReportMore", $langs->transnoentitiesnoconv("ValidateHistory"), $langs->transnoentitiesnoconv("ToBind")).'<br>';
203print '</span>';
204print '</div>';
205
206$y = $year_current;
207
208$buttonbind = '<a class="button small" href="'.$_SERVER['PHP_SELF'].'?action=validatehistory&token='.newToken().'&year='.$year_current.'">'.img_picto($langs->trans("ValidateHistory"), 'link', 'class="pictofixedwidth fa-color-unset"').$langs->trans("ValidateHistory").'</a>';
209
210
211print_barre_liste(img_picto('', 'unlink', 'class="paddingright fa-color-unset"').$langs->trans("OverviewOfAmountOfLinesNotBound"), 0, '', '', '', '', '', -1, '', '', 0, '', '', 0, 1, 1, 0, $buttonbind);
212//print load_fiche_titre($langs->trans("OverviewOfAmountOfLinesNotBound"), $buttonbind, '');
213
214print '<div class="div-table-responsive-no-min">';
215print '<table class="noborder centpercent">';
216print '<tr class="liste_titre"><td class="minwidth100">'.$langs->trans("Account").'</td>';
217for ($i = 1; $i <= 12; $i++) {
218 $j = $i + getDolGlobalInt('SOCIETE_FISCAL_MONTH_START', 1) - 1;
219 if ($j > 12) {
220 $j -= 12;
221 }
222 $cursormonth = $j;
223 if ($cursormonth > 12) {
224 $cursormonth -= 12;
225 }
226 $cursoryear = ($cursormonth < getDolGlobalInt('SOCIETE_FISCAL_MONTH_START', 1)) ? $y + 1 : $y;
227 $tmp = dol_getdate(dol_get_last_day($cursoryear, $cursormonth, 'gmt'), false, 'gmt');
228
229 print '<td width="60" class="right">';
230 if (!empty($tmp['mday'])) {
231 $param = 'search_date_startday=1&search_date_startmonth='.$cursormonth.'&search_date_startyear='.$cursoryear;
232 $param .= '&search_date_endday='.$tmp['mday'].'&search_date_endmonth='.$tmp['mon'].'&search_date_endyear='.$tmp['year'];
233 $param .= '&search_month='.$tmp['mon'].'&search_year='.$tmp['year'];
234 print '<a href="'.DOL_URL_ROOT.'/accountancy/expensereport/list.php?'.$param.'">';
235 }
236 print $langs->trans('MonthShort'.str_pad((string) $j, 2, '0', STR_PAD_LEFT));
237 if (!empty($tmp['mday'])) {
238 print '</a>';
239 }
240 print '</td>';
241}
242print '<td width="60" class="right"><b>'.$langs->trans("Total").'</b></td></tr>';
243
244$sql = "SELECT ".$db->ifsql('aa.account_number IS NULL', "'tobind'", 'aa.account_number')." AS codecomptable,";
245$sql .= " ".$db->ifsql('aa.label IS NULL', "'tobind'", 'aa.label')." AS intitule,";
246for ($i = 1; $i <= 12; $i++) {
247 $j = $i + getDolGlobalInt('SOCIETE_FISCAL_MONTH_START', 1) - 1;
248 if ($j > 12) {
249 $j -= 12;
250 }
251 $sql .= " SUM(".$db->ifsql("MONTH(er.date_debut) = ".((int) $j), "erd.total_ht", "0").") AS month".str_pad((string) $j, 2, "0", STR_PAD_LEFT).",";
252 $sql .= " SUM(".$db->ifsql("MONTH(er.date_debut) = ".((string) $j), "1", "0").") AS nbmonth".str_pad((string) $j, 2, "0", STR_PAD_LEFT).",";
253}
254$sql .= " SUM(erd.total_ht) as total, COUNT(erd.rowid) as nb";
255$sql .= " FROM ".MAIN_DB_PREFIX."expensereport_det as erd";
256$sql .= " LEFT JOIN ".MAIN_DB_PREFIX."expensereport as er ON er.rowid = erd.fk_expensereport";
257$sql .= " LEFT JOIN ".MAIN_DB_PREFIX."accounting_account as aa ON aa.rowid = erd.fk_code_ventilation";
258$sql .= " WHERE er.date_debut >= '".$db->idate($search_date_start)."'";
259$sql .= " AND er.date_debut <= '".$db->idate($search_date_end)."'";
260// Define begin binding date
261if (getDolGlobalInt('ACCOUNTING_DATE_START_BINDING')) {
262 $sql .= " AND er.date_debut >= '".$db->idate(getDolGlobalInt('ACCOUNTING_DATE_START_BINDING'))."'";
263}
264$sql .= " AND er.fk_statut IN (".ExpenseReport::STATUS_APPROVED.", ".ExpenseReport::STATUS_CLOSED.")";
265$sql .= " AND er.entity IN (".getEntity('expensereport', 0).")"; // We don't share object for accountancy
266$sql .= " AND aa.account_number IS NULL";
267$sql .= " GROUP BY erd.fk_code_ventilation,aa.account_number,aa.label";
268$sql .= ' ORDER BY aa.account_number';
269
270dol_syslog('/accountancy/expensereport/index.php', LOG_DEBUG);
271$resql = $db->query($sql);
272if ($resql) {
273 $num = $db->num_rows($resql);
274
275 while ($row = $db->fetch_row($resql)) {
276 print '<tr class="oddeven">';
277 print '<td>';
278 if ($row[0] == 'tobind') {
279 //print '<span class="opacitymedium">'.$langs->trans("Unknown").'</span>';
280 } else {
281 print length_accountg($row[0]).' - ';
282 }
283 //print '</td>';
284 //print '<td>';
285 if ($row[0] == 'tobind') {
286 $startmonth = getDolGlobalInt('SOCIETE_FISCAL_MONTH_START', 1);
287 if ($startmonth > 12) {
288 $startmonth -= 12;
289 }
290 $startyear = ($startmonth < getDolGlobalInt('SOCIETE_FISCAL_MONTH_START', 1)) ? $y + 1 : $y;
291 $endmonth = getDolGlobalInt('SOCIETE_FISCAL_MONTH_START', 1) + 11;
292 if ($endmonth > 12) {
293 $endmonth -= 12;
294 }
295 $endyear = ($endmonth < getDolGlobalInt('SOCIETE_FISCAL_MONTH_START', 1)) ? $y + 1 : $y;
296 print $langs->trans("UseMenuToSetBindindManualy", DOL_URL_ROOT.'/accountancy/expensereport/list.php?search_date_startday=1&search_date_startmonth='.((int) $startmonth).'&search_date_startyear='.((int) $startyear).'&search_date_endday=&search_date_endmonth='.((int) $endmonth).'&search_date_endyear='.((int) $endyear), $langs->transnoentitiesnoconv("ToBind"));
297 } else {
298 print $row[1];
299 }
300 print '</td>';
301 for ($i = 2; $i <= 13; $i++) {
302 $cursormonth = (getDolGlobalInt('SOCIETE_FISCAL_MONTH_START', 1) + $i - 2);
303 if ($cursormonth > 12) {
304 $cursormonth -= 12;
305 }
306 $cursoryear = ($cursormonth < getDolGlobalInt('SOCIETE_FISCAL_MONTH_START', 1)) ? $y + 1 : $y;
307 $tmp = dol_getdate(dol_get_last_day($cursoryear, $cursormonth, 'gmt'), false, 'gmt');
308
309 print '<td class="right nowraponall amount" title="'.price($row[2 * $i - 2]).' - '.$row[2 * $i - 1].' lines">';
310 print price($row[2 * $i - 2]);
311 // Add link to make binding
312 if (!empty(price2num($row[2 * $i - 2])) || !empty($row[2 * $i - 1])) {
313 print '<a href="'.$_SERVER['PHP_SELF'].'?action=validatehistory&year='.$y.'&validatemonth='.((int) $cursormonth).'&validateyear='.((int) $cursoryear).'&token='.newToken().'">';
314 print img_picto($langs->trans("ValidateHistory").' ('.$langs->trans('Month'.str_pad((string) $cursormonth, 2, '0', STR_PAD_LEFT)).' '.$cursoryear.')', 'link', 'class="marginleft2"');
315 print '</a>';
316 }
317 print '</td>';
318 }
319 print '<td class="right nowraponall amount"><b>'.price($row[26]).'</b></td>';
320 print '</tr>';
321 }
322 $db->free($resql);
323
324 if ($num == 0) {
325 print '<tr class="oddeven"><td colspan="15">';
326 print '<span class="opacitymedium">'.$langs->trans("NoRecordFound").'</span>';
327 print '</td></tr>';
328 }
329} else {
330 print $db->lasterror(); // Show last sql error
331}
332print "</table>\n";
333print '</div>';
334
335
336print '<br>';
337
338
339print_barre_liste(img_picto('', 'link', 'class="paddingright fa-color-unset"').$langs->trans("OverviewOfAmountOfLinesBound"), 0, '', '', '', '', '', -1, '', '', 0, '', '', 0, 1, 1);
340//print load_fiche_titre($langs->trans("OverviewOfAmountOfLinesBound"), '', '');
341
342
343print '<div class="div-table-responsive-no-min">';
344print '<table class="noborder centpercent">';
345print '<tr class="liste_titre"><td class="minwidth100">'.$langs->trans("Account").'</td>';
346for ($i = 1; $i <= 12; $i++) {
347 $j = $i + getDolGlobalInt('SOCIETE_FISCAL_MONTH_START', 1) - 1;
348 if ($j > 12) {
349 $j -= 12;
350 }
351 $cursormonth = $j;
352 if ($cursormonth > 12) {
353 $cursormonth -= 12;
354 }
355 $cursoryear = ($cursormonth < getDolGlobalInt('SOCIETE_FISCAL_MONTH_START', 1)) ? $y + 1 : $y;
356 $tmp = dol_getdate(dol_get_last_day($cursoryear, $cursormonth, 'gmt'), false, 'gmt');
357
358 print '<td width="60" class="right">';
359 if (!empty($tmp['mday'])) {
360 $param = 'search_date_startday=1&search_date_startmonth='.$cursormonth.'&search_date_startyear='.$cursoryear;
361 $param .= '&search_date_endday='.$tmp['mday'].'&search_date_endmonth='.$tmp['mon'].'&search_date_endyear='.$tmp['year'];
362 print '<a href="'.DOL_URL_ROOT.'/accountancy/expensereport/lines.php?'.$param.'">';
363 }
364 print $langs->trans('MonthShort'.str_pad((string) $j, 2, '0', STR_PAD_LEFT));
365 if (!empty($tmp['mday'])) {
366 print '</a>';
367 }
368 print '</td>';
369}
370print '<td width="60" class="right"><b>'.$langs->trans("Total").'</b></td></tr>';
371
372$sql = "SELECT ".$db->ifsql('aa.account_number IS NULL', "'tobind'", 'aa.account_number')." AS codecomptable,";
373$sql .= " ".$db->ifsql('aa.label IS NULL', "'tobind'", 'aa.label')." AS intitule,";
374for ($i = 1; $i <= 12; $i++) {
375 $j = $i + getDolGlobalInt('SOCIETE_FISCAL_MONTH_START', 1) - 1;
376 if ($j > 12) {
377 $j -= 12;
378 }
379 $sql .= " SUM(".$db->ifsql("MONTH(er.date_debut) = ".((int) $j), "erd.total_ht", "0").") AS month".str_pad((string) $j, 2, "0", STR_PAD_LEFT).",";
380}
381$sql .= " ROUND(SUM(erd.total_ht),2) as total";
382$sql .= " FROM ".MAIN_DB_PREFIX."expensereport_det as erd";
383$sql .= " LEFT JOIN ".MAIN_DB_PREFIX."expensereport as er ON er.rowid = erd.fk_expensereport";
384$sql .= " LEFT JOIN ".MAIN_DB_PREFIX."accounting_account as aa ON aa.rowid = erd.fk_code_ventilation";
385$sql .= " WHERE er.date_debut >= '".$db->idate($search_date_start)."'";
386$sql .= " AND er.date_debut <= '".$db->idate($search_date_end)."'";
387// Define begin binding date
388if (getDolGlobalInt('ACCOUNTING_DATE_START_BINDING')) {
389 $sql .= " AND er.date_debut >= '".$db->idate(getDolGlobalInt('ACCOUNTING_DATE_START_BINDING'))."'";
390}
391$sql .= " AND er.fk_statut IN (".ExpenseReport::STATUS_APPROVED.", ".ExpenseReport::STATUS_CLOSED.")";
392$sql .= " AND er.entity IN (".getEntity('expensereport', 0).")"; // We don't share object for accountancy
393$sql .= " AND aa.account_number IS NOT NULL";
394$sql .= " GROUP BY erd.fk_code_ventilation,aa.account_number,aa.label";
395
396dol_syslog('htdocs/accountancy/expensereport/index.php');
397$resql = $db->query($sql);
398if ($resql) {
399 $num = $db->num_rows($resql);
400
401 while ($row = $db->fetch_row($resql)) {
402 print '<tr class="oddeven">';
403 print '<td class="tdoverflowmax300"'.(empty($row[1]) ? '' : ' title="'.dol_escape_htmltag($row[1]).'"').'>';
404 if ($row[0] == 'tobind') {
405 //print '<span class="opacitymedium">'.$langs->trans("Unknown").'</span>';
406 } else {
407 print length_accountg($row[0]).' - ';
408 }
409 if ($row[0] == 'tobind') {
410 print $langs->trans("UseMenuToSetBindindManualy", DOL_URL_ROOT.'/accountancy/expensereport/list.php?search_year='.((int) $y), $langs->transnoentitiesnoconv("ToBind"));
411 } else {
412 print $row[1];
413 }
414 print '</td>';
415 for ($i = 2; $i <= 13; $i++) {
416 print '<td class="right nowraponall amount">';
417 print price($row[$i]);
418 print '</td>';
419 }
420 print '<td class="right nowraponall amount"><b>'.price($row[14]).'</b></td>';
421 print '</tr>';
422 }
423 $db->free($resql);
424
425 if ($num == 0) {
426 print '<tr class="oddeven"><td colspan="15">';
427 print '<span class="opacitymedium">'.$langs->trans("NoRecordFound").'</span>';
428 print '</td></tr>';
429 }
430} else {
431 print $db->lasterror(); // Show last sql error
432}
433print "</table>\n";
434print '</div>';
435
436
437
438if (getDolGlobalString('SHOW_TOTAL_OF_PREVIOUS_LISTS_IN_LIN_PAGE')) { // This part of code looks strange. Why showing a report that should rely on result of this step ?
439 print '<br>';
440 print '<br>';
441
442 print_barre_liste($langs->trans("OtherInfo"), 0, '', '', '', '', '', -1, '', '', 0, '', '', 0, 1, 1);
443 //print load_fiche_titre($langs->trans("OtherInfo"), '', '');
444
445 print '<div class="div-table-responsive-no-min">';
446 print '<table class="noborder centpercent">';
447 print '<tr class="liste_titre"><td class="left">'.$langs->trans("Total").'</td>';
448 for ($i = 1; $i <= 12; $i++) {
449 $j = $i + getDolGlobalInt('SOCIETE_FISCAL_MONTH_START', 1) - 1;
450 if ($j > 12) {
451 $j -= 12;
452 }
453 print '<td width="60" class="right">'.$langs->trans('MonthShort'.str_pad((string) $j, 2, '0', STR_PAD_LEFT)).'</td>';
454 }
455 print '<td width="60" class="right"><b>'.$langs->trans("Total").'</b></td></tr>';
456
457 $sql = "SELECT '".$db->escape($langs->trans("TotalExpenseReport"))."' AS label,";
458 for ($i = 1; $i <= 12; $i++) {
459 $j = $i + getDolGlobalInt('SOCIETE_FISCAL_MONTH_START', 1) - 1;
460 if ($j > 12) {
461 $j -= 12;
462 }
463 $sql .= " SUM(".$db->ifsql("MONTH(er.date_create) = ".((int) $j), "erd.total_ht", "0").") AS month".str_pad((string) $j, 2, "0", STR_PAD_LEFT).",";
464 }
465 $sql .= " SUM(erd.total_ht) as total";
466 $sql .= " FROM ".MAIN_DB_PREFIX."expensereport_det as erd";
467 $sql .= " LEFT JOIN ".MAIN_DB_PREFIX."expensereport as er ON er.rowid = erd.fk_expensereport";
468 $sql .= " WHERE er.date_debut >= '".$db->idate($search_date_start)."'";
469 $sql .= " AND er.date_debut <= '".$db->idate($search_date_end)."'";
470 // Define begin binding date
471 if (getDolGlobalInt('ACCOUNTING_DATE_START_BINDING')) {
472 $sql .= " AND er.date_debut >= '".$db->idate(getDolGlobalInt('ACCOUNTING_DATE_START_BINDING'))."'";
473 }
474 $sql .= " AND er.fk_statut IN (".ExpenseReport::STATUS_APPROVED.", ".ExpenseReport::STATUS_CLOSED.")";
475 $sql .= " AND er.entity IN (".getEntity('expensereport', 0).")"; // We don't share object for accountancy
476
477 dol_syslog('htdocs/accountancy/expensereport/index.php');
478 $resql = $db->query($sql);
479 if ($resql) {
480 $num = $db->num_rows($resql);
481
482 while ($row = $db->fetch_row($resql)) {
483 print '<tr><td>'.$row[0].'</td>';
484 for ($i = 1; $i <= 12; $i++) {
485 print '<td class="right nowraponall amount">'.price($row[$i]).'</td>';
486 }
487 print '<td class="right nowraponall amount"><b>'.price($row[13]).'</b></td>';
488 print '</tr>';
489 }
490
491 $db->free($resql);
492 } else {
493 print $db->lasterror(); // Show last sql error
494 }
495 print "</table>\n";
496 print '</div>';
497}
498
499// End of page
500llxFooter();
501$db->close();
length_accountg
length_accountg($account)
Return General accounting account with defined length (used for product and miscellaneous)
Definition accounting.lib.php:152
llxFooter
llxFooter($comment='', $zone='private', $disabledoutputofmessages=0)
Empty footer.
Definition wrapper.php:91
llxHeader
if(!defined('NOREQUIRESOC')) if(!defined( 'NOREQUIRETRAN')) if(!defined('NOTOKENRENEWAL')) if(!defined( 'NOREQUIREMENU')) if(!defined('NOREQUIREHTML')) if(!defined( 'NOREQUIREAJAX')) llxHeader($head='', $title='', $help_url='', $target='', $disablejs=0, $disablehead=0, $arrayofjs='', $arrayofcss='', $morequerystring='', $morecssonbody='', $replacemainareaby='', $disablenofollow=0, $disablenoindex=0)
Empty header.
Definition wrapper.php:73
ExpenseReport\STATUS_CLOSED
const STATUS_CLOSED
Classified paid.
Definition expensereport.class.php:293
dolSqlDateFilter
dolSqlDateFilter($datefield, $day_date, $month_date, $year_date, $excludefirstand=0, $gm=false)
Generate a SQL string to make a filter into a range (for second of date until last second of date).
Definition date.lib.php:386
dol_get_last_day
dol_get_last_day($year, $month=12, $gm=false)
Return GMT time for last day of a month or year.
Definition date.lib.php:623
$conf
if(!isModEnabled('ai')||!getDolGlobalString('AI_ASSISTANT_ENABLED')) global $conf
The main.inc.php has been included so the following variable are now defined:
Definition execute_tool.php:50
$db
if(!isModEnabled('ai')||!getDolGlobalString('AI_ASSISTANT_ENABLED')) global $db
API class for accounts.
Definition execute_tool.php:46
dol_now
dol_now($mode='gmt')
Return date for now.
Definition functions.lib.php:4295
dol_mktime
dol_mktime($hour, $minute, $second, $month, $day, $year, $gm='auto', $check=1)
Return a timestamp date built from detailed information (by default a local PHP server timestamp) Rep...
Definition functions.lib.php:4209
dol_getIdFromCode
dol_getIdFromCode($db, $key, $tablename, $fieldkey='code', $fieldid='id', $entityfilter=0, $filters='', $useCache=true)
Return an id or code from a code or id.
Definition functions.lib.php:11826
setEventMessages
setEventMessages($mesg, $mesgs, $style='mesgs', $messagekey='', $noduplicate=0, $attop=0)
Set event messages in dol_events session object.
Definition functions.lib.php:11394
print_barre_liste
print_barre_liste($title, $page, $file, $options='', $sortfield='', $sortorder='', $morehtmlcenter='', $num=-1, $totalnboflines='', $picto='generic', $pictoisfullpath=0, $morehtmlright='', $morecss='', $limit=-1, $selectlimitsuffix=0, $hidenavigation=0, $pagenavastextinput=0, $morehtmlrightbeforearrow='')
Print a title with navigation controls for pagination.
Definition functions.lib.php:7345
img_picto
img_picto($titlealt, $picto, $moreatt='', $pictoisfullpath=0, $srconly=0, $notitle=0, $alt='', $morecss='', $marginleftonlyshort=2, $allowothertags=array())
Show picto whatever it's its name (generic function)
Definition functions.lib.php:5657
GETPOSTINT
GETPOSTINT($paramname, $method=0)
Return the value of a $_GET or $_POST supervariable, converted into integer.
Definition functions.lib.php:951
price2num
price2num($amount, $rounding='', $option=0)
Function that return a number with universal decimal format (decimal separator is '.
Definition functions.lib.php:7824
price
price($amount, $form=0, $outlangs='', $trunc=1, $rounding=-1, $forcerounding=-1, $currency_code='')
Function to format a value into an amount for visual output Function used into PDF and HTML pages.
Definition functions.lib.php:7693
getDolGlobalInt
getDolGlobalInt($key, $default=0)
Return a Dolibarr global constant int value.
Definition functions.lib.php:321
img_previous
img_previous($titlealt='default', $moreatt='')
Show previous logo.
Definition functions.lib.php:6639
GETPOST
GETPOST($paramname, $check='alphanohtml', $method=0, $filter=null, $options=null, $noreplace=0)
Return value of a param into GET or POST supervariable.
Definition functions.lib.php:1082
dol_print_date
dol_print_date($time, $format='', $tzoutput='auto', $outputlangs=null, $encodetooutput=false, $decorate=0)
Output date in a string format according to outputlangs (or langs if not defined).
Definition functions.lib.php:3884
img_next
img_next($titlealt='default', $moreatt='')
Show next logo.
Definition functions.lib.php:6620
load_fiche_titre
load_fiche_titre($title, $morehtmlright='', $picto='generic', $pictoisfullpath=0, $id='', $morecssontable='', $morehtmlcenter='', $morecssonpicto='widthpictotitle')
Load a title with picto.
Definition functions.lib.php:7292
getDolGlobalString
getDolGlobalString($key, $default='')
Return a Dolibarr global constant string value.
Definition functions.lib.php:286
isModEnabled
isModEnabled($module)
Is Dolibarr module enabled.
Definition functions.lib.php:489
dol_syslog
dol_syslog($message, $level=LOG_INFO, $ident=0, $suffixinfilename='', $restricttologhandler='', $logcontext=null)
Write log message into outputs.
Definition functions.lib.php:2754
dol_getdate
dol_getdate($timestamp, $fast=false, $forcetimezone='')
Return an array with locale date info.
Definition functions.lib.php:4162
accessforbidden
accessforbidden($message='', $printheader=1, $printfooter=1, $showonlymessage=0, $params=null)
Show a message to say access is forbidden and stop program.
Definition security.lib.php:1097
Generated on Mon Jun 22 2026 21:04:48 for dolibarr by Doxygen 1.11.0