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}
264print_liste_field_titre('');
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();
llxHeader
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
llxFooter()
Empty footer.
Definition wrapper.php:70
AccountancyCategory
Class to manage categories of an accounting account.
Definition accountancycategory.class.php:33
AccountingAccount
Class to manage accounting accounts.
Definition accountingaccount.class.php:37
Form
Class to manage generation of HTML components Only common components must be here.
Definition html.form.class.php:54
Loan
Loan.
Definition loan.class.php:31
User
Class to manage Dolibarr users.
Definition user.class.php:48
dol_get_first_day
dol_get_first_day($year, $month=1, $gm=false)
Return GMT time for first day of a month or year.
Definition date.lib.php:578
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:597
dol_mktime
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...
Definition functions.lib.php:3030
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:9162
price2num
price2num($amount, $rounding='', $option=0)
Function that return a number with universal decimal format (decimal separator is '.
Definition functions.lib.php:6020
dol_print_error
dol_print_error($db='', $error='', $errors=null)
Displays error message system with all the information to facilitate the diagnosis and the escalation...
Definition functions.lib.php:5169
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:5893
dol_print_date
dol_print_date($time, $format='', $tzoutput='auto', $outputlangs='', $encodetooutput=false)
Output date in a string format according to outputlangs (or langs if not defined).
Definition functions.lib.php:2733
dol_now
dol_now($mode='auto')
Return date for now.
Definition functions.lib.php:3118
getDolGlobalInt
getDolGlobalInt($key, $default=0)
Return dolibarr global constant int value.
Definition functions.lib.php:156
print_liste_field_titre
print_liste_field_titre($name, $file="", $field="", $begin="", $moreparam="", $moreattrib="", $sortfield="", $sortorder="", $prefix="", $tooltip="", $forcenowrapcolumntitle=0)
Show title line of an array.
Definition functions.lib.php:5359
img_previous
img_previous($titlealt='default', $moreatt='')
Show previous logo.
Definition functions.lib.php:4901
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:614
info_admin
info_admin($text, $infoonimgalt=0, $nodiv=0, $admin='1', $morecss='hideonsmartphone', $textfordropdown='')
Show information for admin users or standard users.
Definition functions.lib.php:5125
setEventMessages
setEventMessages($mesg, $mesgs, $style='mesgs', $messagekey='', $noduplicate=0)
Set event messages in dol_events session object.
Definition functions.lib.php:8743
img_next
img_next($titlealt='default', $moreatt='')
Show next logo.
Definition functions.lib.php:4882
dol_syslog
dol_syslog($message, $level=LOG_INFO, $ident=0, $suffixinfilename='', $restricttologhandler='', $logcontext=null)
Write log message into outputs.
Definition functions.lib.php:1788
dol_getdate
dol_getdate($timestamp, $fast=false, $forcetimezone='')
Return an array with locale date info.
Definition functions.lib.php:2983
dol_escape_htmltag
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...
Definition functions.lib.php:1647
report_header
report_header($reportname, $notused, $period, $periodlink, $description, $builddate, $exportlink='', $moreparam=array(), $calcmode='', $varlink='')
Show header of a report.
Definition report.lib.php:41
restrictedArea
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.
Definition security.lib.php:366
Generated on Wed Apr 2 2025 01:00:22 for dolibarr by Doxygen 1.11.0