dolibarr  20.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 <aspangaro@easya.solutions>
5  * Copyright (C) 2014 Juanjo Menent <jmenent@2byte.es>
6  *
7  * This program is free software; you can redistribute it and/or modify
8  * it under the terms of the GNU General Public License as published by
9  * the Free Software Foundation; either version 3 of the License, or
10  * (at your option) any later version.
11  *
12  * This program is distributed in the hope that it will be useful,
13  * but WITHOUT ANY WARRANTY; without even the implied warranty of
14  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15  * GNU General Public License for more details.
16  *
17  * You should have received a copy of the GNU General Public License
18  * along with this program. If not, see <https://www.gnu.org/licenses/>.
19  */
20 
27 // Load Dolibarr environment
28 require '../../main.inc.php';
29 require_once DOL_DOCUMENT_ROOT.'/core/lib/date.lib.php';
30 require_once DOL_DOCUMENT_ROOT.'/core/lib/accounting.lib.php';
31 require_once DOL_DOCUMENT_ROOT.'/expensereport/class/expensereport.class.php';
32 
33 // Load translation files required by the page
34 $langs->loadLangs(array("compta", "bills", "other", "accountancy"));
35 
36 $validatemonth = GETPOSTINT('validatemonth');
37 $validateyear = GETPOSTINT('validateyear');
38 
39 $month_start = getDolGlobalInt('SOCIETE_FISCAL_MONTH_START', 1);
40 if (GETPOSTINT("year")) {
41  $year_start = GETPOSTINT("year");
42 } else {
43  $year_start = dol_print_date(dol_now(), '%Y');
44  if (dol_print_date(dol_now(), '%m') < $month_start) {
45  $year_start--; // If current month is lower that starting fiscal month, we start last year
46  }
47 }
48 $year_end = $year_start + 1;
49 $month_end = $month_start - 1;
50 if ($month_end < 1) {
51  $month_end = 12;
52  $year_end--;
53 }
54 $search_date_start = dol_mktime(0, 0, 0, $month_start, 1, $year_start);
55 $search_date_end = dol_get_last_day($year_end, $month_end);
56 $year_current = $year_start;
57 
58 // Validate History
59 $action = GETPOST('action', 'aZ09');
60 
61 $chartaccountcode = dol_getIdFromCode($db, getDolGlobalInt('CHARTOFACCOUNTS'), 'accounting_system', 'rowid', 'pcg_version');
62 
63 // Security check
64 if (!isModEnabled('accounting')) {
66 }
67 if ($user->socid > 0) {
69 }
70 if (!$user->hasRight('accounting', 'bind', 'write')) {
72 }
73 
74 
75 /*
76  * Actions
77  */
78 
79 if (($action == 'clean' || $action == 'validatehistory') && $user->hasRight('accounting', 'bind', 'write')) {
80  // Clean database
81  $db->begin();
82  $sql1 = "UPDATE ".MAIN_DB_PREFIX."expensereport_det as erd";
83  $sql1 .= " SET fk_code_ventilation = 0";
84  $sql1 .= ' WHERE erd.fk_code_ventilation NOT IN';
85  $sql1 .= ' (SELECT accnt.rowid ';
86  $sql1 .= ' FROM '.MAIN_DB_PREFIX.'accounting_account as accnt';
87  $sql1 .= ' INNER JOIN '.MAIN_DB_PREFIX.'accounting_system as syst';
88  $sql1 .= ' ON accnt.fk_pcg_version = syst.pcg_version AND syst.rowid='.((int) getDolGlobalInt('CHARTOFACCOUNTS')).' AND accnt.entity = '.((int) $conf->entity).')';
89  $sql1 .= ' AND erd.fk_expensereport IN (SELECT rowid FROM '.MAIN_DB_PREFIX.'expensereport WHERE entity = '.((int) $conf->entity).')';
90  $sql1 .= ' AND fk_code_ventilation <> 0';
91  dol_syslog("htdocs/accountancy/customer/index.php fixaccountancycode", LOG_DEBUG);
92  $resql1 = $db->query($sql1);
93  if (!$resql1) {
94  $error++;
95  $db->rollback();
96  setEventMessages($db->lasterror(), null, 'errors');
97  } else {
98  $db->commit();
99  }
100  // End clean database
101 }
102 
103 if ($action == 'validatehistory') {
104  $error = 0;
105  $nbbinddone = 0;
106  $nbbindfailed = 0;
107  $notpossible = 0;
108 
109  $db->begin();
110 
111  // Now make the binding
112  $sql1 = "SELECT erd.rowid, accnt.rowid as suggestedid";
113  $sql1 .= " FROM ".MAIN_DB_PREFIX."expensereport_det as erd";
114  $sql1 .= " LEFT JOIN ".MAIN_DB_PREFIX."c_type_fees as t ON erd.fk_c_type_fees = t.id";
115  $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).",";
116  $sql1 .= " ".MAIN_DB_PREFIX."expensereport as er";
117  $sql1 .= " WHERE erd.fk_expensereport = er.rowid AND er.entity = ".((int) $conf->entity);
118  $sql1 .= " AND er.fk_statut IN (".ExpenseReport::STATUS_APPROVED.", ".ExpenseReport::STATUS_CLOSED.") AND erd.fk_code_ventilation <= 0";
119  if ($validatemonth && $validateyear) {
120  $sql1 .= dolSqlDateFilter('erd.date', 0, $validatemonth, $validateyear);
121  }
122 
123  dol_syslog('htdocs/accountancy/expensereport/index.php');
124 
125  $result = $db->query($sql1);
126  if (!$result) {
127  $error++;
128  setEventMessages($db->lasterror(), null, 'errors');
129  } else {
130  $num_lines = $db->num_rows($result);
131 
132  $i = 0;
133  while ($i < min($num_lines, 10000)) { // No more than 10000 at once
134  $objp = $db->fetch_object($result);
135 
136  $lineid = $objp->rowid;
137  $suggestedid = $objp->suggestedid;
138 
139  if ($suggestedid > 0) {
140  $sqlupdate = "UPDATE ".MAIN_DB_PREFIX."expensereport_det";
141  $sqlupdate .= " SET fk_code_ventilation = ".((int) $suggestedid);
142  $sqlupdate .= " WHERE fk_code_ventilation <= 0 AND rowid = ".((int) $lineid);
143 
144  $resqlupdate = $db->query($sqlupdate);
145  if (!$resqlupdate) {
146  $error++;
147  setEventMessages($db->lasterror(), null, 'errors');
148  $nbbindfailed++;
149  break;
150  } else {
151  $nbbinddone++;
152  }
153  } else {
154  $notpossible++;
155  $nbbindfailed++;
156  }
157 
158  $i++;
159  }
160  if ($num_lines > 10000) {
161  $notpossible += ($num_lines - 10000);
162  }
163  }
164 
165  if ($error) {
166  $db->rollback();
167  } else {
168  $db->commit();
169  setEventMessages($langs->trans('AutomaticBindingDone', $nbbinddone, $notpossible), null, ($notpossible ? 'warnings' : 'mesgs'));
170  if ($nbbindfailed) {
171  setEventMessages($langs->trans('DoManualBindingForFailedRecord', $nbbindfailed), null, 'warnings');
172  }
173  }
174 }
175 
176 
177 /*
178  * View
179  */
180 $help_url = 'EN:Module_Double_Entry_Accounting|FR:Module_Comptabilit&eacute;_en_Partie_Double#Liaisons_comptables';
181 
182 llxHeader('', $langs->trans("ExpenseReportsVentilation"), $help_url);
183 
184 $textprevyear = '<a href="'.$_SERVER["PHP_SELF"].'?year='.($year_current - 1).'">'.img_previous().'</a>';
185 $textnextyear = '&nbsp;<a href="'.$_SERVER["PHP_SELF"].'?year='.($year_current + 1).'">'.img_next().'</a>';
186 
187 
188 print load_fiche_titre($langs->trans("ExpenseReportsVentilation")."&nbsp;".$textprevyear."&nbsp;".$langs->trans("Year")."&nbsp;".$year_start."&nbsp;".$textnextyear, '', 'title_accountancy');
189 
190 print '<span class="opacitymedium">'.$langs->trans("DescVentilExpenseReport").'</span><br>';
191 print '<span class="opacitymedium hideonsmartphone">'.$langs->trans("DescVentilExpenseReportMore", $langs->transnoentitiesnoconv("ValidateHistory"), $langs->transnoentitiesnoconv("ToBind")).'<br>';
192 print '</span><br>';
193 
194 
195 $y = $year_current;
196 
197 $buttonbind = '<a class="button small" href="'.$_SERVER['PHP_SELF'].'?action=validatehistory&token='.newToken().'&year='.$year_current.'">'.img_picto('', 'link', 'class="paddingright fa-color-unset"').$langs->trans("ValidateHistory").'</a>';
198 
199 
200 print_barre_liste(img_picto('', 'unlink', 'class="paddingright fa-color-unset"').$langs->trans("OverviewOfAmountOfLinesNotBound"), '', '', '', '', '', '', -1, '', '', 0, '', '', 0, 1, 1, 0, $buttonbind);
201 //print load_fiche_titre($langs->trans("OverviewOfAmountOfLinesNotBound"), $buttonbind, '');
202 
203 print '<div class="div-table-responsive-no-min">';
204 print '<table class="noborder centpercent">';
205 print '<tr class="liste_titre"><td class="minwidth100">'.$langs->trans("Account").'</td>';
206 print '<td>'.$langs->trans("Label").'</td>';
207 for ($i = 1; $i <= 12; $i++) {
208  $j = $i + getDolGlobalInt('SOCIETE_FISCAL_MONTH_START', 1) - 1;
209  if ($j > 12) {
210  $j -= 12;
211  }
212  $cursormonth = $j;
213  if ($cursormonth > 12) {
214  $cursormonth -= 12;
215  }
216  $cursoryear = ($cursormonth < getDolGlobalInt('SOCIETE_FISCAL_MONTH_START', 1)) ? $y + 1 : $y;
217  $tmp = dol_getdate(dol_get_last_day($cursoryear, $cursormonth, 'gmt'), false, 'gmt');
218 
219  print '<td width="60" class="right">';
220  if (!empty($tmp['mday'])) {
221  $param = 'search_date_startday=1&search_date_startmonth='.$cursormonth.'&search_date_startyear='.$cursoryear;
222  $param .= '&search_date_endday='.$tmp['mday'].'&search_date_endmonth='.$tmp['mon'].'&search_date_endyear='.$tmp['year'];
223  $param .= '&search_month='.$tmp['mon'].'&search_year='.$tmp['year'];
224  print '<a href="'.DOL_URL_ROOT.'/accountancy/expensereport/list.php?'.$param.'">';
225  }
226  print $langs->trans('MonthShort'.str_pad((string) $j, 2, '0', STR_PAD_LEFT));
227  if (!empty($tmp['mday'])) {
228  print '</a>';
229  }
230  print '</td>';
231 }
232 print '<td width="60" class="right"><b>'.$langs->trans("Total").'</b></td></tr>';
233 
234 $sql = "SELECT ".$db->ifsql('aa.account_number IS NULL', "'tobind'", 'aa.account_number')." AS codecomptable,";
235 $sql .= " ".$db->ifsql('aa.label IS NULL', "'tobind'", 'aa.label')." AS intitule,";
236 for ($i = 1; $i <= 12; $i++) {
237  $j = $i + getDolGlobalInt('SOCIETE_FISCAL_MONTH_START', 1) - 1;
238  if ($j > 12) {
239  $j -= 12;
240  }
241  $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).",";
242 }
243 $sql .= " SUM(erd.total_ht) as total";
244 $sql .= " FROM ".MAIN_DB_PREFIX."expensereport_det as erd";
245 $sql .= " LEFT JOIN ".MAIN_DB_PREFIX."expensereport as er ON er.rowid = erd.fk_expensereport";
246 $sql .= " LEFT JOIN ".MAIN_DB_PREFIX."accounting_account as aa ON aa.rowid = erd.fk_code_ventilation";
247 $sql .= " WHERE er.date_debut >= '".$db->idate($search_date_start)."'";
248 $sql .= " AND er.date_debut <= '".$db->idate($search_date_end)."'";
249 // Define begin binding date
250 if (getDolGlobalString('ACCOUNTING_DATE_START_BINDING')) {
251  $sql .= " AND er.date_debut >= '".$db->idate(getDolGlobalString('ACCOUNTING_DATE_START_BINDING'))."'";
252 }
253 $sql .= " AND er.fk_statut IN (".ExpenseReport::STATUS_APPROVED.", ".ExpenseReport::STATUS_CLOSED.")";
254 $sql .= " AND er.entity IN (".getEntity('expensereport', 0).")"; // We don't share object for accountancy
255 $sql .= " AND aa.account_number IS NULL";
256 $sql .= " GROUP BY erd.fk_code_ventilation,aa.account_number,aa.label";
257 $sql .= ' ORDER BY aa.account_number';
258 
259 dol_syslog('/accountancy/expensereport/index.php', LOG_DEBUG);
260 $resql = $db->query($sql);
261 if ($resql) {
262  $num = $db->num_rows($resql);
263 
264  while ($row = $db->fetch_row($resql)) {
265  print '<tr class="oddeven">';
266  print '<td>';
267  if ($row[0] == 'tobind') {
268  print '<span class="opacitymedium">'.$langs->trans("Unknown").'</span>';
269  } else {
270  print length_accountg($row[0]);
271  }
272  print '</td>';
273  print '<td>';
274  if ($row[0] == 'tobind') {
275  $startmonth = getDolGlobalInt('SOCIETE_FISCAL_MONTH_START', 1);
276  if ($startmonth > 12) {
277  $startmonth -= 12;
278  }
279  $startyear = ($startmonth < getDolGlobalInt('SOCIETE_FISCAL_MONTH_START', 1)) ? $y + 1 : $y;
280  $endmonth = getDolGlobalInt('SOCIETE_FISCAL_MONTH_START', 1) + 11;
281  if ($endmonth > 12) {
282  $endmonth -= 12;
283  }
284  $endyear = ($endmonth < getDolGlobalInt('SOCIETE_FISCAL_MONTH_START', 1)) ? $y + 1 : $y;
285  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"));
286  } else {
287  print $row[1];
288  }
289  print '</td>';
290  for ($i = 2; $i <= 13; $i++) {
291  $cursormonth = (getDolGlobalInt('SOCIETE_FISCAL_MONTH_START', 1) + $i - 2);
292  if ($cursormonth > 12) {
293  $cursormonth -= 12;
294  }
295  $cursoryear = ($cursormonth < getDolGlobalInt('SOCIETE_FISCAL_MONTH_START', 1)) ? $y + 1 : $y;
296  $tmp = dol_getdate(dol_get_last_day($cursoryear, $cursormonth, 'gmt'), false, 'gmt');
297 
298  print '<td class="right nowraponall amount">';
299  print price($row[$i]);
300  // Add link to make binding
301  if (!empty(price2num($row[$i]))) {
302  print '<a href="'.$_SERVER['PHP_SELF'].'?action=validatehistory&year='.$y.'&validatemonth='.((int) $cursormonth).'&validateyear='.((int) $cursoryear).'&token='.newToken().'">';
303  print img_picto($langs->trans("ValidateHistory").' ('.$langs->trans('Month'.str_pad((string) $cursormonth, 2, '0', STR_PAD_LEFT)).' '.$cursoryear.')', 'link', 'class="marginleft2"');
304  print '</a>';
305  }
306  print '</td>';
307  }
308  print '<td class="right nowraponall amount"><b>'.price($row[14]).'</b></td>';
309  print '</tr>';
310  }
311  $db->free($resql);
312 
313  if ($num == 0) {
314  print '<tr class="oddeven"><td colspan="16">';
315  print '<span class="opacitymedium">'.$langs->trans("NoRecordFound").'</span>';
316  print '</td></tr>';
317  }
318 } else {
319  print $db->lasterror(); // Show last sql error
320 }
321 print "</table>\n";
322 print '</div>';
323 
324 
325 print '<br>';
326 
327 
328 print_barre_liste(img_picto('', 'link', 'class="paddingright fa-color-unset"').$langs->trans("OverviewOfAmountOfLinesBound"), '', '', '', '', '', '', -1, '', '', 0, '', '', 0, 1, 1);
329 //print load_fiche_titre($langs->trans("OverviewOfAmountOfLinesBound"), '', '');
330 
331 
332 print '<div class="div-table-responsive-no-min">';
333 print '<table class="noborder centpercent">';
334 print '<tr class="liste_titre"><td class="minwidth100">'.$langs->trans("Account").'</td>';
335 print '<td>'.$langs->trans("Label").'</td>';
336 for ($i = 1; $i <= 12; $i++) {
337  $j = $i + getDolGlobalInt('SOCIETE_FISCAL_MONTH_START', 1) - 1;
338  if ($j > 12) {
339  $j -= 12;
340  }
341  print '<td width="60" class="right">'.$langs->trans('MonthShort'.str_pad((string) $j, 2, '0', STR_PAD_LEFT)).'</td>';
342 }
343 print '<td width="60" class="right"><b>'.$langs->trans("Total").'</b></td></tr>';
344 
345 $sql = "SELECT ".$db->ifsql('aa.account_number IS NULL', "'tobind'", 'aa.account_number')." AS codecomptable,";
346 $sql .= " ".$db->ifsql('aa.label IS NULL', "'tobind'", 'aa.label')." AS intitule,";
347 for ($i = 1; $i <= 12; $i++) {
348  $j = $i + getDolGlobalInt('SOCIETE_FISCAL_MONTH_START', 1) - 1;
349  if ($j > 12) {
350  $j -= 12;
351  }
352  $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).",";
353 }
354 $sql .= " ROUND(SUM(erd.total_ht),2) as total";
355 $sql .= " FROM ".MAIN_DB_PREFIX."expensereport_det as erd";
356 $sql .= " LEFT JOIN ".MAIN_DB_PREFIX."expensereport as er ON er.rowid = erd.fk_expensereport";
357 $sql .= " LEFT JOIN ".MAIN_DB_PREFIX."accounting_account as aa ON aa.rowid = erd.fk_code_ventilation";
358 $sql .= " WHERE er.date_debut >= '".$db->idate($search_date_start)."'";
359 $sql .= " AND er.date_debut <= '".$db->idate($search_date_end)."'";
360 // Define begin binding date
361 if (getDolGlobalString('ACCOUNTING_DATE_START_BINDING')) {
362  $sql .= " AND er.date_debut >= '".$db->idate(getDolGlobalString('ACCOUNTING_DATE_START_BINDING'))."'";
363 }
364 $sql .= " AND er.fk_statut IN (".ExpenseReport::STATUS_APPROVED.", ".ExpenseReport::STATUS_CLOSED.")";
365 $sql .= " AND er.entity IN (".getEntity('expensereport', 0).")"; // We don't share object for accountancy
366 $sql .= " AND aa.account_number IS NOT NULL";
367 $sql .= " GROUP BY erd.fk_code_ventilation,aa.account_number,aa.label";
368 
369 dol_syslog('htdocs/accountancy/expensereport/index.php');
370 $resql = $db->query($sql);
371 if ($resql) {
372  $num = $db->num_rows($resql);
373 
374  while ($row = $db->fetch_row($resql)) {
375  print '<tr class="oddeven">';
376  print '<td>';
377  if ($row[0] == 'tobind') {
378  print '<span class="opacitymedium">'.$langs->trans("Unknown").'</span>';
379  } else {
380  print length_accountg($row[0]);
381  }
382  print '</td>';
383 
384  print '<td>';
385  if ($row[0] == 'tobind') {
386  print $langs->trans("UseMenuToSetBindindManualy", DOL_URL_ROOT.'/accountancy/expensereport/list.php?search_year='.((int) $y), $langs->transnoentitiesnoconv("ToBind"));
387  } else {
388  print $row[1];
389  }
390  print '</td>';
391  for ($i = 2; $i <= 13; $i++) {
392  print '<td class="right nowraponall amount">';
393  print price($row[$i]);
394  print '</td>';
395  }
396  print '<td class="right nowraponall amount"><b>'.price($row[14]).'</b></td>';
397  print '</tr>';
398  }
399  $db->free($resql);
400 
401  if ($num == 0) {
402  print '<tr class="oddeven"><td colspan="16">';
403  print '<span class="opacitymedium">'.$langs->trans("NoRecordFound").'</span>';
404  print '</td></tr>';
405  }
406 } else {
407  print $db->lasterror(); // Show last sql error
408 }
409 print "</table>\n";
410 print '</div>';
411 
412 
413 
414 if (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 ?
415  print '<br>';
416  print '<br>';
417 
418  print_barre_liste($langs->trans("OtherInfo"), '', '', '', '', '', '', -1, '', '', 0, '', '', 0, 1, 1);
419  //print load_fiche_titre($langs->trans("OtherInfo"), '', '');
420 
421  print '<div class="div-table-responsive-no-min">';
422  print '<table class="noborder centpercent">';
423  print '<tr class="liste_titre"><td class="left">'.$langs->trans("Total").'</td>';
424  for ($i = 1; $i <= 12; $i++) {
425  $j = $i + getDolGlobalInt('SOCIETE_FISCAL_MONTH_START', 1) - 1;
426  if ($j > 12) {
427  $j -= 12;
428  }
429  print '<td width="60" class="right">'.$langs->trans('MonthShort'.str_pad((string) $j, 2, '0', STR_PAD_LEFT)).'</td>';
430  }
431  print '<td width="60" class="right"><b>'.$langs->trans("Total").'</b></td></tr>';
432 
433  $sql = "SELECT '".$db->escape($langs->trans("TotalExpenseReport"))."' AS label,";
434  for ($i = 1; $i <= 12; $i++) {
435  $j = $i + getDolGlobalInt('SOCIETE_FISCAL_MONTH_START', 1) - 1;
436  if ($j > 12) {
437  $j -= 12;
438  }
439  $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).",";
440  }
441  $sql .= " SUM(erd.total_ht) as total";
442  $sql .= " FROM ".MAIN_DB_PREFIX."expensereport_det as erd";
443  $sql .= " LEFT JOIN ".MAIN_DB_PREFIX."expensereport as er ON er.rowid = erd.fk_expensereport";
444  $sql .= " WHERE er.date_debut >= '".$db->idate($search_date_start)."'";
445  $sql .= " AND er.date_debut <= '".$db->idate($search_date_end)."'";
446  // Define begin binding date
447  if (getDolGlobalString('ACCOUNTING_DATE_START_BINDING')) {
448  $sql .= " AND er.date_debut >= '".$db->idate(getDolGlobalString('ACCOUNTING_DATE_START_BINDING'))."'";
449  }
450  $sql .= " AND er.fk_statut IN (".ExpenseReport::STATUS_APPROVED.", ".ExpenseReport::STATUS_CLOSED.")";
451  $sql .= " AND er.entity IN (".getEntity('expensereport', 0).")"; // We don't share object for accountancy
452 
453  dol_syslog('htdocs/accountancy/expensereport/index.php');
454  $resql = $db->query($sql);
455  if ($resql) {
456  $num = $db->num_rows($resql);
457 
458  while ($row = $db->fetch_row($resql)) {
459  print '<tr><td>'.$row[0].'</td>';
460  for ($i = 1; $i <= 12; $i++) {
461  print '<td class="right nowraponall amount">'.price($row[$i]).'</td>';
462  }
463  print '<td class="right nowraponall amount"><b>'.price($row[13]).'</b></td>';
464  print '</tr>';
465  }
466 
467  $db->free($resql);
468  } else {
469  print $db->lasterror(); // Show last sql error
470  }
471  print "</table>\n";
472  print '</div>';
473 }
474 
475 // End of page
476 llxFooter();
477 $db->close();
length_accountg($account)
Return General accounting account with defined length (used for product and miscellaneous)
const STATUS_CLOSED
Classified paid.
if(isModEnabled('invoice') && $user->hasRight('facture', 'lire')) if((isModEnabled('fournisseur') &&!getDolGlobalString('MAIN_USE_NEW_SUPPLIERMOD') && $user->hasRight("fournisseur", "facture", "lire"))||(isModEnabled('supplier_invoice') && $user->hasRight("supplier_invoice", "lire"))) if(isModEnabled('don') && $user->hasRight('don', 'lire')) if(isModEnabled('tax') && $user->hasRight('tax', 'charges', 'lire')) if(isModEnabled('invoice') &&isModEnabled('order') && $user->hasRight("commande", "lire") &&!getDolGlobalString('WORKFLOW_DISABLE_CREATE_INVOICE_FROM_ORDER')) $sql
Social contributions to pay.
Definition: index.php:745
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:378
dol_get_last_day($year, $month=12, $gm=false)
Return GMT time for last day of a month or year.
Definition: date.lib.php:614
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...
load_fiche_titre($title, $morehtmlright='', $picto='generic', $pictoisfullpath=0, $id='', $morecssontable='', $morehtmlcenter='')
Load a title with picto.
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.
price2num($amount, $rounding='', $option=0)
Function that return a number with universal decimal format (decimal separator is '.
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.
dol_now($mode='auto')
Return date for now.
getDolGlobalInt($key, $default=0)
Return a Dolibarr global constant int value.
dol_getIdFromCode($db, $key, $tablename, $fieldkey='code', $fieldid='id', $entityfilter=0, $filters='')
Return an id or code from a code or id.
dol_print_date($time, $format='', $tzoutput='auto', $outputlangs=null, $encodetooutput=false)
Output date in a string format according to outputlangs (or langs if not defined).
newToken()
Return the value of token currently saved into session with name 'newtoken'.
img_previous($titlealt='default', $moreatt='')
Show previous logo.
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.
img_next($titlealt='default', $moreatt='')
Show next logo.
getDolGlobalString($key, $default='')
Return dolibarr global constant string value.
isModEnabled($module)
Is Dolibarr module enabled.
dol_syslog($message, $level=LOG_INFO, $ident=0, $suffixinfilename='', $restricttologhandler='', $logcontext=null)
Write log message into outputs.
dol_getdate($timestamp, $fast=false, $forcetimezone='')
Return an array with locale date info.
llxFooter()
Footer empty.
Definition: index.php:72
if(!defined('NOTOKENRENEWAL')) if(!defined('NOLOGIN')) if(!defined('NOCSRFCHECK')) if(!defined('NOREQUIREMENU')) if(!defined('NOREQUIREHTML')) if(!defined('NOREQUIREAJAX')) if(!defined('NOIPCHECK')) if(!defined('NOBROWSERNOTIF')) llxHeader()
Header empty.
Definition: index.php:64
accessforbidden($message='', $printheader=1, $printfooter=1, $showonlymessage=0, $params=null)
Show a message to say access is forbidden and stop program.