dolibarr-fork/htdocs/societe/lien.php

<?php
/* Copyright (C) 2001-2005 Rodolphe Quiedeville <rodolphe@quiedeville.org>
 * Copyright (C) 2004-2005 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/lien.php
    \ingroup    societe
    \brief      Page des societes
    \version    $Revision$
*/
 
require("./pre.inc.php");

$user->getrights();

$langs->load("companies");
$langs->load("customers");
$langs->load("suppliers");
$langs->load("banks");

/*
 * Sécurité accés 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=".$_GET["socid"]);
    }
}


llxHeader();

if($_GET["socid"])
{
    
    $soc = new Societe($db);
    $soc->id = $_GET["socid"];
    $soc->fetch($_GET["socid"]);
    
    $h=0;
    
    $head[$h][0] = DOL_URL_ROOT.'/soc.php?socid='.$soc->id;
    $head[$h][1] = $langs->trans("Company");
    $h++;
    
    $head[$h][0] = DOL_URL_ROOT .'/societe/rib.php?socid='.$soc->id;
    $head[$h][1] = $langs->trans("BankAccount")." $account->number";
    $h++;
    
    $head[$h][0] = 'lien.php?socid='.$soc->id;
    $head[$h][1] = $langs->trans("Links");
    $hselected=$h;
    $h++;
    
    $head[$h][0] = 'commerciaux.php?socid='.$soc->id;
    $head[$h][1] = $langs->trans("SalesRepresentative");
    $h++;
        
    
    dolibarr_fiche_head($head, $hselected, $soc->nom);
    
    /*
    * Fiche société en mode visu
    */
    
    print '<table class="border" width="100%">';
    print '<tr><td width="20%">'.$langs->trans('Name').'</td><td colspan="3">'.$soc->nom.'</td></tr>';
    
  print '<tr><td>';
  print $langs->trans('CustomerCode').'</td><td width="20%">';
  print $soc->code_client;
  if ($soc->check_codeclient() <> 0) print ' '.$langs->trans("WrongCustomerCode");
  print '</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)."</td></tr>";
    
    print "<tr><td>".$langs->trans('Zip')."</td><td>".$soc->cp."</td>";
    print "<td>".$langs->trans('Town')."</td><td>".$soc->ville."</td></tr>";
    
    print "<tr><td>".$langs->trans('Country')."</td><td colspan=\"3\">".$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>'.$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->transcountry('ProfId1',$soc->pays_code).'</td><td><a target="_blank" href="http://www.societe.com/cgi-bin/recherche?rncs='.$soc->siren.'">'.$soc->siren.'</a>&nbsp;</td>';
    
    print '<td>'.$langs->transcountry('ProfId2',$soc->pays_code).'</td><td>'.$soc->siret.'</td></tr>';
    
    print '<tr><td>'.$langs->transcountry('ProfId3',$soc->pays_code).'</td><td>'.$soc->ape.'</td><td colspan="2">&nbsp;</td></tr>';
    print '<tr><td>'.$langs->trans("Capital").'</td><td colspan="3">'.$soc->capital.' '.$conf->monnaie.'</td></tr>';
    
    print '<tr><td>'.$langs->trans("ParentCompany").'</td><td colspan="3">';
    if ($soc->parent)
    {
        $socm = new Societe($db);
        $socm->fetch($soc->parent);
        print '<a href="'.DOL_URL_ROOT.'/soc.php?socid='.$socm->idp.'">'.img_object($langs->trans("ShowCompany"),'company').' '.$socm->nom.'</a>'.($socm->code_client?"(".$socm->code_client.")":"").' - '.$socm->ville;
    }
    print '</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
    {
        if ($user->rights->societe->creer)
        {
    
            $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.'">'.$langs->trans("Select").'</a></td>';
    
                    print '</tr>'."\n";
                    $i++;
                }
    
                print "</table>";
                $db->free();
            }
            else
            {
                dolibarr_print_error($db);
            }
        }
    }
}


$db->close();

llxFooter('$Date$ - $Revision$');
?>