* Copyright (C) 2004-2007 Laurent Destailleur * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. * * $Id$ * $Source$ * */ /** \file htdocs/compta/stats/index.php \brief Page reporting CA \version $Revision$ */ require("./pre.inc.php"); $year_start=isset($_GET["year_start"])?$_GET["year_start"]:$_POST["year_start"]; $year_current = strftime("%Y",time()); if (! $year_start) { $year_start = $year_current - 4; $year_end = $year_current; } else { $year_end=$year_start + 4; } /* * Sécurité accés client */ if ($user->societe_id > 0) { $socid = $user->societe_id; } $modecompta = $conf->compta->mode; if ($_GET["modecompta"]) $modecompta=$_GET["modecompta"]; llxHeader(); $html=new Form($db); // Affiche en-tête du rapport if ($modecompta=="CREANCES-DETTES") { $nom="Chiffre d'affaire"; $nom.=' (Voir le rapport recettes-dépenses pour n\'inclure que les factures effectivement payées)'; $period="$year_start - $year_end"; $periodlink=($year_start?"".img_previous()." ".img_next()."":""); $description=$langs->trans("RulesCADue"); $builddate=time(); $exportlink=$langs->trans("NotYetAvailable"); } else { $nom="Chiffre d'affaire"; $nom.=' (Voir le rapport en créances-dettes pour inclure les factures non encore payée)'; $period="$year_start - $year_end"; $periodlink=($year_start?"".img_previous()." ".img_next()."":""); $description=$langs->trans("RulesCAIn"); $builddate=time(); $exportlink=$langs->trans("NotYetAvailable"); } $html->report_header($nom,$nomlink,$period,$periodlink,$description,$builddate,$exportlink); if ($modecompta == 'CREANCES-DETTES') { $sql = "SELECT sum(f.total) as amount, sum(f.total_ttc) as amount_ttc, date_format(f.datef,'%Y-%m') as dm"; $sql .= " FROM ".MAIN_DB_PREFIX."facture as f"; $sql .= " WHERE f.fk_statut in (1,2)"; } else { /* * Liste des paiements (les anciens paiements ne sont pas vus par cette requete car, sur les * vieilles versions, ils n'étaient pas liés via paiement_facture. On les ajoute plus loin) */ $sql = "SELECT sum(pf.amount) as amount_ttc, date_format(p.datep,'%Y-%m') as dm"; $sql .= " FROM ".MAIN_DB_PREFIX."facture as f, ".MAIN_DB_PREFIX."paiement_facture as pf, ".MAIN_DB_PREFIX."paiement as p"; $sql .= " WHERE p.rowid = pf.fk_paiement AND pf.fk_facture = f.rowid"; } if ($socid) $sql .= " AND f.fk_soc = $socid"; $sql .= " GROUP BY dm DESC"; $result = $db->query($sql); if ($result) { $num = $db->num_rows($result); $i = 0; while ($i < $num) { $obj = $db->fetch_object($result); $cum[$obj->dm] = $obj->amount_ttc; if ($obj->amount_ttc) { $minyearmonth=($minyearmonth?min($minyearmonth,$obj->dm):$obj->dm); $maxyearmonth=max($maxyearmonth,$obj->dm); } $i++; } $db->free($result); } else { dolibarr_print_error($db); } // On ajoute les paiements anciennes version, non liés par paiement_facture if ($modecompta != 'CREANCES-DETTES') { $sql = "SELECT sum(p.amount) as amount_ttc, date_format(p.datep,'%Y-%m') as dm"; $sql .= " FROM ".MAIN_DB_PREFIX."paiement as p"; $sql .= " LEFT JOIN ".MAIN_DB_PREFIX."paiement_facture as pf ON p.rowid = pf.fk_paiement"; $sql .= " WHERE pf.rowid IS NULL"; $sql .= " GROUP BY dm"; $sql .= " ORDER BY dm"; $result = $db->query($sql); if ($result) { $num = $db->num_rows($result); $i = 0; while ($i < $num) { $obj = $db->fetch_object($result); $cum[$obj->dm] += $obj->amount_ttc; if ($obj->amount_ttc) { $minyearmonth=($minyearmonth?min($minyearmonth,$obj->dm):$obj->dm); $maxyearmonth=max($maxyearmonth,$obj->dm); } $i++; } } else { dolibarr_print_error($db); } } print ''; print ''; for ($annee = $year_start ; $annee <= $year_end ; $annee++) { print ''; if ($annee != $year_end) print ''; } print ''; print ''; for ($annee = $year_start ; $annee <= $year_end ; $annee++) { print ''; print ''; if ($annee != $year_end) print ''; } print ''; $total_CA=0; $now_show_delta=0; $minyear=substr($minyearmonth,0,4); $maxyear=substr($maxyearmonth,0,4); $nowyear=strftime("%Y",mktime()); $nowyearmonth=strftime("%Y-%m",mktime()); for ($mois = 1 ; $mois < 13 ; $mois++) { $var=!$var; print ""; print ""; for ($annee = $year_start ; $annee <= $year_end ; $annee++) { $casenow = strftime("%Y-%m",mktime()); $case = strftime("%Y-%m",mktime(1,1,1,$mois,1,$annee)); $caseprev = strftime("%Y-%m",mktime(1,1,1,$mois,1,$annee-1)); if ($annee == $year_current) { $total_CA += $cum[$case]; } // Valeur CA du mois print '"; // Pourcentage du mois if ($annee > $minyear && $case <= $casenow) { if ($cum[$caseprev] && $cum[$case]) { $percent=(round(($cum[$case]-$cum[$caseprev])/$cum[$caseprev],4)*100); //print "X $cum[$case] - $cum[$caseprev] - $cum[$caseprev] - $percent X"; print ''; } if ($cum[$caseprev] && ! $cum[$case]) { print ''; } if (! $cum[$caseprev] && $cum[$case]) { print ''; } if (! $cum[$caseprev] && ! $cum[$case]) { print ''; } } else { print ''; } $total[$annee]+=$cum[$case]; if ($annee != $year_end) print ''; } print ''; } // Affiche total print ''; for ($annee = $year_start ; $annee <= $year_end ; $annee++) { // Montant total if ($annee >= $minyear && $annee <= max($nowyear,$maxyear)) { print ""; } else { print ''; } // Pourcentage total if ($annee > $minyear && $annee <= max($nowyear,$maxyear)) { if ($total[$annee-1] && $total[$annee]) { $percent=(round(($total[$annee]-$total[$annee-1])/$total[$annee-1],4)*100); print ''; } if ($total[$annee-1] && ! $total[$annee]) { print ''; } if (! $total[$annee-1] && $total[$annee]) { print ''; } if (! $total[$annee-1] && ! $total[$annee]) { print ''; } } else { print ''; } if ($annee != $year_end) print ''; } print "\n"; print "

