[Sommaire] [Imprimer]

   1  <?php
   2  /* Copyright (C) 2005 Rodolphe Quiedeville <rodolphe@quiedeville.org>
   3   *
   4   * This program is free software; you can redistribute it and/or modify
   5   * it under the terms of the GNU General Public License as published by
   6   * the Free Software Foundation; either version 2 of the License, or
   7   * (at your option) any later version.
   8   *
   9   * This program is distributed in the hope that it will be useful,
  10   * but WITHOUT ANY WARRANTY; without even the implied warranty of
  11   * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  12   * GNU General Public License for more details.
  13   *
  14   * You should have received a copy of the GNU General Public License
  15   * along with this program; if not, write to the Free Software
  16   * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
  17   *
  18   * $Id: index.php,v 1.1 2005/07/23 16:58:17 rodolphe Exp $
  19   * $Source: /cvsroot/dolibarr/dolibarr/htdocs/energie/index.php,v $
  20   *
  21   */
  22   
  23  /**
  24     \file       htdocs/commande/index.php
  25     \ingroup    compta
  26     \brief      Page acceuil zone comptabilité
  27     \version    $Revision: 1.1 $
  28  */
  29  
  30  require ("./pre.inc.php");
  31  
  32  llxHeader($langs,"",$langs->trans("Energy"),$langs->trans("Energy"));
  33  
  34  print_titre($langs->trans("Energy"));
  35  
  36  print '<table class="noborder" width="100%">';
  37  
  38  print '<tr><td valign="top" width="30%">';
  39  
  40  /*
  41   * Groupe
  42   */
  43  $sql = "SELECT c.rowid, c.libelle";
  44  $sql .= " FROM ".MAIN_DB_PREFIX."energie_groupe as c";
  45  $sql .= " ORDER BY c.libelle DESC";
  46  $resql = $db->query($sql);
  47  if ( $resql) 
  48  {
  49    $num = $db->num_rows($resql);
  50    if ($num)
  51      {
  52        $i = 0;
  53        print '<table class="noborder" width="100%">';
  54        print '<tr class="liste_titre">';
  55        print '<td colspan="2">'.$langs->trans("Groupes").'</td></tr>';
  56        $var = True;
  57        while ($i < $num)
  58      {
  59        $var=!$var;
  60        $obj = $db->fetch_object($resql);
  61        print "<tr $bc[$var]><td><a href=\"groupe.php?id=$obj->rowid\">".$obj->libelle."</a></td>";
  62        print '</tr>';
  63        $i++;
  64      }
  65        print "</table><br>";
  66      }
  67  }
  68  
  69  /*
  70   * Compteurs
  71   */
  72  $sql = "SELECT c.rowid, c.libelle";
  73  $sql .= " FROM ".MAIN_DB_PREFIX."energie_compteur as c";
  74  $sql .= " ORDER BY c.libelle DESC";
  75  $resql = $db->query($sql);
  76  if ( $resql) 
  77  {
  78    $num = $db->num_rows($resql);
  79    if ($num)
  80      {
  81        $i = 0;
  82        print '<table class="noborder" width="100%">';
  83        print '<tr class="liste_titre">';
  84        print '<td colspan="2">'.$langs->trans("Compteurs").'</td></tr>';
  85        $var = True;
  86        while ($i < $num)
  87      {
  88        $var=!$var;
  89        $obj = $db->fetch_object($resql);
  90        print "<tr $bc[$var]><td><a href=\"compteur.php?id=$obj->rowid\">".$obj->libelle."</a></td>";
  91        print '</tr>';
  92        $i++;
  93      }
  94        print "</table><br>";
  95      }
  96  }
  97  
  98  print '</td><td valign="top" width="70%">';
  99  
 100  print '<img src="'.DOL_URL_ROOT.'/viewimage.php?modulepart=energie&file=month.png" alt="" title=""><br /><br />'."\n";
 101  
 102  print '</td></tr></table>';
 103  
 104  $db->close();
 105  
 106  llxFooter("<em>Derni&egrave;re modification $Date: 2005/07/23 16:58:17 $ r&eacute;vision $Revision: 1.1 $</em>");
 107  ?>