dolibarr 18.0.6
clientfourn.php
Go to the documentation of this file.
1<?php
2/* Copyright (C) 2002-2006 Rodolphe Quiedeville <rodolphe@quiedeville.org>
3 * Copyright (C) 2004-2017 Laurent Destailleur <eldy@users.sourceforge.net>
4 * Copyright (C) 2005-2012 Regis Houssin <regis.houssin@inodbox.com>
5 * Copyright (C) 2012 Cédric Salvador <csalvador@gpcsolutions.fr>
6 * Copyright (C) 2012-2014 Raphaël Dourseanud <rdoursenaud@gpcsolutions.fr>
7 * Copyright (C) 2014-2106 Ferran Marcet <fmarcet@2byte.es>
8 * Copyright (C) 2014 Juanjo Menent <jmenent@2byte.es>
9 * Copyright (C) 2014 Florian Henry <florian.henry@open-concept.pro>
10 * Copyright (C) 2018 Frédéric France <frederic.france@netlogic.fr>
11 * Copyright (C) 2020 Maxime DEMAREST <maxime@indelog.fr>
12 * Copyright (C) 2021 Alexandre Spangaro <aspangaro@open-dsi.fr>
13 *
14 * This program is free software; you can redistribute it and/or modify
15 * it under the terms of the GNU General Public License as published by
16 * the Free Software Foundation; either version 3 of the License, or
17 * (at your option) any later version.
18 *
19 * This program is distributed in the hope that it will be useful,
20 * but WITHOUT ANY WARRANTY; without even the implied warranty of
21 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
22 * GNU General Public License for more details.
23 *
24 * You should have received a copy of the GNU General Public License
25 * along with this program. If not, see <https://www.gnu.org/licenses/>.
26 */
27
34// Load Dolibarr environment
35require '../../main.inc.php';
36require_once DOL_DOCUMENT_ROOT.'/compta/tva/class/tva.class.php';
37require_once DOL_DOCUMENT_ROOT.'/compta/sociales/class/chargesociales.class.php';
38require_once DOL_DOCUMENT_ROOT.'/user/class/user.class.php';
39require_once DOL_DOCUMENT_ROOT.'/core/lib/report.lib.php';
40require_once DOL_DOCUMENT_ROOT.'/core/lib/tax.lib.php';
41require_once DOL_DOCUMENT_ROOT.'/core/lib/date.lib.php';
42require_once DOL_DOCUMENT_ROOT.'/accountancy/class/accountingaccount.class.php';
43require_once DOL_DOCUMENT_ROOT.'/accountancy/class/accountancycategory.class.php';
44require_once DOL_DOCUMENT_ROOT.'/accountancy/class/accountingaccount.class.php';
45
46// Load translation files required by the page
47$langs->loadLangs(array('compta', 'bills', 'donation', 'salaries', 'accountancy', 'loan'));
48
49$date_startmonth = GETPOST('date_startmonth', 'int');
50$date_startday = GETPOST('date_startday', 'int');
51$date_startyear = GETPOST('date_startyear', 'int');
52$date_endmonth = GETPOST('date_endmonth', 'int');
53$date_endday = GETPOST('date_endday', 'int');
54$date_endyear = GETPOST('date_endyear', 'int');
55$showaccountdetail = GETPOST('showaccountdetail', 'aZ09') ? GETPOST('showaccountdetail', 'aZ09') : 'yes';
56
57$limit = GETPOST('limit', 'int') ?GETPOST('limit', 'int') : $conf->liste_limit;
58$sortfield = GETPOST('sortfield', 'aZ09comma');
59$sortorder = GETPOST('sortorder', 'aZ09comma');
60$page = GETPOSTISSET('pageplusone') ? (GETPOST('pageplusone') - 1) : GETPOST("page", 'int');
61if (empty($page) || $page == -1) {
62 $page = 0;
63} // If $page is not defined, or '' or -1
64$offset = $limit * $page;
65$pageprev = $page - 1;
66$pagenext = $page + 1;
67//if (! $sortfield) $sortfield='s.nom, s.rowid';
68if (!$sortorder) {
69 $sortorder = 'ASC';
70}
71
72// Date range
73$year = GETPOST('year', 'int'); // this is used for navigation previous/next. It is the last year to show in filter
74if (empty($year)) {
75 $year_current = dol_print_date(dol_now(), "%Y");
76 $month_current = dol_print_date(dol_now(), "%m");
77 $year_start = $year_current;
78} else {
79 $year_current = $year;
80 $month_current = dol_print_date(dol_now(), "%m");
81 $year_start = $year;
82}
83$date_start = dol_mktime(0, 0, 0, $date_startmonth, $date_startday, $date_startyear);
84$date_end = dol_mktime(23, 59, 59, $date_endmonth, $date_endday, $date_endyear);
85
86// We define date_start and date_end
87if (empty($date_start) || empty($date_end)) { // We define date_start and date_end
88 $q = GETPOST("q") ? GETPOST("q", 'int') : 0;
89 if ($q == 0) {
90 // We define date_start and date_end
91 $year_end = $year_start;
92 $month_start = GETPOST("month") ? GETPOST("month", 'int') : getDolGlobalInt('SOCIETE_FISCAL_MONTH_START', 1);
93 if (!GETPOST('month')) {
94 if (!$year && $month_start > $month_current) {
95 $year_start--;
96 $year_end--;
97 }
98 if (getDolGlobalInt('SOCIETE_FISCAL_MONTH_START') > 1) {
99 $month_end = $month_start - 1;
100 $year_end = $year_start + 1;
101 }
102 if ($month_end < 1) {
103 $month_end = 12;
104 }
105 } else {
106 $month_end = $month_start;
107 }
108 $date_start = dol_get_first_day($year_start, $month_start, false);
109 $date_end = dol_get_last_day($year_end, $month_end, false);
110 }
111 if ($q == 1) {
112 $date_start = dol_get_first_day($year_start, 1, false);
113 $date_end = dol_get_last_day($year_start, 3, false);
114 }
115 if ($q == 2) {
116 $date_start = dol_get_first_day($year_start, 4, false);
117 $date_end = dol_get_last_day($year_start, 6, false);
118 }
119 if ($q == 3) {
120 $date_start = dol_get_first_day($year_start, 7, false);
121 $date_end = dol_get_last_day($year_start, 9, false);
122 }
123 if ($q == 4) {
124 $date_start = dol_get_first_day($year_start, 10, false);
125 $date_end = dol_get_last_day($year_start, 12, false);
126 }
127}
128
129// $date_start and $date_end are defined. We force $year_start and $nbofyear
130$tmps = dol_getdate($date_start);
131$year_start = $tmps['year'];
132$tmpe = dol_getdate($date_end);
133$year_end = $tmpe['year'];
134$nbofyear = ($year_end - $year_start) + 1;
135//var_dump("year_start=".$year_start." year_end=".$year_end." nbofyear=".$nbofyear." date_start=".dol_print_date($date_start, 'dayhour')." date_end=".dol_print_date($date_end, 'dayhour'));
136
137// Define modecompta ('CREANCES-DETTES' or 'RECETTES-DEPENSES' or 'BOOKKEEPING')
138$modecompta = $conf->global->ACCOUNTING_MODE;
139if (isModEnabled('accounting')) {
140 $modecompta = 'BOOKKEEPING';
141}
142if (GETPOST("modecompta", 'alpha')) {
143 $modecompta = GETPOST("modecompta", 'alpha');
144}
145
146$AccCat = new AccountancyCategory($db);
147
148// Security check
149$socid = GETPOST('socid', 'int');
150if ($user->socid > 0) {
151 $socid = $user->socid;
152}
153if (isModEnabled('comptabilite')) {
154 $result = restrictedArea($user, 'compta', '', '', 'resultat');
155}
156if (isModEnabled('accounting')) {
157 $result = restrictedArea($user, 'accounting', '', '', 'comptarapport');
158}
159$hookmanager->initHooks(['customersupplierreportlist']);
160
161
162/*
163 * View
164 */
165
166llxHeader();
167
168$form = new Form($db);
169
170$periodlink = '';
171$exportlink = '';
172
173$total_ht = 0;
174$total_ttc = 0;
175
176// Affiche en-tete de rapport
177if ($modecompta == "CREANCES-DETTES") {
178 $name = $langs->trans("ReportInOut").', '.$langs->trans("ByPredefinedAccountGroups");
179 $period = $form->selectDate($date_start, 'date_start', 0, 0, 0, '', 1, 0).' - '.$form->selectDate($date_end, 'date_end', 0, 0, 0, '', 1, 0);
180 $periodlink = ($year_start ? "<a href='".$_SERVER["PHP_SELF"]."?year=".($tmps['year'] - 1)."&modecompta=".$modecompta."'>".img_previous()."</a> <a href='".$_SERVER["PHP_SELF"]."?year=".($tmps['year'] + 1)."&modecompta=".$modecompta."'>".img_next()."</a>" : "");
181 $description = $langs->trans("RulesResultDue");
182 if (!empty($conf->global->FACTURE_DEPOSITS_ARE_JUST_PAYMENTS)) {
183 $description .= $langs->trans("DepositsAreNotIncluded");
184 } else {
185 $description .= $langs->trans("DepositsAreIncluded");
186 }
187 if (!empty($conf->global->FACTURE_SUPPLIER_DEPOSITS_ARE_JUST_PAYMENTS)) {
188 $description .= $langs->trans("SupplierDepositsAreNotIncluded");
189 }
190 $builddate = dol_now();
191 //$exportlink=$langs->trans("NotYetAvailable");
192} elseif ($modecompta == "RECETTES-DEPENSES") {
193 $name = $langs->trans("ReportInOut").', '.$langs->trans("ByPredefinedAccountGroups");
194 $period = $form->selectDate($date_start, 'date_start', 0, 0, 0, '', 1, 0).' - '.$form->selectDate($date_end, 'date_end', 0, 0, 0, '', 1, 0);
195 $periodlink = ($year_start ? "<a href='".$_SERVER["PHP_SELF"]."?year=".($tmps['year'] - 1)."&modecompta=".$modecompta."'>".img_previous()."</a> <a href='".$_SERVER["PHP_SELF"]."?year=".($tmps['year'] + 1)."&modecompta=".$modecompta."'>".img_next()."</a>" : "");
196 $description = $langs->trans("RulesResultInOut");
197 $builddate = dol_now();
198 //$exportlink=$langs->trans("NotYetAvailable");
199} elseif ($modecompta == "BOOKKEEPING") {
200 $name = $langs->trans("ReportInOut").', '.$langs->trans("ByPredefinedAccountGroups");
201 $period = $form->selectDate($date_start, 'date_start', 0, 0, 0, '', 1, 0).' - '.$form->selectDate($date_end, 'date_end', 0, 0, 0, '', 1, 0);
202 $arraylist = array('no'=>$langs->trans("CustomerCode"), 'yes'=>$langs->trans("AccountWithNonZeroValues"), 'all'=>$langs->trans("All"));
203 $period .= ' &nbsp; &nbsp; <span class="opacitymedium">'.$langs->trans("DetailBy").'</span> '.$form->selectarray('showaccountdetail', $arraylist, $showaccountdetail, 0);
204 $periodlink = ($year_start ? "<a href='".$_SERVER["PHP_SELF"]."?year=".($tmps['year'] - 1)."&modecompta=".$modecompta."&showaccountdetail=".$showaccountdetail."'>".img_previous()."</a> <a href='".$_SERVER["PHP_SELF"]."?year=".($tmps['year'] + 1)."&modecompta=".$modecompta."&showaccountdetail=".$showaccountdetail."'>".img_next()."</a>" : "");
205 $description = $langs->trans("RulesResultBookkeepingPredefined");
206 $description .= ' ('.$langs->trans("SeePageForSetup", DOL_URL_ROOT.'/accountancy/admin/account.php?mainmenu=accountancy&leftmenu=accountancy_admin', $langs->transnoentitiesnoconv("Accountancy").' / '.$langs->transnoentitiesnoconv("Setup").' / '.$langs->transnoentitiesnoconv("Chartofaccounts")).')';
207 $builddate = dol_now();
208 //$exportlink=$langs->trans("NotYetAvailable");
209}
210
211// Define $calcmode line
212$calcmode = '';
213if (isModEnabled('accounting')) {
214 $calcmode .= '<input type="radio" name="modecompta" id="modecompta3" value="BOOKKEEPING"'.($modecompta == 'BOOKKEEPING' ? ' checked="checked"' : '').'><label for="modecompta3"> '.$langs->trans("CalcModeBookkeeping").'</label>';
215 $calcmode .= '<br>';
216}
217$calcmode .= '<input type="radio" name="modecompta" id="modecompta1" value="RECETTES-DEPENSES"'.($modecompta == 'RECETTES-DEPENSES' ? ' checked="checked"' : '').'><label for="modecompta1"> '.$langs->trans("CalcModeEngagement");
218if (isModEnabled('accounting')) {
219 $calcmode .= ' <span class="opacitymedium hideonsmartphone">('.$langs->trans("CalcModeNoBookKeeping").')</span>';
220}
221$calcmode .= '</label>';
222$calcmode .= '<br><input type="radio" name="modecompta" id="modecompta2" value="CREANCES-DETTES"'.($modecompta == 'CREANCES-DETTES' ? ' checked="checked"' : '').'><label for="modecompta2"> '.$langs->trans("CalcModeDebt");
223if (isModEnabled('accounting')) {
224 $calcmode .= ' <span class="opacitymedium hideonsmartphone">('.$langs->trans("CalcModeNoBookKeeping").')</span>';
225}
226$calcmode .= '</label>';
227
228
229report_header($name, '', $period, $periodlink, $description, $builddate, $exportlink, array('modecompta'=>$modecompta, 'showaccountdetail'=>$showaccountdetail), $calcmode);
230
231if (isModEnabled('accounting') && $modecompta != 'BOOKKEEPING') {
232 print info_admin($langs->trans("WarningReportNotReliable"), 0, 0, 1);
233}
234
235// Show report array
236$param = '&modecompta='.urlencode($modecompta).'&showaccountdetail='.urlencode($showaccountdetail);
237if ($date_startday) {
238 $param .= '&date_startday='.$date_startday;
239}
240if ($date_startmonth) {
241 $param .= '&date_startmonth='.$date_startmonth;
242}
243if ($date_startyear) {
244 $param .= '&date_startyear='.$date_startyear;
245}
246if ($date_endday) {
247 $param .= '&date_endday='.$date_endday;
248}
249if ($date_endmonth) {
250 $param .= '&date_endmonth='.$date_endmonth;
251}
252if ($date_endyear) {
253 $param .= '&date_endyear='.$date_endyear;
254}
255
256print '<table class="liste noborder centpercent">';
257print '<tr class="liste_titre">';
258
259if ($modecompta == 'BOOKKEEPING') {
260 print_liste_field_titre("PredefinedGroups", $_SERVER["PHP_SELF"], 'f.thirdparty_code,f.rowid', '', $param, '', $sortfield, $sortorder, 'width200 ');
261} else {
262 print_liste_field_titre("", $_SERVER["PHP_SELF"], '', '', $param, '', $sortfield, $sortorder, 'width200 ');
263}
265if ($modecompta == 'BOOKKEEPING') {
266 print_liste_field_titre("Amount", $_SERVER["PHP_SELF"], 'amount', '', $param, 'class="right"', $sortfield, $sortorder);
267} else {
268 if ($modecompta == 'CREANCES-DETTES') {
269 print_liste_field_titre("AmountHT", $_SERVER["PHP_SELF"], 'amount_ht', '', $param, 'class="right"', $sortfield, $sortorder);
270 } else {
271 print_liste_field_titre(''); // Make 4 columns in total whatever $modecompta is
272 }
273 print_liste_field_titre("AmountTTC", $_SERVER["PHP_SELF"], 'amount_ttc', '', $param, 'class="right"', $sortfield, $sortorder);
274}
275print "</tr>\n";
276
277
278$total_ht_outcome = $total_ttc_outcome = $total_ht_income = $total_ttc_income = 0;
279
280
281if ($modecompta == 'BOOKKEEPING') {
282 $predefinedgroupwhere = "(";
283 $predefinedgroupwhere .= " (pcg_type = 'EXPENSE')";
284 $predefinedgroupwhere .= " OR ";
285 $predefinedgroupwhere .= " (pcg_type = 'INCOME')";
286 $predefinedgroupwhere .= ")";
287
288 $charofaccountstring = getDolGlobalInt('CHARTOFACCOUNTS');
289 $charofaccountstring = dol_getIdFromCode($db, getDolGlobalInt('CHARTOFACCOUNTS'), 'accounting_system', 'rowid', 'pcg_version');
290
291 $sql = "SELECT -1 as socid, aa.pcg_type, SUM(f.credit - f.debit) as amount";
292 if ($showaccountdetail == 'no') {
293 $sql .= ", f.thirdparty_code as name";
294 }
295 $sql .= " FROM ".MAIN_DB_PREFIX."accounting_bookkeeping as f";
296 $sql .= ", ".MAIN_DB_PREFIX."accounting_account as aa";
297 $sql .= " WHERE f.numero_compte = aa.account_number";
298 $sql .= " AND ".$predefinedgroupwhere;
299 $sql .= " AND fk_pcg_version = '".$db->escape($charofaccountstring)."'";
300 $sql .= " AND f.entity = ".$conf->entity;
301 if (!empty($date_start) && !empty($date_end)) {
302 $sql .= " AND f.doc_date >= '".$db->idate($date_start)."' AND f.doc_date <= '".$db->idate($date_end)."'";
303 }
304 $sql .= " GROUP BY pcg_type";
305 if ($showaccountdetail == 'no') {
306 $sql .= ", name, socid"; // group by "accounting group" (INCOME/EXPENSE), then "customer".
307 }
308 $sql .= $db->order($sortfield, $sortorder);
309
310 $oldpcgtype = '';
311
312 dol_syslog("get bookkeeping entries", LOG_DEBUG);
313 $result = $db->query($sql);
314 if ($result) {
315 $num = $db->num_rows($result);
316 $i = 0;
317 if ($num > 0) {
318 while ($i < $num) {
319 $objp = $db->fetch_object($result);
320
321 if ($showaccountdetail == 'no') {
322 if ($objp->pcg_type != $oldpcgtype) {
323 print '<tr class="trforbreak"><td colspan="3" class="tdforbreak">'.dol_escape_htmltag($objp->pcg_type).'</td></tr>';
324 $oldpcgtype = $objp->pcg_type;
325 }
326 }
327
328 if ($showaccountdetail == 'no') {
329 print '<tr class="oddeven">';
330 print '<td></td>';
331 print '<td>';
332 print dol_escape_htmltag($objp->pcg_type);
333 print ($objp->name ? ' ('.dol_escape_htmltag($objp->name).')' : ' ('.$langs->trans("Unknown").')');
334 print "</td>\n";
335 print '<td class="right nowraponall"><span class="amount">'.price($objp->amount)."</span></td>\n";
336 print "</tr>\n";
337 } else {
338 print '<tr class="oddeven trforbreak">';
339 print '<td colspan="2" class="tdforbreak">';
340 print dol_escape_htmltag($objp->pcg_type);
341 print "</td>\n";
342 print '<td class="right nowraponall tdforbreak"><span class="amount">'.price($objp->amount)."</span></td>\n";
343 print "</tr>\n";
344 }
345
346 $total_ht += (isset($objp->amount) ? $objp->amount : 0);
347 $total_ttc += (isset($objp->amount) ? $objp->amount : 0);
348
349 if ($objp->pcg_type == 'INCOME') {
350 $total_ht_income += (isset($objp->amount) ? $objp->amount : 0);
351 $total_ttc_income += (isset($objp->amount) ? $objp->amount : 0);
352 }
353 if ($objp->pcg_type == 'EXPENSE') {
354 $total_ht_outcome -= (isset($objp->amount) ? $objp->amount : 0);
355 $total_ttc_outcome -= (isset($objp->amount) ? $objp->amount : 0);
356 }
357
358 // Loop on detail of all accounts
359 // This make 14 calls for each detail of account (NP, N and month m)
360 if ($showaccountdetail != 'no') {
361 $tmppredefinedgroupwhere = "pcg_type = '".$db->escape($objp->pcg_type)."'";
362 $tmppredefinedgroupwhere .= " AND fk_pcg_version = '".$db->escape($charofaccountstring)."'";
363 //$tmppredefinedgroupwhere .= " AND thirdparty_code = '".$db->escape($objp->name)."'";
364
365 // Get cpts of category/group
366 $cpts = $AccCat->getCptsCat(0, $tmppredefinedgroupwhere);
367
368 foreach ($cpts as $j => $cpt) {
369 $return = $AccCat->getSumDebitCredit($cpt['account_number'], $date_start, $date_end, (empty($cpt['dc']) ? 0 : $cpt['dc']));
370 if ($return < 0) {
371 setEventMessages(null, $AccCat->errors, 'errors');
372 $resultN = 0;
373 } else {
374 $resultN = $AccCat->sdc;
375 }
376
377
378 if ($showaccountdetail == 'all' || $resultN <> 0) {
379 print '<tr>';
380 print '<td></td>';
381 print '<td class="tdoverflowmax200"> &nbsp; &nbsp; '.length_accountg($cpt['account_number']).' - '.$cpt['account_label'].'</td>';
382 print '<td class="right nowraponall"><span class="amount">'.price($resultN).'</span></td>';
383 print "</tr>\n";
384 }
385 }
386 }
387
388 $i++;
389 }
390 } else {
391 print '<tr><td colspan="3" class="opacitymedium">'.$langs->trans("NoRecordFound").'</td></tr>';
392 }
393 } else {
394 dol_print_error($db);
395 }
396} else {
397 /*
398 * Customer invoices
399 */
400 print '<tr class="trforbreak"><td colspan="4">'.$langs->trans("CustomersInvoices").'</td></tr>';
401
402 if ($modecompta == 'CREANCES-DETTES') {
403 $sql = "SELECT s.nom as name, s.rowid as socid, sum(f.total_ht) as amount_ht, sum(f.total_ttc) as amount_ttc";
404 $sql .= " FROM ".MAIN_DB_PREFIX."societe as s";
405 $sql .= ", ".MAIN_DB_PREFIX."facture as f";
406 $sql .= " WHERE f.fk_soc = s.rowid";
407 $sql .= " AND f.fk_statut IN (1,2)";
408 if (!empty($conf->global->FACTURE_DEPOSITS_ARE_JUST_PAYMENTS)) {
409 $sql .= " AND f.type IN (0,1,2,5)";
410 } else {
411 $sql .= " AND f.type IN (0,1,2,3,5)";
412 }
413 if (!empty($date_start) && !empty($date_end)) {
414 $sql .= " AND f.datef >= '".$db->idate($date_start)."' AND f.datef <= '".$db->idate($date_end)."'";
415 }
416 } elseif ($modecompta == 'RECETTES-DEPENSES') {
417 /*
418 * List of payments (old payments are not seen by this query because, on older versions, they were not linked via payment_invoice.
419 * old versions, they were not linked via payment_invoice. They are added later)
420 */
421 $sql = "SELECT s.nom as name, s.rowid as socid, sum(pf.amount) as amount_ttc";
422 $sql .= " FROM ".MAIN_DB_PREFIX."societe as s";
423 $sql .= ", ".MAIN_DB_PREFIX."facture as f";
424 $sql .= ", ".MAIN_DB_PREFIX."paiement_facture as pf";
425 $sql .= ", ".MAIN_DB_PREFIX."paiement as p";
426 $sql .= " WHERE p.rowid = pf.fk_paiement";
427 $sql .= " AND pf.fk_facture = f.rowid";
428 $sql .= " AND f.fk_soc = s.rowid";
429 if (!empty($date_start) && !empty($date_end)) {
430 $sql .= " AND p.datep >= '".$db->idate($date_start)."' AND p.datep <= '".$db->idate($date_end)."'";
431 }
432 }
433 $sql .= " AND f.entity IN (".getEntity('invoice').")";
434 if ($socid) {
435 $sql .= " AND f.fk_soc = ".((int) $socid);
436 }
437 $sql .= " GROUP BY name, socid";
438 $sql .= $db->order($sortfield, $sortorder);
439
440 dol_syslog("get customer invoices", LOG_DEBUG);
441 $result = $db->query($sql);
442 if ($result) {
443 $num = $db->num_rows($result);
444 $i = 0;
445 while ($i < $num) {
446 $objp = $db->fetch_object($result);
447
448 print '<tr class="oddeven">';
449 print '<td>&nbsp;</td>';
450 print "<td>".$langs->trans("Bills").' <a href="'.DOL_URL_ROOT.'/compta/facture/list.php?socid='.$objp->socid.'">'.$objp->name."</td>\n";
451
452 print '<td class="right">';
453 if ($modecompta == 'CREANCES-DETTES') {
454 print '<span class="amount">'.price($objp->amount_ht)."</span>";
455 }
456 print "</td>\n";
457 print '<td class="right"><span class="amount">'.price($objp->amount_ttc)."</span></td>\n";
458
459 $total_ht += (isset($objp->amount_ht) ? $objp->amount_ht : 0);
460 $total_ttc += $objp->amount_ttc;
461 print "</tr>\n";
462 $i++;
463 }
464 $db->free($result);
465 } else {
466 dol_print_error($db);
467 }
468
469 // We add the old customer payments, not linked by payment_invoice
470 if ($modecompta == 'RECETTES-DEPENSES') {
471 $sql = "SELECT 'Autres' as name, '0' as idp, sum(p.amount) as amount_ttc";
472 $sql .= " FROM ".MAIN_DB_PREFIX."bank as b";
473 $sql .= ", ".MAIN_DB_PREFIX."bank_account as ba";
474 $sql .= ", ".MAIN_DB_PREFIX."paiement as p";
475 $sql .= " LEFT JOIN ".MAIN_DB_PREFIX."paiement_facture as pf ON p.rowid = pf.fk_paiement";
476 $sql .= " WHERE pf.rowid IS NULL";
477 $sql .= " AND p.fk_bank = b.rowid";
478 $sql .= " AND b.fk_account = ba.rowid";
479 $sql .= " AND ba.entity IN (".getEntity('bank_account').")";
480 if (!empty($date_start) && !empty($date_end)) {
481 $sql .= " AND p.datep >= '".$db->idate($date_start)."' AND p.datep <= '".$db->idate($date_end)."'";
482 }
483 $sql .= " GROUP BY name, idp";
484 $sql .= " ORDER BY name";
485
486 dol_syslog("get old customer payments not linked to invoices", LOG_DEBUG);
487 $result = $db->query($sql);
488 if ($result) {
489 $num = $db->num_rows($result);
490 $i = 0;
491 if ($num) {
492 while ($i < $num) {
493 $objp = $db->fetch_object($result);
494
495
496 print '<tr class="oddeven">';
497 print '<td>&nbsp;</td>';
498 print "<td>".$langs->trans("Bills")." ".$langs->trans("Other")." (".$langs->trans("PaymentsNotLinkedToInvoice").")\n";
499
500 print '<td class="right">';
501 if ($modecompta == 'CREANCES-DETTES') {
502 print '<span class="amount">'.price($objp->amount_ht)."</span></td>\n";
503 }
504 print '</td>';
505 print '<td class="right"><span class="amount">'.price($objp->amount_ttc)."</span></td>\n";
506
507 $total_ht += (isset($objp->amount_ht) ? $objp->amount_ht : 0);
508 $total_ttc += $objp->amount_ttc;
509
510 print "</tr>\n";
511 $i++;
512 }
513 }
514 $db->free($result);
515 } else {
516 dol_print_error($db);
517 }
518 }
519
520 if ($total_ttc == 0) {
521 print '<tr class="oddeven">';
522 print '<td>&nbsp;</td>';
523 print '<td colspan="3"><span class="opacitymedium">'.$langs->trans("None").'</span></td>';
524 print '</tr>';
525 }
526
527 $total_ht_income += $total_ht;
528 $total_ttc_income += $total_ttc;
529
530 print '<tr class="liste_total">';
531 print '<td></td>';
532 print '<td></td>';
533 print '<td class="right">';
534 if ($modecompta == 'CREANCES-DETTES') {
535 print price($total_ht);
536 }
537 print '</td>';
538 print '<td class="right">'.price($total_ttc).'</td>';
539 print '</tr>';
540
541 /*
542 * Donations
543 */
544
545 if (isModEnabled('don')) {
546 print '<tr class="trforbreak"><td colspan="4">'.$langs->trans("Donations").'</td></tr>';
547
548 if ($modecompta == 'CREANCES-DETTES' || $modecompta == 'RECETTES-DEPENSES') {
549 if ($modecompta == 'CREANCES-DETTES') {
550 $sql = "SELECT p.societe as name, p.firstname, p.lastname, date_format(p.datedon,'%Y-%m') as dm, sum(p.amount) as amount";
551 $sql .= " FROM ".MAIN_DB_PREFIX."don as p";
552 $sql .= " WHERE p.entity IN (".getEntity('donation').")";
553 $sql .= " AND fk_statut in (1,2)";
554 } else {
555 $sql = "SELECT p.societe as nom, p.firstname, p.lastname, date_format(p.datedon,'%Y-%m') as dm, sum(p.amount) as amount";
556 $sql .= " FROM ".MAIN_DB_PREFIX."don as p";
557 $sql .= " INNER JOIN ".MAIN_DB_PREFIX."payment_donation as pe ON pe.fk_donation = p.rowid";
558 $sql .= " LEFT JOIN ".MAIN_DB_PREFIX."c_paiement as c ON pe.fk_typepayment = c.id";
559 $sql .= " WHERE p.entity IN (".getEntity('donation').")";
560 $sql .= " AND fk_statut >= 2";
561 }
562 if (!empty($date_start) && !empty($date_end)) {
563 $sql .= " AND p.datedon >= '".$db->idate($date_start)."' AND p.datedon <= '".$db->idate($date_end)."'";
564 }
565 }
566 $sql .= " GROUP BY p.societe, p.firstname, p.lastname, dm";
567 $newsortfield = $sortfield;
568 if ($newsortfield == 's.nom, s.rowid') {
569 $newsortfield = 'p.societe, p.firstname, p.lastname, dm';
570 }
571 if ($newsortfield == 'amount_ht') {
572 $newsortfield = 'amount';
573 }
574 if ($newsortfield == 'amount_ttc') {
575 $newsortfield = 'amount';
576 }
577 $sql .= $db->order($newsortfield, $sortorder);
578
579 dol_syslog("get dunning");
580 $result = $db->query($sql);
581 $subtotal_ht = 0;
582 $subtotal_ttc = 0;
583 if ($result) {
584 $num = $db->num_rows($result);
585 $i = 0;
586 if ($num) {
587 while ($i < $num) {
588 $obj = $db->fetch_object($result);
589
590 $total_ht += $obj->amount;
591 $total_ttc += $obj->amount;
592 $subtotal_ht += $obj->amount;
593 $subtotal_ttc += $obj->amount;
594
595 print '<tr class="oddeven">';
596 print '<td>&nbsp;</td>';
597
598 print "<td>".$langs->trans("Donation")." <a href=\"".DOL_URL_ROOT."/don/list.php?search_company=".$obj->name."&search_name=".$obj->firstname." ".$obj->lastname."\">".$obj->name." ".$obj->firstname." ".$obj->lastname."</a></td>\n";
599
600 print '<td class="right">';
601 if ($modecompta == 'CREANCES-DETTES') {
602 print '<span class="amount">'.price($obj->amount).'</span>';
603 }
604 print '</td>';
605 print '<td class="right"><span class="amount">'.price($obj->amount).'</span></td>';
606 print '</tr>';
607 $i++;
608 }
609 } else {
610 print '<tr class="oddeven"><td>&nbsp;</td>';
611 print '<td colspan="3"><span class="opacitymedium">'.$langs->trans("None").'</span></td>';
612 print '</tr>';
613 }
614 } else {
615 dol_print_error($db);
616 }
617
618 $total_ht_income += $subtotal_ht;
619 $total_ttc_income += $subtotal_ttc;
620
621 print '<tr class="liste_total">';
622 print '<td></td>';
623 print '<td></td>';
624 print '<td class="right">';
625 if ($modecompta == 'CREANCES-DETTES') {
626 print price($subtotal_ht);
627 }
628 print '</td>';
629 print '<td class="right">'.price($subtotal_ttc).'</td>';
630 print '</tr>';
631 }
632
633 /*
634 * Suppliers invoices
635 */
636 if ($modecompta == 'CREANCES-DETTES') {
637 $sql = "SELECT s.nom as name, s.rowid as socid, sum(f.total_ht) as amount_ht, sum(f.total_ttc) as amount_ttc";
638 $sql .= " FROM ".MAIN_DB_PREFIX."societe as s";
639 $sql .= ", ".MAIN_DB_PREFIX."facture_fourn as f";
640 $sql .= " WHERE f.fk_soc = s.rowid";
641 $sql .= " AND f.fk_statut IN (1,2)";
642 if (!empty($conf->global->FACTURE_SUPPLIER_DEPOSITS_ARE_JUST_PAYMENTS)) {
643 $sql .= " AND f.type IN (0,1,2)";
644 } else {
645 $sql .= " AND f.type IN (0,1,2,3)";
646 }
647 if (!empty($date_start) && !empty($date_end)) {
648 $sql .= " AND f.datef >= '".$db->idate($date_start)."' AND f.datef <= '".$db->idate($date_end)."'";
649 }
650 } elseif ($modecompta == 'RECETTES-DEPENSES') {
651 $sql = "SELECT s.nom as name, s.rowid as socid, sum(pf.amount) as amount_ttc";
652 $sql .= " FROM ".MAIN_DB_PREFIX."paiementfourn as p";
653 $sql .= ", ".MAIN_DB_PREFIX."paiementfourn_facturefourn as pf";
654 $sql .= " LEFT JOIN ".MAIN_DB_PREFIX."facture_fourn as f";
655 $sql .= " ON pf.fk_facturefourn = f.rowid";
656 $sql .= " LEFT JOIN ".MAIN_DB_PREFIX."societe as s";
657 $sql .= " ON f.fk_soc = s.rowid";
658 $sql .= " WHERE p.rowid = pf.fk_paiementfourn ";
659 if (!empty($date_start) && !empty($date_end)) {
660 $sql .= " AND p.datep >= '".$db->idate($date_start)."' AND p.datep <= '".$db->idate($date_end)."'";
661 }
662 }
663
664 $sql .= " AND f.entity = ".((int) $conf->entity);
665 if ($socid) {
666 $sql .= " AND f.fk_soc = ".((int) $socid);
667 }
668 $sql .= " GROUP BY name, socid";
669 $sql .= $db->order($sortfield, $sortorder);
670
671 print '<tr class="trforbreak"><td colspan="4">'.$langs->trans("SuppliersInvoices").'</td></tr>';
672
673 $subtotal_ht = 0;
674 $subtotal_ttc = 0;
675 dol_syslog("get suppliers invoices", LOG_DEBUG);
676 $result = $db->query($sql);
677 if ($result) {
678 $num = $db->num_rows($result);
679 $i = 0;
680 if ($num > 0) {
681 while ($i < $num) {
682 $objp = $db->fetch_object($result);
683
684 print '<tr class="oddeven">';
685 print '<td>&nbsp;</td>';
686 print "<td>".$langs->trans("Bills").' <a href="'.DOL_URL_ROOT."/fourn/facture/list.php?socid=".$objp->socid.'">'.$objp->name.'</a></td>'."\n";
687
688 print '<td class="right">';
689 if ($modecompta == 'CREANCES-DETTES') {
690 print '<span class="amount">'.price(-$objp->amount_ht)."</span>";
691 }
692 print "</td>\n";
693 print '<td class="right"><span class="amount">'.price(-$objp->amount_ttc)."</span></td>\n";
694
695 $total_ht -= (isset($objp->amount_ht) ? $objp->amount_ht : 0);
696 $total_ttc -= $objp->amount_ttc;
697 $subtotal_ht += (isset($objp->amount_ht) ? $objp->amount_ht : 0);
698 $subtotal_ttc += $objp->amount_ttc;
699
700 print "</tr>\n";
701 $i++;
702 }
703 } else {
704 print '<tr class="oddeven">';
705 print '<td>&nbsp;</td>';
706 print '<td colspan="3"><span class="opacitymedium">'.$langs->trans("None").'</span></td>';
707 print '</tr>';
708 }
709
710 $db->free($result);
711 } else {
712 dol_print_error($db);
713 }
714
715 $total_ht_outcome += $subtotal_ht;
716 $total_ttc_outcome += $subtotal_ttc;
717
718 print '<tr class="liste_total">';
719 print '<td></td>';
720 print '<td></td>';
721 print '<td class="right">';
722 if ($modecompta == 'CREANCES-DETTES') {
723 print price(-$subtotal_ht);
724 }
725 print '</td>';
726 print '<td class="right">'.price(-$subtotal_ttc).'</td>';
727 print '</tr>';
728
729
730 /*
731 * Social / Fiscal contributions who are not deductible
732 */
733
734 print '<tr class="trforbreak"><td colspan="4">'.$langs->trans("SocialContributionsNondeductibles").'</td></tr>';
735
736 if ($modecompta == 'CREANCES-DETTES') {
737 $sql = "SELECT c.id, c.libelle as label, c.accountancy_code, sum(cs.amount) as amount";
738 $sql .= " FROM ".MAIN_DB_PREFIX."c_chargesociales as c";
739 $sql .= ", ".MAIN_DB_PREFIX."chargesociales as cs";
740 $sql .= " WHERE cs.fk_type = c.id";
741 $sql .= " AND c.deductible = 0";
742 if (!empty($date_start) && !empty($date_end)) {
743 $sql .= " AND cs.date_ech >= '".$db->idate($date_start)."' AND cs.date_ech <= '".$db->idate($date_end)."'";
744 }
745 } elseif ($modecompta == 'RECETTES-DEPENSES') {
746 $sql = "SELECT c.id, c.libelle as label, c.accountancy_code, sum(p.amount) as amount";
747 $sql .= " FROM ".MAIN_DB_PREFIX."c_chargesociales as c";
748 $sql .= ", ".MAIN_DB_PREFIX."chargesociales as cs";
749 $sql .= ", ".MAIN_DB_PREFIX."paiementcharge as p";
750 $sql .= " WHERE p.fk_charge = cs.rowid";
751 $sql .= " AND cs.fk_type = c.id";
752 $sql .= " AND c.deductible = 0";
753 if (!empty($date_start) && !empty($date_end)) {
754 $sql .= " AND p.datep >= '".$db->idate($date_start)."' AND p.datep <= '".$db->idate($date_end)."'";
755 }
756 }
757 $sql .= " AND cs.entity = ".$conf->entity;
758 $sql .= " GROUP BY c.libelle, c.id, c.accountancy_code";
759 $newsortfield = $sortfield;
760 if ($newsortfield == 's.nom, s.rowid') {
761 $newsortfield = 'c.libelle, c.id';
762 }
763 if ($newsortfield == 'amount_ht') {
764 $newsortfield = 'amount';
765 }
766 if ($newsortfield == 'amount_ttc') {
767 $newsortfield = 'amount';
768 }
769
770 $sql .= $db->order($newsortfield, $sortorder);
771
772 dol_syslog("get social contributions deductible=0", LOG_DEBUG);
773 $result = $db->query($sql);
774 $subtotal_ht = 0;
775 $subtotal_ttc = 0;
776 if ($result) {
777 $num = $db->num_rows($result);
778 $i = 0;
779 if ($num) {
780 while ($i < $num) {
781 $obj = $db->fetch_object($result);
782
783 $total_ht -= $obj->amount;
784 $total_ttc -= $obj->amount;
785 $subtotal_ht += $obj->amount;
786 $subtotal_ttc += $obj->amount;
787
788 $titletoshow = '';
789 if ($obj->accountancy_code) {
790 $titletoshow = $langs->trans("AccountingCode").': '.$obj->accountancy_code;
791 $tmpaccountingaccount = new AccountingAccount($db);
792 $tmpaccountingaccount->fetch(0, $obj->accountancy_code, 1);
793 $titletoshow .= ' - '.$langs->trans("AccountingCategory").': '.$tmpaccountingaccount->pcg_type;
794 }
795
796 print '<tr class="oddeven">';
797 print '<td>&nbsp;</td>';
798 print '<td'.($obj->accountancy_code ? ' title="'.dol_escape_htmltag($titletoshow).'"' : '').'>'.dol_escape_htmltag($obj->label).'</td>';
799 print '<td class="right">';
800 if ($modecompta == 'CREANCES-DETTES') {
801 print '<span class="amount">'.price(-$obj->amount).'</span>';
802 }
803 print '</td>';
804 print '<td class="right"><span class="amount">'.price(-$obj->amount).'</span></td>';
805 print '</tr>';
806 $i++;
807 }
808 } else {
809 print '<tr class="oddeven">';
810 print '<td>&nbsp;</td>';
811 print '<td colspan="3"><span class="opacitymedium">'.$langs->trans("None").'</span></td>';
812 print '</tr>';
813 }
814 } else {
815 dol_print_error($db);
816 }
817
818 $total_ht_outcome += $subtotal_ht;
819 $total_ttc_outcome += $subtotal_ttc;
820
821 print '<tr class="liste_total">';
822 print '<td></td>';
823 print '<td></td>';
824 print '<td class="right">';
825 if ($modecompta == 'CREANCES-DETTES') {
826 print price(-$subtotal_ht);
827 }
828 print '</td>';
829 print '<td class="right">'.price(-$subtotal_ttc).'</td>';
830 print '</tr>';
831
832
833 /*
834 * Social / Fiscal contributions who are deductible
835 */
836
837 print '<tr class="trforbreak"><td colspan="4">'.$langs->trans("SocialContributionsDeductibles").'</td></tr>';
838
839 if ($modecompta == 'CREANCES-DETTES') {
840 $sql = "SELECT c.id, c.libelle as label, c.accountancy_code, sum(cs.amount) as amount";
841 $sql .= " FROM ".MAIN_DB_PREFIX."c_chargesociales as c";
842 $sql .= ", ".MAIN_DB_PREFIX."chargesociales as cs";
843 $sql .= " WHERE cs.fk_type = c.id";
844 $sql .= " AND c.deductible = 1";
845 if (!empty($date_start) && !empty($date_end)) {
846 $sql .= " AND cs.date_ech >= '".$db->idate($date_start)."' AND cs.date_ech <= '".$db->idate($date_end)."'";
847 }
848 $sql .= " AND cs.entity = ".$conf->entity;
849 } elseif ($modecompta == 'RECETTES-DEPENSES') {
850 $sql = "SELECT c.id, c.libelle as label, c.accountancy_code, sum(p.amount) as amount";
851 $sql .= " FROM ".MAIN_DB_PREFIX."c_chargesociales as c";
852 $sql .= ", ".MAIN_DB_PREFIX."chargesociales as cs";
853 $sql .= ", ".MAIN_DB_PREFIX."paiementcharge as p";
854 $sql .= " WHERE p.fk_charge = cs.rowid";
855 $sql .= " AND cs.fk_type = c.id";
856 $sql .= " AND c.deductible = 1";
857 if (!empty($date_start) && !empty($date_end)) {
858 $sql .= " AND p.datep >= '".$db->idate($date_start)."' AND p.datep <= '".$db->idate($date_end)."'";
859 }
860 $sql .= " AND cs.entity = ".$conf->entity;
861 }
862 $sql .= " GROUP BY c.libelle, c.id, c.accountancy_code";
863 $newsortfield = $sortfield;
864 if ($newsortfield == 's.nom, s.rowid') {
865 $newsortfield = 'c.libelle, c.id';
866 }
867 if ($newsortfield == 'amount_ht') {
868 $newsortfield = 'amount';
869 }
870 if ($newsortfield == 'amount_ttc') {
871 $newsortfield = 'amount';
872 }
873 $sql .= $db->order($newsortfield, $sortorder);
874
875 dol_syslog("get social contributions deductible=1", LOG_DEBUG);
876 $result = $db->query($sql);
877 $subtotal_ht = 0;
878 $subtotal_ttc = 0;
879 if ($result) {
880 $num = $db->num_rows($result);
881 $i = 0;
882 if ($num) {
883 while ($i < $num) {
884 $obj = $db->fetch_object($result);
885
886 $total_ht -= $obj->amount;
887 $total_ttc -= $obj->amount;
888 $subtotal_ht += $obj->amount;
889 $subtotal_ttc += $obj->amount;
890
891 $titletoshow = '';
892 if ($obj->accountancy_code) {
893 $titletoshow = $langs->trans("AccountingCode").': '.$obj->accountancy_code;
894 $tmpaccountingaccount = new AccountingAccount($db);
895 $tmpaccountingaccount->fetch(0, $obj->accountancy_code, 1);
896 $titletoshow .= ' - '.$langs->trans("AccountingCategory").': '.$tmpaccountingaccount->pcg_type;
897 }
898
899 print '<tr class="oddeven">';
900 print '<td>&nbsp;</td>';
901 print '<td'.($obj->accountancy_code ? ' title="'.dol_escape_htmltag($titletoshow).'"' : '').'>'.dol_escape_htmltag($obj->label).'</td>';
902 print '<td class="right">';
903 if ($modecompta == 'CREANCES-DETTES') {
904 print '<span class="amount">'.price(-$obj->amount).'</span>';
905 }
906 print '</td>';
907 print '<td class="right"><span class="amount">'.price(-$obj->amount).'</span></td>';
908 print '</tr>';
909 $i++;
910 }
911 } else {
912 print '<tr class="oddeven">';
913 print '<td>&nbsp;</td>';
914 print '<td colspan="3"><span class="opacitymedium">'.$langs->trans("None").'</span></td>';
915 print '</tr>';
916 }
917 } else {
918 dol_print_error($db);
919 }
920
921 $total_ht_outcome += $subtotal_ht;
922 $total_ttc_outcome += $subtotal_ttc;
923
924 print '<tr class="liste_total">';
925 print '<td></td>';
926 print '<td></td>';
927 print '<td class="right">';
928 if ($modecompta == 'CREANCES-DETTES') {
929 print price(-$subtotal_ht);
930 }
931 print '</td>';
932 print '<td class="right">'.price(-$subtotal_ttc).'</td>';
933 print '</tr>';
934
935
936 /*
937 * Salaries
938 */
939
940 if (isModEnabled('salaries')) {
941 print '<tr class="trforbreak"><td colspan="4">'.$langs->trans("Salaries").'</td></tr>';
942
943 if ($modecompta == 'CREANCES-DETTES' || $modecompta == 'RECETTES-DEPENSES') {
944 if ($modecompta == 'CREANCES-DETTES') {
945 $column = 's.dateep'; // We use the date of end of period of salary
946
947 $sql = "SELECT u.rowid, u.firstname, u.lastname, s.fk_user as fk_user, s.label as label, date_format($column,'%Y-%m') as dm, sum(s.amount) as amount";
948 $sql .= " FROM ".MAIN_DB_PREFIX."salary as s";
949 $sql .= " INNER JOIN ".MAIN_DB_PREFIX."user as u ON u.rowid = s.fk_user";
950 $sql .= " WHERE s.entity IN (".getEntity('salary').")";
951 if (!empty($date_start) && !empty($date_end)) {
952 $sql .= " AND $column >= '".$db->idate($date_start)."' AND $column <= '".$db->idate($date_end)."'";
953 }
954 $sql .= " GROUP BY u.rowid, u.firstname, u.lastname, s.fk_user, s.label, dm";
955 } else {
956 $column = 'p.datep';
957
958 $sql = "SELECT u.rowid, u.firstname, u.lastname, s.fk_user as fk_user, p.label as label, date_format($column,'%Y-%m') as dm, sum(p.amount) as amount";
959 $sql .= " FROM ".MAIN_DB_PREFIX."payment_salary as p";
960 $sql .= " INNER JOIN ".MAIN_DB_PREFIX."salary as s ON s.rowid = p.fk_salary";
961 $sql .= " INNER JOIN ".MAIN_DB_PREFIX."user as u ON u.rowid = s.fk_user";
962 $sql .= " WHERE p.entity IN (".getEntity('payment_salary').")";
963 if (!empty($date_start) && !empty($date_end)) {
964 $sql .= " AND $column >= '".$db->idate($date_start)."' AND $column <= '".$db->idate($date_end)."'";
965 }
966 $sql .= " GROUP BY u.rowid, u.firstname, u.lastname, s.fk_user, p.label, dm";
967 }
968
969 $newsortfield = $sortfield;
970 if ($newsortfield == 's.nom, s.rowid') {
971 $newsortfield = 'u.firstname, u.lastname';
972 }
973 if ($newsortfield == 'amount_ht') {
974 $newsortfield = 'amount';
975 }
976 if ($newsortfield == 'amount_ttc') {
977 $newsortfield = 'amount';
978 }
979 $sql .= $db->order($newsortfield, $sortorder);
980 }
981
982 dol_syslog("get salaries");
983 $result = $db->query($sql);
984 $subtotal_ht = 0;
985 $subtotal_ttc = 0;
986 if ($result) {
987 $num = $db->num_rows($result);
988 $i = 0;
989 if ($num) {
990 while ($i < $num) {
991 $obj = $db->fetch_object($result);
992
993 $total_ht -= $obj->amount;
994 $total_ttc -= $obj->amount;
995 $subtotal_ht += $obj->amount;
996 $subtotal_ttc += $obj->amount;
997
998 print '<tr class="oddeven"><td>&nbsp;</td>';
999
1000 $userstatic = new User($db);
1001 $userstatic->fetch($obj->fk_user);
1002
1003 print "<td>".$langs->trans("Salary")." <a href=\"".DOL_URL_ROOT."/salaries/list.php?search_user=".urlencode($userstatic->getFullName($langs))."\">".$obj->firstname." ".$obj->lastname."</a></td>\n";
1004 print '<td class="right">';
1005 if ($modecompta == 'CREANCES-DETTES') {
1006 print '<span class="amount">'.price(-$obj->amount).'</span>';
1007 }
1008 print '</td>';
1009 print '<td class="right"><span class="amount">'.price(-$obj->amount).'</span></td>';
1010 print '</tr>';
1011 $i++;
1012 }
1013 } else {
1014 print '<tr class="oddeven">';
1015 print '<td>&nbsp;</td>';
1016 print '<td colspan="3"><span class="opacitymedium">'.$langs->trans("None").'</span></td>';
1017 print '</tr>';
1018 }
1019 } else {
1020 dol_print_error($db);
1021 }
1022
1023 $total_ht_outcome += $subtotal_ht;
1024 $total_ttc_outcome += $subtotal_ttc;
1025
1026 print '<tr class="liste_total">';
1027 print '<td></td>';
1028 print '<td></td>';
1029 print '<td class="right">';
1030 if ($modecompta == 'CREANCES-DETTES') {
1031 print price(-$subtotal_ht);
1032 }
1033 print '</td>';
1034 print '<td class="right">'.price(-$subtotal_ttc).'</td>';
1035 print '</tr>';
1036 }
1037
1038
1039 /*
1040 * Expense report
1041 */
1042
1043 if (isModEnabled('expensereport')) {
1044 if ($modecompta == 'CREANCES-DETTES' || $modecompta == 'RECETTES-DEPENSES') {
1045 $langs->load('trips');
1046 if ($modecompta == 'CREANCES-DETTES') {
1047 $sql = "SELECT p.rowid, p.ref, u.rowid as userid, u.firstname, u.lastname, date_format(date_valid,'%Y-%m') as dm, p.total_ht as amount_ht, p.total_ttc as amount_ttc";
1048 $sql .= " FROM ".MAIN_DB_PREFIX."expensereport as p";
1049 $sql .= " INNER JOIN ".MAIN_DB_PREFIX."user as u ON u.rowid=p.fk_user_author";
1050 $sql .= " WHERE p.entity IN (".getEntity('expensereport').")";
1051 $sql .= " AND p.fk_statut>=5";
1052
1053 $column = 'p.date_valid';
1054 } else {
1055 $sql = "SELECT p.rowid, p.ref, u.rowid as userid, u.firstname, u.lastname, date_format(pe.datep,'%Y-%m') as dm, sum(pe.amount) as amount_ht, sum(pe.amount) as amount_ttc";
1056 $sql .= " FROM ".MAIN_DB_PREFIX."expensereport as p";
1057 $sql .= " INNER JOIN ".MAIN_DB_PREFIX."user as u ON u.rowid=p.fk_user_author";
1058 $sql .= " INNER JOIN ".MAIN_DB_PREFIX."payment_expensereport as pe ON pe.fk_expensereport = p.rowid";
1059 $sql .= " LEFT JOIN ".MAIN_DB_PREFIX."c_paiement as c ON pe.fk_typepayment = c.id";
1060 $sql .= " WHERE p.entity IN (".getEntity('expensereport').")";
1061 $sql .= " AND p.fk_statut>=5";
1062
1063 $column = 'pe.datep';
1064 }
1065
1066 if (!empty($date_start) && !empty($date_end)) {
1067 $sql .= " AND $column >= '".$db->idate($date_start)."' AND $column <= '".$db->idate($date_end)."'";
1068 }
1069
1070 if ($modecompta == 'CREANCES-DETTES') {
1071 //No need of GROUP BY
1072 } else {
1073 $sql .= " GROUP BY u.rowid, p.rowid, p.ref, u.firstname, u.lastname, dm";
1074 }
1075 $newsortfield = $sortfield;
1076 if ($newsortfield == 's.nom, s.rowid') {
1077 $newsortfield = 'p.ref';
1078 }
1079 $sql .= $db->order($newsortfield, $sortorder);
1080 }
1081
1082 print '<tr class="trforbreak"><td colspan="4">'.$langs->trans("ExpenseReport").'</td></tr>';
1083
1084 dol_syslog("get expense report outcome");
1085 $result = $db->query($sql);
1086 $subtotal_ht = 0;
1087 $subtotal_ttc = 0;
1088 if ($result) {
1089 $num = $db->num_rows($result);
1090 if ($num) {
1091 while ($obj = $db->fetch_object($result)) {
1092 $total_ht -= $obj->amount_ht;
1093 $total_ttc -= $obj->amount_ttc;
1094 $subtotal_ht += $obj->amount_ht;
1095 $subtotal_ttc += $obj->amount_ttc;
1096
1097 print '<tr class="oddeven">';
1098 print '<td>&nbsp;</td>';
1099 print "<td>".$langs->trans("ExpenseReport")." <a href=\"".DOL_URL_ROOT."/expensereport/list.php?search_user=".$obj->userid."\">".$obj->firstname." ".$obj->lastname."</a></td>\n";
1100 print '<td class="right">';
1101 if ($modecompta == 'CREANCES-DETTES') {
1102 print '<span class="amount">'.price(-$obj->amount_ht).'</span>';
1103 }
1104 print '</td>';
1105 print '<td class="right"><span class="amount">'.price(-$obj->amount_ttc).'</span></td>';
1106 print '</tr>';
1107 }
1108 } else {
1109 print '<tr class="oddeven">';
1110 print '<td>&nbsp;</td>';
1111 print '<td colspan="3"><span class="opacitymedium">'.$langs->trans("None").'</span></td>';
1112 print '</tr>';
1113 }
1114 } else {
1115 dol_print_error($db);
1116 }
1117
1118 $total_ht_outcome += $subtotal_ht;
1119 $total_ttc_outcome += $subtotal_ttc;
1120
1121 print '<tr class="liste_total">';
1122 print '<td></td>';
1123 print '<td></td>';
1124 print '<td class="right">';
1125 if ($modecompta == 'CREANCES-DETTES') {
1126 print price(-$subtotal_ht);
1127 }
1128 print '</td>';
1129 print '<td class="right">'.price(-$subtotal_ttc).'</td>';
1130 print '</tr>';
1131 }
1132
1133
1134 /*
1135 * Various Payments
1136 */
1137 //$conf->global->ACCOUNTING_REPORTS_INCLUDE_VARPAY = 1;
1138
1139 if (!empty($conf->global->ACCOUNTING_REPORTS_INCLUDE_VARPAY) && isModEnabled("banque") && ($modecompta == 'CREANCES-DETTES' || $modecompta == "RECETTES-DEPENSES")) {
1140 $subtotal_ht = 0;
1141 $subtotal_ttc = 0;
1142
1143 print '<tr class="trforbreak"><td colspan="4">'.$langs->trans("VariousPayment").'</td></tr>';
1144
1145 // Debit
1146 $sql = "SELECT SUM(p.amount) AS amount FROM ".MAIN_DB_PREFIX."payment_various as p";
1147 $sql .= ' WHERE 1 = 1';
1148 if (!empty($date_start) && !empty($date_end)) {
1149 $sql .= " AND p.datep >= '".$db->idate($date_start)."' AND p.datep <= '".$db->idate($date_end)."'";
1150 }
1151 $sql .= ' GROUP BY p.sens';
1152 $sql .= ' ORDER BY p.sens';
1153
1154 dol_syslog('get various payments', LOG_DEBUG);
1155 $result = $db->query($sql);
1156 if ($result) {
1157 // Debit (payment of suppliers for example)
1158 $obj = $db->fetch_object($result);
1159 if (isset($obj->amount)) {
1160 $subtotal_ht += -$obj->amount;
1161 $subtotal_ttc += -$obj->amount;
1162
1163 $total_ht_outcome += $obj->amount;
1164 $total_ttc_outcome += $obj->amount;
1165 }
1166 print '<tr class="oddeven">';
1167 print '<td>&nbsp;</td>';
1168 print "<td>".$langs->trans("AccountingDebit")."</td>\n";
1169 print '<td class="right">';
1170 if ($modecompta == 'CREANCES-DETTES') {
1171 print '<span class="amount">'.price(-$obj->amount).'</span>';
1172 }
1173 print '</td>';
1174 print '<td class="right"><span class="amount">'.price(-$obj->amount)."</span></td>\n";
1175 print "</tr>\n";
1176
1177 // Credit (payment received from customer for example)
1178 $obj = $db->fetch_object($result);
1179 if (isset($obj->amount)) {
1180 $subtotal_ht += $obj->amount;
1181 $subtotal_ttc += $obj->amount;
1182
1183 $total_ht_income += $obj->amount;
1184 $total_ttc_income += $obj->amount;
1185 }
1186 print '<tr class="oddeven"><td>&nbsp;</td>';
1187 print "<td>".$langs->trans("AccountingCredit")."</td>\n";
1188 print '<td class="right">';
1189 if ($modecompta == 'CREANCES-DETTES') {
1190 print '<span class="amount">'.price($obj->amount).'</span>';
1191 }
1192 print '</td>';
1193 print '<td class="right"><span class="amount">'.price($obj->amount)."</span></td>\n";
1194 print "</tr>\n";
1195
1196 // Total
1197 $total_ht += $subtotal_ht;
1198 $total_ttc += $subtotal_ttc;
1199 print '<tr class="liste_total">';
1200 print '<td></td>';
1201 print '<td></td>';
1202 print '<td class="right">';
1203 if ($modecompta == 'CREANCES-DETTES') {
1204 print price($subtotal_ht);
1205 }
1206 print '</td>';
1207 print '<td class="right">'.price($subtotal_ttc).'</td>';
1208 print '</tr>';
1209 } else {
1210 dol_print_error($db);
1211 }
1212 }
1213
1214 /*
1215 * Payment Loan
1216 */
1217
1218 if (!empty($conf->global->ACCOUNTING_REPORTS_INCLUDE_LOAN) && isModEnabled('don') && ($modecompta == 'CREANCES-DETTES' || $modecompta == "RECETTES-DEPENSES")) {
1219 $subtotal_ht = 0;
1220 $subtotal_ttc = 0;
1221
1222 print '<tr class="trforbreak"><td colspan="4">'.$langs->trans("PaymentLoan").'</td></tr>';
1223
1224 $sql = 'SELECT l.rowid as id, l.label AS label, SUM(p.amount_capital + p.amount_insurance + p.amount_interest) as amount FROM '.MAIN_DB_PREFIX.'payment_loan as p';
1225 $sql .= ' LEFT JOIN '.MAIN_DB_PREFIX.'loan AS l ON l.rowid = p.fk_loan';
1226 $sql .= ' WHERE 1 = 1';
1227 if (!empty($date_start) && !empty($date_end)) {
1228 $sql .= " AND p.datep >= '".$db->idate($date_start)."' AND p.datep <= '".$db->idate($date_end)."'";
1229 }
1230 $sql .= ' GROUP BY p.fk_loan';
1231 $sql .= ' ORDER BY p.fk_loan';
1232
1233 dol_syslog('get loan payments', LOG_DEBUG);
1234 $result = $db->query($sql);
1235 if ($result) {
1236 require_once DOL_DOCUMENT_ROOT.'/loan/class/loan.class.php';
1237 $loan_static = new Loan($db);
1238 while ($obj = $db->fetch_object($result)) {
1239 $loan_static->id = $obj->id;
1240 $loan_static->ref = $obj->id;
1241 $loan_static->label = $obj->label;
1242 print '<tr class="oddeven"><td>&nbsp;</td>';
1243 print "<td>".$loan_static->getNomUrl(1).' - '.$obj->label."</td>\n";
1244 if ($modecompta == 'CREANCES-DETTES') {
1245 print '<td class="right"><span class="amount">'.price(-$obj->amount).'</span></td>';
1246 }
1247 print '<td class="right"><span class="amount">'.price(-$obj->amount)."</span></td>\n";
1248 print "</tr>\n";
1249 $subtotal_ht -= $obj->amount;
1250 $subtotal_ttc -= $obj->amount;
1251 }
1252 $total_ht += $subtotal_ht;
1253 $total_ttc += $subtotal_ttc;
1254
1255 $total_ht_income += $subtotal_ht;
1256 $total_ttc_income += $subtotal_ttc;
1257
1258 print '<tr class="liste_total">';
1259 print '<td></td>';
1260 print '<td></td>';
1261 print '<td class="right">';
1262 if ($modecompta == 'CREANCES-DETTES') {
1263 print price($subtotal_ht);
1264 }
1265 print '</td>';
1266 print '<td class="right">'.price($subtotal_ttc).'</td>';
1267 print '</tr>';
1268 } else {
1269 dol_print_error($db);
1270 }
1271 }
1272
1273 /*
1274 * VAT
1275 */
1276
1277 print '<tr class="trforbreak"><td colspan="4">'.$langs->trans("VAT").'</td></tr>';
1278 $subtotal_ht = 0;
1279 $subtotal_ttc = 0;
1280
1281 if (isModEnabled('tax') && ($modecompta == 'CREANCES-DETTES' || $modecompta == 'RECETTES-DEPENSES')) {
1282 if ($modecompta == 'CREANCES-DETTES') {
1283 // VAT to pay
1284 $amount = 0;
1285 $sql = "SELECT date_format(f.datef,'%Y-%m') as dm, sum(f.total_tva) as amount";
1286 $sql .= " FROM ".MAIN_DB_PREFIX."facture as f";
1287 $sql .= " WHERE f.fk_statut IN (1,2)";
1288 if (!empty($conf->global->FACTURE_DEPOSITS_ARE_JUST_PAYMENTS)) {
1289 $sql .= " AND f.type IN (0,1,2,5)";
1290 } else {
1291 $sql .= " AND f.type IN (0,1,2,3,5)";
1292 }
1293 if (!empty($date_start) && !empty($date_end)) {
1294 $sql .= " AND f.datef >= '".$db->idate($date_start)."' AND f.datef <= '".$db->idate($date_end)."'";
1295 }
1296 $sql .= " AND f.entity IN (".getEntity('invoice').")";
1297 $sql .= " GROUP BY dm";
1298 $newsortfield = $sortfield;
1299 if ($newsortfield == 's.nom, s.rowid') {
1300 $newsortfield = 'dm';
1301 }
1302 if ($newsortfield == 'amount_ht') {
1303 $newsortfield = 'amount';
1304 }
1305 if ($newsortfield == 'amount_ttc') {
1306 $newsortfield = 'amount';
1307 }
1308 $sql .= $db->order($newsortfield, $sortorder);
1309
1310 dol_syslog("get vat to pay", LOG_DEBUG);
1311 $result = $db->query($sql);
1312 if ($result) {
1313 $num = $db->num_rows($result);
1314 $i = 0;
1315 if ($num) {
1316 while ($i < $num) {
1317 $obj = $db->fetch_object($result);
1318
1319 $amount -= $obj->amount;
1320 //$total_ht -= $obj->amount;
1321 $total_ttc -= $obj->amount;
1322 //$subtotal_ht -= $obj->amount;
1323 $subtotal_ttc -= $obj->amount;
1324 $i++;
1325 }
1326 }
1327 } else {
1328 dol_print_error($db);
1329 }
1330
1331 $total_ht_outcome -= 0;
1332 $total_ttc_outcome -= $amount;
1333
1334 print '<tr class="oddeven">';
1335 print '<td>&nbsp;</td>';
1336 print "<td>".$langs->trans("VATToPay")."</td>\n";
1337 print '<td class="right">&nbsp;</td>'."\n";
1338 print '<td class="right"><span class="amount">'.price($amount)."</span></td>\n";
1339 print "</tr>\n";
1340
1341 // VAT to retrieve
1342 $amount = 0;
1343 $sql = "SELECT date_format(f.datef,'%Y-%m') as dm, sum(f.total_tva) as amount";
1344 $sql .= " FROM ".MAIN_DB_PREFIX."facture_fourn as f";
1345 $sql .= " WHERE f.fk_statut IN (1,2)";
1346 if (!empty($conf->global->FACTURE_SUPPLIER_DEPOSITS_ARE_JUST_PAYMENTS)) {
1347 $sql .= " AND f.type IN (0,1,2)";
1348 } else {
1349 $sql .= " AND f.type IN (0,1,2,3)";
1350 }
1351 if (!empty($date_start) && !empty($date_end)) {
1352 $sql .= " AND f.datef >= '".$db->idate($date_start)."' AND f.datef <= '".$db->idate($date_end)."'";
1353 }
1354 $sql .= " AND f.entity = ".$conf->entity;
1355 $sql .= " GROUP BY dm";
1356 $newsortfield = $sortfield;
1357 if ($newsortfield == 's.nom, s.rowid') {
1358 $newsortfield = 'dm';
1359 }
1360 if ($newsortfield == 'amount_ht') {
1361 $newsortfield = 'amount';
1362 }
1363 if ($newsortfield == 'amount_ttc') {
1364 $newsortfield = 'amount';
1365 }
1366 $sql .= $db->order($newsortfield, $sortorder);
1367
1368 dol_syslog("get vat received back", LOG_DEBUG);
1369 $result = $db->query($sql);
1370 if ($result) {
1371 $num = $db->num_rows($result);
1372 $i = 0;
1373 if ($num) {
1374 while ($i < $num) {
1375 $obj = $db->fetch_object($result);
1376
1377 $amount += $obj->amount;
1378 //$total_ht += $obj->amount;
1379 $total_ttc += $obj->amount;
1380 //$subtotal_ht += $obj->amount;
1381 $subtotal_ttc += $obj->amount;
1382
1383 $i++;
1384 }
1385 }
1386 } else {
1387 dol_print_error($db);
1388 }
1389
1390 $total_ht_income += 0;
1391 $total_ttc_income += $amount;
1392
1393 print '<tr class="oddeven">';
1394 print '<td>&nbsp;</td>';
1395 print '<td>'.$langs->trans("VATToCollect")."</td>\n";
1396 print '<td class="right">&nbsp;</td>'."\n";
1397 print '<td class="right"><span class="amount">'.price($amount)."</span></td>\n";
1398 print "</tr>\n";
1399 } else {
1400 // VAT really already paid
1401 $amount = 0;
1402 $sql = "SELECT date_format(t.datev,'%Y-%m') as dm, sum(t.amount) as amount";
1403 $sql .= " FROM ".MAIN_DB_PREFIX."tva as t";
1404 $sql .= " WHERE amount > 0";
1405 if (!empty($date_start) && !empty($date_end)) {
1406 $sql .= " AND t.datev >= '".$db->idate($date_start)."' AND t.datev <= '".$db->idate($date_end)."'";
1407 }
1408 $sql .= " AND t.entity = ".$conf->entity;
1409 $sql .= " GROUP BY dm";
1410 $newsortfield = $sortfield;
1411 if ($newsortfield == 's.nom, s.rowid') {
1412 $newsortfield = 'dm';
1413 }
1414 if ($newsortfield == 'amount_ht') {
1415 $newsortfield = 'amount';
1416 }
1417 if ($newsortfield == 'amount_ttc') {
1418 $newsortfield = 'amount';
1419 }
1420 $sql .= $db->order($newsortfield, $sortorder);
1421
1422 dol_syslog("get vat really paid", LOG_DEBUG);
1423 $result = $db->query($sql);
1424 if ($result) {
1425 $num = $db->num_rows($result);
1426 $i = 0;
1427 if ($num) {
1428 while ($i < $num) {
1429 $obj = $db->fetch_object($result);
1430
1431 $amount -= $obj->amount;
1432 $total_ht -= $obj->amount;
1433 $total_ttc -= $obj->amount;
1434 $subtotal_ht -= $obj->amount;
1435 $subtotal_ttc -= $obj->amount;
1436
1437 $i++;
1438 }
1439 }
1440 $db->free($result);
1441 } else {
1442 dol_print_error($db);
1443 }
1444
1445 $total_ht_outcome -= 0;
1446 $total_ttc_outcome -= $amount;
1447
1448 print '<tr class="oddeven">';
1449 print '<td>&nbsp;</td>';
1450 print "<td>".$langs->trans("VATPaid")."</td>\n";
1451 print '<td <class="right"></td>'."\n";
1452 print '<td class="right"><span class="amount">'.price($amount)."</span></td>\n";
1453 print "</tr>\n";
1454
1455 // VAT really received
1456 $amount = 0;
1457 $sql = "SELECT date_format(t.datev,'%Y-%m') as dm, sum(t.amount) as amount";
1458 $sql .= " FROM ".MAIN_DB_PREFIX."tva as t";
1459 $sql .= " WHERE amount < 0";
1460 if (!empty($date_start) && !empty($date_end)) {
1461 $sql .= " AND t.datev >= '".$db->idate($date_start)."' AND t.datev <= '".$db->idate($date_end)."'";
1462 }
1463 $sql .= " AND t.entity = ".$conf->entity;
1464 $sql .= " GROUP BY dm";
1465 $newsortfield = $sortfield;
1466 if ($newsortfield == 's.nom, s.rowid') {
1467 $newsortfield = 'dm';
1468 }
1469 if ($newsortfield == 'amount_ht') {
1470 $newsortfield = 'amount';
1471 }
1472 if ($newsortfield == 'amount_ttc') {
1473 $newsortfield = 'amount';
1474 }
1475 $sql .= $db->order($newsortfield, $sortorder);
1476
1477 dol_syslog("get vat really received back", LOG_DEBUG);
1478 $result = $db->query($sql);
1479 if ($result) {
1480 $num = $db->num_rows($result);
1481 $i = 0;
1482 if ($num) {
1483 while ($i < $num) {
1484 $obj = $db->fetch_object($result);
1485
1486 $amount += -$obj->amount;
1487 $total_ht += -$obj->amount;
1488 $total_ttc += -$obj->amount;
1489 $subtotal_ht += -$obj->amount;
1490 $subtotal_ttc += -$obj->amount;
1491
1492 $i++;
1493 }
1494 }
1495 $db->free($result);
1496 } else {
1497 dol_print_error($db);
1498 }
1499
1500 $total_ht_income += 0;
1501 $total_ttc_income += $amount;
1502
1503 print '<tr class="oddeven">';
1504 print '<td>&nbsp;</td>';
1505 print "<td>".$langs->trans("VATCollected")."</td>\n";
1506 print '<td class="right"></td>'."\n";
1507 print '<td class="right"><span class="amount">'.price($amount)."</span></td>\n";
1508 print "</tr>\n";
1509 }
1510 }
1511
1512 if ($mysoc->tva_assuj != '0') { // Assujetti
1513 print '<tr class="liste_total">';
1514 print '<td></td>';
1515 print '<td></td>';
1516 print '<td class="right">&nbsp;</td>';
1517 print '<td class="right">'.price(price2num($subtotal_ttc, 'MT')).'</td>';
1518 print '</tr>';
1519 }
1520}
1521
1522$action = "balanceclient";
1523$object = array(&$total_ht, &$total_ttc);
1524$parameters["mode"] = $modecompta;
1525$parameters["date_start"] = $date_start;
1526$parameters["date_end"] = $date_end;
1527// Initialize technical object to manage hooks of expenses. Note that conf->hooks_modules contains array array
1528$hookmanager->initHooks(array('externalbalance'));
1529$reshook = $hookmanager->executeHooks('addBalanceLine', $parameters, $object, $action); // Note that $action and $object may have been modified by some hooks
1530print $hookmanager->resPrint;
1531
1532
1533
1534// Total
1535print '<tr>';
1536print '<td colspan="'.($modecompta == 'BOOKKEEPING' ? 3 : 4).'">&nbsp;</td>';
1537print '</tr>';
1538
1539print '<tr class="liste_total"><td class="left" colspan="2">'.$langs->trans("Income").'</td>';
1540if ($modecompta == 'CREANCES-DETTES') {
1541 print '<td class="liste_total right nowraponall">'.price(price2num($total_ht_income, 'MT')).'</td>';
1542} elseif ($modecompta == 'RECETTES-DEPENSES') {
1543 print '<td></td>';
1544}
1545print '<td class="liste_total right nowraponall">'.price(price2num($total_ttc_income, 'MT')).'</td>';
1546print '</tr>';
1547print '<tr class="liste_total"><td class="left" colspan="2">'.$langs->trans("Outcome").'</td>';
1548if ($modecompta == 'CREANCES-DETTES') {
1549 print '<td class="liste_total right nowraponall">'.price(price2num(-$total_ht_outcome, 'MT')).'</td>';
1550} elseif ($modecompta == 'RECETTES-DEPENSES') {
1551 print '<td></td>';
1552}
1553print '<td class="liste_total right nowraponall">'.price(price2num(-$total_ttc_outcome, 'MT')).'</td>';
1554print '</tr>';
1555print '<tr class="liste_total"><td class="left" colspan="2">'.$langs->trans("Profit").'</td>';
1556if ($modecompta == 'CREANCES-DETTES') {
1557 print '<td class="liste_total right nowraponall">'.price(price2num($total_ht, 'MT')).'</td>';
1558} elseif ($modecompta == 'RECETTES-DEPENSES') {
1559 print '<td></td>';
1560}
1561print '<td class="liste_total right nowraponall">'.price(price2num($total_ttc, 'MT')).'</td>';
1562print '</tr>';
1563
1564print "</table>";
1565print '<br>';
1566
1567// End of page
1568llxFooter();
1569$db->close();
if(!defined('NOREQUIRESOC')) if(!defined( 'NOREQUIRETRAN')) if(!defined('NOTOKENRENEWAL')) if(!defined( 'NOREQUIREMENU')) if(!defined('NOREQUIREHTML')) if(!defined( 'NOREQUIREAJAX')) llxHeader()
Empty header.
Definition wrapper.php:56
llxFooter()
Empty footer.
Definition wrapper.php:70
Class to manage categories of an accounting account.
Class to manage accounting accounts.
Class to manage generation of HTML components Only common components must be here.
Loan.
Class to manage Dolibarr users.
dol_get_first_day($year, $month=1, $gm=false)
Return GMT time for first day of a month or year.
Definition date.lib.php:577
dol_get_last_day($year, $month=12, $gm=false)
Return GMT time for last day of a month or year.
Definition date.lib.php:596
dol_mktime($hour, $minute, $second, $month, $day, $year, $gm='auto', $check=1)
Return a timestamp date built from detailed informations (by default a local PHP server timestamp) Re...
price2num($amount, $rounding='', $option=0)
Function that return a number with universal decimal format (decimal separator is '.
dol_print_error($db='', $error='', $errors=null)
Displays error message system with all the information to facilitate the diagnosis and the escalation...
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_print_date($time, $format='', $tzoutput='auto', $outputlangs='', $encodetooutput=false)
Output date in a string format according to outputlangs (or langs if not defined).
dol_now($mode='auto')
Return date for now.
getDolGlobalInt($key, $default=0)
Return 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.
print_liste_field_titre($name, $file="", $field="", $begin="", $moreparam="", $moreattrib="", $sortfield="", $sortorder="", $prefix="", $tooltip="", $forcenowrapcolumntitle=0)
Show title line of an array.
img_previous($titlealt='default', $moreatt='')
Show previous logo.
GETPOST($paramname, $check='alphanohtml', $method=0, $filter=null, $options=null, $noreplace=0)
Return value of a param into GET or POST supervariable.
info_admin($text, $infoonimgalt=0, $nodiv=0, $admin='1', $morecss='hideonsmartphone', $textfordropdown='')
Show information for admin users or standard users.
setEventMessages($mesg, $mesgs, $style='mesgs', $messagekey='', $noduplicate=0)
Set event messages in dol_events session object.
img_next($titlealt='default', $moreatt='')
Show next logo.
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.
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...
report_header($reportname, $notused, $period, $periodlink, $description, $builddate, $exportlink='', $moreparam=array(), $calcmode='', $varlink='')
Show header of a report.
restrictedArea(User $user, $features, $object=0, $tableandshare='', $feature2='', $dbt_keyfield='fk_soc', $dbt_select='rowid', $isdraft=0, $mode=0)
Check permissions of a user to show a page and an object.