* Copyright (C) 2004-2012 Laurent Destailleur * Copyright (C) 2005-2009 Regis Houssin * * 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 3 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, see . */ /** * \file htdocs/compta/stats/index.php * \brief Page reporting CA */ require '../../main.inc.php'; require_once DOL_DOCUMENT_ROOT.'/core/lib/report.lib.php'; $year_start=GETPOST("year_start"); $year_current = strftime("%Y",time()); $nbofyear=4; if (! $year_start) { $year_start = $year_current - ($nbofyear-1); $year_end = $year_current; } else { $year_end=$year_start + ($nbofyear-1); } $userid=GETPOST('userid','int'); $socid = GETPOST('socid','int'); // Define modecompta ('CREANCES-DETTES' or 'RECETTES-DEPENSES') $modecompta = $conf->global->ACCOUNTING_MODE; if ($_GET["modecompta"]) $modecompta=$_GET["modecompta"]; // Security check if ($user->societe_id > 0) $socid = $user->societe_id; if (! empty($conf->comptabilite->enabled)) $result=restrictedArea($user,'compta','','','resultat'); if (! empty($conf->accounting->enabled)) $result=restrictedArea($user,'accounting','','','comptarapport'); /* * View */ llxHeader(); $form=new Form($db); // Affiche en-tete du rapport if ($modecompta=="CREANCES-DETTES") { $nom=$langs->trans("SalesTurnover"); $calcmode=$langs->trans("CalcModeDebt"); $calcmode.='
('.$langs->trans("SeeReportInInputOutputMode",'','').')'; $period="$year_start - $year_end"; $periodlink=($year_start?"".img_previous()." ".img_next()."":""); $description=$langs->trans("RulesCADue"); if (! empty($conf->global->FACTURE_DEPOSITS_ARE_JUST_PAYMENTS)) $description.= $langs->trans("DepositsAreNotIncluded"); else $description.= $langs->trans("DepositsAreIncluded"); $builddate=time(); //$exportlink=$langs->trans("NotYetAvailable"); } else { $nom=$langs->trans("SalesTurnover"); $calcmode=$langs->trans("CalcModeEngagement"); $calcmode.='
('.$langs->trans("SeeReportInDueDebtMode",'','').')'; $period="$year_start - $year_end"; $periodlink=($year_start?"".img_previous()." ".img_next()."":""); $description=$langs->trans("RulesCAIn"); $description.= $langs->trans("DepositsAreIncluded"); $builddate=time(); //$exportlink=$langs->trans("NotYetAvailable"); } $moreparam=array(); if (! empty($modecompta)) $moreparam['modecompta']=$modecompta; report_header($nom,$nomlink,$period,$periodlink,$description,$builddate,$exportlink,$moreparam,$calcmode); if ($modecompta == 'CREANCES-DETTES') { $sql = "SELECT date_format(f.datef,'%Y-%m') as dm, sum(f.total) as amount, sum(f.total_ttc) as amount_ttc"; $sql.= " FROM ".MAIN_DB_PREFIX."facture as f"; $sql.= " WHERE f.fk_statut in (1,2)"; if (! empty($conf->global->FACTURE_DEPOSITS_ARE_JUST_PAYMENTS)) $sql.= " AND f.type IN (0,1,2,5)"; else $sql.= " AND f.type IN (0,1,2,3,5)"; } else { /* * Liste des paiements (les anciens paiements ne sont pas vus par cette requete car, sur les * vieilles versions, ils n'etaient pas lies via paiement_facture. On les ajoute plus loin) */ $sql = "SELECT date_format(p.datep,'%Y-%m') as dm, sum(pf.amount) as amount_ttc"; $sql.= " FROM ".MAIN_DB_PREFIX."facture as f"; $sql.= ", ".MAIN_DB_PREFIX."paiement_facture as pf"; $sql.= ", ".MAIN_DB_PREFIX."paiement as p"; $sql.= " WHERE p.rowid = pf.fk_paiement"; $sql.= " AND pf.fk_facture = f.rowid"; } $sql.= " AND f.entity = ".$conf->entity; if ($socid) $sql.= " AND f.fk_soc = ".$socid; $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_ht[$obj->dm] = !empty($obj->amount) ? $obj->amount : 0; $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 { dol_print_error($db); } // On ajoute les paiements anciennes version, non lies par paiement_facture if ($modecompta != 'CREANCES-DETTES') { $sql = "SELECT date_format(p.datep,'%Y-%m') as dm, sum(p.amount) as amount_ttc"; $sql.= " FROM ".MAIN_DB_PREFIX."bank as b"; $sql.= ", ".MAIN_DB_PREFIX."bank_account as ba"; $sql.= ", ".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.= " AND p.fk_bank = b.rowid"; $sql.= " AND b.fk_account = ba.rowid"; $sql.= " AND ba.entity IN (".getEntity('bank_account', 1).")"; $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 { dol_print_error($db); } } /* * Show result array */ print ''; print ''; for ($annee = $year_start ; $annee <= $year_end ; $annee++) { if ($modecompta == 'CREANCES-DETTES') print ''; if ($annee != $year_end) print ''; } print ''; print ''; for ($annee = $year_start ; $annee <= $year_end ; $annee++) { if ($modecompta == 'CREANCES-DETTES') print ''; print ''; print ''; if ($annee != $year_end) print ''; } print ''; $now_show_delta=0; $minyear=substr($minyearmonth,0,4); $maxyear=substr($maxyearmonth,0,4); $nowyear=strftime("%Y",dol_now()); $nowyearmonth=strftime("%Y-%m",dol_now()); $maxyearmonth=max($maxyearmonth,$nowyearmonth); $now=dol_now(); $casenow = dol_print_date($now,"%Y-%m"); // Loop on each month $nb_mois_decalage = $conf->global->SOCIETE_FISCAL_MONTH_START?($conf->global->SOCIETE_FISCAL_MONTH_START-1):0; for ($mois = 1+$nb_mois_decalage ; $mois <= 12+$nb_mois_decalage ; $mois++) { $mois_modulo = $mois;// ajout if($mois>12){$mois_modulo = $mois-12;} // ajout $var=!$var; print ""; print ""; for ($annee = $year_start -1 ; $annee <= $year_end ; $annee++) // We start one year before to have data to be able to make delta { $annee_decalage=$annee; if ($mois>12) {$annee_decalage=$annee+1;} $case = dol_print_date(dol_mktime(1,1,1,$mois_modulo,1,$annee_decalage),"%Y-%m"); $caseprev = dol_print_date(dol_mktime(1,1,1,$mois_modulo,1,$annee_decalage-1),"%Y-%m"); if ($annee >= $year_start) { if ($modecompta == 'CREANCES-DETTES') { // Valeur CA du mois w/o VAT print '"; } // Valeur CA du mois print '"; // Pourcentage du mois if ($annee_decalage > $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 ''; print ''; } if (isset($cum[$caseprev]) && ! $cum[$caseprev] && ! $cum[$case]) { print ''; } if (! isset($cum[$caseprev]) && ! $cum[$case]) { print ''; } } else { print ''; } if ($annee_decalage != $year_end) print ''; } $total_ht[$annee]+=!empty($cum_ht[$case]) ? $cum_ht[$case] : 0; $total[$annee]+=$cum[$case]; } print ''; } /* for ($mois = 1 ; $mois < 13 ; $mois++) { $var=!$var; print ""; print ""; for ($annee = $year_start ; $annee <= $year_end ; $annee++) { $casenow = dol_print_date(mktime(),"%Y-%m"); $case = dol_print_date(dol_mktime(1,1,1,$mois,1,$annee),"%Y-%m"); $caseprev = dol_print_date(dol_mktime(1,1,1,$mois,1,$annee-1),"%Y-%m"); // 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++) { if ($modecompta == 'CREANCES-DETTES') { // Montant total HT if ($total_ht[$annee] || ($annee >= $minyear && $annee <= max($nowyear,$maxyear))) { print '"; } else { print ''; } } // Montant total if ($total[$annee] || ($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 "

	'; else print '			'; print ''; print $annee; if ($conf->global->SOCIETE_FISCAL_MONTH_START > 1) print '-'.($annee+1); print '
