Nouveau fichier

htdocs/societe/lien.php

+<?php
+/* Copyright (C) 2001-2004 Rodolphe Quiedeville <rodolphe@quiedeville.org>
+ * Copyright (C) 2004      Laurent Destailleur  <eldy@users.sourceforge.net>
+ *
+ * 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/societe.php
+  \ingroup    societe
+  \brief      Page des societes
+  \version    $Revision$
+*/
+ 
+require("./pre.inc.php");
+require("../contact.class.php");
+
+$langs->load("companies");
+$langs->load("customers");
+$langs->load("suppliers");
+
+/*
+ * Scurit accs client
+ */
+ 
+if ($user->societe_id > 0) 
+{
+  $action = '';
+  $socid = $user->societe_id;
+}
+
+if($_GET["socid"] && $_GET["select"])
+{
+  if ($user->rights->societe->creer)
+    {
+      $soc = new Societe($db);
+      $soc->id = $_GET["socid"];
+      $soc->fetch($_GET["socid"]);
+      $soc->set_parent($_GET["select"]);
+
+      Header("Location: lien.php?socid=".$soc->id);
+    }
+  else
+    {
+      Header("Location: lien.php?socid=".$soc->id);
+    }
+}
+
+
+llxHeader();
+
+if($_GET["socid"])
+{
+
+  $soc = new Societe($db);
+  $soc->id = $_GET["socid"];
+  $soc->fetch($_GET["socid"]);
+  
+
+  $head[0][0] = DOL_URL_ROOT.'/soc.php?socid='.$soc->id;
+  $head[0][1] = $langs->trans("Company");
+  $h = 1;
+
+  $head[$h][0] = 'lien.php?socid='.$soc->id;
+  $head[$h][1] = 'Lien';
+  $h++;
+
+  $head[$h][0] = DOL_URL_ROOT.'/socnote.php?socid='.$soc->id;
+  $head[$h][1] = $langs->trans("Note");
+  $h++;
+  
+
+
+  dolibarr_fiche_head($head, 1, $soc->nom);
+
+  /*
+   * Fiche socit en mode visu
+   */
+
+  print '<table class="border" width="100%">';
+  print '<tr><td width="20%">'.$langs->trans('Name').'</td><td>'.$soc->nom.'</td><td>'.$langs->trans('Prefix').'</td><td>'.$soc->prefix_comm.'</td></tr>';
+
+  print "<tr><td valign=\"top\">".$langs->trans('Address')."</td><td colspan=\"3\">".nl2br($soc->adresse)."<br>".$soc->cp." ".$soc->ville." ".$soc->pays."</td></tr>";
+
+  print '<tr><td>'.$langs->trans('Phone').'</td><td>'.dolibarr_print_phone($soc->tel).'</td>';
+  print '<td>'.$langs->trans('Fax').'</td><td>'.dolibarr_print_phone($soc->fax).'</td></tr>';
+
+  print '<tr><td>';
+  print $langs->trans('Code client').'</td><td colspan="3">';
+  print $soc->code_client;
+  if ($soc->check_codeclient() <> 0)
+    {
+      print "Code incorrect";
+    }
+  print '</td></tr>';
+
+  print '<tr><td>'.$langs->trans('Web').'</td><td colspan="3">';
+  if ($soc->url) { print '<a href="http://'.$soc->url.'">http://'.$soc->url.'</a>'; }
+  print '</td></tr>';
+  
+  print '<tr><td>'.$langs->trans('ProfIdSiren').'</td><td><a target="_blank" href="http://www.societe.com/cgi-bin/recherche?rncs='.$soc->siren.'">'.$soc->siren.'</a>&nbsp;</td>';
+
+  print '<td>'.$langs->trans('ProfIdSiret').'</td><td>'.$soc->siret.'</td></tr>';
+
+  print '<tr><td>'.$langs->trans('ProfIdApe').'</td><td>'.$soc->ape.'</td>';
+  print '<td>Capital</td><td>'.$soc->capital.' '.$conf->monnaie.'</td></tr>';
+
+  if ($soc->parent > 0)
+    {
+      $socm = new Societe($db);
+      $socm->fetch($soc->parent);
+      
+      print '<tr><td>Maison mre</td><td colspan="3">'.$socm->nom_url.'</td></tr>';
+    }
+
+  print '</table>';
+  print "<br></div>\n";
+
+
+  if ($_GET["select"] > 0)
+    {
+      $socm = new Societe($db);
+      $socm->id = $_GET["select"];
+      $socm->fetch($_GET["select"]);
+    }
+  else
+    {
+      $page=$_GET["page"];
+  
+      if ($page == -1) { $page = 0 ; }
+      
+      $offset = $conf->liste_limit * $page ;
+      $pageprev = $page - 1;
+      $pagenext = $page + 1;
+      
+      /*
+       * Liste
+       *
+       */
+      
+      $title=$langs->trans("CompanyList");
+  
+      $sql = "SELECT s.idp, s.nom, s.ville, s.prefix_comm, s.client, s.fournisseur, te.libelle";
+      $sql .= " FROM ".MAIN_DB_PREFIX."societe as s";
+      $sql .= " , ".MAIN_DB_PREFIX."c_typent as te";
+      $sql .= "  WHERE s.fk_typent = te.id";
+      
+      if (strlen(trim($_GET["search_nom"])))
+	{
+	  $sql .= " AND s.nom LIKE '%".$_GET["search_nom"]."%'";
+	}
+      
+      $sql .= " ORDER BY s.nom ASC " . $db->plimit($conf->liste_limit+1, $offset);
+      
+      $result = $db->query($sql);
+      if ($result)
+	{
+	  $num = $db->num_rows();
+	  $i = 0;
+	  
+	  $params = "&amp;socid=".$_GET["socid"];
+	  
+	  print_barre_liste($title, $page, "lien.php",$params,$sortfield,$sortorder,'',$num);
+	  
+	  // Lignes des titres
+	  print '<table class="noborder" width="100%">';
+	  print '<tr class="liste_titre">';
+	  print '<td>'.$langs->trans("Company").'</td>';
+	  print '<td>'.$langs->trans("Town").'</td>';
+	  print '<td>Type<td>';
+	  print '<td colspan="2" align="center">&nbsp;</td>';
+	  print "</tr>\n";
+      
+	  // Lignes des champs de filtre
+	  print '<form action="lien.php" method="GET" >';
+	  print '<input type="hidden" name="socid" value="'.$_GET["socid"].'">';
+	  print '<tr class="liste_titre">';
+	  print '<td valign="right">';
+	  print '<input type="text" name="search_nom" value="'.stripslashes($search_nom).'">';
+	  print '</td><td colspan="5" align="center">';
+	  print '<input type="submit" class="button" name="button_search" value="'.$langs->trans("Search").'">';
+	  print '</td>';
+	  print "</tr>\n";
+	  print '</form>';
+	  
+	  $var=True;
+	  
+	  while ($i < min($num,$conf->liste_limit))
+	    {
+	      $obj = $db->fetch_object();    
+	      $var=!$var;    
+	      print "<tr $bc[$var]><td>";
+	      print stripslashes($obj->nom)."</td>\n";
+	      print "<td>".$obj->ville."&nbsp;</td>\n";
+	      print "<td>".$obj->libelle."&nbsp;</td>\n";
+	      print '<td align="center">';
+	      if ($obj->client==1)
+		{
+		  print $langs->trans("Customer")."\n";
+		}
+	      elseif ($obj->client==2)
+		{
+		  print $langs->trans("Prospect")."\n";
+		}
+	      else
+		{
+		  print "&nbsp;";
+		}
+	      print "</td><td align=\"center\">";
+	      if ($obj->fournisseur)
+		{
+		  print $langs->trans("Supplier");
+		}
+	      else
+		{
+		  print "&nbsp;";
+		}
+	      
+	      print '</td><td><a href="lien.php?socid='.$_GET["socid"].'&amp;select='.$obj->idp.'">Slectionner</a></td>';
+	      
+	      print '</tr>'."\n";
+	      $i++;
+	    }
+	  
+	  print "</table>";
+	  $db->free();
+	}
+      else
+	{
+	  dolibarr_print_error($db);
+	}
+    }
+  
+}
+
+
+$db->close();
+
+llxFooter("<em>Derni&egrave;re modification $Date$ r&eacute;vision $Revision$</em>");
+?>