diff --git a/htdocs/energie/EnergieGroupe.class.php b/htdocs/energie/EnergieGroupe.class.php new file mode 100644 index 00000000000..b90c038924d --- /dev/null +++ b/htdocs/energie/EnergieGroupe.class.php @@ -0,0 +1,95 @@ + + * + * 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$ + * + */ + +class EnergieGroupe +{ + var $db ; + var $user ; + + /** \brief Constructeur + */ + function EnergieGroupe($DB, $user) + { + $this->db = $DB; + $this->user = $user; + } + + /** + * Lecture + * + */ + function fetch ($id) + { + $sql = "SELECT c.rowid, c.libelle"; + $sql .= " FROM ".MAIN_DB_PREFIX."energie_groupe as c"; + $sql .= " WHERE c.rowid = ".$id; + + $resql = $this->db->query($sql) ; + + if ( $resql ) + { + $obj = $this->db->fetch_object($resql); + + $this->id = $obj->rowid; + $this->libelle = $obj->libelle; + + $this->db->free(); + return 0; + } + else + { + dolibarr_syslog("EnergieGroupe::fetch Erreur"); + return -1; + } + } + + /** + * Creation + * + */ + function Create ($libelle) + { + $sql = "INSERT INTO ".MAIN_DB_PREFIX."energie_groupe"; + $sql .= " (libelle, datec, fk_user_author, note)"; + $sql .= " VALUES ("; + $sql .= "'".trim($libelle)."'"; + $sql .= ",now()"; + $sql .= ",'".$this->user->id."'"; + $sql .= ",'".$libelle."');"; + + $resql = $this->db->query($sql) ; + + if ( $resql ) + { + $this->id = $this->db->last_insert_id(MAIN_DB_PREFIX."energie_groupe"); + + return 0; + } + else + { + dolibarr_syslog("EnergieGroupe::Create Erreur 1"); + dolibarr_syslog($this->db->error()); + return -1; + } + } +} +?> diff --git a/htdocs/energie/index.php b/htdocs/energie/index.php new file mode 100644 index 00000000000..19925a026c1 --- /dev/null +++ b/htdocs/energie/index.php @@ -0,0 +1,107 @@ + + * + * 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/commande/index.php + \ingroup compta + \brief Page acceuil zone comptabilité + \version $Revision$ +*/ + +require("./pre.inc.php"); + +llxHeader($langs,"",$langs->trans("Energy"),$langs->trans("Energy")); + +print_titre($langs->trans("Energy")); + +print ''; + +print '
'; + +/* + * Groupe + */ +$sql = "SELECT c.rowid, c.libelle"; +$sql .= " FROM ".MAIN_DB_PREFIX."energie_groupe as c"; +$sql .= " ORDER BY c.libelle DESC"; +$resql = $db->query($sql); +if ( $resql) +{ + $num = $db->num_rows($resql); + if ($num) + { + $i = 0; + print ''; + print ''; + print ''; + $var = True; + while ($i < $num) + { + $var=!$var; + $obj = $db->fetch_object($resql); + print ""; + print ''; + $i++; + } + print "
'.$langs->trans("Groupes").'
rowid\">".$obj->libelle."

"; + } +} + +/* + * Compteurs + */ +$sql = "SELECT c.rowid, c.libelle"; +$sql .= " FROM ".MAIN_DB_PREFIX."energie_compteur as c"; +$sql .= " ORDER BY c.libelle DESC"; +$resql = $db->query($sql); +if ( $resql) +{ + $num = $db->num_rows($resql); + if ($num) + { + $i = 0; + print ''; + print ''; + print ''; + $var = True; + while ($i < $num) + { + $var=!$var; + $obj = $db->fetch_object($resql); + print ""; + print ''; + $i++; + } + print "
'.$langs->trans("Compteurs").'
rowid\">".$obj->libelle."

"; + } +} + +print '		'; + +print '

