forked from Wavyzz/dolibarr
64c8da5a73
Fix: Le champ type de tiers n'était pas renseigné à particulier qd on créé un particulier. De plus, un particulier doit rester appelé "tiers" pour mieux comprendre la compta. Je modifie donc la "présentation" de la fonctionnalité du mode de création des triers de type particulier pour etre moins perturbante et gérer le champ type et j'ajoute le texte "Créera automatiquement un contact physique avec info identiques".
1852 lines
52 KiB
PHP
1852 lines
52 KiB
PHP
<?php
|
||
/* Copyright (C) 2002-2006 Rodolphe Quiedeville <rodolphe@quiedeville.org>
|
||
* Copyright (C) 2004-2007 Laurent Destailleur <eldy@users.sourceforge.net>
|
||
* Copyright (C) 2004 Eric Seigne <eric.seigne@ryxeo.com>
|
||
* Copyright (C) 2003 Brian Fraval <brian@fraval.org>
|
||
* Copyright (C) 2006 Andre Cianfarani <acianfa@free.fr>
|
||
* Copyright (C) 2005-2007 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/societe.class.php
|
||
\ingroup societe
|
||
\brief Fichier de la classe des societes
|
||
\version $Revision$
|
||
*/
|
||
|
||
require_once(DOL_DOCUMENT_ROOT.'/discount.class.php');
|
||
|
||
|
||
/**
|
||
\class Societe
|
||
\brief Classe permettant la gestion des societes
|
||
*/
|
||
|
||
class Societe
|
||
{
|
||
var $db;
|
||
|
||
var $id;
|
||
var $nom;
|
||
var $nom_particulier;
|
||
var $prenom;
|
||
var $particulier;
|
||
var $adresse;
|
||
var $cp;
|
||
var $ville;
|
||
var $departement_id;
|
||
var $pays_id;
|
||
var $pays_code;
|
||
var $tel;
|
||
var $fax;
|
||
var $email;
|
||
var $url;
|
||
|
||
// 4 identifiants professionnels (leur utilisation depend du pays)
|
||
var $siren; // IdProf1
|
||
var $siret; // IdProf2
|
||
var $ape; // IdProf3
|
||
var $idprof4; // IdProf4
|
||
|
||
var $prefix_comm;
|
||
|
||
var $tva_assuj;
|
||
var $tva_intra;
|
||
|
||
var $capital;
|
||
var $typent_id;
|
||
var $effectif_id;
|
||
var $forme_juridique_code;
|
||
var $forme_juridique;
|
||
|
||
var $remise_client;
|
||
var $mode_reglement;
|
||
var $cond_reglement;
|
||
|
||
var $client;
|
||
var $prospect;
|
||
var $fournisseur;
|
||
|
||
var $code_client;
|
||
var $code_fournisseur;
|
||
var $code_compta;
|
||
var $code_compta_fournisseur;
|
||
|
||
var $note;
|
||
//! code statut prospect
|
||
var $stcomm_id;
|
||
var $statut_commercial;
|
||
|
||
var $price_level;
|
||
|
||
var $commercial_id; //Id du commercial affect<63>
|
||
|
||
|
||
/**
|
||
* \brief Constructeur de la classe
|
||
* \param DB handler acc<63>s base de donn<6E>es
|
||
* \param id id societe (0 par defaut)
|
||
*/
|
||
function Societe($DB, $id=0)
|
||
{
|
||
global $conf;
|
||
|
||
$this->db = $DB;
|
||
|
||
$this->id = $id;
|
||
$this->client = 0;
|
||
$this->prospect = 0;
|
||
$this->fournisseur = 0;
|
||
$this->typent_id = 0;
|
||
$this->effectif_id = 0;
|
||
$this->forme_juridique_code = 0;
|
||
|
||
// D<>finit selon les modules codeclient et codefournisseur
|
||
|
||
// definit module code client
|
||
$varclient = $conf->global->SOCIETE_CODECLIENT_ADDON;
|
||
require_once DOL_DOCUMENT_ROOT.'/includes/modules/societe/'.$varclient.'.php';
|
||
$this->mod_codeclient = new $varclient;
|
||
|
||
// definit module code fournisseur
|
||
$varfournisseur = $conf->global->SOCIETE_CODEFOURNISSEUR_ADDON;
|
||
require_once DOL_DOCUMENT_ROOT.'/includes/modules/societe/'.$varfournisseur.'.php';
|
||
$this->mod_codefournisseur = new $varfournisseur;
|
||
|
||
return 1;
|
||
}
|
||
|
||
/**
|
||
* \brief Cr<43>e la societe en base
|
||
* \param user Objet utilisateur qui demande la cr<63>ation
|
||
* \return int 0 si ok, < 0 si erreur
|
||
*/
|
||
|
||
function create($user='')
|
||
{
|
||
global $langs,$conf;
|
||
|
||
// Nettoyage param<61>tres
|
||
$this->nom=trim($this->nom);
|
||
|
||
dolibarr_syslog("Societe::create ".$this->nom);
|
||
|
||
$this->db->begin();
|
||
|
||
$result = $this->verify();
|
||
|
||
if ($result >= 0)
|
||
{
|
||
$sql = "INSERT INTO ".MAIN_DB_PREFIX."societe (nom, datec, datea, fk_user_creat) ";
|
||
$sql .= " VALUES ('".addslashes($this->nom)."', now(), now(), '".$user->id."')";
|
||
|
||
$result=$this->db->query($sql);
|
||
if ($result)
|
||
{
|
||
$this->id = $this->db->last_insert_id(MAIN_DB_PREFIX."societe");
|
||
|
||
$ret = $this->update($this->id,$user,0,1,1);
|
||
|
||
// si un commercial cr<63>e un client il lui est affect<63> automatiquement
|
||
if (!$user->rights->commercial->client->voir)
|
||
{
|
||
$this->add_commercial($user, $user->id);
|
||
}
|
||
// Ajout du commercial affect<63>
|
||
else if ($this->commercial_id != '' && $this->commercial_id != -1)
|
||
{
|
||
$this->add_commercial($user, $this->commercial_id);
|
||
}
|
||
|
||
// si le fournisseur est classe on l'ajoute
|
||
$this->AddFournisseurInCategory($this->fournisseur_categorie);
|
||
|
||
if ($ret >= 0)
|
||
{
|
||
$this->use_webcal=($conf->global->PHPWEBCALENDAR_COMPANYCREATE=='always'?1:0);
|
||
|
||
// Appel des triggers
|
||
include_once(DOL_DOCUMENT_ROOT . "/interfaces.class.php");
|
||
$interface=new Interfaces($this->db);
|
||
$result=$interface->run_triggers('COMPANY_CREATE',$this,$user,$langs,$conf);
|
||
// Fin appel triggers
|
||
|
||
dolibarr_syslog("Societe::Create success id=".$this->id);
|
||
$this->db->commit();
|
||
return 0;
|
||
}
|
||
else
|
||
{
|
||
dolibarr_syslog("Societe::Create echec update");
|
||
$this->db->rollback();
|
||
return -3;
|
||
}
|
||
}
|
||
else
|
||
{
|
||
if ($this->db->errno() == 'DB_ERROR_RECORD_ALREADY_EXISTS')
|
||
{
|
||
|
||
$this->error=$langs->trans("ErrorCompanyNameAlreadyExists",$this->nom);
|
||
}
|
||
else
|
||
{
|
||
dolibarr_syslog("Societe::Create echec insert sql=".$sql);
|
||
}
|
||
$this->db->rollback();
|
||
return -2;
|
||
}
|
||
|
||
}
|
||
else
|
||
{
|
||
$this->db->rollback();
|
||
dolibarr_syslog("Societe::Create echec verify sql=".$sql);
|
||
return -1;
|
||
}
|
||
}
|
||
|
||
/**
|
||
* \brief Verification lors de la modification
|
||
* \return int 0 si OK, <0 si KO
|
||
*/
|
||
function verify()
|
||
{
|
||
$result = 0;
|
||
$this->nom=trim($this->nom);
|
||
|
||
if (! $this->nom)
|
||
{
|
||
$this->error = "Le nom de la soci<63>t<EFBFBD> ne peut <20>tre vide.\n";
|
||
$result = -2;
|
||
}
|
||
if ($this->client && $this->codeclient_modifiable())
|
||
{
|
||
// On ne v<>rifie le code client que si la soci<63>t<EFBFBD> est un client / prospect et que le code est modifiable
|
||
// Si il n'est pas modifiable il n'est pas mis <20> jour lors de l'update
|
||
$rescode = $this->check_codeclient();
|
||
if ($rescode <> 0)
|
||
{
|
||
if ($rescode == -1)
|
||
{
|
||
$this->error .= "La syntaxe du code client est incorrecte.\n";
|
||
}
|
||
if ($rescode == -2)
|
||
{
|
||
$this->error .= "Vous devez saisir un code client.\n";
|
||
}
|
||
if ($rescode == -3)
|
||
{
|
||
$this->error .= "Ce code client est d<>j<EFBFBD> utilis<69>.\n";
|
||
}
|
||
$result = -3;
|
||
}
|
||
}
|
||
if ($this->fournisseur && $this->codefournisseur_modifiable())
|
||
{
|
||
// On ne v<>rifie le code fournisseur que si la soci<63>t<EFBFBD> est un fournisseur et que le code est modifiable
|
||
// Si il n'est pas modifiable il n'est pas mis <20> jour lors de l'update
|
||
$rescode = $this->check_codefournisseur();
|
||
if ($rescode <> 0)
|
||
{
|
||
if ($rescode == -1)
|
||
{
|
||
$this->error .= "La syntaxe du code fournisseur est incorrecte.\n";
|
||
}
|
||
if ($rescode == -2)
|
||
{
|
||
$this->error .= "Vous devez saisir un code fournisseur.\n";
|
||
}
|
||
if ($rescode == -3)
|
||
{
|
||
$this->error .= "Ce code fournisseur est d<>j<EFBFBD> utilis<69>.\n";
|
||
}
|
||
$result = -3;
|
||
}
|
||
}
|
||
|
||
return $result;
|
||
}
|
||
|
||
/**
|
||
* \brief Mise a jour des param<61>tres de la soci<63>t<EFBFBD>
|
||
* \param id id societe
|
||
* \param user Utilisateur qui demande la mise <20> jour
|
||
* \param call_trigger 0=non, 1=oui
|
||
* \param allowmodcodeclient Autorise modif code client
|
||
* \param allowmodcodefournisseur Autorise modif code fournisseur
|
||
* \return int <0 si ko, >=0 si ok
|
||
*/
|
||
function update($id, $user='', $call_trigger=1, $allowmodcodeclient=0, $allowmodcodefournisseur=0)
|
||
{
|
||
global $langs;
|
||
|
||
dolibarr_syslog("Societe::Update id=".$id." call_trigger=".$call_triger." allowmodcodeclient=".$allowmodcodeclient." allowmodcodefournisseur=".$allowmodcodefournisseur);
|
||
|
||
// Nettoyage des param<61>tres
|
||
$this->id=$id;
|
||
$this->capital=trim($this->capital);
|
||
$this->nom=trim($this->nom);
|
||
$this->adresse=trim($this->adresse);
|
||
$this->cp=trim($this->cp);
|
||
$this->ville=trim($this->ville);
|
||
$this->departement_id=trim($this->departement_id);
|
||
$this->pays_id=trim($this->pays_id);
|
||
$this->tel=trim($this->tel);
|
||
$this->fax=trim($this->fax);
|
||
$this->tel = ereg_replace(" ","",$this->tel);
|
||
$this->tel = ereg_replace("\.","",$this->tel);
|
||
$this->fax = ereg_replace(" ","",$this->fax);
|
||
$this->fax = ereg_replace("\.","",$this->fax);
|
||
$this->email=trim($this->email);
|
||
$this->url=trim($this->url);
|
||
$this->siren=trim($this->siren);
|
||
$this->siret=trim($this->siret);
|
||
$this->ape=trim($this->ape);
|
||
$this->idprof4=trim($this->idprof4);
|
||
$this->prefix_comm=trim($this->prefix_comm);
|
||
|
||
$this->tva_assuj=trim($this->tva_assuj);
|
||
$this->tva_intra=trim($this->tva_intra);
|
||
|
||
$this->capital=trim($this->capital);
|
||
if (strlen($this->capital) == 0) $this->capital = 0;
|
||
|
||
$this->effectif_id=trim($this->effectif_id);
|
||
$this->forme_juridique_code=trim($this->forme_juridique_code);
|
||
|
||
$result = $this->verify(); // Verifie que nom obligatoire et code client ok et unique
|
||
|
||
if ($result >= 0)
|
||
{
|
||
dolibarr_syslog("Societe::Update verify ok");
|
||
|
||
$sql = "UPDATE ".MAIN_DB_PREFIX."societe";
|
||
$sql.= " SET nom = '" . addslashes($this->nom) ."'"; // Champ obligatoire
|
||
$sql.= ",datea = now()";
|
||
$sql.= ",address = '" . addslashes($this->adresse) ."'";
|
||
|
||
$sql.= ",cp = ".($this->cp?"'".$this->cp."'":"null");
|
||
$sql.= ",ville = ".($this->ville?"'".addslashes($this->ville)."'":"null");
|
||
|
||
$sql .= ",fk_departement = '" . ($this->departement_id?$this->departement_id:'0') ."'";
|
||
$sql .= ",fk_pays = '" . ($this->pays_id?$this->pays_id:'0') ."'";
|
||
|
||
$sql .= ",tel = ".($this->tel?"'".addslashes($this->tel)."'":"null");
|
||
$sql .= ",fax = ".($this->fax?"'".addslashes($this->fax)."'":"null");
|
||
$sql .= ",email = ".($this->email?"'".addslashes($this->email)."'":"null");
|
||
$sql .= ",url = ".($this->url?"'".addslashes($this->url)."'":"null");
|
||
|
||
$sql .= ",siren = '". addslashes($this->siren) ."'";
|
||
$sql .= ",siret = '". addslashes($this->siret) ."'";
|
||
$sql .= ",ape = '". addslashes($this->ape) ."'";
|
||
$sql .= ",idprof4 = '". addslashes($this->idprof4) ."'";
|
||
|
||
$sql .= ",tva_assuj = ".($this->tva_assuj>=0?"'".$this->tva_assuj."'":"null");
|
||
$sql .= ",tva_intra = '" . addslashes($this->tva_intra) ."'";
|
||
|
||
$sql .= ",capital = '" . addslashes($this->capital) ."'";
|
||
|
||
$sql .= ",prefix_comm = ".($this->prefix_comm?"'".addslashes($this->prefix_comm)."'":"null");
|
||
|
||
$sql .= ",fk_effectif = ".($this->effectif_id?"'".$this->effectif_id."'":"null");
|
||
|
||
$sql .= ",fk_typent = ".($this->typent_id?"'".$this->typent_id."'":"null");
|
||
|
||
$sql .= ",fk_forme_juridique = ".($this->forme_juridique_code?"'".$this->forme_juridique_code."'":"null");
|
||
|
||
$sql .= ",client = " . $this->client;
|
||
$sql .= ",fournisseur = " . $this->fournisseur;
|
||
|
||
if ($allowmodcodeclient)
|
||
{
|
||
// Attention check_codeclient peut modifier le code suivant le module utilise
|
||
$this->check_codeclient();
|
||
|
||
$sql .= ", code_client = ".($this->code_client?"'".addslashes($this->code_client)."'":"null");
|
||
|
||
// Attention get_codecompta peut modifier le code suivant le module utilise
|
||
$this->get_codecompta('customer');
|
||
|
||
$sql .= ", code_compta = ".($this->code_compta?"'".addslashes($this->code_compta)."'":"null");
|
||
}
|
||
|
||
if ($allowmodcodefournisseur)
|
||
{
|
||
// Attention check_codefournisseur peut modifier le code suivant le module utilise
|
||
$this->check_codefournisseur();
|
||
|
||
$sql .= ", code_fournisseur = ".($this->code_fournisseur?"'".addslashes($this->code_fournisseur)."'":"null");
|
||
|
||
// Attention get_codecompta peut modifier le code suivant le module utilise
|
||
$this->get_codecompta('supplier');
|
||
|
||
$sql .= ", code_compta_fournisseur = ".($this->code_compta_fournisseur?"'".addslashes($this->code_compta_fournisseur)."'":"null");
|
||
}
|
||
if ($user) $sql .= ",fk_user_modif = '".$user->id."'";
|
||
$sql .= " WHERE idp = '" . $id ."'";
|
||
|
||
|
||
dolibarr_syslog("Societe::update sql=".$sql);
|
||
$resql=$this->db->query($sql);
|
||
if ($resql)
|
||
{
|
||
|
||
//Si c'est un particulier on cr<63>e la fiche contact
|
||
if ($this->particulier == 1)
|
||
{
|
||
require_once (DOL_DOCUMENT_ROOT."/contact.class.php");
|
||
$contact = new Contact($this->db);
|
||
|
||
$contact->socid = $id;
|
||
$contact->name = $this->nom_particulier;
|
||
$contact->firstname = $this->prenom;
|
||
//$contact->civilite_id = $_POST["civilite_id"];
|
||
//$contact->poste = $_POST["poste"];
|
||
$contact->address = $this->adresse;
|
||
$contact->cp = $this->cp;
|
||
$contact->ville = $this->ville;
|
||
$contact->fk_pays = $this->pays_id;
|
||
$contact->email = $this->email;
|
||
$contact->phone_pro = $this->tel;
|
||
//$contact->phone_perso = $_POST["phone_perso"];
|
||
//$contact->phone_mobile = $_POST["phone_mobile"];
|
||
$contact->fax = $this->fax;
|
||
|
||
$id = $contact->create($user);
|
||
}
|
||
|
||
|
||
// si le fournisseur est classe on l'ajoute
|
||
$this->AddFournisseurInCategory($this->fournisseur_categorie);
|
||
|
||
if ($call_trigger)
|
||
{
|
||
// Appel des triggers
|
||
include_once(DOL_DOCUMENT_ROOT . "/interfaces.class.php");
|
||
$interface=new Interfaces($this->db);
|
||
$result=$interface->run_triggers('COMPANY_MODIFY',$this,$user,$langs,$conf);
|
||
// Fin appel triggers
|
||
}
|
||
|
||
$result = 1;
|
||
}
|
||
else
|
||
{
|
||
if ($this->db->errno() == 'DB_ERROR_RECORD_ALREADY_EXISTS')
|
||
{
|
||
// Doublon
|
||
$this->error = $langs->trans("ErrorDuplicateField");
|
||
$result = -1;
|
||
}
|
||
else
|
||
{
|
||
|
||
$this->error = $langs->trans("Error sql=".$sql);
|
||
dolibarr_syslog("Societe::Update echec sql=".$sql);
|
||
$result = -2;
|
||
}
|
||
}
|
||
}
|
||
|
||
return $result;
|
||
|
||
}
|
||
|
||
/**
|
||
* \brief Charge depuis la base l'objet societe
|
||
* \param socid Id de la soci<63>t<EFBFBD> <20> charger en m<>moire
|
||
* \param user Objet de l'utilisateur
|
||
* \return int >0 si ok, <0 si ko
|
||
*/
|
||
function fetch($socid, $user=0)
|
||
{
|
||
global $langs;
|
||
global $conf;
|
||
/* Lecture des permissions */
|
||
if ($user <> 0)
|
||
{
|
||
$sql = "SELECT p.pread, p.pwrite, p.pperms";
|
||
$sql .= " FROM ".MAIN_DB_PREFIX."societe_perms as p";
|
||
$sql .= " WHERE p.fk_user = '".$user->id."'";
|
||
$sql .= " AND p.fk_soc = '".$socid."';";
|
||
$resql=$this->db->query($sql);
|
||
if ($resql)
|
||
{
|
||
if ($row = $this->db->fetch_row($resql))
|
||
{
|
||
$this->perm_read = $row[0];
|
||
$this->perm_write = $row[1];
|
||
$this->perm_perms = $row[2];
|
||
}
|
||
}
|
||
}
|
||
|
||
$sql = 'SELECT s.idp, s.nom, s.address,'.$this->db->pdate('s.datec').' as dc, prefix_comm';
|
||
// multiprix
|
||
if($conf->global->PRODUIT_MULTIPRICES == 1)
|
||
$sql .= ', s.price_level';
|
||
$sql .= ','. $this->db->pdate('s.tms').' as date_update';
|
||
$sql .= ', s.tel, s.fax, s.email, s.url, s.cp, s.ville, s.note, client, fournisseur';
|
||
$sql .= ', s.siren, s.siret, s.ape, s.idprof4';
|
||
$sql .= ', s.capital, s.tva_intra, s.rubrique';
|
||
$sql .= ', s.fk_typent as typent_id';
|
||
$sql .= ', s.fk_effectif as effectif_id, e.libelle as effectif';
|
||
$sql .= ', s.fk_forme_juridique as forme_juridique_code, fj.libelle as forme_juridique';
|
||
$sql .= ', s.code_client, s.code_compta, s.code_fournisseur, s.parent';
|
||
$sql .= ', s.fk_departement, s.fk_pays, s.fk_stcomm, s.remise_client, s.mode_reglement, s.cond_reglement, s.tva_assuj';
|
||
$sql .= ', p.code as pays_code, p.libelle as pays';
|
||
$sql .= ', d.code_departement as departement_code, d.nom as departement';
|
||
$sql .= ', st.libelle as stcomm';
|
||
$sql .= ' FROM '.MAIN_DB_PREFIX.'societe as s';
|
||
$sql .= ' LEFT JOIN '.MAIN_DB_PREFIX.'c_effectif as e ON s.fk_effectif = e.id';
|
||
$sql .= ' LEFT JOIN '.MAIN_DB_PREFIX.'c_pays as p ON s.fk_pays = p.rowid';
|
||
$sql .= ' LEFT JOIN '.MAIN_DB_PREFIX.'c_stcomm as st ON s.fk_stcomm = st.id';
|
||
$sql .= ' LEFT JOIN '.MAIN_DB_PREFIX.'c_forme_juridique as fj ON s.fk_forme_juridique = fj.code';
|
||
$sql .= ' LEFT JOIN '.MAIN_DB_PREFIX.'c_departements as d ON s.fk_departement = d.rowid';
|
||
$sql .= ' WHERE s.idp = '.$socid;
|
||
$resql=$this->db->query($sql);
|
||
if ($resql)
|
||
{
|
||
if ($this->db->num_rows($resql))
|
||
{
|
||
$obj = $this->db->fetch_object($resql);
|
||
|
||
$this->id = $obj->idp;
|
||
|
||
$this->date_update = $obj->date_update;
|
||
|
||
$this->nom = stripslashes($obj->nom);
|
||
$this->adresse = stripslashes($obj->address);
|
||
$this->cp = $obj->cp;
|
||
$this->ville = stripslashes($obj->ville);
|
||
$this->adresse_full = stripslashes($obj->address) . "\n". $obj->cp . ' '. stripslashes($obj->ville);
|
||
|
||
$this->pays_id = $obj->fk_pays;
|
||
$this->pays_code = $obj->fk_pays?$obj->pays_code:'';
|
||
$this->pays = $obj->fk_pays?($langs->trans('Country'.$obj->pays_code)!='Country'.$obj->pays_code?$langs->trans('Country'.$obj->pays_code):$obj->pays):'';
|
||
|
||
$this->departement_id = $obj->fk_departement;
|
||
$this->departement= $obj->fk_departement?$obj->departement:'';
|
||
|
||
$transcode=$langs->trans('StatusProspect'.$obj->fk_stcomm);
|
||
$libelle=($transcode!='StatusProspect'.$obj->fk_stcomm?$transcode:$obj->stcomm);
|
||
$this->stcomm_id = $obj->fk_stcomm; // id statut commercial
|
||
$this->statut_commercial = $libelle; // libelle statut commercial
|
||
|
||
$this->email = $obj->email;
|
||
$this->url = $obj->url;
|
||
$this->tel = $obj->tel;
|
||
$this->fax = $obj->fax;
|
||
|
||
$this->parent = $obj->parent;
|
||
|
||
$this->siren = $obj->siren;
|
||
$this->siret = $obj->siret;
|
||
$this->ape = $obj->ape;
|
||
$this->idprof4 = $obj->idprof4;
|
||
|
||
$this->capital = $obj->capital;
|
||
|
||
$this->code_client = $obj->code_client;
|
||
$this->code_fournisseur = $obj->code_fournisseur;
|
||
|
||
$this->code_compta = $obj->code_compta;
|
||
$this->code_compta_fournisseur = $obj->code_compta_fournisseur;
|
||
|
||
$this->tva_assuj = $obj->tva_assuj;
|
||
$this->tva_intra = $obj->tva_intra;
|
||
$this->tva_intra_code = substr($obj->tva_intra,0,2);
|
||
$this->tva_intra_num = substr($obj->tva_intra,2);
|
||
|
||
$this->typent_id = $obj->typent_id;
|
||
//$this->typent = $obj->fk_typent?$obj->typeent:'';
|
||
|
||
$this->effectif_id = $obj->effectif_id;
|
||
$this->effectif = $obj->effectif_id?$obj->effectif:'';
|
||
|
||
$this->forme_juridique_code= $obj->forme_juridique_code;
|
||
$this->forme_juridique = $obj->forme_juridique_code?$obj->forme_juridique:'';
|
||
|
||
$this->prefix_comm = $obj->prefix_comm;
|
||
|
||
$this->remise_client = $obj->remise_client;
|
||
$this->mode_reglement = $obj->mode_reglement;
|
||
$this->cond_reglement = $obj->cond_reglement;
|
||
$this->client = $obj->client;
|
||
$this->fournisseur = $obj->fournisseur;
|
||
|
||
$this->rubrique = $obj->rubrique;
|
||
$this->note = $obj->note;
|
||
// multiprix
|
||
if($conf->global->PRODUIT_MULTIPRICES == 1)
|
||
$this->price_level = $obj->price_level;
|
||
|
||
$result = 1;
|
||
}
|
||
else
|
||
{
|
||
dolibarr_syslog('Erreur Societe::Fetch aucune societe avec id='.$this->id.' - '.$sql);
|
||
$this->error='Erreur Societe::Fetch aucune societe avec id='.$this->id.' - '.$sql;
|
||
$result = -2;
|
||
}
|
||
|
||
$this->db->free($resql);
|
||
}
|
||
else
|
||
{
|
||
dolibarr_syslog('Erreur Societe::Fetch echec sql='.$sql);
|
||
dolibarr_syslog('Erreur Societe::Fetch '.$this->db->error());
|
||
$this->error=$this->db->error();
|
||
$result = -3;
|
||
}
|
||
|
||
return $result;
|
||
}
|
||
|
||
/**
|
||
*
|
||
* Lit une adresse de livraison
|
||
*
|
||
*/
|
||
function fetch_adresse_livraison($id)
|
||
{
|
||
global $conf;
|
||
|
||
$sql = "SELECT l.rowid, l.label, l.fk_societe, l.nom, l.address, l.cp";
|
||
$sql .= ", ".$this->db->pdate("l.tms")."as dm, ".$this->db->pdate("l.datec")."as dc";
|
||
$sql .= ", l.ville, l.fk_pays, l.note";
|
||
$sql .= ", p.libelle as pays, p.code, s.nom as socname";
|
||
$sql .= " FROM ".MAIN_DB_PREFIX."societe_adresse_livraison as l";
|
||
$sql .= " LEFT JOIN ".MAIN_DB_PREFIX."c_pays as p ON l.fk_pays = p.rowid";
|
||
$sql .= " LEFT JOIN ".MAIN_DB_PREFIX."societe as s ON l.fk_societe = s.idp";
|
||
$sql .= " WHERE l.rowid = ".$id;
|
||
|
||
$result = $this->db->query($sql) ;
|
||
|
||
if ( $result )
|
||
{
|
||
$obj = $this->db->fetch_object($result);
|
||
|
||
$this->id = $obj->rowid;
|
||
$this->datec = $obj->dc;
|
||
$this->datem = $obj->dm;
|
||
$this->label = $obj->label;
|
||
$this->socid = $obj->fk_societe;
|
||
$this->societe = $obj->socname;
|
||
$this->nom = $obj->nom;
|
||
$this->address = $obj->address;
|
||
$this->cp = $obj->cp;
|
||
$this->ville = $obj->ville;
|
||
$this->pays = $obj->pays;
|
||
$this->code_pays = $obj->code;
|
||
|
||
$this->db->free($result);
|
||
|
||
return 1;
|
||
}
|
||
else
|
||
{
|
||
$this->error=$this->db->error();
|
||
return -1;
|
||
}
|
||
}
|
||
|
||
/**
|
||
* \brief Suppression d'une societe de la base avec ses d<>pendances (contacts, rib...)
|
||
* \param id id de la societe <20> supprimer
|
||
*/
|
||
function delete($id)
|
||
{
|
||
dolibarr_syslog("Societe::Delete");
|
||
$sqr = 0;
|
||
|
||
if ( $this->db->begin())
|
||
{
|
||
$sql = "DELETE from ".MAIN_DB_PREFIX."socpeople ";
|
||
$sql .= " WHERE fk_soc = " . $id .";";
|
||
|
||
if ($this->db->query($sql))
|
||
{
|
||
$sqr++;
|
||
}
|
||
else
|
||
{
|
||
$this->error .= "Impossible de supprimer les contacts.\n";
|
||
dolibarr_syslog("Societe::Delete erreur -1");
|
||
}
|
||
|
||
$sql = "DELETE from ".MAIN_DB_PREFIX."societe_rib ";
|
||
$sql .= " WHERE fk_soc = " . $id .";";
|
||
|
||
if ($this->db->query($sql))
|
||
{
|
||
$sqr++;
|
||
}
|
||
else
|
||
{
|
||
$this->error .= "Impossible de supprimer le RIB.\n";
|
||
dolibarr_syslog("Societe::Delete erreur -2");
|
||
}
|
||
|
||
$sql = "DELETE from ".MAIN_DB_PREFIX."societe ";
|
||
$sql .= " WHERE idp = " . $id .";";
|
||
|
||
if ($this->db->query($sql))
|
||
{
|
||
$sqr++;
|
||
}
|
||
else
|
||
{
|
||
$this->error .= "Impossible de supprimer la soci<63>t<EFBFBD>.\n";
|
||
dolibarr_syslog("Societe::Delete erreur -3");
|
||
}
|
||
|
||
if ($sqr == 3)
|
||
{
|
||
// Appel des triggers
|
||
include_once(DOL_DOCUMENT_ROOT . "/interfaces.class.php");
|
||
$interface=new Interfaces($this->db);
|
||
$result=$interface->run_triggers('COMPANY_DELETE',$this,$user,$langs,$conf);
|
||
// Fin appel triggers
|
||
|
||
$this->db->commit();
|
||
|
||
// Suppression du r<>pertoire document
|
||
$docdir = $conf->societe->dir_output . "/" . $id;
|
||
|
||
if (file_exists ($docdir))
|
||
{
|
||
$this->deldir($docdir);
|
||
}
|
||
|
||
return 0;
|
||
}
|
||
else
|
||
{
|
||
$this->db->rollback();
|
||
return -1;
|
||
}
|
||
}
|
||
|
||
}
|
||
|
||
/**
|
||
* \brief Cette fonction permet de supprimer le r<>pertoire de la societe
|
||
* et sous r<>pertoire, meme s'ils contiennent des documents.
|
||
* \param dir repertoire a supprimer
|
||
*/
|
||
function deldir($dir)
|
||
{
|
||
$current_dir = opendir($dir);
|
||
|
||
while($entryname = readdir($current_dir))
|
||
{
|
||
if(is_dir("$dir/$entryname") and ($entryname != "." and $entryname!=".."))
|
||
{
|
||
deldir("${dir}/${entryname}");
|
||
}
|
||
elseif($entryname != "." and $entryname!="..")
|
||
{
|
||
unlink("${dir}/${entryname}");
|
||
}
|
||
}
|
||
closedir($current_dir);
|
||
rmdir(${dir});
|
||
}
|
||
|
||
/**
|
||
* \brief Retournes les factures impay<61>es de la soci<63>t<EFBFBD>
|
||
* \return array tableau des id de factures impay<61>es
|
||
*
|
||
*/
|
||
function factures_impayes()
|
||
{
|
||
$facimp = array();
|
||
/*
|
||
* Lignes
|
||
*/
|
||
$sql = "SELECT f.rowid";
|
||
$sql .= " FROM ".MAIN_DB_PREFIX."facture as f WHERE f.fk_soc = '".$this->id . "'";
|
||
$sql .= " AND f.fk_statut = '1' AND f.paye = '0'";
|
||
|
||
if ($this->db->query($sql))
|
||
{
|
||
$num = $this->db->num_rows();
|
||
$i = 0;
|
||
|
||
while ($i < $num)
|
||
{
|
||
$objp = $this->db->fetch_object();
|
||
$array_push($facimp, $objp->rowid);
|
||
$i++;
|
||
print $i;
|
||
}
|
||
|
||
$this->db->free();
|
||
}
|
||
return $facimp;
|
||
}
|
||
|
||
/**
|
||
* \brief Attribut le prefix de la soci<63>t<EFBFBD> en base
|
||
*
|
||
*/
|
||
function attribute_prefix()
|
||
{
|
||
$sql = "SELECT nom FROM ".MAIN_DB_PREFIX."societe WHERE idp = '".$this->id."'";
|
||
$resql=$this->db->query( $sql);
|
||
if ($resql)
|
||
{
|
||
if ($this->db->num_rows($resql))
|
||
{
|
||
$obj=$this->db->fetch_object($resql);
|
||
$nom = preg_replace("/[[:punct:]]/","",$obj->nom);
|
||
$this->db->free();
|
||
|
||
$prefix = $this->genprefix($nom,4);
|
||
|
||
$sql = "SELECT count(*) as nb FROM ".MAIN_DB_PREFIX."societe WHERE prefix_comm = '$prefix'";
|
||
$resql=$this->db->query($sql);
|
||
if ($resql)
|
||
{
|
||
$obj=$this->db->fetch_object($resql);
|
||
$this->db->free($resql);
|
||
if (! $obj->nb)
|
||
{
|
||
$sql = "UPDATE ".MAIN_DB_PREFIX."societe set prefix_comm='$prefix' WHERE idp='$this->id'";
|
||
|
||
if ( $this->db->query( $sql) )
|
||
{
|
||
|
||
}
|
||
else
|
||
{
|
||
dolibarr_print_error($this->db);
|
||
}
|
||
}
|
||
}
|
||
else
|
||
{
|
||
dolibarr_print_error($this->db);
|
||
}
|
||
}
|
||
}
|
||
else
|
||
{
|
||
dolibarr_print_error($this->db);
|
||
}
|
||
return $prefix;
|
||
}
|
||
|
||
/**
|
||
* \brief G<>n<EFBFBD>re le pr<70>fix de la soci<63>t
|
||
* \param nom nom de la soci<63>t
|
||
* \param taille taille du prefix <20> retourner
|
||
* \param mot l'indice du mot <20> utiliser
|
||
*/
|
||
function genprefix($nom, $taille=4, $mot=0)
|
||
{
|
||
$retour = "";
|
||
$tab = explode(" ",$nom);
|
||
|
||
if ($mot < count($tab))
|
||
{
|
||
$prefix = strtoupper(substr($tab[$mot],0,$taille));
|
||
// On v<>rifie que ce prefix n'a pas d<>j<EFBFBD> <20>t<EFBFBD> pris ...
|
||
$sql = "SELECT count(*) as nb FROM ".MAIN_DB_PREFIX."societe WHERE prefix_comm = '$prefix'";
|
||
$resql=$this->db->query( $sql);
|
||
if ($resql)
|
||
{
|
||
$obj=$this->db->fetch_object($resql);
|
||
if ($obj->nb)
|
||
{
|
||
$this->db->free();
|
||
$retour = $this->genprefix($nom,$taille,$mot+1);
|
||
}
|
||
else
|
||
{
|
||
$retour = $prefix;
|
||
}
|
||
}
|
||
}
|
||
return $retour;
|
||
}
|
||
|
||
/**
|
||
* \brief D<>finit la soci<63>t<EFBFBD> comme un client
|
||
*
|
||
*/
|
||
function set_as_client()
|
||
{
|
||
if ($this->id)
|
||
{
|
||
$sql = "UPDATE ".MAIN_DB_PREFIX."societe ";
|
||
$sql .= " SET client = 1";
|
||
$sql .= " WHERE idp = " . $this->id .";";
|
||
|
||
return $this->db->query($sql);
|
||
}
|
||
}
|
||
|
||
/**
|
||
* \brief D<>finit la soci<63>t<EFBFBD> comme un client
|
||
* \param remise Valeur en % de la remise
|
||
* \param note Note/Motif de modification de la remise
|
||
* \param user Utilisateur qui d<>finie la remise
|
||
* \return int <0 si ko, >0 si ok
|
||
*/
|
||
function set_remise_client($remise, $note, $user)
|
||
{
|
||
global $langs;
|
||
|
||
// Nettoyage parametres
|
||
$note=trim($note);
|
||
if (! $note)
|
||
{
|
||
$this->error=$langs->trans("ErrorFieldRequired",$langs->trans("Note"));
|
||
return -2;
|
||
}
|
||
|
||
dolibarr_syslog("Societe::set_remise_client ".$remise.", ".$note.", ".$user->id);
|
||
|
||
if ($this->id)
|
||
{
|
||
$this->db->begin();
|
||
|
||
// Positionne remise courante
|
||
$sql = "UPDATE ".MAIN_DB_PREFIX."societe ";
|
||
$sql.= " SET remise_client = '".$remise."'";
|
||
$sql.= " WHERE idp = " . $this->id .";";
|
||
$resql=$this->db->query($sql);
|
||
if (! $resql)
|
||
{
|
||
$this->db->rollback();
|
||
$this->error=$this->db->error();
|
||
return -1;
|
||
}
|
||
|
||
// Ecrit trace dans historique des remises
|
||
$sql = "INSERT INTO ".MAIN_DB_PREFIX."societe_remise ";
|
||
$sql.= " (datec, fk_soc, remise_client, note, fk_user_author)";
|
||
$sql.= " VALUES (now(), ".$this->id.", '".$remise."',";
|
||
$sql.= " '".addslashes($note)."',";
|
||
$sql.= " ".$user->id;
|
||
$sql.= ")";
|
||
|
||
$resql=$this->db->query($sql);
|
||
if (! $resql)
|
||
{
|
||
$this->db->rollback();
|
||
$this->error=$this->db->error();
|
||
return -1;
|
||
}
|
||
|
||
$this->db->commit();
|
||
return 1;
|
||
}
|
||
}
|
||
|
||
/**
|
||
* \brief Ajoute une remise fixe pour la soci<63>t<EFBFBD>
|
||
* \param remise Montant de la remise
|
||
* \param user Utilisateur qui accorde la remise
|
||
* \param desc Motif de l'avoir
|
||
* \return int <0 si ko, id de la ligne de remise si ok
|
||
*/
|
||
function set_remise_except($remise, $user, $desc, $tva_tx=0)
|
||
{
|
||
global $langs;
|
||
|
||
// Nettoyage des parametres
|
||
$remise = price2num($remise);
|
||
$desc = trim($desc);
|
||
|
||
if (! $remise > 0)
|
||
{
|
||
$this->error=$langs->trans("ErrorWrongValueForParameter","1");
|
||
return -1;
|
||
}
|
||
if (! $desc)
|
||
{
|
||
$this->error=$langs->trans("ErrorWrongValueForParameter","3");
|
||
return -2;
|
||
}
|
||
|
||
if ($this->id)
|
||
{
|
||
$discount = new DiscountAbsolute($this->db);
|
||
$discount->fk_soc=$this->id;
|
||
$discount->amount_ht=$remise;
|
||
$discount->amount_tva=($remise*$tva_tx/100);
|
||
$discount->amount_ttc=$discount->amount_ht+$discount->amount_tva;
|
||
$discount->tva_tx=$tva_tx;
|
||
$discount->desc=$desc;
|
||
$result=$discount->create($user);
|
||
if ($result > 0)
|
||
{
|
||
return $result;
|
||
}
|
||
else
|
||
{
|
||
$this->error=$discount->error;
|
||
return -3;
|
||
}
|
||
}
|
||
else return 0;
|
||
}
|
||
|
||
/**
|
||
* \brief Supprime un avoir (<28> condition que non affect<63> <20> une facture)
|
||
* \param id Id de l'avoir <20> supprimer
|
||
* \return int <0 si ko, id de l'avoir si ok
|
||
*/
|
||
function del_remise_except($id)
|
||
{
|
||
if ($this->id)
|
||
{
|
||
$discount = new DiscountAbsolute($this->db);
|
||
$discount->fetch($id);
|
||
$result=$discount->delete();
|
||
return $result;
|
||
}
|
||
else return 0;
|
||
}
|
||
|
||
|
||
/**
|
||
* \brief Renvoie montant des avoirs en cours
|
||
* \param user Filtre sur un user auteur des l'avoir
|
||
* \return int <0 si ko, montant avoir sinon
|
||
*/
|
||
function getCurrentDiscount($user='')
|
||
{
|
||
$sql = "SELECT SUM(rc.amount_ht) as amount";
|
||
$sql.= " FROM ".MAIN_DB_PREFIX."societe_remise_except as rc";
|
||
$sql.= " WHERE rc.fk_soc =". $this->id;
|
||
if (is_object($user)) $sql.= " AND rc.fk_user = ".$user->id;
|
||
$sql.= " AND rc.fk_facture IS NULL";
|
||
$resql=$this->db->query($sql);
|
||
|
||
dolibarr_syslog("Societe::getCurrentDiscount sql=".$sql);
|
||
|
||
if ($resql)
|
||
{
|
||
$obj = $this->db->fetch_object($resql);
|
||
return $obj->amount;
|
||
}
|
||
return -1;
|
||
}
|
||
|
||
|
||
function set_price_level($price_level, $user)
|
||
{
|
||
if ($this->id)
|
||
{
|
||
$sql = "UPDATE ".MAIN_DB_PREFIX."societe ";
|
||
$sql .= " SET price_level = '".$price_level."'";
|
||
$sql .= " WHERE idp = " . $this->id .";";
|
||
|
||
$this->db->query($sql);
|
||
|
||
$sql = "INSERT INTO ".MAIN_DB_PREFIX."societe_prices ";
|
||
$sql .= " ( datec, fk_soc, price_level, fk_user_author )";
|
||
$sql .= " VALUES (now(),".$this->id.",'".$price_level."',".$user->id.")";
|
||
|
||
if (! $this->db->query($sql) )
|
||
{
|
||
dolibarr_print_error($this->db);
|
||
}
|
||
|
||
}
|
||
}
|
||
|
||
/**
|
||
*
|
||
*
|
||
*/
|
||
function add_commercial($user, $commid)
|
||
{
|
||
if ($this->id > 0 && $commid > 0)
|
||
{
|
||
$sql = "DELETE FROM ".MAIN_DB_PREFIX."societe_commerciaux ";
|
||
$sql .= " WHERE fk_soc = " . $this->id ." AND fk_user =".$commid;
|
||
|
||
$this->db->query($sql);
|
||
|
||
$sql = "INSERT INTO ".MAIN_DB_PREFIX."societe_commerciaux ";
|
||
$sql .= " ( fk_soc, fk_user )";
|
||
$sql .= " VALUES (".$this->id.",".$commid.")";
|
||
|
||
if (! $this->db->query($sql) )
|
||
{
|
||
dolibarr_syslog("Societe::add_commercial Erreur");
|
||
}
|
||
|
||
}
|
||
}
|
||
|
||
/**
|
||
*
|
||
*
|
||
*
|
||
*/
|
||
function del_commercial($user, $commid)
|
||
{
|
||
if ($this->id > 0 && $commid > 0)
|
||
{
|
||
$sql = "DELETE FROM ".MAIN_DB_PREFIX."societe_commerciaux ";
|
||
$sql .= " WHERE fk_soc = " . $this->id ." AND fk_user =".$commid;
|
||
|
||
if (! $this->db->query($sql) )
|
||
{
|
||
dolibarr_syslog("Societe::del_commercial Erreur");
|
||
}
|
||
|
||
}
|
||
}
|
||
|
||
|
||
/**
|
||
* \brief Renvoie nom clicable (avec eventuellement le picto)
|
||
* \param withpicto Inclut le picto dans le lien
|
||
* \param option Sur quoi pointe le lien
|
||
* \param maxlen Longueur max libelle
|
||
* \return string Chaine avec URL
|
||
*/
|
||
function getNomUrl($withpicto=0,$option='',$maxlen=0)
|
||
{
|
||
global $langs;
|
||
|
||
$result='';
|
||
|
||
if ($this->client == 1)
|
||
{
|
||
$lien = '<a href="'.DOL_URL_ROOT.'/comm/fiche.php?socid='.$this->id.'">';
|
||
$lienfin='</a>';
|
||
}
|
||
elseif($this->client == 2)
|
||
{
|
||
$lien= '<a href="'.DOL_URL_ROOT.'/comm/prospect/fiche.php?id='.$this->id.'">';
|
||
$lienfin='</a>';
|
||
}
|
||
else
|
||
{
|
||
$lien = '<a href="'.DOL_URL_ROOT.'/soc.php?socid='.$this->id.'">';
|
||
$lienfin='</a>';
|
||
}
|
||
|
||
if ($option == 'compta')
|
||
{
|
||
$lien = '<a href="'.DOL_URL_ROOT.'/compta/fiche.php?socid='.$this->id.'">';
|
||
$lienfin='</a>';
|
||
}
|
||
|
||
if ($withpicto) $result.=($lien.img_object($langs->trans("ShowCompany").': '.$this->nom,'company').$lienfin.' ');
|
||
$result.=$lien.($maxlen?dolibarr_trunc($this->nom,$maxlen):$this->nom).$lienfin;
|
||
return $result;
|
||
}
|
||
|
||
|
||
/**
|
||
* \brief Renvoie le nom d'une societe a partir d'un id
|
||
* \param id id de la soci<63>t<EFBFBD> recherch<63>e
|
||
* \return string Nom de la soci<63>t<EFBFBD>
|
||
*/
|
||
function get_nom($id)
|
||
{
|
||
|
||
$sql = "SELECT nom FROM ".MAIN_DB_PREFIX."societe WHERE idp='$id';";
|
||
|
||
$result = $this->db->query($sql);
|
||
|
||
if ($result)
|
||
{
|
||
if ($this->db->num_rows())
|
||
{
|
||
$obj = $this->db->fetch_object($result);
|
||
return $obj->nom;
|
||
}
|
||
$this->db->free();
|
||
}
|
||
else {
|
||
dolibarr_print_error($this->db);
|
||
}
|
||
|
||
}
|
||
|
||
|
||
/**
|
||
* \brief Renvoie la liste des contacts emails existant pour la soci<63>t
|
||
* \return array tableau des contacts emails
|
||
*/
|
||
function thirdparty_and_contact_email_array()
|
||
{
|
||
global $langs;
|
||
|
||
$contact_email = $this->contact_email_array();
|
||
if ($this->email)
|
||
{
|
||
// TODO: Tester si email non deja pr<70>sent dans tableau contact
|
||
$contact_email[-1]=$langs->trans("ThirdParty").': '.dolibarr_trunc($this->nom,16)." <".$this->email.">";;
|
||
}
|
||
return $contact_email;
|
||
}
|
||
|
||
/**
|
||
* \brief Renvoie la liste des contacts emails existant pour la soci<63>t<EFBFBD>
|
||
* \return array tableau des contacts emails
|
||
*/
|
||
function contact_email_array()
|
||
{
|
||
$contact_email = array();
|
||
|
||
$sql = "SELECT idp, email, name, firstname";
|
||
$sql.= " FROM ".MAIN_DB_PREFIX."socpeople";
|
||
$sql.= " WHERE fk_soc = '".$this->id."'";
|
||
$resql=$this->db->query($sql);
|
||
if ($resql)
|
||
{
|
||
$nump = $this->db->num_rows($resql);
|
||
if ($nump)
|
||
{
|
||
$i = 0;
|
||
while ($i < $nump)
|
||
{
|
||
$obj = $this->db->fetch_object($resql);
|
||
$contact_email[$obj->idp] = trim($obj->firstname." ".$obj->name)." <".$obj->email.">";
|
||
$i++;
|
||
}
|
||
}
|
||
}
|
||
else
|
||
{
|
||
dolibarr_print_error($this->db);
|
||
}
|
||
return $contact_email;
|
||
}
|
||
|
||
|
||
/**
|
||
* \brief Renvoie la liste des contacts de cette soci<63>t
|
||
* \return array tableau des contacts
|
||
*/
|
||
function contact_array()
|
||
{
|
||
$contacts = array();
|
||
|
||
$sql = "SELECT idp, name, firstname FROM ".MAIN_DB_PREFIX."socpeople WHERE fk_soc = '$this->id'";
|
||
$resql=$this->db->query($sql);
|
||
if ($resql)
|
||
{
|
||
$nump = $this->db->num_rows($resql);
|
||
if ($nump)
|
||
{
|
||
$i = 0;
|
||
while ($i < $nump)
|
||
{
|
||
$obj = $this->db->fetch_object($resql);
|
||
$contacts[$obj->idp] = "$obj->firstname $obj->name";
|
||
$i++;
|
||
}
|
||
}
|
||
}
|
||
else
|
||
{
|
||
dolibarr_print_error($this->db);
|
||
}
|
||
return $contacts;
|
||
}
|
||
|
||
/**
|
||
* \brief Renvoie l'email d'un contact depuis son id
|
||
* \param rowid id du contact
|
||
* \return string email du contact
|
||
*/
|
||
function contact_get_email($rowid)
|
||
{
|
||
|
||
$sql = "SELECT idp, email, name, firstname FROM ".MAIN_DB_PREFIX."socpeople WHERE idp = '$rowid'";
|
||
|
||
if ($this->db->query($sql) )
|
||
{
|
||
$nump = $this->db->num_rows();
|
||
|
||
if ($nump)
|
||
{
|
||
|
||
$obj = $this->db->fetch_object();
|
||
|
||
$contact_email = "$obj->firstname $obj->name <$obj->email>";
|
||
|
||
}
|
||
return $contact_email;
|
||
}
|
||
else
|
||
{
|
||
dolibarr_print_error($this->db);
|
||
}
|
||
|
||
}
|
||
|
||
|
||
/**
|
||
* \brief Renvoie la liste des libell<6C>s traduits des types actifs de soci<63>t<EFBFBD>s
|
||
* \param mode 0=renvoi id+libelle, 1=renvoi code+libelle
|
||
* \return array tableau des typesl
|
||
*/
|
||
function typent_array($mode=0)
|
||
{
|
||
global $langs;
|
||
|
||
$effs = array();
|
||
|
||
$sql = "SELECT id, code, libelle";
|
||
$sql .= " FROM ".MAIN_DB_PREFIX."c_typent";
|
||
$sql .= " WHERE active = 1";
|
||
$sql .= " ORDER by id";
|
||
$result=$this->db->query($sql);
|
||
if ($result)
|
||
{
|
||
$num = $this->db->num_rows($result);
|
||
$i = 0;
|
||
|
||
while ($i < $num)
|
||
{
|
||
$objp = $this->db->fetch_object($result);
|
||
if (! $mode) $key=$objp->id;
|
||
else $key=$objp->code;
|
||
|
||
if ($langs->trans($objp->code) != $objp->code)
|
||
$effs[$key] = $langs->trans($objp->code);
|
||
else
|
||
$effs[$key] = $objp->libelle!='-'?$objp->libelle:'';
|
||
$i++;
|
||
}
|
||
$this->db->free($result);
|
||
}
|
||
|
||
return $effs;
|
||
}
|
||
|
||
|
||
/**
|
||
* \brief Renvoie la liste des types d'effectifs possibles (pas de traduction car nombre)
|
||
* \param mode 0=renvoi id+libelle, 1=renvoi code+libelle
|
||
* \return array tableau des types d'effectifs
|
||
*/
|
||
function effectif_array($mode=0)
|
||
{
|
||
$effs = array();
|
||
|
||
$sql = "SELECT id, code, libelle";
|
||
$sql .= " FROM ".MAIN_DB_PREFIX."c_effectif";
|
||
$sql .= " ORDER BY id ASC";
|
||
if ($this->db->query($sql))
|
||
{
|
||
$num = $this->db->num_rows();
|
||
$i = 0;
|
||
|
||
while ($i < $num)
|
||
{
|
||
$objp = $this->db->fetch_object();
|
||
if (! $mode) $key=$objp->id;
|
||
else $key=$objp->code;
|
||
|
||
$effs[$key] = $objp->libelle!='-'?$objp->libelle:'';
|
||
$i++;
|
||
}
|
||
$this->db->free();
|
||
}
|
||
return $effs;
|
||
}
|
||
|
||
/**
|
||
* \brief Renvoie la liste des formes juridiques existantes (pas de traduction car unique au pays)
|
||
* \return array tableau des formes juridiques
|
||
*/
|
||
function forme_juridique_array()
|
||
{
|
||
$fj = array();
|
||
|
||
$sql = "SELECT code, libelle";
|
||
$sql .= " FROM ".MAIN_DB_PREFIX."c_forme_juridique";
|
||
$sql .= " ORDER BY code ASC";
|
||
if ($this->db->query($sql))
|
||
{
|
||
$num = $this->db->num_rows();
|
||
$i = 0;
|
||
|
||
while ($i < $num)
|
||
{
|
||
$objp = $this->db->fetch_object();
|
||
$fj[$objp->code] = $objp->libelle!='-'?$objp->libelle:'';
|
||
$i++;
|
||
}
|
||
$this->db->free();
|
||
}
|
||
return $fj;
|
||
}
|
||
|
||
|
||
/**
|
||
* \brief Affiche le rib
|
||
*/
|
||
function display_rib()
|
||
{
|
||
global $langs;
|
||
|
||
require_once DOL_DOCUMENT_ROOT . "/companybankaccount.class.php";
|
||
|
||
$bac = new CompanyBankAccount($this->db, $this->id);
|
||
$bac->fetch();
|
||
|
||
if ($bac->code_banque || $bac->code_guichet || $bac->number || $bac->cle_rib)
|
||
{
|
||
$rib = $bac->code_banque." ".$bac->code_guichet." ".$bac->number." (".$bac->cle_rib.")";
|
||
}
|
||
else
|
||
{
|
||
$rib=$langs->trans("NoRIB");
|
||
}
|
||
return $rib;
|
||
}
|
||
|
||
|
||
function rib()
|
||
{
|
||
require_once DOL_DOCUMENT_ROOT . "/companybankaccount.class.php";
|
||
|
||
$bac = new CompanyBankAccount($this->db, $this->id);
|
||
$bac->fetch();
|
||
|
||
$this->bank_account = $bac;
|
||
|
||
return 1;
|
||
}
|
||
|
||
|
||
function verif_rib()
|
||
{
|
||
$this->rib();
|
||
return $this->bank_account->verif();
|
||
}
|
||
|
||
|
||
/**
|
||
* \brief Verifie si un code client est modifiable dans configuration du module de controle des codes
|
||
* \return int 0=Non, 1=Oui
|
||
*/
|
||
function codeclient_modifiable()
|
||
{
|
||
global $conf;
|
||
if ($conf->global->SOCIETE_CODECLIENT_ADDON)
|
||
{
|
||
require_once DOL_DOCUMENT_ROOT.'/includes/modules/societe/'.$conf->global->SOCIETE_CODECLIENT_ADDON.'.php';
|
||
|
||
$var = $conf->global->SOCIETE_CODECLIENT_ADDON;
|
||
|
||
$mod = new $var;
|
||
|
||
dolibarr_syslog("Societe::codeclient_modifiable code_client=".$this->code_client." module=".$var);
|
||
if ($mod->code_modifiable_null && ! $this->code_fournisseur) return 1;
|
||
if ($mod->code_modifiable_invalide && $this->check_codeclient() < 0) return 1;
|
||
if ($mod->code_modifiable) return 1; // A mettre en dernier
|
||
return 0;
|
||
}
|
||
else
|
||
{
|
||
return 0;
|
||
}
|
||
}
|
||
|
||
|
||
/**
|
||
* \brief Verifie si un code fournisseur est modifiable dans configuration du module de controle des codes
|
||
* \return int 0=Non, 1=Oui
|
||
*/
|
||
function codefournisseur_modifiable()
|
||
{
|
||
global $conf;
|
||
if ($conf->global->SOCIETE_CODEFOURNISSEUR_ADDON)
|
||
{
|
||
require_once DOL_DOCUMENT_ROOT.'/includes/modules/societe/'.$conf->global->SOCIETE_CODEFOURNISSEUR_ADDON.'.php';
|
||
|
||
$var = $conf->global->SOCIETE_CODEFOURNISSEUR_ADDON;
|
||
|
||
$mod = new $var;
|
||
|
||
dolibarr_syslog("Societe::codefournisseur_modifiable code_founisseur=".$this->code_fournisseur." module=".$var);
|
||
if ($mod->code_modifiable_null && ! $this->code_fournisseur) return 1;
|
||
if ($mod->code_modifiable_invalide && $this->check_codefournisseur() < 0) return 1;
|
||
if ($mod->code_modifiable) return 1; // A mettre en dernier
|
||
return 0;
|
||
}
|
||
else
|
||
{
|
||
return 0;
|
||
}
|
||
}
|
||
|
||
|
||
/**
|
||
* \brief Verifie code client
|
||
* \return int <0 si KO, 0 si OK, peut modifier le code client suivant le module utilis<69>
|
||
*/
|
||
function check_codeclient()
|
||
{
|
||
global $conf;
|
||
if ($conf->global->SOCIETE_CODECLIENT_ADDON)
|
||
{
|
||
require_once DOL_DOCUMENT_ROOT.'/includes/modules/societe/'.$conf->global->SOCIETE_CODECLIENT_ADDON.'.php';
|
||
|
||
$var = $conf->global->SOCIETE_CODECLIENT_ADDON;
|
||
|
||
$mod = new $var;
|
||
|
||
dolibarr_syslog("Societe::check_codeclient code_client=".$this->code_client." module=".$var);
|
||
return $mod->verif($this->db, $this->code_client, $this);
|
||
}
|
||
else
|
||
{
|
||
return 0;
|
||
}
|
||
}
|
||
|
||
/**
|
||
* \brief Verifie code fournisseur
|
||
* \return int <0 si KO, 0 si OK, peut modifier le code client suivant le module utilis<69>
|
||
*/
|
||
function check_codefournisseur()
|
||
{
|
||
global $conf;
|
||
if ($conf->global->SOCIETE_CODEFOURNISSEUR_ADDON)
|
||
{
|
||
require_once DOL_DOCUMENT_ROOT.'/includes/modules/societe/'.$conf->global->SOCIETE_CODEFOURNISSEUR_ADDON.'.php';
|
||
|
||
$var = $conf->global->SOCIETE_CODEFOURNISSEUR_ADDON;
|
||
|
||
$mod = new $var;
|
||
|
||
dolibarr_syslog("Societe::check_codefournisseur code_fournisseur=".$this->code_fournisseur." module=".$var);
|
||
return $mod->verif($this->db, $this->code_fournisseur, $this);
|
||
}
|
||
else
|
||
{
|
||
return 0;
|
||
}
|
||
}
|
||
|
||
/**
|
||
* \brief Renvoie un code compta, suivant le module de code compta.
|
||
* Peut <20>tre identique <20> celui saisit ou g<>n<EFBFBD>r<EFBFBD> automatiquement.
|
||
* A ce jour seule la g<>n<EFBFBD>ration automatique est impl<70>ment<6E>e
|
||
* \param type Type de tiers ('customer' ou 'supplier')
|
||
* \return string Code compta si ok, 0 si aucun, <0 si ko
|
||
*/
|
||
function get_codecompta($type)
|
||
{
|
||
global $conf;
|
||
|
||
if ($conf->global->SOCIETE_CODECOMPTA_ADDON)
|
||
{
|
||
require_once DOL_DOCUMENT_ROOT.'/includes/modules/societe/'.$conf->global->SOCIETE_CODECOMPTA_ADDON.'.php';
|
||
|
||
$var = $conf->global->SOCIETE_CODECOMPTA_ADDON;
|
||
|
||
$mod = new $var;
|
||
|
||
// Defini code compta dans $mod->code
|
||
$result = $mod->get_code($this->db, $this, $type);
|
||
|
||
if ($type == 'customer') $this->code_compta = $mod->code;
|
||
if ($type == 'supplier') $this->code_compta_fournisseur = $mod->code;
|
||
|
||
return $result;
|
||
}
|
||
else
|
||
{
|
||
if ($type == 'customer') $this->code_compta = '';
|
||
if ($type == 'supplier') $this->code_compta_fournisseur = '';
|
||
|
||
return 0;
|
||
}
|
||
}
|
||
|
||
/**
|
||
* \brief D<>fini la soci<63>t<EFBFBD> m<>re pour les filiales
|
||
* \param id id compagnie m<>re <20> positionner
|
||
* \return int <0 si ko, >0 si ok
|
||
*/
|
||
function set_parent($id)
|
||
{
|
||
if ($this->id)
|
||
{
|
||
$sql = "UPDATE ".MAIN_DB_PREFIX."societe ";
|
||
$sql .= " SET parent = ".$id;
|
||
$sql .= " WHERE idp = " . $this->id .";";
|
||
|
||
if ( $this->db->query($sql) )
|
||
{
|
||
return 1;
|
||
}
|
||
else
|
||
{
|
||
return -1;
|
||
}
|
||
}
|
||
}
|
||
|
||
/**
|
||
* \brief Supprime la soci<63>t<EFBFBD> m<>re
|
||
* \param id id compagnie m<>re <20> effacer
|
||
* \return int <0 si ko, >0 si ok
|
||
*/
|
||
function remove_parent($id)
|
||
{
|
||
if ($this->id)
|
||
{
|
||
$sql = "UPDATE ".MAIN_DB_PREFIX."societe ";
|
||
$sql .= " SET parent = null";
|
||
$sql .= " WHERE idp = " . $this->id .";";
|
||
|
||
if ( $this->db->query($sql) )
|
||
{
|
||
return 1;
|
||
}
|
||
else
|
||
{
|
||
return -1;
|
||
}
|
||
}
|
||
}
|
||
|
||
/**
|
||
* \brief Verifie la validite d'un identifiant professionnel en
|
||
* fonction du pays de la societe (siren, siret, ...)
|
||
* \param idprof 1,2,3,4 (Exemple: 1=siren,2=siret,3=naf,4=rcs/rm)
|
||
* \param soc Objet societe
|
||
* \return int <0 si ko, >0 si ok
|
||
*/
|
||
function id_prof_check($idprof,$soc)
|
||
{
|
||
$ok=1;
|
||
|
||
// Verifie SIREN si pays FR
|
||
if ($idprof == 1 && $soc->pays_code == 'FR')
|
||
{
|
||
$chaine=trim($this->siren);
|
||
$chaine=eregi_replace(' ','',$chaine);
|
||
|
||
if (strlen($chaine) != 9) return -1;
|
||
|
||
$sum = 0;
|
||
|
||
for ($i = 0 ; $i < 10 ; $i = $i+2)
|
||
{
|
||
$sum = $sum + substr($this->siren, (8 - $i), 1);
|
||
}
|
||
|
||
for ($i = 1 ; $i < 9 ; $i = $i+2)
|
||
{
|
||
$ps = 2 * substr($this->siren, (8 - $i), 1);
|
||
|
||
if ($ps > 9)
|
||
{
|
||
$ps = substr($ps, 0,1) + substr($ps, 1 ,1);
|
||
}
|
||
$sum = $sum + $ps;
|
||
}
|
||
|
||
if (substr($sum, -1) != 0) return -1;
|
||
}
|
||
|
||
// Verifie SIRET si pays FR
|
||
if ($idprof == 2 && $soc->pays_code == 'FR')
|
||
{
|
||
$chaine=trim($this->siret);
|
||
$chaine=eregi_replace(' ','',$chaine);
|
||
|
||
if (strlen($chaine) != 14) return -1;
|
||
}
|
||
|
||
return $ok;
|
||
}
|
||
|
||
/**
|
||
* \brief Renvoi url de v<>rification d'un identifiant professionnal
|
||
* \param idprof 1,2,3,4 (Exemple: 1=siren,2=siret,3=naf,4=rcs/rm)
|
||
* \param soc Objet societe
|
||
* \return string url ou chaine vide si aucune url connue
|
||
*/
|
||
function id_prof_url($idprof,$soc)
|
||
{
|
||
global $langs;
|
||
|
||
$url='';
|
||
if ($idprof == 1 && $soc->pays_code == 'FR') $url='http://www.societe.com/cgi-bin/recherche?rncs='.$soc->siren;
|
||
if ($idprof == 1 && $soc->pays_code == 'GB') $url='http://www.companieshouse.gov.uk/WebCHeck/findinfolink/';
|
||
|
||
if ($url) return '<a target="_blank" href="'.$url.'">['.$langs->trans("Check").']</a>';
|
||
return '';
|
||
}
|
||
|
||
/**
|
||
* \brief Indique si la soci<63>t<EFBFBD> a des projets
|
||
* \return bool true si la soci<63>t<EFBFBD> a des projets, false sinon
|
||
*/
|
||
function has_projects()
|
||
{
|
||
$sql = 'SELECT COUNT(*) as numproj FROM '.MAIN_DB_PREFIX.'projet WHERE fk_soc = ' . $this->id;
|
||
$resql = $this->db->query($sql);
|
||
if ($resql)
|
||
{
|
||
$nump = $this->db->num_rows($resql);
|
||
$obj = $this->db->fetch_object();
|
||
$count = $obj->numproj;
|
||
}
|
||
else
|
||
{
|
||
$count = 0;
|
||
print $this->db->error();
|
||
}
|
||
$this->db->free($resql);
|
||
return ($count > 0);
|
||
}
|
||
|
||
|
||
function AddPerms($user_id, $read, $write, $perms)
|
||
{
|
||
$sql = "INSERT INTO ".MAIN_DB_PREFIX."societe_perms";
|
||
$sql .= " (fk_soc, fk_user, pread, pwrite, pperms) ";
|
||
$sql .= " VALUES (".$this->id.",".$user_id.",".$read.",".$write.",".$perms.");";
|
||
|
||
$resql=$this->db->query($sql);
|
||
if ($resql)
|
||
{
|
||
|
||
}
|
||
}
|
||
|
||
/*
|
||
* \brief Charge les informations d'ordre info dans l'objet societe
|
||
* \param id id de la societe a charger
|
||
*/
|
||
function info($id)
|
||
{
|
||
$sql = "SELECT s.idp, s.nom, ".$this->db->pdate("datec")." as datec, ".$this->db->pdate("datea")." as datea,";
|
||
$sql.= " fk_user_creat, fk_user_modif";
|
||
$sql.= " FROM ".MAIN_DB_PREFIX."societe as s";
|
||
$sql.= " WHERE s.idp = ".$id;
|
||
|
||
$result=$this->db->query($sql);
|
||
if ($result)
|
||
{
|
||
if ($this->db->num_rows($result))
|
||
{
|
||
$obj = $this->db->fetch_object($result);
|
||
|
||
$this->id = $obj->idp;
|
||
|
||
if ($obj->fk_user_creat) {
|
||
$cuser = new User($this->db, $obj->fk_user_creat);
|
||
$cuser->fetch();
|
||
$this->user_creation = $cuser;
|
||
}
|
||
|
||
if ($obj->fk_user_modif) {
|
||
$muser = new User($this->db, $obj->fk_user_modif);
|
||
$muser->fetch();
|
||
$this->user_modification = $muser;
|
||
}
|
||
$this->ref = $obj->nom;
|
||
$this->date_creation = $obj->datec;
|
||
$this->date_modification = $obj->datea;
|
||
}
|
||
|
||
$this->db->free($result);
|
||
|
||
}
|
||
else
|
||
{
|
||
dolibarr_print_error($this->db);
|
||
}
|
||
}
|
||
|
||
/*
|
||
* \brief Renvoi si pays appartient <20> CEE
|
||
* \param boolean true = pays dans CEE, false= pays hors CEE
|
||
*/
|
||
function isInEEC()
|
||
{
|
||
// \todo liste code pays <20> compl<70>ter
|
||
$country_code_in_EEC=array('BE','FR','LU');
|
||
//print "dd".$this->pays_code;
|
||
return in_array($this->pays_code,$country_code_in_EEC);
|
||
}
|
||
/*
|
||
* \brief Charge la liste des categories fournisseurs
|
||
* \return 0 in success, <> 0 in error
|
||
*/
|
||
function LoadSupplierCateg()
|
||
{
|
||
$this->SupplierCategories = array();
|
||
$sql = "SELECT rowid, label";
|
||
$sql.= " FROM ".MAIN_DB_PREFIX."fournisseur_categorie;";
|
||
|
||
$resql=$this->db->query($sql);
|
||
if ($resql)
|
||
{
|
||
while ($obj = $this->db->fetch_object($resql) )
|
||
{
|
||
$this->SupplierCategories[$obj->rowid] = $obj->label;
|
||
}
|
||
return 0;
|
||
}
|
||
else
|
||
{
|
||
return -1;
|
||
}
|
||
}
|
||
/*
|
||
* \brief Charge la liste des categories fournisseurs
|
||
* \return 0 in success, <> 0 in error
|
||
*/
|
||
function AddFournisseurInCategory($categorie_id)
|
||
{
|
||
if ($categorie_id > 0)
|
||
{
|
||
$sql = "INSERT INTO ".MAIN_DB_PREFIX."categorie_fournisseur (fk_categorie, fk_societe) ";
|
||
$sql.= " VALUES ('".$categorie_id."','".$this->id."');";
|
||
|
||
if ($resql=$this->db->query($sql))
|
||
return 0;
|
||
}
|
||
else
|
||
{
|
||
return 0;
|
||
}
|
||
return -1;
|
||
}
|
||
|
||
}
|
||
|
||
?>
|