diff --git a/htdocs/societe/class/societe.class.php b/htdocs/societe/class/societe.class.php
index f88f0c492dc..e2addb98ded 100644
--- a/htdocs/societe/class/societe.class.php
+++ b/htdocs/societe/class/societe.class.php
@@ -38,1904 +38,1904 @@ require_once(DOL_DOCUMENT_ROOT."/core/class/commonobject.class.php");
*/
class Societe extends CommonObject
{
- var $db;
- var $error;
- var $errors=array();
- var $element='societe';
- var $table_element = 'societe';
- var $ismultientitymanaged = 1; // 0=No test on entity, 1=Test with field entity, 2=Test with link by societe
-
- var $id;
- var $nom;
- var $nom_particulier;
- var $prenom;
- var $particulier;
- var $address;
- var $adresse; // TODO obsolete
- var $cp;
- var $ville;
-
- var $departement_id;
- var $departement_code;
- var $departement;
-
- var $pays_id;
- var $pays_code;
- var $pays; // TODO obsolete
- var $country;
-
- var $tel;
- var $fax;
- var $email;
- var $url;
- var $gencod;
-
- // 4 identifiants professionnels (leur utilisation depend du pays)
- var $siren; // IdProf1 - Deprecated
- var $siret; // IdProf2 - Deprecated
- var $ape; // IdProf3 - Deprecated
- var $idprof1; // IdProf1
- var $idprof2; // IdProf2
- var $idprof3; // IdProf3
- var $idprof4; // IdProf4
-
- var $prefix_comm;
-
- var $tva_assuj;
- var $tva_intra;
-
- // Local taxes
- var $localtax1_assuj;
- var $localtax2_assuj;
-
- var $capital;
- var $typent_id;
- var $typent_code;
- var $effectif_id;
- var $forme_juridique_code;
- var $forme_juridique;
-
- var $remise_percent;
- var $mode_reglement_id;
- var $cond_reglement_id;
- var $remise_client; // TODO obsolete
- var $mode_reglement; // TODO obsolete
- var $cond_reglement; // TODO obsolete
-
- var $client; // 0=no customer, 1=customer, 2=prospect
- var $prospect; // 0=no prospect, 1=prospect
- var $fournisseur; // =0no supplier, 1=supplier
-
- var $prefixCustomerIsRequired;
- var $prefixSupplierIsRequired;
- 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 $datec;
- var $date_update;
-
- var $commercial_id; //Id du commercial affecte
- var $default_lang;
-
- var $canvas;
-
- var $import_key;
-
- var $logo;
- var $logo_small;
- var $logo_mini;
-
- /**
- * \brief Constructeur de la classe
- * \param DB handler acces base de donnees
- * \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;
- $this->prefixCustomerIsRequired = 0;
- $this->prefixSupplierIsRequired = 0;
- $this->tva_assuj = 1;
-
- return 1;
- }
-
-
- /**
- * \brief Create third party in database
- * \param user Object of user that ask creation
- * \return int >= 0 if OK, < 0 if KO
- */
- function create($user='')
- {
- global $langs,$conf;
-
- // Clean parameters
- $this->nom=trim($this->nom);
-
- dol_syslog("Societe::create ".$this->nom);
-
- // Check parameters
- if (! empty($conf->global->SOCIETE_MAIL_REQUIRED) && ! isValidEMail($this->email))
- {
- $langs->load("errors");
- $this->error = $langs->trans("ErrorBadEMail",$this->email);
- return -1;
- }
-
- if (empty($this->canvas)) $this->canvas = 'default';
-
- $this->db->begin();
-
- // For automatic creation during create action (not used by Dolibarr GUI, can be used by scripts)
- if ($this->code_client == -1) $this->get_codeclient($this->prefix_comm,0);
- if ($this->code_fournisseur == -1) $this->get_codefournisseur($this->prefix_comm,1);
-
- $now=dol_now();
-
- // Check more parameters
- $result = $this->verify();
-
- if ($result >= 0)
- {
- $sql = "INSERT INTO ".MAIN_DB_PREFIX."societe (nom, entity, datec, datea, fk_user_creat, canvas)";
- $sql.= " VALUES ('".$this->db->escape($this->nom)."', ".$conf->entity.", '".$this->db->idate($now)."', '".$this->db->idate($now)."'";
- $sql.= ", ".($user->id > 0 ? "'".$user->id."'":"null");
- $sql.= ", '".$this->canvas."'";
- $sql.= ")";
-
- dol_syslog("Societe::create sql=".$sql);
- $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 cree un client il lui est affecte automatiquement
- if (!$user->rights->societe->client->voir)
- {
- $this->add_commercial($user, $user->id);
- }
- // Ajout du commercial affecte
- 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 . "/core/class/interfaces.class.php");
- $interface=new Interfaces($this->db);
- $result=$interface->run_triggers('COMPANY_CREATE',$this,$user,$langs,$conf);
- if ($result < 0) { $error++; $this->errors=$interface->errors; }
- // Fin appel triggers
-
- dol_syslog("Societe::Create success id=".$this->id);
- $this->db->commit();
- return 0;
- }
- else
- {
- dol_syslog("Societe::Create echec update ".$this->error);
- $this->db->rollback();
- return -3;
- }
- }
- else
- {
- if ($this->db->errno() == 'DB_ERROR_RECORD_ALREADY_EXISTS')
- {
-
- $this->error=$langs->trans("ErrorCompanyNameAlreadyExists",$this->nom);
- }
- else
- {
- $this->error=$this->db->lasterror();
- dol_syslog("Societe::Create echec insert sql=".$sql);
- }
- $this->db->rollback();
- return -2;
- }
-
- }
- else
- {
- $this->db->rollback();
- dol_syslog("Societe::Create echec verify ".join(',',$this->errors));
- return -1;
- }
- }
-
- /**
- * \brief Check properties of third party are ok (like name, third party codes, ...)
- * \return int 0 if OK, <0 if KO
- */
- function verify()
- {
- $this->errors=array();
-
- $result = 0;
- $this->nom=trim($this->nom);
-
- if (! $this->nom)
- {
- $this->errors[] = 'ErrorBadThirdPartyName';
- $result = -2;
- }
-
- if ($this->client && $this->codeclient_modifiable())
- {
- // On ne verifie le code client que si la societe est un client / prospect et que le code est modifiable
- // Si il n'est pas modifiable il n'est pas mis a jour lors de l'update
- $rescode = $this->check_codeclient();
- if ($rescode <> 0)
- {
- if ($rescode == -1)
- {
- $this->errors[] = 'ErrorBadCustomerCodeSyntax';
- }
- if ($rescode == -2)
- {
- $this->errors[] = 'ErrorCustomerCodeRequired';
- }
- if ($rescode == -3)
- {
- $this->errors[] = 'ErrorCustomerCodeAlreadyUsed';
- }
- if ($rescode == -4)
- {
- $this->errors[] = 'ErrorPrefixRequired';
- }
- $result = -3;
- }
- }
-
- if ($this->fournisseur && $this->codefournisseur_modifiable())
- {
- // On ne verifie le code fournisseur que si la societe est un fournisseur et que le code est modifiable
- // Si il n'est pas modifiable il n'est pas mis a jour lors de l'update
- $rescode = $this->check_codefournisseur();
- if ($rescode <> 0)
- {
- if ($rescode == -1)
- {
- $this->errors[] = 'ErrorBadSupplierCodeSyntax';
- }
- if ($rescode == -2)
- {
- $this->errors[] = 'ErrorSupplierCodeRequired';
- }
- if ($rescode == -3)
- {
- $this->errors[] = 'ErrorSupplierCodeAlreadyUsed';
- }
- if ($rescode == -5)
- {
- $this->errors[] = 'ErrorprefixRequired';
- }
- $result = -3;
- }
- }
-
- return $result;
- }
-
- /**
- * \brief Update parameters of third party
- * \param id id societe
- * \param user Utilisateur qui demande la mise a jour
- * \param call_trigger 0=non, 1=oui
- * \param allowmodcodeclient Inclut modif code client et code compta
- * \param allowmodcodefournisseur Inclut modif code fournisseur et code compta fournisseur
- * \return int <0 si ko, >=0 si ok
- */
- function update($id, $user='', $call_trigger=1, $allowmodcodeclient=0, $allowmodcodefournisseur=0)
- {
- require_once(DOL_DOCUMENT_ROOT."/lib/functions2.lib.php");
-
- global $langs,$conf;
-
- dol_syslog("Societe::Update id=".$id." call_trigger=".$call_trigger." allowmodcodeclient=".$allowmodcodeclient." allowmodcodefournisseur=".$allowmodcodefournisseur);
-
- // Clean parameters
- $this->id=$id;
- $this->capital=trim($this->capital);
- $this->nom=trim($this->nom);
- $this->adresse=trim($this->adresse); // TODO obsolete
- $this->address=trim($this->address);
- $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 = preg_replace("/\s/","",$this->tel);
- $this->tel = preg_replace("/\./","",$this->tel);
- $this->fax = preg_replace("/\s/","",$this->fax);
- $this->fax = preg_replace("/\./","",$this->fax);
- $this->email=trim($this->email);
- $this->url=$this->url?clean_url($this->url,0):'';
- $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=dol_sanitizeFileName($this->tva_intra,'');
-
- // Local taxes
- $this->localtax1_assuj=trim($this->localtax1_assuj);
- $this->localtax2_assuj=trim($this->localtax2_assuj);
-
- $this->capital=trim($this->capital);
- if (dol_strlen($this->capital) == 0) $this->capital = 0;
-
- $this->effectif_id=trim($this->effectif_id);
- $this->forme_juridique_code=trim($this->forme_juridique_code);
-
- //Gencod
- $this->gencod=trim($this->gencod);
-
- // For automatic creation
- if ($this->code_client == -1) $this->get_codeclient($this->prefix_comm,0);
- if ($this->code_fournisseur == -1) $this->get_codefournisseur($this->prefix_comm,1);
-
- $this->code_compta=trim($this->code_compta);
- $this->code_compta_fournisseur=trim($this->code_compta_fournisseur);
-
- // Check parameters
- if (! empty($conf->global->SOCIETE_MAIL_REQUIRED) && ! isValidEMail($this->email))
- {
- $langs->load("errors");
- $this->error = $langs->trans("ErrorBadEMail",$this->email);
- return -1;
- }
-
- // Check name is required and codes are ok or unique.
- // If error, this->errors[] is filled
- $result = $this->verify();
-
- if ($result >= 0)
- {
- dol_syslog("Societe::Update verify ok");
-
- $sql = "UPDATE ".MAIN_DB_PREFIX."societe";
- $sql.= " SET nom = '" . addslashes($this->nom) ."'"; // Champ obligatoire
- $sql.= ",datea = '".$this->db->idate(mktime())."'";
- $sql.= ",address = '" . addslashes($this->address) ."'";
-
- $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!=''?"'".$this->tva_assuj."'":"null");
- $sql .= ",tva_intra = '" . addslashes($this->tva_intra) ."'";
-
- // Local taxes
- $sql .= ",localtax1_assuj = ".($this->localtax1_assuj!=''?"'".$this->localtax1_assuj."'":"null");
- $sql .= ",localtax2_assuj = ".($this->localtax2_assuj!=''?"'".$this->localtax2_assuj."'":"null");
-
- $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."'":"0");
-
- $sql .= ",fk_forme_juridique = ".($this->forme_juridique_code?"'".$this->forme_juridique_code."'":"null");
-
- $sql .= ",client = " . $this->client;
- $sql .= ",fournisseur = " . $this->fournisseur;
- $sql .= ",gencod = ".($this->gencod?"'".$this->gencod."'":"null");
- $sql .= ",default_lang = ".($this->default_lang?"'".$this->default_lang."'":"null");
-
-
- if ($allowmodcodeclient)
- {
- //$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
- if (empty($this->code_compta)) $this->get_codecompta('customer');
-
- $sql .= ", code_compta = ".($this->code_compta?"'".addslashes($this->code_compta)."'":"null");
- }
-
- if ($allowmodcodefournisseur)
- {
- //$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
- if (empty($this->code_compta_fournisseur)) $this->get_codecompta('supplier');
-
- $sql .= ", code_compta_fournisseur = ".($this->code_compta_fournisseur?"'".addslashes($this->code_compta_fournisseur)."'":"null");
- }
- $sql .= ", fk_user_modif = ".($user->id > 0 ? "'".$user->id."'":"null");
- $sql .= " WHERE rowid = '" . $id ."'";
-
-
- dol_syslog("Societe::update sql=".$sql);
- $resql=$this->db->query($sql);
- if ($resql)
- {
- // Si le fournisseur est classe on l'ajoute
- $this->AddFournisseurInCategory($this->fournisseur_categorie);
-
- if ($call_trigger)
- {
- // Appel des triggers
- include_once(DOL_DOCUMENT_ROOT . "/core/class/interfaces.class.php");
- $interface=new Interfaces($this->db);
- $result=$interface->run_triggers('COMPANY_MODIFY',$this,$user,$langs,$conf);
- if ($result < 0) { $error++; $this->errors=$interface->errors; }
- // 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);
- dol_syslog("Societe::Update echec sql=".$sql);
- $result = -2;
- }
- }
- }
-
- return $result;
-
- }
-
- /**
- * \brief Load a third party from database into memory
- * \param socid Id third party to load
- * \param ref Name of third party (Warning, this can return several records)
- * \return int >0 if OK, <0 if KO or if two records found for same ref.
- */
- function fetch($socid, $ref='')
- {
- global $langs;
- global $conf;
-
- if (empty($socid) && empty($ref)) return -1;
-
- // Init data for telephonie module
- if ($conf->telephonie->enabled && $user && $user->id)
- {
- /* Lecture des permissions */
- $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.rowid, s.nom, s.entity, s.address, s.datec as dc, s.prefix_comm';
- $sql .= ', s.price_level';
- $sql .= ', s.tms as date_update';
- $sql .= ', s.tel, s.fax, s.email, s.url, s.cp, s.ville, s.note, s.client, s.fournisseur';
- $sql .= ', s.siren, s.siret, s.ape, s.idprof4';
- $sql .= ', s.capital, s.tva_intra';
- $sql .= ', s.fk_typent as typent_id';
- $sql .= ', s.fk_effectif as effectif_id';
- $sql .= ', s.fk_forme_juridique as forme_juridique_code';
- $sql .= ', s.code_client, s.code_fournisseur, s.code_compta, s.code_compta_fournisseur, s.parent, s.gencod';
- $sql .= ', s.fk_departement, s.fk_pays, s.fk_stcomm, s.remise_client, s.mode_reglement, s.cond_reglement, s.tva_assuj';
- $sql .= ', s.localtax1_assuj, s.localtax2_assuj, s.fk_prospectlevel, s.default_lang';
- $sql .= ', s.import_key';
- $sql .= ', fj.libelle as forme_juridique';
- $sql .= ', e.libelle as effectif';
- $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 .= ', te.code as typent_code';
- $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 .= ' LEFT JOIN '.MAIN_DB_PREFIX.'c_typent as te ON s.fk_typent = te.id';
- if ($socid) $sql .= ' WHERE s.rowid = '.$socid;
- if ($ref) $sql .= " WHERE s.nom = '".addslashes($ref)."' AND s.entity = ".$conf->entity;
-
- $resql=$this->db->query($sql);
- dol_syslog("Societe::fetch ".$sql);
- if ($resql)
- {
- $num=$this->db->num_rows($resql);
- if ($num > 1)
- {
- $this->error='Societe::Fetch several records found for ref='.$ref;
- dol_syslog($this->error, LOG_ERR);
- $result = -1;
- }
- if ($num)
- {
- $obj = $this->db->fetch_object($resql);
-
- $this->id = $obj->rowid;
- $this->ref = $obj->rowid;
- $this->entity = $obj->entity;
-
- $this->datec = $this->db->jdate($obj->datec);
- $this->date_update = $this->db->jdate($obj->date_update);
-
- $this->nom = $obj->nom; // TODO obsolete
- $this->name = $obj->nom;
- $this->address = $obj->address;
- $this->adresse = $obj->address; // TODO obsolete
- $this->cp = $obj->cp; // TODO obsolete
- $this->zip = $obj->cp;
- $this->ville = $obj->ville;// TODO obsolete
- $this->town = $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):''; // TODO obsolete
- $this->country = $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; // TODO obsolete
- $this->phone = $obj->tel;
- $this->fax = $obj->fax;
-
- $this->parent = $obj->parent;
-
- $this->siren = $obj->siren; // TODO obsolete
- $this->idprof1 = $obj->siren;
- $this->siret = $obj->siret; // TODO obsolete
- $this->idprof2 = $obj->siret;
- $this->ape = $obj->ape; // TODO obsolete
- $this->idprof3 = $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->gencod = $obj->gencod;
-
- $this->tva_assuj = $obj->tva_assuj;
- $this->tva_intra = $obj->tva_intra;
-
- // Local Taxes
- $this->localtax1_assuj = $obj->localtax1_assuj;
- $this->localtax2_assuj = $obj->localtax2_assuj;
-
-
- $this->typent_id = $obj->typent_id;
- $this->typent_code = $obj->typent_code;
-
- $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->fk_prospectlevel = $obj->fk_prospectlevel;
-
- $this->prefix_comm = $obj->prefix_comm;
-
- $this->remise_percent = $obj->remise_client;
- $this->mode_reglement_id = $obj->mode_reglement;
- $this->cond_reglement_id = $obj->cond_reglement;
- $this->remise_client = $obj->remise_client; // TODO obsolete
- $this->mode_reglement = $obj->mode_reglement; // TODO obsolete
- $this->cond_reglement = $obj->cond_reglement; // TODO obsolete
-
- $this->client = $obj->client;
- $this->fournisseur = $obj->fournisseur;
-
- $this->note = $obj->note;
- $this->default_lang = $obj->default_lang;
-
- // multiprix
- $this->price_level = $obj->price_level;
-
- $this->import_key = $obj->import_key;
-
- $result = 1;
- }
- else
- {
- $this->error='Societe::Fetch no third party found for id='.$socid;
- dol_syslog($this->error, LOG_ERR);
- $result = -2;
- }
-
- $this->db->free($resql);
- }
- else
- {
- dol_syslog('Erreur Societe::Fetch '.$this->db->error(), LOG_ERR);
- $this->error=$this->db->error();
- $result = -3;
- }
-
- // Use first price level if level not defined for third party
- if ($conf->global->PRODUIT_MULTIPRICES && empty($this->price_level)) $this->price_level=1;
-
- return $result;
- }
-
- /**
- * Lit une adresse
- * TODO: utiliser la classe address
- */
- function fetch_address($id)
- {
- global $conf,$langs;
-
- $sql = "SELECT l.rowid, l.label, l.fk_soc, l.name, l.address, l.cp";
- $sql .= ", l.tms as dm, l.datec as dc";
- $sql .= ", l.ville, l.fk_pays, l.note, l.tel, l.fax";
- $sql .= ", p.libelle as pays, p.code as pays_code, s.nom as socname";
- $sql .= " FROM ".MAIN_DB_PREFIX."societe_address 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_soc = s.rowid";
- $sql .= " WHERE l.rowid = ".$id;
-
- $result = $this->db->query($sql) ;
-
- if ( $result )
- {
- $obj = $this->db->fetch_object($result);
-
- $this->id = $obj->rowid;
- $this->datec = $this->db->jdate($obj->dc);
- $this->datem = $this->db->jdate($obj->dm);
- $this->label = $obj->label;
- $this->socid = $obj->fk_soc;
- $this->societe = $obj->socname;
- $this->name = $obj->name;
- $this->address = $obj->address;
- $this->cp = $obj->cp;
- $this->ville = $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->tel = $obj->tel;
- $this->fax = $obj->fax;
- $this->note = $obj->note;
-
-
- $this->db->free($result);
-
- return 1;
- }
- else
- {
- $this->error=$this->db->error();
- return -1;
- }
- }
-
- /**
- * \brief Suppression d'une societe de la base avec ses dependances (contacts, rib...)
- * \param id id de la societe a supprimer
- */
- function delete($id)
- {
- global $user,$langs,$conf;
-
- dol_syslog("Societe::Delete", LOG_DEBUG);
- $sqr = 0;
-
- // Check if third party can be deleted
- $nbpropal=0;
- $sql = "SELECT COUNT(*) as nb from ".MAIN_DB_PREFIX."propal";
- $sql.= " WHERE fk_soc = " . $id;
- $resql=$this->db->query($sql);
- if ($resql)
- {
- $obj=$this->db->fetch_object($resql);
- $nbpropal=$obj->nb;
- if ($nbpropal > 0)
- {
- $this->error="ErrorRecordHasChildren";
- return -1;
- }
- }
- else
- {
- $this->error .= $this->db->lasterror();
- dol_syslog("Societe::Delete erreur -1 ".$this->error, LOG_ERR);
- return -1;
- }
-
-
-
- if ($this->db->begin())
- {
- // Added by Matelli (see http://matelli.fr/showcases/patchs-dolibarr/fix-third-party-deleting.html)
- // Removing every "categorie" link with this company
- require_once(DOL_DOCUMENT_ROOT."/categories/class/categorie.class.php");
-
- $static_cat = new Categorie($this->db);
- $toute_categs = array();
-
- // Fill $toute_categs array with an array of (type => array of ("Categorie" instance))
- if ($this->client || $this->prospect)
- {
- $toute_categs ['societe'] = $static_cat->containing($this->id,2);
- }
- if ($this->fournisseur)
- {
- $toute_categs ['fournisseur'] = $static_cat->containing($this->id,1);
- }
-
- // Remove each "Categorie"
- foreach ($toute_categs as $type => $categs_type)
- {
- foreach ($categs_type as $cat)
- {
- $cat->del_type($this, $type);
- }
- }
-
- // Remove contacts
- $sql = "DELETE from ".MAIN_DB_PREFIX."socpeople";
- $sql.= " WHERE fk_soc = " . $id;
- dol_syslog("Societe::Delete sql=".$sql, LOG_DEBUG);
- if ($this->db->query($sql))
- {
- $sqr++;
- }
- else
- {
- $this->error .= $this->db->lasterror();
- dol_syslog("Societe::Delete erreur -1 ".$this->error, LOG_ERR);
- }
-
- // Update link in member table
- $sql = "UPDATE ".MAIN_DB_PREFIX."adherent";
- $sql.= " SET fk_soc = NULL where fk_soc = " . $id;
- dol_syslog("Societe::Delete sql=".$sql, LOG_DEBUG);
- if ($this->db->query($sql))
- {
- $sqr++;
- }
- else
- {
- $this->error .= $this->db->lasterror();
- dol_syslog("Societe::Delete erreur -1 ".$this->error, LOG_ERR);
- }
-
- // Remove ban
- $sql = "DELETE from ".MAIN_DB_PREFIX."societe_rib";
- $sql.= " WHERE fk_soc = " . $id;
- dol_syslog("Societe::Delete sql=".$sql, LOG_DEBUG);
- if ($this->db->query($sql))
- {
- $sqr++;
- }
- else
- {
- $this->error = $this->db->lasterror();
- dol_syslog("Societe::Delete erreur -2 ".$this->error, LOG_ERR);
- }
-
- // Remove third party
- $sql = "DELETE from ".MAIN_DB_PREFIX."societe";
- $sql.= " WHERE rowid = " . $id;
- dol_syslog("Societe::Delete sql=".$sql, LOG_DEBUG);
- if ($this->db->query($sql))
- {
- $sqr++;
- }
- else
- {
- $this->error = $this->db->lasterror();
- dol_syslog("Societe::Delete erreur -3 ".$this->error, LOG_ERR);
- }
-
- if ($sqr == 4)
- {
- // Appel des triggers
- include_once(DOL_DOCUMENT_ROOT . "/core/class/interfaces.class.php");
- $interface=new Interfaces($this->db);
- $result=$interface->run_triggers('COMPANY_DELETE',$this,$user,$langs,$conf);
- if ($result < 0) { $error++; $this->errors=$interface->errors; }
- // Fin appel triggers
-
- $this->db->commit();
-
- // Suppression du repertoire document
- $docdir = $conf->societe->dir_output . "/" . $id;
- if (file_exists ($docdir))
- {
- dol_delete_dir_recursive($docdir);
- }
-
- return 0;
- }
- else
- {
- $this->db->rollback();
- return -1;
- }
- }
-
- }
-
-
- /**
- * \brief Retournes les factures impayees de la societe
- * \return array tableau des id de factures impayees
- *
- */
- 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'";
-
- $resql=$this->db->query($sql);
- if ($resql)
- {
- $num = $this->db->num_rows($resql);
- $i = 0;
-
- while ($i < $num)
- {
- $objp = $this->db->fetch_object($resql);
- $array_push($facimp, $objp->rowid);
- $i++;
- print $i;
- }
-
- $this->db->free();
- }
- return $facimp;
- }
-
- /**
- * \brief Attribut le prefix de la societe en base
- *
- */
- function attribute_prefix()
- {
- global $conf;
-
- $sql = "SELECT nom FROM ".MAIN_DB_PREFIX."societe WHERE rowid = '".$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";
- $sql.= " WHERE prefix_comm = '".$prefix."'";
- $sql.= " AND entity = ".$conf->entity;
-
- $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 rowid='".$this->id."'";
-
- if ( $this->db->query( $sql) )
- {
-
- }
- else
- {
- dol_print_error($this->db);
- }
- }
- }
- else
- {
- dol_print_error($this->db);
- }
- }
- }
- else
- {
- dol_print_error($this->db);
- }
- return $prefix;
- }
-
- /**
- * \brief Genere le prefix de la societe
- * \param nom nom de la societe
- * \param taille taille du prefix a retourner
- * \param mot l'indice du mot a utiliser
- */
- function genprefix($nom, $taille=4, $mot=0)
- {
- $retour = "";
- $tab = explode(" ",$nom);
-
- if ($mot < count($tab))
- {
- $prefix = strtoupper(substr($tab[$mot],0,$taille));
-
- // On verifie que ce prefix n'a pas deja ete pris ...
- $sql = "SELECT count(*) as nb FROM ".MAIN_DB_PREFIX."societe";
- $sql.= " WHERE prefix_comm = '".$prefix."'";
- $sql.= " AND entity = ".$conf->entity;
-
- $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 Define third party as a customer
- * \return int <0 if KO, >0 if OK
- */
- function set_as_client()
- {
- if ($this->id)
- {
- $newclient=1;
- if ($this->client == 2 || $this->client == 3) $newclient=3; //If prospect, we keep prospect tag
- $sql = "UPDATE ".MAIN_DB_PREFIX."societe";
- $sql.= " SET client = ".$newclient;
- $sql.= " WHERE rowid = " . $this->id;
-
- $resql=$this->db->query($sql);
- if ($resql)
- {
- $this->client = $newclient;
- return 1;
- }
- else return -1;
- }
- return 0;
- }
-
- /**
- * \brief Definit la societe comme un client
- * \param remise Valeur en % de la remise
- * \param note Note/Motif de modification de la remise
- * \param user Utilisateur qui definie 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;
- }
-
- dol_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 rowid = " . $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 (".$this->db->idate(mktime()).", ".$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 Add a discount for third party
- * \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);
-
- // Check parameters
- if (! $remise > 0)
- {
- $this->error=$langs->trans("ErrorWrongValueForParameter","1");
- return -1;
- }
- if (! $desc)
- {
- $this->error=$langs->trans("ErrorWrongValueForParameter","3");
- return -2;
- }
-
- if ($this->id)
- {
- require_once(DOL_DOCUMENT_ROOT.'/core/class/discount.class.php');
-
- $discount = new DiscountAbsolute($this->db);
- $discount->fk_soc=$this->id;
- $discount->amount_ht=price2num($remise,'MT');
- $discount->amount_tva=price2num($remise*$tva_tx/100,'MT');
- $discount->amount_ttc=price2num($discount->amount_ht+$discount->amount_tva,'MT');
- $discount->tva_tx=price2num($tva_tx,'MT');
- $discount->description=$desc;
- $result=$discount->create($user);
- if ($result > 0)
- {
- return $result;
- }
- else
- {
- $this->error=$discount->error;
- return -3;
- }
- }
- else return 0;
- }
-
- /**
- * \brief Renvoie montant TTC des reductions/avoirs en cours disponibles de la societe
- * \param user Filtre sur un user auteur des remises
- * \param filter Filtre autre
- * \param maxvalue Filter on max value for discount
- * \return int <0 if KO, Credit note amount otherwise
- */
- function getAvailableDiscounts($user='',$filter='',$maxvalue=0)
- {
- require_once(DOL_DOCUMENT_ROOT.'/core/class/discount.class.php');
-
- $discountstatic=new DiscountAbsolute($this->db);
- $result=$discountstatic->getAvailableDiscounts($this,$user,$filter,$maxvalue);
- if ($result >= 0)
- {
- return $result;
- }
- else
- {
- $this->error=$discountstatic->error;
- return -1;
- }
- }
-
-
- /**
- * Set the price level
- *
- * @param $price_level
- * @param $user
- */
- function set_price_level($price_level, $user)
- {
- if ($this->id)
- {
- $sql = "UPDATE ".MAIN_DB_PREFIX."societe ";
- $sql .= " SET price_level = '".$price_level."'";
- $sql .= " WHERE rowid = " . $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 (".$this->db->idate(mktime()).",".$this->id.",'".$price_level."',".$user->id.")";
-
- if (! $this->db->query($sql) )
- {
- dol_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) )
- {
- dol_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) )
- {
- dol_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 ('', 'customer', 'supplier', 'compta')
- * \param maxlen Longueur max libelle
- * \return string Chaine avec URL
- */
- function getNomUrl($withpicto=0,$option='customer',$maxlen=0)
- {
- global $langs;
-
- $result='';
- $lien=$lienfin='';
-
- if ($option == 'customer')
- {
- if ($this->client == 1)
- {
- $lien = '';
- $lienfin=' ';
- }
- elseif($this->client == 2)
- {
- $lien= '';
- $lienfin=' ';
- }
- }
- if ($option == 'supplier')
- {
- $lien = '';
- $lienfin=' ';
- }
- if ($option == 'compta')
- {
- $lien = '';
- $lienfin=' ';
- }
- if (empty($lien))
- {
- $lien = '';
- $lienfin=' ';
- }
-
- if ($withpicto) $result.=($lien.img_object($langs->trans("ShowCompany").': '.$this->nom,'company').$lienfin.' ');
- $result.=$lien.($maxlen?dol_trunc($this->nom,$maxlen):$this->nom).$lienfin;
-
- return $result;
- }
-
-
- /**
- * \brief Return full address of a third party (TODO in format of its country)
- * \return string Full address string
- */
- function getFullAddress()
- {
- $ret='';
- $ret.=($this->address?$this->address."\n":'');
- $ret.=trim($this->zip.' '.$this->town);
- return $ret;
- }
-
-
- /**
- * \brief Renvoie la liste des contacts emails existant pour la societe
- * \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 present dans tableau contact
- $contact_email[-1]=$langs->trans("ThirdParty").': '.dol_trunc($this->nom,16)." <".$this->email.">";
- }
- return $contact_email;
- }
-
- /**
- * \brief Renvoie la liste des contacts emails existant pour la societe
- * \return array tableau des contacts emails
- */
- function contact_email_array()
- {
- $contact_email = array();
-
- $sql = "SELECT rowid, 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->rowid] = trim($obj->firstname." ".$obj->name)." <".$obj->email.">";
- $i++;
- }
- }
- }
- else
- {
- dol_print_error($this->db);
- }
- return $contact_email;
- }
-
-
- /**
- * \brief Renvoie la liste des contacts de cette societe
- * \return array tableau des contacts
- */
- function contact_array()
- {
- $contacts = array();
-
- $sql = "SELECT rowid, 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->rowid] = $obj->firstname." ".$obj->name;
- $i++;
- }
- }
- }
- else
- {
- dol_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 rowid, email, name, firstname FROM ".MAIN_DB_PREFIX."socpeople WHERE rowid = '".$rowid."'";
-
- $resql=$this->db->query($sql);
- if ($resql)
- {
- $nump = $this->db->num_rows($resql);
-
- if ($nump)
- {
-
- $obj = $this->db->fetch_object($resql);
-
- $contact_email = "$obj->firstname $obj->name <$obj->email>";
-
- }
- return $contact_email;
- }
- else
- {
- dol_print_error($this->db);
- }
-
- }
-
-
- /**
- * \brief Affiche le rib
- */
- function display_rib()
- {
- global $langs;
-
- require_once DOL_DOCUMENT_ROOT . "/societe/class/companybankaccount.class.php";
-
- $bac = new CompanyBankAccount($this->db);
- $bac->fetch(0,$this->id);
-
- if ($bac->code_banque || $bac->code_guichet || $bac->number || $bac->cle_rib)
- {
- $rib = $bac->code_banque." ".$bac->code_guichet." ".$bac->number;
- $rib.=($bac->cle_rib?" (".$bac->cle_rib.")":"");
- }
- else
- {
- $rib=$langs->trans("NoRIB");
- }
- return $rib;
- }
-
- /**
- * Load this->bank_account attribut
- */
- function load_ban()
- {
- require_once DOL_DOCUMENT_ROOT . "/societe/class/companybankaccount.class.php";
-
- $bac = new CompanyBankAccount($this->db);
- $bac->fetch(0,$this->id);
-
- $this->bank_account = $bac;
- return 1;
- }
-
-
- function verif_rib()
- {
- $this->load_ban();
- return $this->bank_account->verif();
- }
-
- /**
- * \brief Attribut un code client a partir du module de controle des codes.
- * \return code_client Code client automatique
- */
- function get_codeclient($objsoc=0,$type=0)
- {
- 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;
-
- $this->code_client = $mod->getNextValue($objsoc,$type);
- $this->prefixCustomerIsRequired = $mod->prefixIsRequired;
-
- dol_syslog("Societe::get_codeclient code_client=".$this->code_client." module=".$var);
- }
- }
-
- /**
- * \brief Attribut un code fournisseur a partir du module de controle des codes.
- * \return code_fournisseur Code fournisseur automatique
- */
- function get_codefournisseur($objsoc=0,$type=1)
- {
- 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;
-
- $this->code_fournisseur = $mod->getNextValue($objsoc,$type);
- $this->prefixSupplierIsRequired = $mod->prefixIsRequired;
-
- dol_syslog("Societe::get_codefournisseur code_fournisseur=".$this->code_fournisseur." module=".$var);
- }
- }
-
- /**
- * \brief Verifie si un code client est modifiable en fonction des parametres
- * 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;
-
- dol_syslog("Societe::codeclient_modifiable code_client=".$this->code_client." module=".$var);
- if ($mod->code_modifiable_null && ! $this->code_client) 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;
-
- dol_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 Check customer code
- * \return int 0 if OK
- * -1 ErrorBadCustomerCodeSyntax
- * -2 ErrorCustomerCodeRequired
- * -3 ErrorCustomerCodeAlreadyUsed
- * -4 ErrorPrefixRequired
- */
- 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;
-
- dol_syslog("Societe::check_codeclient code_client=".$this->code_client." module=".$var);
- $result = $mod->verif($this->db, $this->code_client, $this, 0);
- return $result;
- }
- else
- {
- return 0;
- }
- }
-
- /**
- * \brief Check supplier code
- * \return int 0 if OK
- * -1 ErrorBadCustomerCodeSyntax
- * -2 ErrorCustomerCodeRequired
- * -3 ErrorCustomerCodeAlreadyUsed
- * -4 ErrorPrefixRequired
- */
- 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;
-
- dol_syslog("Societe::check_codefournisseur code_fournisseur=".$this->code_fournisseur." module=".$var);
- $result = $mod->verif($this->db, $this->code_fournisseur, $this ,1);
- return $result;
- }
- else
- {
- return 0;
- }
- }
-
- /**
- * \brief Renvoie un code compta, suivant le module de code compta.
- * Peut etre identique a celui saisit ou genere automatiquement.
- * A ce jour seule la generation automatique est implementee
- * \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 Defini la societe mere pour les filiales
- * \param id id compagnie mere a 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 rowid = " . $this->id .";";
-
- if ( $this->db->query($sql) )
- {
- return 1;
- }
- else
- {
- return -1;
- }
- }
- }
-
- /**
- * \brief Supprime la societe mere
- * \param id id compagnie mere a 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 rowid = " . $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=preg_replace('/(\s)/','',$chaine);
-
- if (dol_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=preg_replace('/(\s)/','',$chaine);
-
- if (dol_strlen($chaine) != 14) return -1;
- }
-
- return $ok;
- }
-
- /**
- * \brief Renvoi url de verification 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 '['.$langs->trans("Check").'] ';
- return '';
- }
-
- /**
- * \brief Indique si la societe a des projets
- * \return bool true si la societe 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($resql);
- $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.rowid, s.nom, s.datec, s.datea,";
- $sql.= " fk_user_creat, fk_user_modif";
- $sql.= " FROM ".MAIN_DB_PREFIX."societe as s";
- $sql.= " WHERE s.rowid = ".$id;
-
- $result=$this->db->query($sql);
- if ($result)
- {
- if ($this->db->num_rows($result))
- {
- $obj = $this->db->fetch_object($result);
-
- $this->id = $obj->rowid;
-
- if ($obj->fk_user_creat) {
- $cuser = new User($this->db);
- $cuser->fetch($obj->fk_user_creat);
- $this->user_creation = $cuser;
- }
-
- if ($obj->fk_user_modif) {
- $muser = new User($this->db);
- $muser->fetch($obj->fk_user_modif);
- $this->user_modification = $muser;
- }
- $this->ref = $obj->nom;
- $this->date_creation = $this->db->jdate($obj->datec);
- $this->date_modification = $this->db->jdate($obj->datea);
- }
-
- $this->db->free($result);
-
- }
- else
- {
- dol_print_error($this->db);
- }
- }
-
- /**
- * \brief Return if third party is a company (Business) or an end user (Consumer)
- * \param boolean true=is a company, false=a and user
- */
- function isACompany()
- {
- global $conf;
-
- // Define if third party is treated as company of not when nature is unknown
- $isacompany=empty($conf->global->MAIN_UNKNOWN_CUSTOMERS_ARE_COMPANIES)?0:1; // 0 by default
- if (! empty($this->tva_intra)) $isacompany=1;
- else if (! empty($this->typent_code) && in_array($this->typent_code,array('TE_PRIVATE'))) $isacompany=0;
- else if (! empty($this->typent_code) && in_array($this->typent_code,array('TE_SMALL','TE_MEDIUM','TE_LARGE'))) $isacompany=1;
-
- return $isacompany;
- }
-
-
- /**
- * \brief Return if a country is inside the EEC (European Economic Community)
- * \param boolean true = pays inside EEC, false= pays outside EEC
- */
- function isInEEC()
- {
- // List of all country codes that are in europe for european vat rules
- // List found on http://ec.europa.eu/taxation_customs/vies/lang.do?fromWhichPage=vieshome
- $country_code_in_EEC=array(
+ var $db;
+ var $error;
+ var $errors=array();
+ var $element='societe';
+ var $table_element = 'societe';
+ var $ismultientitymanaged = 1; // 0=No test on entity, 1=Test with field entity, 2=Test with link by societe
+
+ var $id;
+ var $nom;
+ var $nom_particulier;
+ var $prenom;
+ var $particulier;
+ var $address;
+ var $adresse; // TODO obsolete
+ var $cp;
+ var $ville;
+
+ var $departement_id;
+ var $departement_code;
+ var $departement;
+
+ var $pays_id;
+ var $pays_code;
+ var $pays; // TODO obsolete
+ var $country;
+
+ var $tel;
+ var $fax;
+ var $email;
+ var $url;
+ var $gencod;
+
+ // 4 identifiants professionnels (leur utilisation depend du pays)
+ var $siren; // IdProf1 - Deprecated
+ var $siret; // IdProf2 - Deprecated
+ var $ape; // IdProf3 - Deprecated
+ var $idprof1; // IdProf1
+ var $idprof2; // IdProf2
+ var $idprof3; // IdProf3
+ var $idprof4; // IdProf4
+
+ var $prefix_comm;
+
+ var $tva_assuj;
+ var $tva_intra;
+
+ // Local taxes
+ var $localtax1_assuj;
+ var $localtax2_assuj;
+
+ var $capital;
+ var $typent_id;
+ var $typent_code;
+ var $effectif_id;
+ var $forme_juridique_code;
+ var $forme_juridique;
+
+ var $remise_percent;
+ var $mode_reglement_id;
+ var $cond_reglement_id;
+ var $remise_client; // TODO obsolete
+ var $mode_reglement; // TODO obsolete
+ var $cond_reglement; // TODO obsolete
+
+ var $client; // 0=no customer, 1=customer, 2=prospect
+ var $prospect; // 0=no prospect, 1=prospect
+ var $fournisseur; // =0no supplier, 1=supplier
+
+ var $prefixCustomerIsRequired;
+ var $prefixSupplierIsRequired;
+ 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 $datec;
+ var $date_update;
+
+ var $commercial_id; //Id du commercial affecte
+ var $default_lang;
+
+ var $canvas;
+
+ var $import_key;
+
+ var $logo;
+ var $logo_small;
+ var $logo_mini;
+
+ /**
+ * \brief Constructeur de la classe
+ * \param DB handler acces base de donnees
+ * \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;
+ $this->prefixCustomerIsRequired = 0;
+ $this->prefixSupplierIsRequired = 0;
+ $this->tva_assuj = 1;
+
+ return 1;
+ }
+
+
+ /**
+ * \brief Create third party in database
+ * \param user Object of user that ask creation
+ * \return int >= 0 if OK, < 0 if KO
+ */
+ function create($user='')
+ {
+ global $langs,$conf;
+
+ // Clean parameters
+ $this->nom=trim($this->nom);
+
+ dol_syslog("Societe::create ".$this->nom);
+
+ // Check parameters
+ if (! empty($conf->global->SOCIETE_MAIL_REQUIRED) && ! isValidEMail($this->email))
+ {
+ $langs->load("errors");
+ $this->error = $langs->trans("ErrorBadEMail",$this->email);
+ return -1;
+ }
+
+ if (empty($this->canvas)) $this->canvas = 'default';
+
+ $this->db->begin();
+
+ // For automatic creation during create action (not used by Dolibarr GUI, can be used by scripts)
+ if ($this->code_client == -1) $this->get_codeclient($this->prefix_comm,0);
+ if ($this->code_fournisseur == -1) $this->get_codefournisseur($this->prefix_comm,1);
+
+ $now=dol_now();
+
+ // Check more parameters
+ $result = $this->verify();
+
+ if ($result >= 0)
+ {
+ $sql = "INSERT INTO ".MAIN_DB_PREFIX."societe (nom, entity, datec, datea, fk_user_creat, canvas)";
+ $sql.= " VALUES ('".$this->db->escape($this->nom)."', ".$conf->entity.", '".$this->db->idate($now)."', '".$this->db->idate($now)."'";
+ $sql.= ", ".($user->id > 0 ? "'".$user->id."'":"null");
+ $sql.= ", '".$this->canvas."'";
+ $sql.= ")";
+
+ dol_syslog("Societe::create sql=".$sql);
+ $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 cree un client il lui est affecte automatiquement
+ if (!$user->rights->societe->client->voir)
+ {
+ $this->add_commercial($user, $user->id);
+ }
+ // Ajout du commercial affecte
+ 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 . "/core/class/interfaces.class.php");
+ $interface=new Interfaces($this->db);
+ $result=$interface->run_triggers('COMPANY_CREATE',$this,$user,$langs,$conf);
+ if ($result < 0) { $error++; $this->errors=$interface->errors; }
+ // Fin appel triggers
+
+ dol_syslog("Societe::Create success id=".$this->id);
+ $this->db->commit();
+ return 0;
+ }
+ else
+ {
+ dol_syslog("Societe::Create echec update ".$this->error);
+ $this->db->rollback();
+ return -3;
+ }
+ }
+ else
+ {
+ if ($this->db->errno() == 'DB_ERROR_RECORD_ALREADY_EXISTS')
+ {
+
+ $this->error=$langs->trans("ErrorCompanyNameAlreadyExists",$this->nom);
+ }
+ else
+ {
+ $this->error=$this->db->lasterror();
+ dol_syslog("Societe::Create echec insert sql=".$sql);
+ }
+ $this->db->rollback();
+ return -2;
+ }
+
+ }
+ else
+ {
+ $this->db->rollback();
+ dol_syslog("Societe::Create echec verify ".join(',',$this->errors));
+ return -1;
+ }
+ }
+
+ /**
+ * \brief Check properties of third party are ok (like name, third party codes, ...)
+ * \return int 0 if OK, <0 if KO
+ */
+ function verify()
+ {
+ $this->errors=array();
+
+ $result = 0;
+ $this->nom=trim($this->nom);
+
+ if (! $this->nom)
+ {
+ $this->errors[] = 'ErrorBadThirdPartyName';
+ $result = -2;
+ }
+
+ if ($this->client && $this->codeclient_modifiable())
+ {
+ // On ne verifie le code client que si la societe est un client / prospect et que le code est modifiable
+ // Si il n'est pas modifiable il n'est pas mis a jour lors de l'update
+ $rescode = $this->check_codeclient();
+ if ($rescode <> 0)
+ {
+ if ($rescode == -1)
+ {
+ $this->errors[] = 'ErrorBadCustomerCodeSyntax';
+ }
+ if ($rescode == -2)
+ {
+ $this->errors[] = 'ErrorCustomerCodeRequired';
+ }
+ if ($rescode == -3)
+ {
+ $this->errors[] = 'ErrorCustomerCodeAlreadyUsed';
+ }
+ if ($rescode == -4)
+ {
+ $this->errors[] = 'ErrorPrefixRequired';
+ }
+ $result = -3;
+ }
+ }
+
+ if ($this->fournisseur && $this->codefournisseur_modifiable())
+ {
+ // On ne verifie le code fournisseur que si la societe est un fournisseur et que le code est modifiable
+ // Si il n'est pas modifiable il n'est pas mis a jour lors de l'update
+ $rescode = $this->check_codefournisseur();
+ if ($rescode <> 0)
+ {
+ if ($rescode == -1)
+ {
+ $this->errors[] = 'ErrorBadSupplierCodeSyntax';
+ }
+ if ($rescode == -2)
+ {
+ $this->errors[] = 'ErrorSupplierCodeRequired';
+ }
+ if ($rescode == -3)
+ {
+ $this->errors[] = 'ErrorSupplierCodeAlreadyUsed';
+ }
+ if ($rescode == -5)
+ {
+ $this->errors[] = 'ErrorprefixRequired';
+ }
+ $result = -3;
+ }
+ }
+
+ return $result;
+ }
+
+ /**
+ * \brief Update parameters of third party
+ * \param id id societe
+ * \param user Utilisateur qui demande la mise a jour
+ * \param call_trigger 0=non, 1=oui
+ * \param allowmodcodeclient Inclut modif code client et code compta
+ * \param allowmodcodefournisseur Inclut modif code fournisseur et code compta fournisseur
+ * \return int <0 si ko, >=0 si ok
+ */
+ function update($id, $user='', $call_trigger=1, $allowmodcodeclient=0, $allowmodcodefournisseur=0)
+ {
+ require_once(DOL_DOCUMENT_ROOT."/lib/functions2.lib.php");
+
+ global $langs,$conf;
+
+ dol_syslog("Societe::Update id=".$id." call_trigger=".$call_trigger." allowmodcodeclient=".$allowmodcodeclient." allowmodcodefournisseur=".$allowmodcodefournisseur);
+
+ // Clean parameters
+ $this->id=$id;
+ $this->capital=trim($this->capital);
+ $this->nom=trim($this->nom);
+ $this->adresse=trim($this->adresse); // TODO obsolete
+ $this->address=trim($this->address);
+ $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 = preg_replace("/\s/","",$this->tel);
+ $this->tel = preg_replace("/\./","",$this->tel);
+ $this->fax = preg_replace("/\s/","",$this->fax);
+ $this->fax = preg_replace("/\./","",$this->fax);
+ $this->email=trim($this->email);
+ $this->url=$this->url?clean_url($this->url,0):'';
+ $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=dol_sanitizeFileName($this->tva_intra,'');
+
+ // Local taxes
+ $this->localtax1_assuj=trim($this->localtax1_assuj);
+ $this->localtax2_assuj=trim($this->localtax2_assuj);
+
+ $this->capital=trim($this->capital);
+ if (dol_strlen($this->capital) == 0) $this->capital = 0;
+
+ $this->effectif_id=trim($this->effectif_id);
+ $this->forme_juridique_code=trim($this->forme_juridique_code);
+
+ //Gencod
+ $this->gencod=trim($this->gencod);
+
+ // For automatic creation
+ if ($this->code_client == -1) $this->get_codeclient($this->prefix_comm,0);
+ if ($this->code_fournisseur == -1) $this->get_codefournisseur($this->prefix_comm,1);
+
+ $this->code_compta=trim($this->code_compta);
+ $this->code_compta_fournisseur=trim($this->code_compta_fournisseur);
+
+ // Check parameters
+ if (! empty($conf->global->SOCIETE_MAIL_REQUIRED) && ! isValidEMail($this->email))
+ {
+ $langs->load("errors");
+ $this->error = $langs->trans("ErrorBadEMail",$this->email);
+ return -1;
+ }
+
+ // Check name is required and codes are ok or unique.
+ // If error, this->errors[] is filled
+ $result = $this->verify();
+
+ if ($result >= 0)
+ {
+ dol_syslog("Societe::Update verify ok");
+
+ $sql = "UPDATE ".MAIN_DB_PREFIX."societe";
+ $sql.= " SET nom = '" . addslashes($this->nom) ."'"; // Champ obligatoire
+ $sql.= ",datea = '".$this->db->idate(mktime())."'";
+ $sql.= ",address = '" . addslashes($this->address) ."'";
+
+ $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!=''?"'".$this->tva_assuj."'":"null");
+ $sql .= ",tva_intra = '" . addslashes($this->tva_intra) ."'";
+
+ // Local taxes
+ $sql .= ",localtax1_assuj = ".($this->localtax1_assuj!=''?"'".$this->localtax1_assuj."'":"null");
+ $sql .= ",localtax2_assuj = ".($this->localtax2_assuj!=''?"'".$this->localtax2_assuj."'":"null");
+
+ $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."'":"0");
+
+ $sql .= ",fk_forme_juridique = ".($this->forme_juridique_code?"'".$this->forme_juridique_code."'":"null");
+
+ $sql .= ",client = " . $this->client;
+ $sql .= ",fournisseur = " . $this->fournisseur;
+ $sql .= ",gencod = ".($this->gencod?"'".$this->gencod."'":"null");
+ $sql .= ",default_lang = ".($this->default_lang?"'".$this->default_lang."'":"null");
+
+
+ if ($allowmodcodeclient)
+ {
+ //$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
+ if (empty($this->code_compta)) $this->get_codecompta('customer');
+
+ $sql .= ", code_compta = ".($this->code_compta?"'".addslashes($this->code_compta)."'":"null");
+ }
+
+ if ($allowmodcodefournisseur)
+ {
+ //$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
+ if (empty($this->code_compta_fournisseur)) $this->get_codecompta('supplier');
+
+ $sql .= ", code_compta_fournisseur = ".($this->code_compta_fournisseur?"'".addslashes($this->code_compta_fournisseur)."'":"null");
+ }
+ $sql .= ", fk_user_modif = ".($user->id > 0 ? "'".$user->id."'":"null");
+ $sql .= " WHERE rowid = '" . $id ."'";
+
+
+ dol_syslog("Societe::update sql=".$sql);
+ $resql=$this->db->query($sql);
+ if ($resql)
+ {
+ // Si le fournisseur est classe on l'ajoute
+ $this->AddFournisseurInCategory($this->fournisseur_categorie);
+
+ if ($call_trigger)
+ {
+ // Appel des triggers
+ include_once(DOL_DOCUMENT_ROOT . "/core/class/interfaces.class.php");
+ $interface=new Interfaces($this->db);
+ $result=$interface->run_triggers('COMPANY_MODIFY',$this,$user,$langs,$conf);
+ if ($result < 0) { $error++; $this->errors=$interface->errors; }
+ // 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);
+ dol_syslog("Societe::Update echec sql=".$sql);
+ $result = -2;
+ }
+ }
+ }
+
+ return $result;
+
+ }
+
+ /**
+ * \brief Load a third party from database into memory
+ * \param socid Id third party to load
+ * \param ref Name of third party (Warning, this can return several records)
+ * \return int >0 if OK, <0 if KO or if two records found for same ref.
+ */
+ function fetch($socid, $ref='')
+ {
+ global $langs;
+ global $conf;
+
+ if (empty($socid) && empty($ref)) return -1;
+
+ // Init data for telephonie module
+ if ($conf->telephonie->enabled && $user && $user->id)
+ {
+ /* Lecture des permissions */
+ $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.rowid, s.nom, s.entity, s.address, s.datec as dc, s.prefix_comm';
+ $sql .= ', s.price_level';
+ $sql .= ', s.tms as date_update';
+ $sql .= ', s.tel, s.fax, s.email, s.url, s.cp, s.ville, s.note, s.client, s.fournisseur';
+ $sql .= ', s.siren, s.siret, s.ape, s.idprof4';
+ $sql .= ', s.capital, s.tva_intra';
+ $sql .= ', s.fk_typent as typent_id';
+ $sql .= ', s.fk_effectif as effectif_id';
+ $sql .= ', s.fk_forme_juridique as forme_juridique_code';
+ $sql .= ', s.code_client, s.code_fournisseur, s.code_compta, s.code_compta_fournisseur, s.parent, s.gencod';
+ $sql .= ', s.fk_departement, s.fk_pays, s.fk_stcomm, s.remise_client, s.mode_reglement, s.cond_reglement, s.tva_assuj';
+ $sql .= ', s.localtax1_assuj, s.localtax2_assuj, s.fk_prospectlevel, s.default_lang';
+ $sql .= ', s.import_key';
+ $sql .= ', fj.libelle as forme_juridique';
+ $sql .= ', e.libelle as effectif';
+ $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 .= ', te.code as typent_code';
+ $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 .= ' LEFT JOIN '.MAIN_DB_PREFIX.'c_typent as te ON s.fk_typent = te.id';
+ if ($socid) $sql .= ' WHERE s.rowid = '.$socid;
+ if ($ref) $sql .= " WHERE s.nom = '".addslashes($ref)."' AND s.entity = ".$conf->entity;
+
+ $resql=$this->db->query($sql);
+ dol_syslog("Societe::fetch ".$sql);
+ if ($resql)
+ {
+ $num=$this->db->num_rows($resql);
+ if ($num > 1)
+ {
+ $this->error='Societe::Fetch several records found for ref='.$ref;
+ dol_syslog($this->error, LOG_ERR);
+ $result = -1;
+ }
+ if ($num)
+ {
+ $obj = $this->db->fetch_object($resql);
+
+ $this->id = $obj->rowid;
+ $this->ref = $obj->rowid;
+ $this->entity = $obj->entity;
+
+ $this->datec = $this->db->jdate($obj->datec);
+ $this->date_update = $this->db->jdate($obj->date_update);
+
+ $this->nom = $obj->nom; // TODO obsolete
+ $this->name = $obj->nom;
+ $this->address = $obj->address;
+ $this->adresse = $obj->address; // TODO obsolete
+ $this->cp = $obj->cp; // TODO obsolete
+ $this->zip = $obj->cp;
+ $this->ville = $obj->ville;// TODO obsolete
+ $this->town = $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):''; // TODO obsolete
+ $this->country = $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; // TODO obsolete
+ $this->phone = $obj->tel;
+ $this->fax = $obj->fax;
+
+ $this->parent = $obj->parent;
+
+ $this->siren = $obj->siren; // TODO obsolete
+ $this->idprof1 = $obj->siren;
+ $this->siret = $obj->siret; // TODO obsolete
+ $this->idprof2 = $obj->siret;
+ $this->ape = $obj->ape; // TODO obsolete
+ $this->idprof3 = $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->gencod = $obj->gencod;
+
+ $this->tva_assuj = $obj->tva_assuj;
+ $this->tva_intra = $obj->tva_intra;
+
+ // Local Taxes
+ $this->localtax1_assuj = $obj->localtax1_assuj;
+ $this->localtax2_assuj = $obj->localtax2_assuj;
+
+
+ $this->typent_id = $obj->typent_id;
+ $this->typent_code = $obj->typent_code;
+
+ $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->fk_prospectlevel = $obj->fk_prospectlevel;
+
+ $this->prefix_comm = $obj->prefix_comm;
+
+ $this->remise_percent = $obj->remise_client;
+ $this->mode_reglement_id = $obj->mode_reglement;
+ $this->cond_reglement_id = $obj->cond_reglement;
+ $this->remise_client = $obj->remise_client; // TODO obsolete
+ $this->mode_reglement = $obj->mode_reglement; // TODO obsolete
+ $this->cond_reglement = $obj->cond_reglement; // TODO obsolete
+
+ $this->client = $obj->client;
+ $this->fournisseur = $obj->fournisseur;
+
+ $this->note = $obj->note;
+ $this->default_lang = $obj->default_lang;
+
+ // multiprix
+ $this->price_level = $obj->price_level;
+
+ $this->import_key = $obj->import_key;
+
+ $result = 1;
+ }
+ else
+ {
+ $this->error='Societe::Fetch no third party found for id='.$socid;
+ dol_syslog($this->error, LOG_ERR);
+ $result = -2;
+ }
+
+ $this->db->free($resql);
+ }
+ else
+ {
+ dol_syslog('Erreur Societe::Fetch '.$this->db->error(), LOG_ERR);
+ $this->error=$this->db->error();
+ $result = -3;
+ }
+
+ // Use first price level if level not defined for third party
+ if ($conf->global->PRODUIT_MULTIPRICES && empty($this->price_level)) $this->price_level=1;
+
+ return $result;
+ }
+
+ /**
+ * Lit une adresse
+ * TODO: utiliser la classe address
+ */
+ function fetch_address($id)
+ {
+ global $conf,$langs;
+
+ $sql = "SELECT l.rowid, l.label, l.fk_soc, l.name, l.address, l.cp";
+ $sql .= ", l.tms as dm, l.datec as dc";
+ $sql .= ", l.ville, l.fk_pays, l.note, l.tel, l.fax";
+ $sql .= ", p.libelle as pays, p.code as pays_code, s.nom as socname";
+ $sql .= " FROM ".MAIN_DB_PREFIX."societe_address 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_soc = s.rowid";
+ $sql .= " WHERE l.rowid = ".$id;
+
+ $result = $this->db->query($sql) ;
+
+ if ( $result )
+ {
+ $obj = $this->db->fetch_object($result);
+
+ $this->id = $obj->rowid;
+ $this->datec = $this->db->jdate($obj->dc);
+ $this->datem = $this->db->jdate($obj->dm);
+ $this->label = $obj->label;
+ $this->socid = $obj->fk_soc;
+ $this->societe = $obj->socname;
+ $this->name = $obj->name;
+ $this->address = $obj->address;
+ $this->cp = $obj->cp;
+ $this->ville = $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->tel = $obj->tel;
+ $this->fax = $obj->fax;
+ $this->note = $obj->note;
+
+
+ $this->db->free($result);
+
+ return 1;
+ }
+ else
+ {
+ $this->error=$this->db->error();
+ return -1;
+ }
+ }
+
+ /**
+ * \brief Suppression d'une societe de la base avec ses dependances (contacts, rib...)
+ * \param id id de la societe a supprimer
+ */
+ function delete($id)
+ {
+ global $user,$langs,$conf;
+
+ dol_syslog("Societe::Delete", LOG_DEBUG);
+ $sqr = 0;
+
+ // Check if third party can be deleted
+ $nbpropal=0;
+ $sql = "SELECT COUNT(*) as nb from ".MAIN_DB_PREFIX."propal";
+ $sql.= " WHERE fk_soc = " . $id;
+ $resql=$this->db->query($sql);
+ if ($resql)
+ {
+ $obj=$this->db->fetch_object($resql);
+ $nbpropal=$obj->nb;
+ if ($nbpropal > 0)
+ {
+ $this->error="ErrorRecordHasChildren";
+ return -1;
+ }
+ }
+ else
+ {
+ $this->error .= $this->db->lasterror();
+ dol_syslog("Societe::Delete erreur -1 ".$this->error, LOG_ERR);
+ return -1;
+ }
+
+
+
+ if ($this->db->begin())
+ {
+ // Added by Matelli (see http://matelli.fr/showcases/patchs-dolibarr/fix-third-party-deleting.html)
+ // Removing every "categorie" link with this company
+ require_once(DOL_DOCUMENT_ROOT."/categories/class/categorie.class.php");
+
+ $static_cat = new Categorie($this->db);
+ $toute_categs = array();
+
+ // Fill $toute_categs array with an array of (type => array of ("Categorie" instance))
+ if ($this->client || $this->prospect)
+ {
+ $toute_categs ['societe'] = $static_cat->containing($this->id,2);
+ }
+ if ($this->fournisseur)
+ {
+ $toute_categs ['fournisseur'] = $static_cat->containing($this->id,1);
+ }
+
+ // Remove each "Categorie"
+ foreach ($toute_categs as $type => $categs_type)
+ {
+ foreach ($categs_type as $cat)
+ {
+ $cat->del_type($this, $type);
+ }
+ }
+
+ // Remove contacts
+ $sql = "DELETE from ".MAIN_DB_PREFIX."socpeople";
+ $sql.= " WHERE fk_soc = " . $id;
+ dol_syslog("Societe::Delete sql=".$sql, LOG_DEBUG);
+ if ($this->db->query($sql))
+ {
+ $sqr++;
+ }
+ else
+ {
+ $this->error .= $this->db->lasterror();
+ dol_syslog("Societe::Delete erreur -1 ".$this->error, LOG_ERR);
+ }
+
+ // Update link in member table
+ $sql = "UPDATE ".MAIN_DB_PREFIX."adherent";
+ $sql.= " SET fk_soc = NULL where fk_soc = " . $id;
+ dol_syslog("Societe::Delete sql=".$sql, LOG_DEBUG);
+ if ($this->db->query($sql))
+ {
+ $sqr++;
+ }
+ else
+ {
+ $this->error .= $this->db->lasterror();
+ dol_syslog("Societe::Delete erreur -1 ".$this->error, LOG_ERR);
+ }
+
+ // Remove ban
+ $sql = "DELETE from ".MAIN_DB_PREFIX."societe_rib";
+ $sql.= " WHERE fk_soc = " . $id;
+ dol_syslog("Societe::Delete sql=".$sql, LOG_DEBUG);
+ if ($this->db->query($sql))
+ {
+ $sqr++;
+ }
+ else
+ {
+ $this->error = $this->db->lasterror();
+ dol_syslog("Societe::Delete erreur -2 ".$this->error, LOG_ERR);
+ }
+
+ // Remove third party
+ $sql = "DELETE from ".MAIN_DB_PREFIX."societe";
+ $sql.= " WHERE rowid = " . $id;
+ dol_syslog("Societe::Delete sql=".$sql, LOG_DEBUG);
+ if ($this->db->query($sql))
+ {
+ $sqr++;
+ }
+ else
+ {
+ $this->error = $this->db->lasterror();
+ dol_syslog("Societe::Delete erreur -3 ".$this->error, LOG_ERR);
+ }
+
+ if ($sqr == 4)
+ {
+ // Appel des triggers
+ include_once(DOL_DOCUMENT_ROOT . "/core/class/interfaces.class.php");
+ $interface=new Interfaces($this->db);
+ $result=$interface->run_triggers('COMPANY_DELETE',$this,$user,$langs,$conf);
+ if ($result < 0) { $error++; $this->errors=$interface->errors; }
+ // Fin appel triggers
+
+ $this->db->commit();
+
+ // Suppression du repertoire document
+ $docdir = $conf->societe->dir_output . "/" . $id;
+ if (file_exists ($docdir))
+ {
+ dol_delete_dir_recursive($docdir);
+ }
+
+ return 0;
+ }
+ else
+ {
+ $this->db->rollback();
+ return -1;
+ }
+ }
+
+ }
+
+
+ /**
+ * \brief Retournes les factures impayees de la societe
+ * \return array tableau des id de factures impayees
+ *
+ */
+ 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'";
+
+ $resql=$this->db->query($sql);
+ if ($resql)
+ {
+ $num = $this->db->num_rows($resql);
+ $i = 0;
+
+ while ($i < $num)
+ {
+ $objp = $this->db->fetch_object($resql);
+ $array_push($facimp, $objp->rowid);
+ $i++;
+ print $i;
+ }
+
+ $this->db->free();
+ }
+ return $facimp;
+ }
+
+ /**
+ * \brief Attribut le prefix de la societe en base
+ *
+ */
+ function attribute_prefix()
+ {
+ global $conf;
+
+ $sql = "SELECT nom FROM ".MAIN_DB_PREFIX."societe WHERE rowid = '".$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";
+ $sql.= " WHERE prefix_comm = '".$prefix."'";
+ $sql.= " AND entity = ".$conf->entity;
+
+ $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 rowid='".$this->id."'";
+
+ if ( $this->db->query( $sql) )
+ {
+
+ }
+ else
+ {
+ dol_print_error($this->db);
+ }
+ }
+ }
+ else
+ {
+ dol_print_error($this->db);
+ }
+ }
+ }
+ else
+ {
+ dol_print_error($this->db);
+ }
+ return $prefix;
+ }
+
+ /**
+ * \brief Genere le prefix de la societe
+ * \param nom nom de la societe
+ * \param taille taille du prefix a retourner
+ * \param mot l'indice du mot a utiliser
+ */
+ function genprefix($nom, $taille=4, $mot=0)
+ {
+ $retour = "";
+ $tab = explode(" ",$nom);
+
+ if ($mot < count($tab))
+ {
+ $prefix = strtoupper(substr($tab[$mot],0,$taille));
+
+ // On verifie que ce prefix n'a pas deja ete pris ...
+ $sql = "SELECT count(*) as nb FROM ".MAIN_DB_PREFIX."societe";
+ $sql.= " WHERE prefix_comm = '".$prefix."'";
+ $sql.= " AND entity = ".$conf->entity;
+
+ $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 Define third party as a customer
+ * \return int <0 if KO, >0 if OK
+ */
+ function set_as_client()
+ {
+ if ($this->id)
+ {
+ $newclient=1;
+ if ($this->client == 2 || $this->client == 3) $newclient=3; //If prospect, we keep prospect tag
+ $sql = "UPDATE ".MAIN_DB_PREFIX."societe";
+ $sql.= " SET client = ".$newclient;
+ $sql.= " WHERE rowid = " . $this->id;
+
+ $resql=$this->db->query($sql);
+ if ($resql)
+ {
+ $this->client = $newclient;
+ return 1;
+ }
+ else return -1;
+ }
+ return 0;
+ }
+
+ /**
+ * \brief Definit la societe comme un client
+ * \param remise Valeur en % de la remise
+ * \param note Note/Motif de modification de la remise
+ * \param user Utilisateur qui definie 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;
+ }
+
+ dol_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 rowid = " . $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 (".$this->db->idate(mktime()).", ".$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 Add a discount for third party
+ * \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);
+
+ // Check parameters
+ if (! $remise > 0)
+ {
+ $this->error=$langs->trans("ErrorWrongValueForParameter","1");
+ return -1;
+ }
+ if (! $desc)
+ {
+ $this->error=$langs->trans("ErrorWrongValueForParameter","3");
+ return -2;
+ }
+
+ if ($this->id)
+ {
+ require_once(DOL_DOCUMENT_ROOT.'/core/class/discount.class.php');
+
+ $discount = new DiscountAbsolute($this->db);
+ $discount->fk_soc=$this->id;
+ $discount->amount_ht=price2num($remise,'MT');
+ $discount->amount_tva=price2num($remise*$tva_tx/100,'MT');
+ $discount->amount_ttc=price2num($discount->amount_ht+$discount->amount_tva,'MT');
+ $discount->tva_tx=price2num($tva_tx,'MT');
+ $discount->description=$desc;
+ $result=$discount->create($user);
+ if ($result > 0)
+ {
+ return $result;
+ }
+ else
+ {
+ $this->error=$discount->error;
+ return -3;
+ }
+ }
+ else return 0;
+ }
+
+ /**
+ * \brief Renvoie montant TTC des reductions/avoirs en cours disponibles de la societe
+ * \param user Filtre sur un user auteur des remises
+ * \param filter Filtre autre
+ * \param maxvalue Filter on max value for discount
+ * \return int <0 if KO, Credit note amount otherwise
+ */
+ function getAvailableDiscounts($user='',$filter='',$maxvalue=0)
+ {
+ require_once(DOL_DOCUMENT_ROOT.'/core/class/discount.class.php');
+
+ $discountstatic=new DiscountAbsolute($this->db);
+ $result=$discountstatic->getAvailableDiscounts($this,$user,$filter,$maxvalue);
+ if ($result >= 0)
+ {
+ return $result;
+ }
+ else
+ {
+ $this->error=$discountstatic->error;
+ return -1;
+ }
+ }
+
+
+ /**
+ * Set the price level
+ *
+ * @param $price_level
+ * @param $user
+ */
+ function set_price_level($price_level, $user)
+ {
+ if ($this->id)
+ {
+ $sql = "UPDATE ".MAIN_DB_PREFIX."societe ";
+ $sql .= " SET price_level = '".$price_level."'";
+ $sql .= " WHERE rowid = " . $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 (".$this->db->idate(mktime()).",".$this->id.",'".$price_level."',".$user->id.")";
+
+ if (! $this->db->query($sql) )
+ {
+ dol_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) )
+ {
+ dol_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) )
+ {
+ dol_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 ('', 'customer', 'supplier', 'compta')
+ * \param maxlen Longueur max libelle
+ * \return string Chaine avec URL
+ */
+ function getNomUrl($withpicto=0,$option='customer',$maxlen=0)
+ {
+ global $langs;
+
+ $result='';
+ $lien=$lienfin='';
+
+ if ($option == 'customer')
+ {
+ if ($this->client == 1)
+ {
+ $lien = '';
+ $lienfin=' ';
+ }
+ elseif($this->client == 2)
+ {
+ $lien= '';
+ $lienfin=' ';
+ }
+ }
+ if ($option == 'supplier')
+ {
+ $lien = '';
+ $lienfin=' ';
+ }
+ if ($option == 'compta')
+ {
+ $lien = '';
+ $lienfin=' ';
+ }
+ if (empty($lien))
+ {
+ $lien = '';
+ $lienfin=' ';
+ }
+
+ if ($withpicto) $result.=($lien.img_object($langs->trans("ShowCompany").': '.$this->nom,'company').$lienfin.' ');
+ $result.=$lien.($maxlen?dol_trunc($this->nom,$maxlen):$this->nom).$lienfin;
+
+ return $result;
+ }
+
+
+ /**
+ * \brief Return full address of a third party (TODO in format of its country)
+ * \return string Full address string
+ */
+ function getFullAddress()
+ {
+ $ret='';
+ $ret.=($this->address?$this->address."\n":'');
+ $ret.=trim($this->zip.' '.$this->town);
+ return $ret;
+ }
+
+
+ /**
+ * \brief Renvoie la liste des contacts emails existant pour la societe
+ * \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 present dans tableau contact
+ $contact_email[-1]=$langs->trans("ThirdParty").': '.dol_trunc($this->nom,16)." <".$this->email.">";
+ }
+ return $contact_email;
+ }
+
+ /**
+ * \brief Renvoie la liste des contacts emails existant pour la societe
+ * \return array tableau des contacts emails
+ */
+ function contact_email_array()
+ {
+ $contact_email = array();
+
+ $sql = "SELECT rowid, 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->rowid] = trim($obj->firstname." ".$obj->name)." <".$obj->email.">";
+ $i++;
+ }
+ }
+ }
+ else
+ {
+ dol_print_error($this->db);
+ }
+ return $contact_email;
+ }
+
+
+ /**
+ * \brief Renvoie la liste des contacts de cette societe
+ * \return array tableau des contacts
+ */
+ function contact_array()
+ {
+ $contacts = array();
+
+ $sql = "SELECT rowid, 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->rowid] = $obj->firstname." ".$obj->name;
+ $i++;
+ }
+ }
+ }
+ else
+ {
+ dol_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 rowid, email, name, firstname FROM ".MAIN_DB_PREFIX."socpeople WHERE rowid = '".$rowid."'";
+
+ $resql=$this->db->query($sql);
+ if ($resql)
+ {
+ $nump = $this->db->num_rows($resql);
+
+ if ($nump)
+ {
+
+ $obj = $this->db->fetch_object($resql);
+
+ $contact_email = "$obj->firstname $obj->name <$obj->email>";
+
+ }
+ return $contact_email;
+ }
+ else
+ {
+ dol_print_error($this->db);
+ }
+
+ }
+
+
+ /**
+ * \brief Affiche le rib
+ */
+ function display_rib()
+ {
+ global $langs;
+
+ require_once DOL_DOCUMENT_ROOT . "/societe/class/companybankaccount.class.php";
+
+ $bac = new CompanyBankAccount($this->db);
+ $bac->fetch(0,$this->id);
+
+ if ($bac->code_banque || $bac->code_guichet || $bac->number || $bac->cle_rib)
+ {
+ $rib = $bac->code_banque." ".$bac->code_guichet." ".$bac->number;
+ $rib.=($bac->cle_rib?" (".$bac->cle_rib.")":"");
+ }
+ else
+ {
+ $rib=$langs->trans("NoRIB");
+ }
+ return $rib;
+ }
+
+ /**
+ * Load this->bank_account attribut
+ */
+ function load_ban()
+ {
+ require_once DOL_DOCUMENT_ROOT . "/societe/class/companybankaccount.class.php";
+
+ $bac = new CompanyBankAccount($this->db);
+ $bac->fetch(0,$this->id);
+
+ $this->bank_account = $bac;
+ return 1;
+ }
+
+
+ function verif_rib()
+ {
+ $this->load_ban();
+ return $this->bank_account->verif();
+ }
+
+ /**
+ * \brief Attribut un code client a partir du module de controle des codes.
+ * \return code_client Code client automatique
+ */
+ function get_codeclient($objsoc=0,$type=0)
+ {
+ 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;
+
+ $this->code_client = $mod->getNextValue($objsoc,$type);
+ $this->prefixCustomerIsRequired = $mod->prefixIsRequired;
+
+ dol_syslog("Societe::get_codeclient code_client=".$this->code_client." module=".$var);
+ }
+ }
+
+ /**
+ * \brief Attribut un code fournisseur a partir du module de controle des codes.
+ * \return code_fournisseur Code fournisseur automatique
+ */
+ function get_codefournisseur($objsoc=0,$type=1)
+ {
+ 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;
+
+ $this->code_fournisseur = $mod->getNextValue($objsoc,$type);
+ $this->prefixSupplierIsRequired = $mod->prefixIsRequired;
+
+ dol_syslog("Societe::get_codefournisseur code_fournisseur=".$this->code_fournisseur." module=".$var);
+ }
+ }
+
+ /**
+ * \brief Verifie si un code client est modifiable en fonction des parametres
+ * 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;
+
+ dol_syslog("Societe::codeclient_modifiable code_client=".$this->code_client." module=".$var);
+ if ($mod->code_modifiable_null && ! $this->code_client) 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;
+
+ dol_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 Check customer code
+ * \return int 0 if OK
+ * -1 ErrorBadCustomerCodeSyntax
+ * -2 ErrorCustomerCodeRequired
+ * -3 ErrorCustomerCodeAlreadyUsed
+ * -4 ErrorPrefixRequired
+ */
+ 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;
+
+ dol_syslog("Societe::check_codeclient code_client=".$this->code_client." module=".$var);
+ $result = $mod->verif($this->db, $this->code_client, $this, 0);
+ return $result;
+ }
+ else
+ {
+ return 0;
+ }
+ }
+
+ /**
+ * \brief Check supplier code
+ * \return int 0 if OK
+ * -1 ErrorBadCustomerCodeSyntax
+ * -2 ErrorCustomerCodeRequired
+ * -3 ErrorCustomerCodeAlreadyUsed
+ * -4 ErrorPrefixRequired
+ */
+ 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;
+
+ dol_syslog("Societe::check_codefournisseur code_fournisseur=".$this->code_fournisseur." module=".$var);
+ $result = $mod->verif($this->db, $this->code_fournisseur, $this ,1);
+ return $result;
+ }
+ else
+ {
+ return 0;
+ }
+ }
+
+ /**
+ * \brief Renvoie un code compta, suivant le module de code compta.
+ * Peut etre identique a celui saisit ou genere automatiquement.
+ * A ce jour seule la generation automatique est implementee
+ * \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 Defini la societe mere pour les filiales
+ * \param id id compagnie mere a 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 rowid = " . $this->id .";";
+
+ if ( $this->db->query($sql) )
+ {
+ return 1;
+ }
+ else
+ {
+ return -1;
+ }
+ }
+ }
+
+ /**
+ * \brief Supprime la societe mere
+ * \param id id compagnie mere a 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 rowid = " . $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=preg_replace('/(\s)/','',$chaine);
+
+ if (dol_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=preg_replace('/(\s)/','',$chaine);
+
+ if (dol_strlen($chaine) != 14) return -1;
+ }
+
+ return $ok;
+ }
+
+ /**
+ * \brief Renvoi url de verification 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 '['.$langs->trans("Check").'] ';
+ return '';
+ }
+
+ /**
+ * \brief Indique si la societe a des projets
+ * \return bool true si la societe 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($resql);
+ $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.rowid, s.nom, s.datec, s.datea,";
+ $sql.= " fk_user_creat, fk_user_modif";
+ $sql.= " FROM ".MAIN_DB_PREFIX."societe as s";
+ $sql.= " WHERE s.rowid = ".$id;
+
+ $result=$this->db->query($sql);
+ if ($result)
+ {
+ if ($this->db->num_rows($result))
+ {
+ $obj = $this->db->fetch_object($result);
+
+ $this->id = $obj->rowid;
+
+ if ($obj->fk_user_creat) {
+ $cuser = new User($this->db);
+ $cuser->fetch($obj->fk_user_creat);
+ $this->user_creation = $cuser;
+ }
+
+ if ($obj->fk_user_modif) {
+ $muser = new User($this->db);
+ $muser->fetch($obj->fk_user_modif);
+ $this->user_modification = $muser;
+ }
+ $this->ref = $obj->nom;
+ $this->date_creation = $this->db->jdate($obj->datec);
+ $this->date_modification = $this->db->jdate($obj->datea);
+ }
+
+ $this->db->free($result);
+
+ }
+ else
+ {
+ dol_print_error($this->db);
+ }
+ }
+
+ /**
+ * \brief Return if third party is a company (Business) or an end user (Consumer)
+ * \param boolean true=is a company, false=a and user
+ */
+ function isACompany()
+ {
+ global $conf;
+
+ // Define if third party is treated as company of not when nature is unknown
+ $isacompany=empty($conf->global->MAIN_UNKNOWN_CUSTOMERS_ARE_COMPANIES)?0:1; // 0 by default
+ if (! empty($this->tva_intra)) $isacompany=1;
+ else if (! empty($this->typent_code) && in_array($this->typent_code,array('TE_PRIVATE'))) $isacompany=0;
+ else if (! empty($this->typent_code) && in_array($this->typent_code,array('TE_SMALL','TE_MEDIUM','TE_LARGE'))) $isacompany=1;
+
+ return $isacompany;
+ }
+
+
+ /**
+ * \brief Return if a country is inside the EEC (European Economic Community)
+ * \param boolean true = pays inside EEC, false= pays outside EEC
+ */
+ function isInEEC()
+ {
+ // List of all country codes that are in europe for european vat rules
+ // List found on http://ec.europa.eu/taxation_customs/vies/lang.do?fromWhichPage=vieshome
+ $country_code_in_EEC=array(
'AT', // Austria
'BE', // Belgium
'BG', // Bulgaria
@@ -1958,428 +1958,437 @@ class Societe extends CommonObject
'LV', // Latvia
'MC', // Monaco Seems to use same IntraVAT than France (http://www.gouv.mc/devwww/wwwnew.nsf/c3241c4782f528bdc1256d52004f970b/9e370807042516a5c1256f81003f5bb3!OpenDocument)
'MT', // Malta
- //'NO', // Norway
+ //'NO', // Norway
'PL', // Poland
'PT', // Portugal
'RO', // Romania
'SE', // Sweden
'SK', // Slovakia
'SI', // Slovenia
- //'CH', // Switzerland - No. Swizerland in not in EEC
- );
- //print "dd".$this->pays_code;
- return in_array($this->pays_code,$country_code_in_EEC);
- }
+ //'CH', // Switzerland - No. Swizerland in not in EEC
+ );
+ //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."categorie";
- $sql.= " WHERE type = 1";
+ /**
+ * \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."categorie";
+ $sql.= " WHERE type = 1";
- $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;
- }
- }
+ $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."');";
+ /*
+ * \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;
- }
+ if ($resql=$this->db->query($sql)) return 0;
+ }
+ else
+ {
+ return 0;
+ }
+ return -1;
+ }
- /**
- * Add a line in log table to save status change.
- *
- * @param $id_status
- */
- function set_status($id_status)
- {
- $sql = "INSERT INTO ".MAIN_DB_PREFIX."societe_log (datel, fk_soc, fk_statut, fk_user, author, label)";
- $sql.= " VALUES ('".$dateaction."', ".$socid.", ".$id_status.",";
- $sql.= "'".$user->id."',";
- $sql.= "'".addslashes($user->login)."',";
- $sql.= "'Change statut from ".$oldstcomm." to ".$stcommid."'";
- $sql.= ")";
- $result = $thi->db->query($sql);
- if ($result)
- {
- $sql = "UPDATE ".MAIN_DB_PREFIX."societe SET fk_stcomm = ".$stcommid." WHERE rowid=".$socid;
- $result = $this->db->query($sql);
- }
- else
- {
- $errmesg = $this->db->lasterror();
- }
- }
-
- /**
- * \brief Retourne le formulaire de saisie d'un identifiant professionnel (siren, siret, etc...)
- * \param idprof 1,2,3,4 (Exemple: 1=siren,2=siret,3=naf,4=rcs/rm)
- * \param htmlname Nom de la zone input
- * \param preselected Default value to show
- */
- function show_input_id_prof($idprof,$htmlname,$preselected)
- {
- print $this->get_input_id_prof($idprof, $htmlname, $preselected);
- }
+ /**
+ * Add a line in log table to save status change.
+ *
+ * @param $id_status
+ */
+ function set_status($id_status)
+ {
+ $sql = "INSERT INTO ".MAIN_DB_PREFIX."societe_log (datel, fk_soc, fk_statut, fk_user, author, label)";
+ $sql.= " VALUES ('".$dateaction."', ".$socid.", ".$id_status.",";
+ $sql.= "'".$user->id."',";
+ $sql.= "'".addslashes($user->login)."',";
+ $sql.= "'Change statut from ".$oldstcomm." to ".$stcommid."'";
+ $sql.= ")";
+ $result = $thi->db->query($sql);
+ if ($result)
+ {
+ $sql = "UPDATE ".MAIN_DB_PREFIX."societe SET fk_stcomm = ".$stcommid." WHERE rowid=".$socid;
+ $result = $this->db->query($sql);
+ }
+ else
+ {
+ $errmesg = $this->db->lasterror();
+ }
+ }
- /**
- * \brief Retourne le formulaire de saisie d'un identifiant professionnel (siren, siret, etc...)
- * \param idprof 1,2,3,4 (Exemple: 1=siren,2=siret,3=naf,4=rcs/rm)
- * \param htmlname Nom de la zone input
- * \param preselected Default value to show
- */
- function get_input_id_prof($idprof,$htmlname,$preselected)
- {
- global $langs;
+ /**
+ * \brief Retourne le formulaire de saisie d'un identifiant professionnel (siren, siret, etc...)
+ * \param idprof 1,2,3,4 (Exemple: 1=siren,2=siret,3=naf,4=rcs/rm)
+ * \param htmlname Nom de la zone input
+ * \param preselected Default value to show
+ */
+ function show_input_id_prof($idprof,$htmlname,$preselected)
+ {
+ print $this->get_input_id_prof($idprof, $htmlname, $preselected);
+ }
- $formlength=24;
- if ($this->pays_code == 'FR')
- {
- if ($idprof==1) $formlength=9;
- if ($idprof==2) $formlength=14;
- if ($idprof==3) $formlength=5; // 4 chiffres et 1 lettre depuis janvier
- if ($idprof==4) $formlength=32; // No maximum as we need to include a town name in this id
- }
- $selected=$preselected;
- if (! $selected && $idprof==1) $selected=$this->siren;
- if (! $selected && $idprof==2) $selected=$this->siret;
- if (! $selected && $idprof==3) $selected=$this->ape;
- if (! $selected && $idprof==4) $selected=$this->idprof4;
+ /**
+ * \brief Retourne le formulaire de saisie d'un identifiant professionnel (siren, siret, etc...)
+ * \param idprof 1,2,3,4 (Exemple: 1=siren,2=siret,3=naf,4=rcs/rm)
+ * \param htmlname Nom de la zone input
+ * \param preselected Default value to show
+ */
+ function get_input_id_prof($idprof,$htmlname,$preselected)
+ {
+ global $langs;
- $out = '';
- $this->tpl['select_customertype'].= 'client==2?' selected="true"':'').'>'.$langs->trans('Prospect').' ';
- $this->tpl['select_customertype'].= 'client==3?' selected="true"':'').'>'.$langs->trans('ProspectCustomer').' ';
- $this->tpl['select_customertype'].= 'client==1?' selected="true"':'').'>'.$langs->trans('Customer').' ';
- $this->tpl['select_customertype'].= 'client==0?' selected="true"':'').'>'.$langs->trans('NorProspectNorCustomer').' ';
- $this->tpl['select_customertype'].= ' ';
-
- // Customer
- $this->tpl['customercode'] = $this->code_client;
- if ((!$this->code_client || $this->code_client == -1) && $modCodeClient->code_auto) $this->tpl['customercode'] = $modCodeClient->getNextValue($this,0);
- $this->tpl['ismodifiable_customercode'] = $this->codeclient_modifiable();
- $s=$modCodeClient->getToolTip($langs,$this,0);
- $this->tpl['help_customercode'] = $form->textwithpicto('',$s,1);
-
- // Supplier
- $this->tpl['yn_supplier'] = $form->selectyesno("fournisseur",$this->fournisseur,1);
- $this->tpl['suppliercode'] = $this->code_fournisseur;
- if ((!$this->code_fournisseur || $this->code_fournisseur == -1) && $modCodeFournisseur->code_auto) $this->tpl['suppliercode'] = $modCodeFournisseur->getNextValue($this,1);
- $this->tpl['ismodifiable_suppliercode'] = $this->codefournisseur_modifiable();
- $s=$modCodeFournisseur->getToolTip($langs,$this,1);
- $this->tpl['help_suppliercode'] = $form->textwithpicto('',$s,1);
-
- $this->LoadSupplierCateg();
- $this->tpl['suppliercategory'] = $this->SupplierCategories;
- $this->tpl['select_suppliercategory'] = $form->selectarray("fournisseur_categorie",$this->SupplierCategories,$_POST["fournisseur_categorie"],1);
-
- if ($conf->use_javascript_ajax && $conf->global->MAIN_AUTOFILL_TOWNFROMZIP) $this->tpl['autofilltownfromzip'] = ''.$langs->trans("LocalTax1IsUsedES").' ';
- $this->tpl['localtax'].= $form->selectyesno('localtax1assuj_value',$this->localtax1_assuj,1);
- $this->tpl['localtax'].= ' '.$langs->trans("LocalTax2IsUsedES").' ';
- $this->tpl['localtax'].= $form->selectyesno('localtax2assuj_value',$this->localtax1_assuj,1);
- $this->tpl['localtax'].= ' '.$langs->trans("LocalTax1IsUsedES").' ';
- $this->tpl['localtax'].= $form->selectyesno('localtax1assuj_value',$this->localtax1_assuj,1);
- $this->tpl['localtax'].= ' ';
- }
- elseif($mysoc->localtax2_assuj=="1")
- {
- $this->tpl['localtax'].= ' '.$langs->trans("LocalTax2IsUsedES").' ';
- $this->tpl['localtax'].= $form->selectyesno('localtax2assuj_value',$this->localtax1_assuj,1);
- $this->tpl['localtax'].= ' ';
- }
- }
-
- }
-
- if ($action == 'view')
- {
- $this->tpl['showrefnav'] = $form->showrefnav($this,'socid','',($user->societe_id?0:1),'rowid','nom');
-
- $this->tpl['checkcustomercode'] = $this->check_codeclient();
- $this->tpl['checksuppliercode'] = $this->check_codefournisseur();
- $this->tpl['address'] = dol_nl2br($this->address);
-
- $img=picto_from_langcode($this->pays_code);
- if ($this->isInEEC()) $this->tpl['country'] = $form->textwithpicto(($img?$img.' ':'').$this->pays,$langs->trans("CountryIsInEEC"),1,0);
- $this->tpl['country'] = ($img?$img.' ':'').$this->pays;
-
- $this->tpl['phone'] = dol_print_phone($this->tel,$this->pays_code,0,$this->id,'AC_TEL');
- $this->tpl['fax'] = dol_print_phone($this->fax,$this->pays_code,0,$this->id,'AC_FAX');
- $this->tpl['email'] = dol_print_email($this->email,0,$this->id,'AC_EMAIL');
- $this->tpl['url'] = dol_print_url($this->url);
-
- $this->tpl['tva_assuj'] = yn($this->tpl['tva_assuj']);
-
- // Third party type
- $arr = $formcompany->typent_array(1);
- $this->tpl['typent'] = $arr[$this->typent_code];
-
- if ($conf->global->MAIN_MULTILANGS)
- {
- require_once(DOL_DOCUMENT_ROOT."/lib/functions2.lib.php");
- //$s=picto_from_langcode($this->default_lang);
- //print ($s?$s.' ':'');
- $langs->load("languages");
- $this->tpl['default_lang'] = ($this->default_lang?$langs->trans('Language_'.$this->default_lang):'');
- }
-
- $this->tpl['image_edit'] = img_edit();
-
- $this->tpl['display_rib'] = $this->display_rib();
-
- // Sales representatives
- $sql = "SELECT count(sc.rowid) as nb";
- $sql.= " FROM ".MAIN_DB_PREFIX."societe_commerciaux as sc";
- $sql.= " WHERE sc.fk_soc =".$this->id;
- $resql = $this->db->query($sql);
- if ($resql)
- {
- $num = $this->db->num_rows($resql);
- $obj = $this->db->fetch_object($resql);
- $this->tpl['sales_representatives'] = $obj->nb?($obj->nb):$langs->trans("NoSalesRepresentativeAffected");
- }
- else
- {
- dol_print_error($this->db);
- }
-
- // Linked member
- if ($conf->adherent->enabled)
- {
- $langs->load("members");
- $adh=new Adherent($this->db);
- $result=$adh->fetch('','',$this->id);
- if ($result > 0)
- {
- $adh->ref=$adh->getFullName($langs);
- $this->tpl['linked_member'] = $adh->getNomUrl(1);
- }
- else
- {
- $this->tpl['linked_member'] = $langs->trans("UserNotLinkedToMember");
- }
- }
-
- // Local Tax
- // TODO mettre dans une classe propre au pays
- if($mysoc->pays_code=='ES')
- {
- $this->tpl['localtax'] = '';
-
- if($mysoc->localtax1_assuj=="1" && $mysoc->localtax2_assuj=="1")
- {
- $this->tpl['localtax'].= ' '.$langs->trans("LocalTax1IsUsedES").' ';
- $this->tpl['localtax'].= ''.yn($this->localtax1_assuj).' ';
- $this->tpl['localtax'].= ''.$langs->trans("LocalTax2IsUsedES").' ';
- $this->tpl['localtax'].= ''.yn($this->localtax2_assuj).' '.$langs->trans("LocalTax1IsUsedES").' ';
- $this->tpl['localtax'].= ''.yn($this->localtax1_assuj).' '.$langs->trans("LocalTax2IsUsedES").' ';
- $this->tpl['localtax'].= ''.yn($this->localtax2_assuj).' ';
+ $this->tpl['select_customertype'].= 'client==2?' selected="true"':'').'>'.$langs->trans('Prospect').' ';
+ $this->tpl['select_customertype'].= 'client==3?' selected="true"':'').'>'.$langs->trans('ProspectCustomer').' ';
+ $this->tpl['select_customertype'].= 'client==1?' selected="true"':'').'>'.$langs->trans('Customer').' ';
+ $this->tpl['select_customertype'].= 'client==0?' selected="true"':'').'>'.$langs->trans('NorProspectNorCustomer').' ';
+ $this->tpl['select_customertype'].= ' ';
+
+ // Customer
+ $this->tpl['customercode'] = $this->code_client;
+ if ((!$this->code_client || $this->code_client == -1) && $modCodeClient->code_auto) $this->tpl['customercode'] = $modCodeClient->getNextValue($this,0);
+ $this->tpl['ismodifiable_customercode'] = $this->codeclient_modifiable();
+ $s=$modCodeClient->getToolTip($langs,$this,0);
+ $this->tpl['help_customercode'] = $form->textwithpicto('',$s,1);
+
+ // Supplier
+ $this->tpl['yn_supplier'] = $form->selectyesno("fournisseur",$this->fournisseur,1);
+ $this->tpl['suppliercode'] = $this->code_fournisseur;
+ if ((!$this->code_fournisseur || $this->code_fournisseur == -1) && $modCodeFournisseur->code_auto) $this->tpl['suppliercode'] = $modCodeFournisseur->getNextValue($this,1);
+ $this->tpl['ismodifiable_suppliercode'] = $this->codefournisseur_modifiable();
+ $s=$modCodeFournisseur->getToolTip($langs,$this,1);
+ $this->tpl['help_suppliercode'] = $form->textwithpicto('',$s,1);
+
+ $this->LoadSupplierCateg();
+ $this->tpl['suppliercategory'] = $this->SupplierCategories;
+ $this->tpl['select_suppliercategory'] = $form->selectarray("fournisseur_categorie",$this->SupplierCategories,$_POST["fournisseur_categorie"],1);
+
+ if ($conf->use_javascript_ajax && $conf->global->MAIN_AUTOFILL_TOWNFROMZIP) $this->tpl['autofilltownfromzip'] = ''.$langs->trans("LocalTax1IsUsedES").' ';
+ $this->tpl['localtax'].= $form->selectyesno('localtax1assuj_value',$this->localtax1_assuj,1);
+ $this->tpl['localtax'].= ' '.$langs->trans("LocalTax2IsUsedES").' ';
+ $this->tpl['localtax'].= $form->selectyesno('localtax2assuj_value',$this->localtax1_assuj,1);
+ $this->tpl['localtax'].= ' '.$langs->trans("LocalTax1IsUsedES").' ';
+ $this->tpl['localtax'].= $form->selectyesno('localtax1assuj_value',$this->localtax1_assuj,1);
+ $this->tpl['localtax'].= ' ';
+ }
+ elseif($mysoc->localtax2_assuj=="1")
+ {
+ $this->tpl['localtax'].= ' '.$langs->trans("LocalTax2IsUsedES").' ';
+ $this->tpl['localtax'].= $form->selectyesno('localtax2assuj_value',$this->localtax1_assuj,1);
+ $this->tpl['localtax'].= ' ';
+ }
+ }
+
+ }
+
+ if ($action == 'view')
+ {
+ $this->tpl['showrefnav'] = $form->showrefnav($this,'socid','',($user->societe_id?0:1),'rowid','nom');
+
+ $this->tpl['checkcustomercode'] = $this->check_codeclient();
+ $this->tpl['checksuppliercode'] = $this->check_codefournisseur();
+ $this->tpl['address'] = dol_nl2br($this->address);
+
+ $img=picto_from_langcode($this->pays_code);
+ if ($this->isInEEC()) $this->tpl['country'] = $form->textwithpicto(($img?$img.' ':'').$this->pays,$langs->trans("CountryIsInEEC"),1,0);
+ $this->tpl['country'] = ($img?$img.' ':'').$this->pays;
+
+ $this->tpl['phone'] = dol_print_phone($this->tel,$this->pays_code,0,$this->id,'AC_TEL');
+ $this->tpl['fax'] = dol_print_phone($this->fax,$this->pays_code,0,$this->id,'AC_FAX');
+ $this->tpl['email'] = dol_print_email($this->email,0,$this->id,'AC_EMAIL');
+ $this->tpl['url'] = dol_print_url($this->url);
+
+ $this->tpl['tva_assuj'] = yn($this->tpl['tva_assuj']);
+
+ // Third party type
+ $arr = $formcompany->typent_array(1);
+ $this->tpl['typent'] = $arr[$this->typent_code];
+
+ if ($conf->global->MAIN_MULTILANGS)
+ {
+ require_once(DOL_DOCUMENT_ROOT."/lib/functions2.lib.php");
+ //$s=picto_from_langcode($this->default_lang);
+ //print ($s?$s.' ':'');
+ $langs->load("languages");
+ $this->tpl['default_lang'] = ($this->default_lang?$langs->trans('Language_'.$this->default_lang):'');
+ }
+
+ $this->tpl['image_edit'] = img_edit();
+
+ $this->tpl['display_rib'] = $this->display_rib();
+
+ // Sales representatives
+ $sql = "SELECT count(sc.rowid) as nb";
+ $sql.= " FROM ".MAIN_DB_PREFIX."societe_commerciaux as sc";
+ $sql.= " WHERE sc.fk_soc =".$this->id;
+ $resql = $this->db->query($sql);
+ if ($resql)
+ {
+ $num = $this->db->num_rows($resql);
+ $obj = $this->db->fetch_object($resql);
+ $this->tpl['sales_representatives'] = $obj->nb?($obj->nb):$langs->trans("NoSalesRepresentativeAffected");
+ }
+ else
+ {
+ dol_print_error($this->db);
+ }
+
+ // Linked member
+ if ($conf->adherent->enabled)
+ {
+ $langs->load("members");
+ $adh=new Adherent($this->db);
+ $result=$adh->fetch('','',$this->id);
+ if ($result > 0)
+ {
+ $adh->ref=$adh->getFullName($langs);
+ $this->tpl['linked_member'] = $adh->getNomUrl(1);
+ }
+ else
+ {
+ $this->tpl['linked_member'] = $langs->trans("UserNotLinkedToMember");
+ }
+ }
+
+ // Local Tax
+ // TODO mettre dans une classe propre au pays
+ if($mysoc->pays_code=='ES')
+ {
+ $this->tpl['localtax'] = '';
+
+ if($mysoc->localtax1_assuj=="1" && $mysoc->localtax2_assuj=="1")
+ {
+ $this->tpl['localtax'].= ' '.$langs->trans("LocalTax1IsUsedES").' ';
+ $this->tpl['localtax'].= ''.yn($this->localtax1_assuj).' ';
+ $this->tpl['localtax'].= ''.$langs->trans("LocalTax2IsUsedES").' ';
+ $this->tpl['localtax'].= ''.yn($this->localtax2_assuj).' '.$langs->trans("LocalTax1IsUsedES").' ';
+ $this->tpl['localtax'].= ''.yn($this->localtax1_assuj).' '.$langs->trans("LocalTax2IsUsedES").' ';
+ $this->tpl['localtax'].= ''.yn($this->localtax2_assuj).'