'."\n"; + +print '
'; + +$db->close(); + +llxFooter("Dernière modification $Date$ révision $Revision$"); +?> diff --git a/scripts/energie/graph.php b/scripts/energie/graph.php new file mode 100644 index 00000000000..160e5a886c4 --- /dev/null +++ b/scripts/energie/graph.php @@ -0,0 +1,462 @@ + + * + * 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$ + * + */ + +require ("../../htdocs/master.inc.php"); + +require_once(DOL_DOCUMENT_ROOT."/energie/EnergieCompteur.class.php"); +require_once(DOL_DOCUMENT_ROOT."/energie/EnergieGroupe.class.php"); + +include_once ("/usr/share/jpgraph/jpgraph.php"); +include_once ("/usr/share/jpgraph/jpgraph_line.php"); +include_once ("/usr/share/jpgraph/jpgraph_bar.php"); +include_once ("/usr/share/jpgraph/jpgraph_pie.php"); +include_once ("/usr/share/jpgraph/jpgraph_error.php"); +include_once ("/usr/share/jpgraph/jpgraph_canvas.php"); + +$error = 0; + +$labels = array(); +$datas = array(); + +$ydatas = array(); +$mdatas = array(); +$wdatas = array(); + +$sql_c = "SELECT rowid"; +$sql_c .= " FROM ".MAIN_DB_PREFIX."energie_compteur"; + +$resql_c = $db->query($sql_c); + +if ($resql_c) +{ + $num_c = $db->num_rows($resql_c); + $i_c = 0; + + if ($num_c > 0) + { + while ($i_c < $num_c) + { + $obj_c = $db->fetch_object($resql_c); + + $compteur_id = $obj_c->rowid; + + $sql = "SELECT ".$db->pdate("date_releve")." as date_releve, valeur"; + $sql .= " FROM ".MAIN_DB_PREFIX."energie_compteur_releve"; + $sql .= " WHERE fk_compteur = ".$obj_c->rowid; + $sql .= " ORDER BY date_releve ASC"; + + $resql = $db->query($sql); + + if ($resql) + { + $num = $db->num_rows($resql); + $i = 0; + + if ($num > 0) + { + $obj = $db->fetch_object($resql); + + //print strftime("%Y-%m-%d", $obj->date_releve) . "\t\t".$obj->valeur."\n"; + + $previous_date = $obj->date_releve; + $previous_value = $obj->valeur; + + $i++; + } + + $datas = array(); + $k = 0; + + while ($i < $num) + { + $obj = $db->fetch_object($resql); + + $delta = (($obj->date_releve - $previous_date) / 86400 ); + + if ($delta > 1) + { + for ($j = 1 ; $j < $delta ; $j++) + { + $value = $previous_value + ((($obj->valeur - $previous_value) / $delta) * $j); + + $datas[$k][0] = $value; + $datas[$k][1] = ($previous_date + (86400 * $j)); + $k++; + + //print strftime("%Y-%m-%d", ($previous_date + (86400 * $j))) . "\t$j\t".$value."\n"; + } + } + + //print strftime("%Y-%m-%d", $obj->date_releve) . "\t\t".$obj->valeur."\n"; + + $datas[$k][0] = $obj->valeur; + $datas[$k][1] = $obj->date_releve; + $k++; + + $previous_date = $obj->date_releve; + $previous_value = $obj->valeur; + $i++; + } + + // Graph + $maxa = 0; + + + for ($i = 1 ; $i < sizeof($datas) ; $i++) + { + $xa = ($datas[$i][0] - $datas[($i-1)][0]); + + $maxa = max($maxa, $xa); + + $gdatas[$i-1] = $xa; + $glabels[$i-1] = strftime("%d%m",$datas[$i][1]); + + $month = strftime("%m%y",$datas[$i][1]); + + $mdatas[$compteur_id][$month] = $mdatas[$compteur_id][$month] + $xa; + + $week = strftime("%W%y",$datas[$i][1]); + + $wdatas[$compteur_id][$week] = $wdatas[$compteur_id][$week] + $xa; + + $year = strftime("%Y",$datas[$i][1]); + + $ydatas[$compteur_id][$year] = $ydatas[$compteur_id][$year] + $xa; + } + + $width = 450; + $height = 300; + + $graph = new Graph($width, $height,"auto"); + $graph->SetScale("textlin",0,$maxa); + + $graph->yaxis->scale->SetGrace(2); + $graph->SetFrame(1); + $graph->img->SetMargin(40,20,20,35); + + $b2plot = new LinePlot($gdatas); + + $b2plot->SetColor("blue"); + $b2plot->SetWeight(2); + + $graph->title->Set("Consommation par jour"); + + //$graph->title->SetFont(FF_VERDANA,FS_NORMAL); + + $graph->xaxis->SetTickLabels($glabels); + $graph->xaxis->title->Set(strftime("%d/%m/%y %H:%M:%S", time())); + + $graph->Add($b2plot); + + // Display the graph + + $graph->img->SetImgFormat("png"); + + $file= DOL_DATA_ROOT."/energie/graph/day.".$obj_c->rowid.".png"; + + $graph->Stroke($file); + + + // Mensuel + $i=0; + foreach ($mdatas[$compteur_id] as $key => $value) + { + $gmdatas[$i] = $value; + $gmlabels[$i] = $key; + $i++; + } + + $graph = new Graph($width, $height,"auto"); + $graph->SetScale("textlin"); + + $graph->yaxis->scale->SetGrace(2); + $graph->SetFrame(1); + $graph->img->SetMargin(40,20,20,35); + + $b2plot = new BarPlot($gmdatas); + + $b2plot->SetFillColor("blue"); + + $graph->title->Set("Consommation par mois"); + + $graph->xaxis->SetTickLabels($gmlabels); + $graph->xaxis->title->Set(strftime("%d/%m/%y %H:%M:%S", time())); + + $graph->Add($b2plot); + + $graph->img->SetImgFormat("png"); + + $file= DOL_DATA_ROOT."/energie/graph/month.".$obj_c->rowid.".png"; + + $graph->Stroke($file); + + // Hebdomadaire + $i=0; + foreach ($wdatas[$compteur_id] as $key => $value) + { + $gwdatas[$i] = $value; + $gwlabels[$i] = $key; + $i++; + } + + $graph = new Graph($width, $height,"auto"); + $graph->SetScale("textlin"); + + $graph->yaxis->scale->SetGrace(2); + $graph->SetFrame(1); + $graph->img->SetMargin(40,20,20,35); + + $b2plot = new BarPlot($gwdatas); + $graph->xaxis->SetTickLabels($gwlabels); + + $b2plot->SetFillColor("blue"); + $graph->title->Set("Consommation par semaine"); + + $graph->xaxis->title->Set(strftime("%d/%m/%y %H:%M:%S", time())); + + $graph->Add($b2plot); + + $graph->img->SetImgFormat("png"); + + $file= DOL_DATA_ROOT."/energie/graph/week.".$obj_c->rowid.".png"; + + $graph->Stroke($file); + + // Annuel + $i=0; + foreach ($ydatas[$compteur_id] as $key => $value) + { + $gydatas[$i] = $value; + $gylabels[$i] = $key; + $i++; + } + + $graph = new Graph($width, $height,"auto"); + $graph->SetScale("textlin"); + + $graph->yaxis->scale->SetGrace(2); + $graph->SetFrame(1); + $graph->img->SetMargin(40,20,20,35); + + $b2plot = new BarPlot($gydatas); + $graph->xaxis->SetTickLabels($gylabels); + + $b2plot->SetFillColor("blue"); + $graph->title->Set("Consommation annuelle"); + + $graph->xaxis->title->Set(strftime("%d/%m/%y %H:%M:%S", time())); + + $graph->Add($b2plot); + + $graph->img->SetImgFormat("png"); + + $file= DOL_DATA_ROOT."/energie/graph/year.".$obj_c->rowid.".png"; + + $graph->Stroke($file); + } + else + { + dolibarr_syslog("Erreur SQL"); + } + $i_c++; + } + } +} +else +{ + dolibarr_syslog("Erreur SQL"); +} + + +$sql_g = "SELECT distinct fk_energie_groupe"; +$sql_g .= " FROM ".MAIN_DB_PREFIX."energie_compteur_groupe"; + +$resql_g = $db->query($sql_g); + +if ($resql_g) +{ + $num_g = $db->num_rows($resql_g); + $i_g = 0; + + while ($i_g < $num_g) + { + $row_g = $db->fetch_row($resql_g); + + $sql_c = "SELECT fk_energie_compteur"; + $sql_c .= " FROM ".MAIN_DB_PREFIX."energie_compteur_groupe"; + $sql_c .= " WHERE fk_energie_groupe = ".$row_g[0]; + + $resql_c = $db->query($sql_c); + + if ($resql_c) + { + $num_c = $db->num_rows($resql_c); + $i_c = 0; + + $compteurs = array(); + while ($i_c < $num_c) + { + $obj_c = $db->fetch_object($resql_c); + + array_push($compteurs,$obj_c->fk_energie_compteur); + $i_c++; + } + + $width = 450; + $height = 300; + + // + $graph = new Graph($width, $height,"auto"); + $graph->SetScale("textlin"); + + $graph->SetFrame(1); + $graph->img->SetMargin(40,20,20,35); + $graph->img->SetImgFormat("png"); + $graph->title->Set("Consommation hebdomadaire"); + $graph->xaxis->title->Set(strftime("%d/%m/%y %H:%M:%S", time())); + + $gbspl = array(); + foreach ($compteurs as $cx) + { + $gydatas = array(); + $gylabels = array(); + + $i=0; + foreach ($wdatas[$cx] as $key => $value) + { + $gydatas[$i] = $value; + $gylabels[$i] = $key; + $i++; + } + $bplot = new BarPlot($gydatas); + $cc = new EnergieCompteur($db,0); + $cc->fetch($cx); + $bplot->SetFillColor($cc->couleurs[$cc->energie]); + + array_push($gbspl, $bplot); + } + + $gbplot = new GroupBarPlot($gbspl); + + $graph->xaxis->SetTickLabels($gylabels); + $graph->Add($gbplot); + + $file= DOL_DATA_ROOT."/energie/graph/groupe.week.".$row_g[0].".png"; + $graph->Stroke($file); + // + // + // + $graph = new Graph($width, $height,"auto"); + $graph->SetScale("textlin"); + + $graph->SetFrame(1); + $graph->img->SetMargin(40,20,20,35); + $graph->img->SetImgFormat("png"); + $graph->title->Set("Consommation mensuelle"); + $graph->xaxis->title->Set(strftime("%d/%m/%y %H:%M:%S", time())); + + $gbspl = array(); + foreach ($compteurs as $cx) + { + $gydatas = array(); + $gylabels = array(); + + $i=0; + foreach ($mdatas[$cx] as $key => $value) + { + $gydatas[$i] = $value; + $gylabels[$i] = $key; + $i++; + } + $bplot = new BarPlot($gydatas); + + $cc = new EnergieCompteur($db,0); + $cc->fetch($cx); + $bplot->SetFillColor($cc->couleurs[$cc->energie]); + + array_push($gbspl, $bplot); + } + + $gbplot = new GroupBarPlot($gbspl); + + $graph->xaxis->SetTickLabels($gylabels); + $graph->Add($gbplot); + + $file= DOL_DATA_ROOT."/energie/graph/groupe.month.".$row_g[0].".png"; + $graph->Stroke($file); + // + // + // + $graph = new Graph($width, $height,"auto"); + $graph->SetScale("textlin"); + + $graph->SetFrame(1); + $graph->img->SetMargin(40,20,20,35); + $graph->img->SetImgFormat("png"); + $graph->title->Set("Consommation annuelle"); + $graph->xaxis->title->Set(strftime("%d/%m/%y %H:%M:%S", time())); + + $gbspl = array(); + foreach ($compteurs as $cx) + { + $gydatas = array(); + $gylabels = array(); + + $i=0; + foreach ($ydatas[$cx] as $key => $value) + { + $gydatas[$i] = $value; + $gylabels[$i] = $key; + $i++; + } + $bplot = new BarPlot($gydatas); + + $cc = new EnergieCompteur($db,0); + $cc->fetch($cx); + $bplot->SetFillColor($cc->couleurs[$cc->energie]); + + array_push($gbspl, $bplot); + } + + $gbplot = new GroupBarPlot($gbspl); + + $graph->xaxis->SetTickLabels($gylabels); + $graph->Add($gbplot); + + $file= DOL_DATA_ROOT."/energie/graph/groupe.year.".$row_g[0].".png"; + $graph->Stroke($file); + // + } + else + { + dolibarr_syslog("Erreur SQL"); + print $sql_c; + } + $i_g++; + } +} +else +{ + dolibarr_syslog("Erreur SQL"); + print $sql; +} +?>