From b6a4da7d9f0ee72953a6f5f6a329ed0d97dadcd9 Mon Sep 17 00:00:00 2001
From: Rodolphe Quiedeville <rodolphe@quiedeville.org>
Date: Wed, 6 Dec 2006 21:00:03 +0000
Subject: [PATCH] Nouveau fichier

---
 htdocs/fourn/stats.php | 153 +++++++++++++++++++++++++++++++++++++++++
 1 file changed, 153 insertions(+)
 create mode 100644 htdocs/fourn/stats.php

diff --git a/htdocs/fourn/stats.php b/htdocs/fourn/stats.php
new file mode 100644
index 00000000000..061325554f0
--- /dev/null
+++ b/htdocs/fourn/stats.php
@@ -0,0 +1,153 @@
+<?php
+/* Copyright (C) 2001-2006 Rodolphe Quiedeville <rodolphe@quiedeville.org>
+ * Copyright (C) 2004-2006 Laurent Destailleur  <eldy@users.sourceforge.net>
+ * Copyright (C) 2005-2006 Regis Houssin        <regis.houssin@cap-networks.com>
+ *
+ * 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/fourn/stats.php
+        \ingroup    fournisseur
+        \brief      Page accueil de la zone fournisseurs
+        \version    $Revision$
+*/
+
+require("./pre.inc.php");
+
+if (!$user->rights->societe->lire)
+  accessforbidden();
+
+
+$page = isset($_GET["page"])?$_GET["page"]:'';
+$sortorder = isset($_GET["sortorder"])?$_GET["sortorder"]:'';
+$sortfield = isset($_GET["sortfield"])?$_GET["sortfield"]:'';
+$socname = isset($_GET["socname"])?$_GET["socname"]:'';
+$search_nom = isset($_GET["search_nom"])?$_GET["search_nom"]:'';
+$search_ville = isset($_GET["search_ville"])?$_GET["search_ville"]:'';
+
+$langs->load("suppliers");
+$langs->load("orders");
+$langs->load("companies");
+
+llxHeader();
+
+// Sécurité accés client
+$socid='';
+if ($user->societe_id > 0) 
+{
+  $action = '';
+  $socid = $user->societe_id;
+}
+
+if ($page == -1) { $page = 0 ; }
+
+$offset = $conf->liste_limit * $page ;
+if (! $sortorder) $sortorder="DESC";
+if (! $sortfield) $sortfield="ca";
+
+
+/*
+ * Mode Liste
+ *
+ */
+
+$sql = "SELECT s.idp, s.nom, s.ville, SUM(ca.ca_genere) as ca";
+$sql.= " , code_fournisseur, code_compta_fournisseur";
+if (!$user->rights->commercial->client->voir && !$socid) $sql .= ", sc.fk_soc, sc.fk_user ";
+$sql.= " FROM ".MAIN_DB_PREFIX."societe as s, ".MAIN_DB_PREFIX."c_stcomm as st, ".MAIN_DB_PREFIX."fournisseur_ca as ca";
+if (!$user->rights->commercial->client->voir && !$socid) $sql .= ", ".MAIN_DB_PREFIX."societe_commerciaux as sc";
+$sql.= " WHERE s.fk_stcomm = st.id AND s.fournisseur=1 AND s.idp = ca.fk_societe";
+if (!$user->rights->commercial->client->voir && !$socid) $sql .= " AND s.idp = sc.fk_soc AND sc.fk_user = " .$user->id;
+if ($socid) $sql .= " AND s.idp=".$socid;
+if ($socname) {
+  $sql .= " AND lower(s.nom) like '%".strtolower($socname)."%'";
+  $sortfield = "lower(s.nom)";
+  $sortorder = "ASC";
+}
+if ($search_nom)
+{
+  $sql .= " AND s.nom LIKE '%".$search_nom."%'";
+}
+if ($search_ville)
+{
+  $sql .= " AND s.ville LIKE '%".$search_ville."%'";
+}
+$sql .= " GROUP BY ca.fk_societe";
+$sql .= " ORDER BY $sortfield $sortorder " . $db->plimit($conf->liste_limit+1, $offset);
+
+$resql = $db->query($sql);
+if ($resql)
+{
+  $num = $db->num_rows($resql);
+  $i = 0;
+  
+  print_barre_liste($langs->trans("ListOfSuppliers"), $page, "stats.php", "", $sortfield, $sortorder, '', $num);
+
+  print '<form action="stats.php" method="GET">';
+  print '<table class="liste" width="100%">';
+  print '<tr class="liste_titre">';
+  print_liste_field_titre($langs->trans("Company"),$_SERVER["PHP_SELF"],"s.nom","","",'valign="middle"',$sortfield);
+  print_liste_field_titre($langs->trans("Town"),$_SERVER["PHP_SELF"],"s.ville","","",'valign="middle"',$sortfield);
+  print '<td class="liste_titre">&nbsp;</td>';
+  print_liste_field_titre($langs->trans("CA"),$_SERVER["PHP_SELF"],"s.code_compta","","",'align="right"',$sortfield);
+  print '<td align="left" class="liste_titre">&nbsp;</td>';
+  print "</tr>\n";
+
+  print '<tr class="liste_titre">';
+
+  print '<td class="liste_titre"><input type="text" class="flat" name="search_nom" value="'.$search_nom.'"></td>';
+  print '<td class="liste_titre"><input type="text" class="flat" name="search_ville" value="'.$search_ville.'"></td>';
+
+  print '<td align="left" class="liste_titre">&nbsp;';
+  print '</td>';
+
+  print '<td class="liste_titre" colspan="2" align="right"><input class="liste_titre" type="image" src="'.DOL_URL_ROOT.'/theme/'.$conf->theme.'/img/search.png" alt="'.$langs->trans("Search").'"></td>';
+
+  print '</tr>';
+
+  $var=True;
+
+  while ($i < min($num,$conf->liste_limit))
+    {
+      $obj = $db->fetch_object($resql);	
+      $var=!$var;
+
+      print "<tr $bc[$var]>";
+      print '<td><a href="fiche.php?socid='.$obj->idp.'">'.img_object($langs->trans("ShowSupplier"),"company").'</a>';
+      print "&nbsp;<a href=\"fiche.php?socid=$obj->idp\">$obj->nom</a></td>\n";
+      print "<td>".$obj->ville."</td>\n";       
+      print '<td align="left">'.$obj->code_fournisseur.'&nbsp;</td>';
+      print '<td align="right">'.price($obj->ca).'&nbsp;</td>';
+      print '<td align="right">&nbsp;</td>';
+      print "</tr>\n";
+      $i++;
+    }
+  print "</table>\n";
+  print "</form>\n";
+  $db->free($resql);
+}
+else 
+{
+  dolibarr_print_error($db);
+}
+
+$db->close();
+
+llxFooter('$Date$ - $Revision$');
+?>