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