2
0
forked from Wavyzz/dolibarr
Files
dolibarr-fork/htdocs/telephonie/script/graph-statistiques-analyse.php
Rodolphe Quiedeville 9d8dd66c2c Amelioration
2005-06-15 14:21:39 +00:00

698 lines
18 KiB
PHP
Raw Blame History

<?PHP
/* Copyright (C) 2004 Rodolphe Quiedeville <rodolphe@quiedeville.org>
*
* 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$
*
*
* Generation des graphiques
*
*
*
*/
require ("../../master.inc.php");
require_once (DOL_DOCUMENT_ROOT."/telephonie/lignetel.class.php");
require_once (DOL_DOCUMENT_ROOT."/telephonie/facturetel.class.php");
require_once (DOL_DOCUMENT_ROOT."/telephonie/telephonie-tarif.class.php");
require_once (DOL_DOCUMENT_ROOT."/telephonie/communication.class.php");
require_once (DOL_DOCUMENT_ROOT."/telephonie/stats/graph/bar.class.php");
require_once (DOL_DOCUMENT_ROOT."/telephonie/stats/graph/camenbert.class.php");
require_once (DOL_DOCUMENT_ROOT."/telephonie/stats/graph/ca.class.php");
require_once (DOL_DOCUMENT_ROOT."/telephonie/stats/graph/gain.class.php");
require_once (DOL_DOCUMENT_ROOT."/telephonie/stats/graph/heureappel.class.php");
require_once (DOL_DOCUMENT_ROOT."/telephonie/stats/graph/joursemaine.class.php");
require_once (DOL_DOCUMENT_ROOT."/telephonie/stats/graph/camoyen.class.php");
require_once (DOL_DOCUMENT_ROOT."/telephonie/stats/graph/appelsdureemoyenne.class.php");
require_once (DOL_DOCUMENT_ROOT."/telephonie/stats/graph/comm.nbmensuel.class.php");
$error = 0;
$datetime = time();
$date = strftime("%d%h%Y%Hh%Mm%S",$datetime);
$month = strftime("%m", $datetime);
$year = strftime("%Y", $datetime);
if ($month == 1)
{
$month = "12";
$year = $year - 1;
}
else
{
$month = substr("00".($month - 1), -2) ;
}
$img_root = DOL_DATA_ROOT."/graph/telephonie/";
/***********************************************************************/
/*
/* Chiffre d'affaire mensuel
/*
/***********************************************************************/
$file = $img_root . "ca/ca.mensuel.png";
print "Graph : Chiffre d'affaire mensuel $file\n";
$graphca = new GraphCa($db, $file);
$graphca->GraphDraw();
/************************************************************************/
/*
/* Chiffre d'affaire moyen
/*
/*
/************************************************************************/
print "\nGraph ca moyen\n";
$file = $img_root . "ca/gain_moyen_par_client.png";
$graphgain = new GraphCaMoyen ($db, $file);
$graphgain->show_console = 0 ;
$graphgain->GraphDraw();
/*************************************************************************/
/*
/* Stats sur les communications
/*
/*
/*************************************************************************/
$sql = "SELECT ".$db->pdate("date")." as date, duree";
$sql .= " FROM ".MAIN_DB_PREFIX."telephonie_communications_details";
if ($db->query($sql))
{
$heure_appel = array();
$jour_semaine_nb = array();
$jour_semaine_duree = array();
$num = $db->num_rows();
print "$num lignes de comm a traiter\n";
$i = 0;
while ($i < $num)
{
$obj = $db->fetch_object();
$h = strftime("%H",$obj->date) * 1; // suppression du 0
$heure_appel_nb[$h]++;
$heure_appel_duree[$h] += $obj->duree;
$u = strftime("%u",$obj->date) - 1; // 1 pour Lundi
$jour_semaine_nb[$u]++;
$jour_semaine_duree[$u] += $obj->duree;
$i++;
}
}
$file = $img_root . "communications/heure_appel_nb.png";
$graphha = new GraphHeureAppel ($db, $file);
$graphha->GraphDraw($heure_appel_nb);
$file = $img_root . "communications/joursemaine_nb.png";
$graphha = new GraphJourSemaine ($db, $file);
$graphha->GraphDraw($jour_semaine_nb);
repart_comm($db);
$year = strftime("%Y", $datetime);
$month = strftime("%m", $datetime);
for ($i = 1 ; $i < 4 ; $i++)
{
$month = $month - 1;
if ($month == 0)
{
$year = $year - 1;
$month = 12;
}
repart($db,$year, $month);
repart_comm($db,$year, $month);
}
function repart_comm($db, $year = 0, $month = 0)
{
print "R<EFBFBD>partition des communications\n";
$sql = "SELECT duree, numero";
$sql .= " FROM ".MAIN_DB_PREFIX."telephonie_communications_details";
if ($year && $month)
{
print "R<EFBFBD>partition des communications pour $month/$year\n";
$month = substr("00".$month, -2);
$sql .= " WHERE date_format(date,'%Y%m') = '$year$month'";
}
if ($db->query($sql))
{
$labels_duree = array();
$repart_duree = array(0,0,0,0,0,0);
$repart_dureelong = array(0,0);
$labels_dest= array();
$repart_dest = array(0,0,0);
$repart_dest_temps = array(0,0,0);
$num = $db->num_rows();
$i = 0;
while ($i < $num)
{
$row = $db->fetch_row();
if ($row[0] < 10)
{
$repart_duree[0]++;
}
elseif ($row[0] >= 10 && $row[0] < 30)
{
$repart_duree[1]++;
}
elseif ($row[0] >= 30 && $row[0] < 60)
{
$repart_duree[2]++;
}
elseif ($row[0] >= 60 && $row[0] < 120)
{
$repart_duree[3]++;
}
elseif ($row[0] >= 120 && $row[0] < 300)
{
$repart_duree[4]++;
}
else
{
$repart_duree[5]++;
}
if ($row[0] < 600)
{
$repart_dureelong[0]++;
}
else
{
$repart_dureelong[1]++;
}
if (substr($row[1],0,2) == '00')
{
$repart_dest[0]++;
$repart_dest_temps[0] += $row[0];
}
elseif (substr($row[1],0,2) == '06')
{
$repart_dest[1]++;
$repart_dest_temps[1] += $row[0];
}
else
{
$repart_dest[2]++;
$repart_dest_temps[2] += $row[0];
}
$i++;
}
}
else
{
print $sql ;
}
if ($num > 0)
{
$labels_duree[0] = "< 10 sec";
$labels_duree[1] = "10-30 sec";
$labels_duree[2] = "30-60 sec";
$labels_duree[3] = "60-120 sec";
$labels_duree[4] = "120-300 sec";
$labels_duree[5] = "> 300 sec";
$labels_dureelong[0] = "< 600 sec";
$labels_dureelong[1] = "> 600 sec";
$labels_dest[0] = 'International';
$labels_dest[1] = 'Mobile';
$labels_dest[2] = 'Local/National';
$filem = DOL_DOCUMENT_ROOT."/telephonie/stats/communications/duree_repart.png";
$filec = DOL_DOCUMENT_ROOT."/telephonie/stats/communications/dureelong_repart.png";
$filed = DOL_DOCUMENT_ROOT."/telephonie/stats/communications/dest_repart.png";
$filedt = DOL_DOCUMENT_ROOT."/telephonie/stats/communications/dest_temps_repart.png";
if ($year && $month)
{
$filem = DOL_DOCUMENT_ROOT."/telephonie/stats/communications/duree_repart-$year$month.png";
$filec = DOL_DOCUMENT_ROOT."/telephonie/stats/communications/dureelong_repart-$year$month.png";
$filed = DOL_DOCUMENT_ROOT."/telephonie/stats/communications/dest_repart-$year$month.png";
$filedt = DOL_DOCUMENT_ROOT."/telephonie/stats/communications/dest_temps_repart-$year$month.png";
}
$graphm = new GraphCamenbert ($db, $filem);
$graphc = new GraphCamenbert ($db, $filec);
$graphd = new GraphCamenbert ($db, $filed);
$graphdt = new GraphCamenbert ($db, $filedt);
$graphm->titre = "R<EFBFBD>partition du nombre de communications par duree";
$graphc->titre = "R<EFBFBD>partition du nombre de communications par duree";
$graphd->titre = "R<EFBFBD>partition du nombre de communications par destination";
$graphdt->titre = "R<EFBFBD>partition du nombre de communications par destination";
if ($year && $month)
{
$graphm->titre = "R<EFBFBD>part. du nbre de communications par duree $month/$year";
$graphc->titre = "R<EFBFBD>part. du nbre de communications par duree $month/$year";
$graphd->titre = "R<EFBFBD>part. du nbre de communications par destination $month/$year";
$graphdt->titre = "R<EFBFBD>part. du temps de communications par destination $month/$year";
}
$graphm->colors= array('#993333','#66cc99','#6633ff','#33ff33','#336699','#00ffff');
$graphd->colors= array('#FFC0FF','#FF00FF','#C000C0');
$graphdt->colors= array('#FFFFC0','#FFFF0F','#C0C000');
$graphm->GraphDraw($repart_duree, $labels_duree);
$graphc->GraphDraw($repart_dureelong, $labels_dureelong);
$graphd->GraphDraw($repart_dest, $labels_dest);
$graphdt->GraphDraw($repart_dest_temps, $labels_dest);
}
}
/***************************************************************************/
$sql = "SELECT date_format(date, '%Y%m'), count(distinct(ligne))";
$sql .= " FROM ".MAIN_DB_PREFIX."telephonie_communications_details";
$sql .= " GROUP BY date_format(date, '%Y%m') ASC";
if ($db->query($sql))
{
$nblignes = array();
$num = $db->num_rows();
$i = 0;
while ($i < $num)
{
$row = $db->fetch_row();
$nblignes[$i] = $row[1];
$i++;
}
}
/*
*
*
*/
$sql = "SELECT date_format(date, '%Y%m'), sum(duree), count(duree)";
$sql .= " FROM ".MAIN_DB_PREFIX."telephonie_communications_details";
$sql .= " GROUP BY date_format(date, '%Y%m') ASC";
$resql = $db->query($sql);
if ($resql)
{
$durees = array();
$kilomindurees = array();
$durees_moyenne = array();
$nombres = array();
$labels = array();
$num = $db->num_rows($resql);
$i = 0;
while ($i < $num)
{
$row = $db->fetch_row($resql);
$labels[$i] = substr($row[0],4,2) . '/'.substr($row[0],2,2);
$durees[$i] = $row[1];
$kilomindurees[$i] = ($row[1]/60000);
$durees_moyenne[$i] = ($row[1] / $row[2]);
$nombres[$i] = $row[2];
$nbappels_ligne[$i] = ($nombres[$i] / $nblignes[$i]);
$i++;
}
}
$file = $img_root . "communications/nbappelsparligne.png";
$graphgain = new GraphBar ($db, $file);
$graphgain->show_console = 0 ;
$graphgain->titre = "Nb appels moyen par ligne";
print $graphgain->titre."\n";
$graphgain->barcolor = "pink";
$graphgain->GraphDraw($file, $nbappels_ligne, $labels);
$file = $img_root . "communications/dureemoyenne.png";
$graphgain = new GraphBar ($db, $file);
$graphgain->show_console = 0 ;
$graphgain->titre = "Dur<EFBFBD>e moyenne d'un appel";
print $graphgain->titre."\n";
$graphgain->barcolor = "yellow";
$graphgain->GraphDraw($file, $durees_moyenne, $labels);
$file = $img_root . "communications/nombre.png";
$graphgain = new GraphBar ($db, $file);
$graphgain->show_console = 0 ;
$graphgain->titre = "Nombres d'appel mensuels";
print $graphgain->titre."\n";
$graphgain->GraphDraw($file, $nombres, $labels);
/* ---------------------------------------------- */
$sql = "SELECT date_format(date, '%Y%m'), sum(duree), count(duree)";
$sql .= " FROM ".MAIN_DB_PREFIX."telephonie_communications_details";
$sql .= " WHERE numero like '06%'";
$sql .= " GROUP BY date_format(date, '%Y%m') ASC";
if ($db->query($sql))
{
$durees = array();
$kilomindurees = array();
$durees_moyenne = array();
$nombres = array();
$labels = array();
$num = $db->num_rows();
$i = 0;
while ($i < $num)
{
$row = $db->fetch_row();
$labels[$i] = substr($row[0],4,2) . '/'.substr($row[0],2,2);
$durees[$i] = $row[1];
$kilomindurees_mob[$i] = ($row[1]/60000);
$i++;
}
}
/* ---------------------------------------------- */
$sql = "SELECT date_format(date, '%Y%m'), sum(duree), count(duree)";
$sql .= " FROM ".MAIN_DB_PREFIX."telephonie_communications_details";
$sql .= " WHERE numero like '00%'";
$sql .= " GROUP BY date_format(date, '%Y%m') ASC";
if ($db->query($sql))
{
$durees = array();
$kilomindurees_inter = array();
$durees_moyenne = array();
$nombres = array();
$labels = array();
$num = $db->num_rows();
$i = 0;
while ($i < $num)
{
$row = $db->fetch_row();
$labels[$i] = substr($row[0],4,2) . '/'.substr($row[0],2,2);
$durees[$i] = $row[1];
$kilomindurees_inter[$i] = ($row[1]/60000);
$i++;
}
}
$file = $img_root . "communications/duree_inter.png";
$graphgain = new GraphBar ($db, $file);
$graphgain->show_console = 0 ;
$graphgain->titre = "Nb minutes -> inter (milliers)";
print $graphgain->titre."\n";
$graphgain->GraphDraw($file, $kilomindurees_inter, $labels);
/* ---------------------------------------------- */
$sql = "SELECT date_format(date, '%Y%m'), sum(duree)";
$sql .= " FROM ".MAIN_DB_PREFIX."telephonie_communications_details";
$sql .= " WHERE substring(numero, 1, 2) <> '00'";
$sql .= " AND substring(numero, 1, 2) <> '06'";
$sql .= " GROUP BY date_format(date, '%Y%m') ASC";
if ($db->query($sql))
{
$kilomindurees_loc = array();
$labels = array();
$num = $db->num_rows();
$i = 0;
while ($i < $num)
{
$row = $db->fetch_row();
$labels[$i] = substr($row[0],4,2) . '/'.substr($row[0],2,2);
$kilomindurees_loc[$i] = ($row[1]/60000);
$i++;
}
}
$file = $img_root . "communications/duree_loc.png";
$graphgain = new GraphBar ($db, $file);
$graphgain->show_console = 0 ;
$graphgain->titre = "Nb minutes -> local/national (milliers)";
print $graphgain->titre."\n";
$graphgain->GraphDraw($file, $kilomindurees_loc, $labels);
/**********************************************************************/
/*
/* Stats sur les factures
/*
/*
/**********************************************************************/
$sql = "SELECT date_format(date,'%Y%m'), sum(cout_vente), sum(cout_achat), sum(gain), count(cout_vente)";
$sql .= " FROM ".MAIN_DB_PREFIX."telephonie_facture";
$sql .= " GROUP BY date_format(date,'%Y%m') ASC ";
if ($db->query($sql))
{
$cout_vente = array();
$cout_vente_moyen = array();
$nb_factures = array();
$jour_semaine_nb = array();
$jour_semaine_duree = array();
$gain = array();
$gain_moyen = array();
$num = $db->num_rows();
print "$num lignes de comm a traiter\n";
$i = 0;
while ($i < $num)
{
$row = $db->fetch_row();
$cout_vente[$i] = $row[1];
$gain[$i] = $row[3];
$gain_moyen[$i] = ($row[3]/$row[4]);
$cout_vente_moyen[$i] = ($row[1]/$row[4]);
$nb_factures[$i] = $row[4];
$labels[$i] = substr($row[0],4,2) . '/'.substr($row[0],2,2);
$i++;
}
}
$file = $img_root . "/factures/facture_moyenne.png";
$graph = new GraphBar ($db, $file, $labels);
$graph->titre = "Facture moyenne";
print $graph->titre."\n";
$graph->barcolor = "blue";
$graph->GraphDraw($file, $cout_vente_moyen, $labels);
$file = $img_root . "/factures/gain_mensuel.png";
$graph = new GraphBar ($db, $file);
$graph->titre = "Gain par mois en euros HT";
print $graph->titre."\n";
$graph->GraphDraw($file, $gain, $labels);
$file = $img_root . "/factures/gain_moyen.png";
$graph = new GraphBar ($db, $file);
$graph->titre = "Gain moyen par facture par mois";
print $graph->titre."\n";
$graph->barcolor = "blue";
$graph->GraphDraw($file, $gain_moyen, $labels);
$file = $img_root . "/factures/nb_facture.png";
$graph = new GraphBar ($db, $file);
$graph->titre = "Nb de facture mois";
print $graph->titre."\n";
$graph->barcolor = "yellow";
$graph->GraphDraw($file, $nb_factures, $labels);
/*
* R<>partition des factures
*
*
*/
repart($db);
function repart($db, $year = 0, $month = 0)
{
print "R<EFBFBD>partition des factures\n";
$sql = "SELECT cout_vente, gain";
$sql .= " FROM ".MAIN_DB_PREFIX."telephonie_facture";
if ($year && $month)
{
print "R<EFBFBD>partition des factures pour $month/$year\n";
$month = substr("00".$month, -2);
$sql .= " WHERE date_format(date,'%Y%m') = '$year$month'";
}
if ($db->query($sql))
{
$labels = array();
$repart_montant = array();
$num = $db->num_rows();
$i = 0;
while ($i < $num)
{
$row = $db->fetch_row();
if ($row[0] < 10)
{
$repart_montant[0]++;
}
elseif ($row[0] >= 10 && $row[0] < 20)
{
$repart_montant[1]++;
}
elseif ($row[0] >= 20 && $row[0] < 40)
{
$repart_montant[2]++;
}
elseif ($row[0] >= 40 && $row[0] < 70)
{
$repart_montant[3]++;
}
elseif ($row[0] >= 70 && $row[0] < 100)
{
$repart_montant[4]++;
}
else
{
$repart_montant[5]++;
}
if ($row[1] < 1)
{
$repart_gain[0]++;
}
elseif ($row[1] >= 1 && $row[1] < 5)
{
$repart_gain[1]++;
}
elseif ($row[1] >= 5 && $row[1] < 10)
{
$repart_gain[2]++;
}
elseif ($row[1] >= 10 && $row[1] < 20)
{
$repart_gain[3]++;
}
elseif ($row[1] >= 20 && $row[1] < 50)
{
$repart_gain[4]++;
}
else
{
$repart_gain[5]++;
}
$i++;
}
}
else
{
print $sql ;
}
if ($num > 0)
{
$labels_montant[0] = "< 10";
$labels_montant[1] = "10-20";
$labels_montant[2] = "20-40";
$labels_montant[3] = "40-70";
$labels_montant[4] = "70-100";
$labels_montant[5] = "> 100";
$labels_gain[0] = "< 1";
$labels_gain[1] = "1-5";
$labels_gain[2] = "5-10";
$labels_gain[3] = "10-20";
$labels_gain[4] = "20-50";
$labels_gain[5] = "> 50";
$filem = DOL_DOCUMENT_ROOT."/telephonie/stats/factures/montant_repart.png";
$fileg = DOL_DOCUMENT_ROOT."/telephonie/stats/factures/gain_repart.png";
if ($year && $month)
{
$filem = DOL_DOCUMENT_ROOT."/telephonie/stats/factures/montant_repart-$year$month.png";
$fileg = DOL_DOCUMENT_ROOT."/telephonie/stats/factures/gain_repart-$year$month.png";
}
$graphm = new GraphCamenbert ($db, $filem);
$graphg = new GraphCamenbert ($db, $fileg);
$graphm->titre = "R<EFBFBD>partition du nombre de factures par montant";
$graphg->titre = "R<EFBFBD>partition du nombre de factures par gain";
if ($year && $month)
{
$graphm->titre = "R<EFBFBD>part. du nbre de factures par montant $month $year";
$graphg->titre = "R<EFBFBD>part. du nbre de factures par gain $month $year";
}
$graphm->colors= array('#993333','#66cc99','#6633ff','#33ff33','#336699','#00ffff');
// $graphm->GraphDraw($filem, $repart_montant, $labels_montant);
// $graphg->GraphDraw($fileg, $repart_gain, $labels_gain);
}
}
?>