'.$langs->trans("Month").'	'.$langs->trans("AmountHT").'	'.$langs->trans("AmountTTC").'	'.$langs->trans("Delta").'
".dol_print_date(dol_mktime(12,0,0,$mois_modulo,1,2000),"%B")."	'; if ($cum_ht[$case]) { $now_show_delta=1; // On a trouve le premier mois de la premiere annee generant du chiffre. print ''.price($cum_ht[$case],1).''; } else { if ($minyearmonth < $case && $case <= max($maxyearmonth,$nowyearmonth)) { print '0'; } else { print ' '; } } print "	'; if ($cum[$case]) { $now_show_delta=1; // On a trouve le premier mois de la premiere annee generant 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 '
".dol_print_date(dol_mktime(12,0,0,$mois,1,2000),"%B")."	'; if ($cum[$case]) { $now_show_delta=1; // On a trouve le premier mois de la premiere annee generant 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_ht[$annee]?price($total_ht[$annee]):"0")."		'.($total[$annee]?price($total[$annee]):"0")."		'.($percent>=0?"+$percent":"$percent").'%	-100%	+zzzz'.$total[$annee-1].$langs->trans('Inf').'%	+0%	'; if ($total[$annee] || ($minyear <= $annee && $annee <= max($nowyear,$maxyear))) { print '-'; } else { print ' '; } print '

"; /* * En mode recettes/depenses, on complete avec les montants factures non regles * et les propales signees mais pas facturees. En effet, en recettes-depenses, * on comptabilise lorsque le montant est sur le compte donc il est interessant * d'avoir une vision de ce qui va arriver. */ /* Je commente toute cette partie car les chiffres affichees sont faux - Eldy. En attendant correction. if ($modecompta != 'CREANCES-DETTES') { print '
'; // Factures non reglees // Y a bug ici. Il faut prendre le reste a payer et non le total des factures non reglees ! $sql = "SELECT f.facnumber, f.rowid, s.nom, s.rowid as socid, 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.rowid = 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.rowid, f.total_ttc"; $resql=$db->query($sql); if ($resql) { $num = $db->num_rows($resql); $i = 0; if ($num) { $var = True; $total_ttc_Rac = $totalam_Rac = $total_Rac = 0; while ($i < $num) { $obj = $db->fetch_object($resql); $total_ttc_Rac += $obj->total_ttc; $totalam_Rac += $obj->am; $i++; } $var=!$var; print ""; } $db->free($resql); } else { dol_print_error($db); } */ /* * * Propales signees, et non facturees * */ /* Je commente toute cette partie car les chiffres affichees 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.rowid as socid, p.total_ht, p.total_ttc FROM ".MAIN_DB_PREFIX."commande AS p, ".MAIN_DB_PREFIX."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.rowid AND p.fk_statut >=1 AND p.facture =0"; if ($socid) { $sql .= " AND f.fk_soc = ".$socid; } $sql .= " GROUP BY p.rowid"; $resql=$db->query($sql); if ($resql) { $num = $db->num_rows($resql); $i = 0; if ($num) { $var = True; $total_pr = 0; while ($i < $num) { $obj = $db->fetch_object($resql); $total_pr += $obj->total_ttc-$obj->tot_fttc; $i++; } $var=!$var; print ""; } $db->free($resql); } else { dol_print_error($db); } print ""; } print "

Facture a encaisser :	".price($total_ttc_Rac)."	<-- bug ici car n'exclut pas le deja r�gl� des factures partiellement r�gl�es
Signe et non facture:	".price($total_pr)."	<-- bug ici, ca devrait exclure le deja facture
Total CA previsionnel :	".price($total_CA)."	<-- bug ici car bug sur les 2 precedents

"; */ llxFooter(); $db->close();