* Copyright (C) 2004-2008 Laurent Destailleur * Copyright (C) 2005-2008 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 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. */ /** * \file htdocs/compta/stats/comm.php * \ingroup commercial * \version $Id$ */ require("./pre.inc.php"); require_once(DOL_DOCUMENT_ROOT."/core/dolgraph.class.php"); require_once(DOL_DOCUMENT_ROOT."/lib/functions2.lib.php"); if (!$user->rights->compta->resultat->lire) accessforbidden(); /* * View */ llxHeader('',"Stats"); if($_GET['id']!="") { // Utilisateur a partir duquel il faut generer les stats $userstats = new User($db,$_GET['id']) ; $userstats->fetch() ; // Dossier ou generer les fichiers $dir = $conf->commercial->dir_temp . '/' .$userstats->id ; create_exdir($dir); // graphes $graphwidth = 380 ; $graphheight = 160 ; // Chaine contenant les messages d'erreur $msq = '' ; // Date de d�but du graphe $date_debut = time() ; $annees = "" ; if ($conf->global->SOCIETE_FISCAL_MONTH_START < dol_date("m",time()) ){ // Si le mois actuel est plus grand, l'ann�e de d�part est l� m�me que l'ann�e actuelle $date_debut = mktime(0,0,0,$conf->global->SOCIETE_FISCAL_MONTH_START,1,dol_date("Y",time())) ; $annees = dol_date("Y",time()) ; } else { // Sinon le d�but de l'ann�e comptable �tait l'ann�e d'avant $date_debut = mktime(0,0,0,$conf->global->SOCIETE_FISCAL_MONTH_START,1,dol_date("Y",time())-1) ; $annees = (dol_date("Y",time())-1).' - '.(dol_date("Y",time())) ; } /********************************************** * R�cup�ration et g�n�ration des Infomations **********************************************/ $sql = "SELECT sum(d.qty * d.price) as CAMois, sum( d.qty * (d.price - p.price_min) ) as MRMois, date_format(c.date_valid, '%Y%m') as date, date_format(c.date_valid, '%b') as month"; $sql .= " FROM ".MAIN_DB_PREFIX."commandedet as d, ".MAIN_DB_PREFIX."commande as c, ".MAIN_DB_PREFIX."product as p"; $sql .= " WHERE c.rowid = d.fk_commande and d.fk_product = p.rowid"; $sql .= " AND c.fk_user_author = ".$userstats->id; $sql .= " AND c.date_valid > ".$db->idate($date_debut)." AND c.date_valid < NOW()"; $sql .= " GROUP BY date_format(c.date_valid,'%Y%m') ASC ;"; $result = $db->query($sql) ; // On R�cup�re tout � la fois $recapAnneeCA = array() ; $recapMoisCA = array() ; $recapAnneeMR = array() ; $recapMoisMR = array() ; if($result){ if($db->num_rows($result)>0){ while($obj = $db->fetch_object($result)){ if($obj->date != dol_date("Ym",time())){ $recapAnneeCA[] = array( $obj->month, $obj->CAMois ) ; $recapAnneeMR[] = array( $obj->month, $obj->MRMois ) ; }else{ $recapMoisCA[] = array( $obj->month, $obj->CAMois ) ; $recapMoisMR[] = array( $obj->month, $obj->MRMois ) ; } } } else { $mesg = 'Aucun enregistrement retourne pour '.$user->login.'
' ; } } else { $mesg = 'erreur sql : '.$db->error().'
requete : '.$db->lastquery().'
' ; } $graphfiles=array( 'recapAnneeCA' =>array( 'file' => 'recapAnneeCA.png', 'label' => $langs->trans('CAOrder').' - '.$annees, 'data' => $recapAnneeCA ), 'recapAnneeMR' =>array( 'file' => 'recapAnneeMR.png', 'label' => $langs->trans('MargeOrder').' - '.$annees, 'data' => $recapAnneeMR ), 'recapMoisCA' =>array( 'file' => 'recapMoisCA.png', 'label' => $langs->trans('CAOrder').' '.$langs->trans('FromTo',dol_date("01/m/Y",time()),dol_date("d/m/Y",time())), 'data' => $recapMoisCA ), 'recapMoisMR'=>array( 'file' => 'recapMoisMR.png', 'label' => $langs->trans('MargeOrder').' '.$langs->trans('FromTo',dol_date("01/m/Y",time()),dol_date("d/m/Y",time())), 'data' => $recapMoisMR ) ) ; /*********************** * Affichage de graphes ***********************/ $px = new DolGraph(); $msggraph = $px->isGraphKo(); if (! $mesg) { foreach($graphfiles as $key => $graph){ $graph_data = $graph['data'] ; if (is_array($graph_data)) { $px->SetData($graph_data); $px->SetMaxValue($px->GetCeilMaxValue()<0?0:$px->GetCeilMaxValue()); $px->SetMinValue($px->GetFloorMinValue()>0?0:$px->GetFloorMinValue()); $px->SetWidth($graphwidth); $px->SetHeight($graphheight); $px->SetHorizTickIncrement(1); $px->SetPrecisionY(0); $px->SetShading(3); $px->draw($dir."/".$graph['file']); } else { dol_print_error($db,'Error for calculating graph on key='.$key.' - '.$product->error); } } } else { $msg.=$msggraph ; } /************ * Affichage ************/ // en-t�te if($mesg) print '

'.$mesg.'

' ; dol_fiche_head(array(array('stats.php',$langs->trans("Commercial"))), 0, $langs->trans("Stats")); /***************************** * Rappel Infos du Commercial *****************************/ print '

'.$langs->trans("Name").'	'.$userstats->nom.'
'.$langs->trans("Surname").'	'.$userstats->prenom.'
'.$langs->trans("Login").'	'.$userstats->login.'

' ; print "" ; // Fin de dol_fiche_head /*************************** * Affichage des Graphiques ***************************/ //tableaux foreach($graphfiles as $graph){ // donn�es $url=DOL_URL_ROOT.'/viewimage.php?modulepart=graph_comm&file='.urlencode($userstats->id .'/'.$graph['file']); $generateOn = (file_exists($dir."/".$graph['file']))? $langs->trans("GeneratedOn",dol_print_date(filemtime($dir."/".$graph['file']),"dayhour")) : "" ; // html print '

'.$graph['label'].'

'.array2table($graph['data'],0,'','','align="center"').'

'.$langs->trans("Month").'

'.$langs->trans("Currency".$conf->monnaie).'

'.$generateOn.'

' ; } } $db->close(); llxFooter(); ?>