diff --git a/htdocs/societe/class/societe.class.php b/htdocs/societe/class/societe.class.php new file mode 100644 index 00000000000..23759aad614 --- /dev/null +++ b/htdocs/societe/class/societe.class.php @@ -0,0 +1,2111 @@ + + * Copyright (C) 2004-2010 Laurent Destailleur + * Copyright (C) 2004 Eric Seigne + * Copyright (C) 2003 Brian Fraval + * Copyright (C) 2006 Andre Cianfarani + * Copyright (C) 2005-2009 Regis Houssin + * Copyright (C) 2008 Patrick Raguin + * Copyright (C) 2010 Juanjo Menent + * + * This program is free software; you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program; if not, write to the Free Software + * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. + */ + +/** + * \file htdocs/societe/class/societe.class.php + * \ingroup societe + * \brief File for third party class + * \version $Id$ + */ +require_once(DOL_DOCUMENT_ROOT."/core/class/commonobject.class.php"); + + +/** + * \class Societe + * \brief Class to manage third parties objects (customers, suppliers, prospects...) + */ +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 $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; + } + + $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); + + // Check more parameters + $result = $this->verify(); + + if ($result >= 0) + { + $sql = "INSERT INTO ".MAIN_DB_PREFIX."societe (nom, entity, datec, datea, fk_user_creat)"; + $sql.= " VALUES ('".addslashes($this->nom)."', ".$conf->entity.", ".$this->db->idate(gmmktime()).", ".$this->db->idate(gmmktime()).","; + $sql.= " ".($user->id > 0 ? "'".$user->id."'":"null"); + $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 + { + 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 (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'"; + + if ($this->db->query($sql)) + { + $num = $this->db->num_rows(); + $i = 0; + + while ($i < $num) + { + $objp = $this->db->fetch_object(); + $array_push($facimp, $objp->rowid); + $i++; + print $i; + } + + $this->db->free(); + } + return $facimp; + } + + /** + * \brief Attribut le prefix de la 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 + * \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."'"; + + if ($this->db->query($sql) ) + { + $nump = $this->db->num_rows(); + + if ($nump) + { + + $obj = $this->db->fetch_object(); + + $contact_email = "$obj->firstname $obj->name <$obj->email>"; + + } + return $contact_email; + } + else + { + 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 (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 (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(); + $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 Renvoi si pays appartient a CEE + * \param boolean true = pays dans CEE, false= pays hors CEE + */ + 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 + 'CY', // Cyprus + 'CZ', // Czech republic + 'DE', // Germany + 'DK', // Danemark + 'EE', // Estonia + 'ES', // Spain + 'FI', // Finland + 'FR', // France + 'GB', // Royaume-uni + 'GR', // Greece + 'NL', // Holland + 'HU', // Hungary + 'IE', // Ireland + 'IT', // Italy + 'LT', // Lithuania + 'LU', // Luxembourg + '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 + '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); + } + + /** + * \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; + } + } + + /* + * \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; + } + + + /** + * 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 = $this->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->error; + } + } + + /** + * \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) + { + global $langs; + + $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; + + print ''; + } + + /** + * \brief Cree en base un tiers depuis l'objet adherent + * \param member Objet adherent source + * \param socname Name of third to force + * \return int Si erreur <0, si ok renvoie id compte cree + */ + function create_from_member($member,$socname='') + { + global $conf,$user,$langs; + + $name = !empty($socname)?$socname:$member->societe; + if (empty($name)) $name=trim($member->nom.' '.$member->prenom); + + // Positionne parametres + $this->email = $member->email; + $this->nom = $name; + $this->client = 1; // A member is a customer by default + $this->code_client = -1; + $this->code_fournisseur = -1; + $this->adresse=$member->adresse; // TODO obsolete + $this->address=$member->adresse; + $this->cp=$member->cp; + $this->ville=$member->ville; + $this->pays_code=$member->pays_code; + $this->pays_id=$member->pays_id; + $this->tel=$member->phone; // Prof phone + + $this->db->begin(); + + // Cree et positionne $this->id + $result=$this->create($user); + if ($result >= 0) + { + $sql = "UPDATE ".MAIN_DB_PREFIX."adherent"; + $sql.= " SET fk_soc=".$this->id; + $sql.= " WHERE rowid=".$member->id; + + dol_syslog("Societe::create_from_member sql=".$sql, LOG_DEBUG); + $resql=$this->db->query($sql); + if ($resql) + { + $this->db->commit(); + return $this->id; + } + else + { + $this->error=$this->db->error(); + dol_syslog("Societe::create_from_member - 1 - ".$this->error, LOG_ERR); + + $this->db->rollback(); + return -1; + } + } + else + { + // $this->error deja positionne + dol_syslog("Societe::create_from_member - 2 - ".$this->error, LOG_ERR); + + $this->db->rollback(); + return $result; + } + } + +} + +?>