'.$langs->trans("Month").'	'.$annee.'
	'.$langs->trans("AmountTTC").'	'.$langs->trans("Delta").'
".strftime("%B",mktime(1,1,1,$mois,1,2000))."	'; if ($cum[$case]) { $now_show_delta=1; // On a trouvé le premier mois de la première année générant du chiffre. print price($cum[$case],1); } else { if ($minyearmonth < $case && $case <= max($maxyearmonth,$nowyearmonth)) { print '0'; } else { print ' '; } } print "	'.($percent>=0?"+$percent":"$percent").'%	-100%	+Inf%	+0%	'; if ($minyearmonth <= $case && $case <= $maxyearmonth) { print '-'; } else { print ' '; } print '
'.$langs->trans("Total").'	".($total[$annee]?price($total[$annee]):"0")."		'.($percent>=0?"+$percent":"$percent").'%	-100%	+Inf%	+0%	'; if ($minyear <= $annee && $annee <= max($nowyear,$maxyear)) { print '-'; } else { print ' '; } print '

"; /* * En mode recettes/dépenses, on complète avec les montants facturés non réglés * et les propales signées mais pas facturées. En effet, en recettes-dépenses, * on comptabilise lorsque le montant est sur le compte donc il est intéressant * d'avoir une vision de ce qui va arriver. */ /* Je commente toute cette partie car les chiffres affichées sont faux - Eldy. En attendant correction. if ($modecompta != 'CREANCES-DETTES') { print '
'; // Factures non réglées // \todo Y a bug ici. Il faut prendre le reste à payer et non le total des factures non réglèes ! $sql = "SELECT f.facnumber, f.rowid, s.nom, s.idp, f.total_ttc, sum(pf.amount) as am"; $sql .= " FROM ".MAIN_DB_PREFIX."societe as s,".MAIN_DB_PREFIX."facture as f left join ".MAIN_DB_PREFIX."paiement_facture as pf on f.rowid=pf.fk_facture"; $sql .= " WHERE s.idp = f.fk_soc AND f.paye = 0 AND f.fk_statut = 1"; if ($socid) { $sql .= " AND f.fk_soc = $socid"; } $sql .= " GROUP BY f.facnumber,f.rowid,s.nom, s.idp, f.total_ttc"; if ( $db->query($sql) ) { $num = $db->num_rows(); $i = 0; if ($num) { $var = True; $total_ttc_Rac = $totalam_Rac = $total_Rac = 0; while ($i < $num) { $obj = $db->fetch_object(); $total_ttc_Rac += $obj->total_ttc; $totalam_Rac += $obj->am; $i++; } $var=!$var; print ""; $total_CA +=$total_ttc_Rac; } $db->free(); } else { dolibarr_print_error($db); } */ /* * * Propales signées, et non facturées * */ /* Je commente toute cette partie car les chiffres affichées sont faux - Eldy. En attendant correction. $sql = "SELECT sum(f.total) as tot_fht,sum(f.total_ttc) as tot_fttc, p.rowid, p.ref, s.nom, s.idp, p.total_ht, p.total_ttc FROM ".MAIN_DB_PREFIX."commande AS p, llx_societe AS s LEFT JOIN ".MAIN_DB_PREFIX."co_fa AS co_fa ON co_fa.fk_commande = p.rowid LEFT JOIN ".MAIN_DB_PREFIX."facture AS f ON co_fa.fk_facture = f.rowid WHERE p.fk_soc = s.idp AND p.fk_statut >=1 AND p.facture =0"; if ($socid) { $sql .= " AND f.fk_soc = $socid"; } $sql .= " GROUP BY p.rowid"; if ( $db->query($sql) ) { $num = $db->num_rows(); $i = 0; if ($num) { $var = True; $total_pr = 0; while ($i < $num) { $obj = $db->fetch_object(); $total_pr += $obj->total_ttc-$obj->tot_fttc; $i++; } $var=!$var; print ""; $total_CA += $total_pr; } $db->free(); } else { dolibarr_print_error($db); } print ""; } print "

Facturé à encaisser :	".price($total_ttc_Rac)."	<-- bug ici car n'exclut pas le deja réglé des factures partiellement réglées
Signé et non facturé:	".price($total_pr)."	<-- bug ici, ca devrait exclure le déjà facturé
Total CA prévisionnel :	".price($total_CA)."	<-- bug ici car bug sur les 2 précédents

"; */ $db->close(); llxFooter('$Date$ - $Revision$'); ?>