forked from Wavyzz/dolibarr
2527 lines
85 KiB
PHP
2527 lines
85 KiB
PHP
<?php
|
|
/* Copyright (C) 2002-2006 Rodolphe Quiedeville <rodolphe@quiedeville.org>
|
|
* Copyright (C) 2004-2010 Laurent Destailleur <eldy@users.sourceforge.net>
|
|
* Copyright (C) 2004 Eric Seigne <eric.seigne@ryxeo.com>
|
|
* Copyright (C) 2003 Brian Fraval <brian@fraval.org>
|
|
* Copyright (C) 2006 Andre Cianfarani <acianfa@free.fr>
|
|
* Copyright (C) 2005-2009 Regis Houssin <regis@dolibarr.fr>
|
|
* Copyright (C) 2008 Patrick Raguin <patrick.raguin@auguria.net>
|
|
* Copyright (C) 2010-2011 Juanjo Menent <jmenent@2byte.es>
|
|
*
|
|
* 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, see <http://www.gnu.org/licenses/>.
|
|
*/
|
|
|
|
/**
|
|
* \file htdocs/societe/class/societe.class.php
|
|
* \ingroup societe
|
|
* \brief File for third party class
|
|
*/
|
|
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
|
|
{
|
|
public $element='societe';
|
|
public $table_element = 'societe';
|
|
public $fk_element='fk_soc';
|
|
public $childtables=array("propal","commande","facture","contrat","facture_fourn","commande_fournisseur");
|
|
protected $ismultientitymanaged = 1; // 0=No test on entity, 1=Test with field entity, 2=Test with link by societe
|
|
|
|
var $id;
|
|
var $name; // TODO obsolete
|
|
var $nom;
|
|
var $nom_particulier;
|
|
var $prenom;
|
|
var $particulier;
|
|
var $address;
|
|
var $adresse; // TODO obsolete
|
|
var $cp; // TODO obsolete
|
|
var $zip;
|
|
var $ville; // TODO obsolete
|
|
var $town;
|
|
var $status; // 0=activity ceased, 1= in activity
|
|
|
|
var $state_id;
|
|
var $state_code;
|
|
var $state;
|
|
var $departement_id;
|
|
var $departement_code;
|
|
var $departement;
|
|
|
|
var $pays_id; // TODO obsolete
|
|
var $pays_code; // TODO obsolete
|
|
var $pays; // TODO obsolete
|
|
var $country_id;
|
|
var $country_code;
|
|
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, 3=customer and prospect
|
|
var $prospect; // 0=no prospect, 1=prospect
|
|
var $fournisseur; // 0=no 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 $ref_int;
|
|
var $import_key;
|
|
|
|
var $logo;
|
|
var $logo_small;
|
|
var $logo_mini;
|
|
|
|
/**
|
|
* Constructor
|
|
*
|
|
* @param DoliDB $DB Database handler
|
|
*/
|
|
public function Societe($DB)
|
|
{
|
|
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;
|
|
$this->status = 1;
|
|
|
|
return 1;
|
|
}
|
|
|
|
|
|
/**
|
|
* 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
|
|
if (empty($this->status)) $this->status=0;
|
|
$this->name=$this->name?trim($this->name):trim($this->nom);
|
|
if (! empty($conf->global->MAIN_FIRST_TO_UPPER)) $this->name=ucwords($this->name);
|
|
$this->nom=$this->name; // For backward compatibility
|
|
if (empty($this->client)) $this->client=0;
|
|
if (empty($this->fournisseur)) $this->fournisseur=0;
|
|
|
|
dol_syslog("Societe::create ".$this->name);
|
|
|
|
// Check parameters
|
|
if (! empty($conf->global->SOCIETE_MAIL_REQUIRED) && ! isValidEMail($this->email))
|
|
{
|
|
$langs->load("errors");
|
|
$this->error = $langs->trans("ErrorBadEMail",$this->email);
|
|
return -1;
|
|
}
|
|
|
|
$now=dol_now();
|
|
|
|
$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
|
|
// If error, this->errors[] is filled
|
|
$result = $this->verify();
|
|
|
|
if ($result >= 0)
|
|
{
|
|
$sql = "INSERT INTO ".MAIN_DB_PREFIX."societe (nom, entity, datec, datea, fk_user_creat, canvas, status, ref_int)";
|
|
$sql.= " VALUES ('".$this->db->escape($this->name)."', ".$conf->entity.", '".$this->db->idate($now)."', '".$this->db->idate($now)."'";
|
|
$sql.= ", ".($user->id > 0 ? "'".$user->id."'":"null");
|
|
$sql.= ", ".($this->canvas ? "'".$this->canvas."'":"null");
|
|
$sql.= ", ".$this->status;
|
|
$sql.= ", ".($this->ref_int ? "'".$this->ref_int."'":"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,'add');
|
|
|
|
// 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 $this->id;
|
|
}
|
|
else
|
|
{
|
|
dol_syslog("Societe::Create echec update ".$this->error, LOG_ERR);
|
|
$this->db->rollback();
|
|
return -3;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
if ($this->db->errno() == 'DB_ERROR_RECORD_ALREADY_EXISTS')
|
|
{
|
|
|
|
$this->error=$langs->trans("ErrorCompanyNameAlreadyExists",$this->name);
|
|
$result=-1;
|
|
}
|
|
else
|
|
{
|
|
$this->error=$this->db->lasterror();
|
|
dol_syslog("Societe::Create fails insert sql=".$sql, LOG_ERR);
|
|
$result=-2;
|
|
}
|
|
$this->db->rollback();
|
|
return $result;
|
|
}
|
|
|
|
}
|
|
else
|
|
{
|
|
$this->db->rollback();
|
|
dol_syslog("Societe::Create fails verify ".join(',',$this->errors), LOG_WARNING);
|
|
return -3;
|
|
}
|
|
}
|
|
|
|
/**
|
|
* 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->name=$this->name?trim($this->name):trim($this->nom);
|
|
$this->nom=$this->name; // For backward compatibility
|
|
|
|
if (! $this->name)
|
|
{
|
|
$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;
|
|
}
|
|
|
|
/**
|
|
* 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
|
|
* @param action 'create' or 'update'
|
|
* @return int <0 if KO, >=0 if OK
|
|
*/
|
|
function update($id, $user='', $call_trigger=1, $allowmodcodeclient=0, $allowmodcodefournisseur=0, $action='update')
|
|
{
|
|
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);
|
|
|
|
// For triggers
|
|
if ($call_trigger)
|
|
{
|
|
$objectstatic=new Societe($this->db);
|
|
$objectstatic->fetch($id);
|
|
$this->oldobject = $objectstatic;
|
|
}
|
|
|
|
$now=dol_now();
|
|
|
|
// Clean parameters
|
|
$this->id=$id;
|
|
$this->name=$this->name?trim($this->name):trim($this->nom);
|
|
$this->nom=trim($this->nom); // TODO obsolete
|
|
$this->address=$this->address?trim($this->address):trim($this->adresse);
|
|
$this->adresse=$this->address; // TODO obsolete
|
|
$this->zip=$this->zip?trim($this->zip):trim($this->cp);
|
|
$this->cp=$this->zip; // TODO obsolete
|
|
$this->town=$this->town?trim($this->town):trim($this->ville);
|
|
$this->ville=$this->town; // TODO obsolete
|
|
$this->state_id=trim($this->state_id);
|
|
$this->pays_id=trim($this->pays_id);
|
|
$this->country_id=trim($this->country_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,'');
|
|
if (empty($this->status)) $this->status = 0;
|
|
|
|
// Local taxes
|
|
$this->localtax1_assuj=trim($this->localtax1_assuj);
|
|
$this->localtax2_assuj=trim($this->localtax2_assuj);
|
|
|
|
$this->capital=price2num(trim($this->capital),'MT');
|
|
if (empty($this->capital)) $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;
|
|
}
|
|
|
|
$this->db->begin();
|
|
|
|
// 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 = '" . $this->db->escape($this->name) ."'"; // Champ obligatoire
|
|
$sql.= ",datea = '".$this->db->idate($now)."'";
|
|
$sql.= ",address = '" . $this->db->escape($this->address) ."'";
|
|
|
|
$sql.= ",cp = ".($this->zip?"'".$this->zip."'":"null");
|
|
$sql.= ",ville = ".($this->town?"'".$this->db->escape($this->town)."'":"null");
|
|
|
|
$sql .= ",fk_departement = '" . ($this->state_id?$this->state_id:'0') ."'";
|
|
$sql .= ",fk_pays = '" . ($this->country_id?$this->country_id:'0') ."'";
|
|
|
|
$sql .= ",tel = ".($this->tel?"'".$this->db->escape($this->tel)."'":"null");
|
|
$sql .= ",fax = ".($this->fax?"'".$this->db->escape($this->fax)."'":"null");
|
|
$sql .= ",email = ".($this->email?"'".$this->db->escape($this->email)."'":"null");
|
|
$sql .= ",url = ".($this->url?"'".$this->db->escape($this->url)."'":"null");
|
|
|
|
$sql .= ",siren = '". $this->db->escape($this->siren) ."'";
|
|
$sql .= ",siret = '". $this->db->escape($this->siret) ."'";
|
|
$sql .= ",ape = '". $this->db->escape($this->ape) ."'";
|
|
$sql .= ",idprof4 = '". $this->db->escape($this->idprof4) ."'";
|
|
|
|
$sql .= ",tva_assuj = ".($this->tva_assuj!=''?"'".$this->tva_assuj."'":"null");
|
|
$sql .= ",tva_intra = '" . $this->db->escape($this->tva_intra) ."'";
|
|
$sql .= ",status = " .$this->status;
|
|
|
|
// Local taxes
|
|
$sql .= ",localtax1_assuj = ".($this->localtax1_assuj!=''?"'".$this->localtax1_assuj."'":"null");
|
|
$sql .= ",localtax2_assuj = ".($this->localtax2_assuj!=''?"'".$this->localtax2_assuj."'":"null");
|
|
|
|
$sql .= ",capital = ".$this->capital;
|
|
|
|
$sql .= ",prefix_comm = ".($this->prefix_comm?"'".$this->db->escape($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?$this->client:0);
|
|
$sql .= ",fournisseur = " . ($this->fournisseur?$this->fournisseur:0);
|
|
$sql .= ",gencod = ".($this->gencod?"'".$this->gencod."'":"null");
|
|
$sql .= ",default_lang = ".($this->default_lang?"'".$this->default_lang."'":"null");
|
|
$sql .= ",logo = ".($this->logo?"'".$this->logo."'":"null");
|
|
|
|
if ($allowmodcodeclient)
|
|
{
|
|
//$this->check_codeclient();
|
|
|
|
$sql .= ", code_client = ".($this->code_client?"'".$this->db->escape($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?"'".$this->db->escape($this->code_compta)."'":"null");
|
|
}
|
|
|
|
if ($allowmodcodefournisseur)
|
|
{
|
|
//$this->check_codefournisseur();
|
|
|
|
$sql .= ", code_fournisseur = ".($this->code_fournisseur?"'".$this->db->escape($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?"'".$this->db->escape($this->code_compta_fournisseur)."'":"null");
|
|
}
|
|
$sql .= ", fk_user_modif = ".($user->id > 0 ? "'".$user->id."'":"null");
|
|
$sql .= " WHERE rowid = '" . $id ."'";
|
|
|
|
|
|
dol_syslog(get_class($this)."::Update sql=".$sql);
|
|
$resql=$this->db->query($sql);
|
|
if ($resql)
|
|
{
|
|
// Si le fournisseur est classe on l'ajoute
|
|
$this->AddFournisseurInCategory($this->fournisseur_categorie);
|
|
|
|
// Actions on extra fields (by external module or standard code)
|
|
include_once(DOL_DOCUMENT_ROOT.'/core/class/hookmanager.class.php');
|
|
$hookmanager=new HookManager($this->db);
|
|
$hookmanager->callHooks(array('thirdparty_extrafields'));
|
|
$parameters=array('socid'=>$socid);
|
|
$reshook=$hookmanager->executeHooks('insertExtraFields',$parameters,$this,$action); // Note that $action and $object may have been modified by some hooks
|
|
if (empty($reshook))
|
|
{
|
|
$result=$this->insertExtraFields();
|
|
if ($result < 0)
|
|
{
|
|
$error++;
|
|
}
|
|
}
|
|
else if ($reshook < 0) $error++;
|
|
|
|
if (! $error && $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
|
|
}
|
|
|
|
if (! $error)
|
|
{
|
|
dol_syslog(get_class($this)."::Update success");
|
|
$this->db->commit();
|
|
return 1;
|
|
}
|
|
else
|
|
{
|
|
$this->db->rollback();
|
|
return -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(get_class($this)."::Update fails update sql=".$sql, LOG_ERR);
|
|
$result = -2;
|
|
}
|
|
$this->db->rollback();
|
|
return $result;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
$this->db->rollback();
|
|
dol_syslog(get_class($this)."::Update fails verify ".join(',',$this->errors), LOG_WARNING);
|
|
return -3;
|
|
}
|
|
}
|
|
|
|
/**
|
|
* Load a third party from database into memory
|
|
* @param rowid Id of third party to load
|
|
* @param ref Reference of third party, name (Warning, this can return several records)
|
|
* @param ref_ext External reference of third party (Warning, this information is a free field not provided by Dolibarr)
|
|
* @param ref_int Internal reference of third party
|
|
* @param idprof1 Prof id 1 of third party (Warning, this can return several records)
|
|
* @param idprof2 Prof id 2 of third party (Warning, this can return several records)
|
|
* @param idprof3 Prof id 3 of third party (Warning, this can return several records)
|
|
* @param idprof4 Prof id 4 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 or idprof.
|
|
*/
|
|
function fetch($rowid, $ref='', $ref_ext='', $ref_int='', $idprof1='',$idprof2='',$idprof3='',$idprof4='')
|
|
{
|
|
global $langs;
|
|
global $conf;
|
|
|
|
if (empty($rowid) && empty($ref) && empty($ref_ext) && empty($ref_int)) return -1;
|
|
|
|
$sql = 'SELECT s.rowid, s.nom as name, s.entity, s.ref_ext, s.ref_int, s.address, s.datec as datec, s.prefix_comm';
|
|
$sql .= ', s.status';
|
|
$sql .= ', s.price_level';
|
|
$sql .= ', s.tms as date_update';
|
|
$sql .= ', s.tel, s.fax, s.email, s.url, s.cp as zip, s.ville as town, 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, s.logo';
|
|
$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 ($rowid) $sql .= ' WHERE s.rowid = '.$rowid;
|
|
if ($ref) $sql .= " WHERE s.nom = '".$this->db->escape($ref)."' AND s.entity = ".$conf->entity;
|
|
if ($ref_ext) $sql .= " WHERE s.ref_ext = '".$this->db->escape($ref_ext)."' AND s.entity = ".$conf->entity;
|
|
if ($ref_int) $sql .= " WHERE s.ref_int = '".$this->db->escape($ref_int)."' AND s.entity = ".$conf->entity;
|
|
if ($idprof1) $sql .= " WHERE s.siren = '".$this->db->escape($siren)."' AND s.entity = ".$conf->entity;
|
|
if ($idprof2) $sql .= " WHERE s.siret = '".$this->db->escape($siret)."' AND s.entity = ".$conf->entity;
|
|
if ($idprof3) $sql .= " WHERE s.ape = '".$this->db->escape($ape)."' AND s.entity = ".$conf->entity;
|
|
if ($idprof4) $sql .= " WHERE s.idprof4 = '".$this->db->escape($idprof4)."' 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->entity = $obj->entity;
|
|
|
|
$this->ref = $obj->rowid;
|
|
$this->name = $obj->name;
|
|
$this->nom = $obj->name; // TODO obsolete
|
|
$this->ref_ext = $obj->ref_ext;
|
|
$this->ref_int = $obj->ref_int;
|
|
|
|
$this->datec = $this->db->jdate($obj->datec);
|
|
$this->date_update = $this->db->jdate($obj->date_update);
|
|
|
|
$this->address = $obj->address;
|
|
$this->adresse = $obj->address; // TODO obsolete
|
|
$this->zip = $obj->zip;
|
|
$this->cp = $obj->zip; // TODO obsolete
|
|
$this->town = $obj->town;
|
|
$this->ville = $obj->town;// TODO obsolete
|
|
|
|
$this->pays_id = $obj->fk_pays; // TODO obsolete
|
|
$this->country_id = $obj->fk_pays;
|
|
$this->pays_code = $obj->fk_pays?$obj->pays_code:''; // TODO obsolete
|
|
$this->country_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->state_id = $obj->fk_departement;
|
|
$this->state_code = $obj->departement_code;
|
|
$this->state = $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;
|
|
$this->status = $obj->status;
|
|
|
|
// 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;
|
|
$this->logo = $obj->logo;
|
|
|
|
// 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='.$rowid;
|
|
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 (! empty($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";
|
|
$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 .= " 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->name = $obj->name;
|
|
$this->address = $obj->address;
|
|
$this->cp = $obj->cp; // TODO deprecated
|
|
$this->zip = $obj->cp;
|
|
$this->ville = $obj->ville; // TODO deprecated
|
|
$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 deprecated
|
|
$this->country = $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; // TODO deprecated
|
|
$this->phone = $obj->tel;
|
|
$this->fax = $obj->fax;
|
|
$this->note = $obj->note;
|
|
|
|
|
|
$this->db->free($result);
|
|
|
|
return 1;
|
|
}
|
|
else
|
|
{
|
|
$this->error=$this->db->error();
|
|
return -1;
|
|
}
|
|
}
|
|
|
|
/**
|
|
* Delete a third party from database and all its dependencies (contacts, rib...)
|
|
*
|
|
* @param id id of third party to delete
|
|
* @return int <0 if KO, 0 if nothing done, >0 if OK
|
|
*/
|
|
function delete($id)
|
|
{
|
|
global $user,$langs,$conf;
|
|
require_once(DOL_DOCUMENT_ROOT."/lib/files.lib.php");
|
|
|
|
dol_syslog(get_class($this)."::delete", LOG_DEBUG);
|
|
$error = 0;
|
|
|
|
// Test if child exists
|
|
$objectisused = $this->isObjectUsed($id);
|
|
if (empty($objectisused))
|
|
{
|
|
$this->db->begin();
|
|
|
|
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
|
|
if (! $error)
|
|
{
|
|
$sql = "DELETE from ".MAIN_DB_PREFIX."socpeople";
|
|
$sql.= " WHERE fk_soc = " . $id;
|
|
dol_syslog(get_class($this)."::delete sql=".$sql, LOG_DEBUG);
|
|
if (! $this->db->query($sql))
|
|
{
|
|
$error++;
|
|
$this->error .= $this->db->lasterror();
|
|
dol_syslog(get_class($this)."::delete erreur -1 ".$this->error, LOG_ERR);
|
|
}
|
|
}
|
|
|
|
// Update link in member table
|
|
if (! $error)
|
|
{
|
|
$sql = "UPDATE ".MAIN_DB_PREFIX."adherent";
|
|
$sql.= " SET fk_soc = NULL WHERE fk_soc = " . $id;
|
|
dol_syslog(get_class($this)."::delete sql=".$sql, LOG_DEBUG);
|
|
if (! $this->db->query($sql))
|
|
{
|
|
$error++;
|
|
$this->error .= $this->db->lasterror();
|
|
dol_syslog(get_class($this)."::delete erreur -1 ".$this->error, LOG_ERR);
|
|
}
|
|
}
|
|
|
|
// Remove ban
|
|
if (! $error)
|
|
{
|
|
$sql = "DELETE from ".MAIN_DB_PREFIX."societe_rib";
|
|
$sql.= " WHERE fk_soc = " . $id;
|
|
dol_syslog(get_class($this)."::Delete sql=".$sql, LOG_DEBUG);
|
|
if (! $this->db->query($sql))
|
|
{
|
|
$error++;
|
|
$this->error = $this->db->lasterror();
|
|
dol_syslog(get_class($this)."::Delete erreur -2 ".$this->error, LOG_ERR);
|
|
}
|
|
}
|
|
|
|
if (! $error)
|
|
{
|
|
// Actions on extra fields (by external module or standard code)
|
|
include_once(DOL_DOCUMENT_ROOT.'/core/class/hookmanager.class.php');
|
|
$hookmanager=new HookManager($this->db);
|
|
$hookmanager->callHooks(array('thirdparty_extrafields'));
|
|
$parameters=array(); $action='delete';
|
|
$reshook=$hookmanager->executeHooks('deleteExtraFields',$parameters,$this,$action); // Note that $action and $object may have been modified by some hooks
|
|
if (! empty($hookmanager->error))
|
|
{
|
|
$error++;
|
|
$this->error=$hookmanager->error;
|
|
}
|
|
else if (empty($reshook))
|
|
{
|
|
// TODO
|
|
//$result=$this->deleteExtraFields($this);
|
|
//if ($result < 0) $error++;
|
|
}
|
|
}
|
|
|
|
// Remove third party
|
|
if (! $error)
|
|
{
|
|
$sql = "DELETE from ".MAIN_DB_PREFIX."societe";
|
|
$sql.= " WHERE rowid = " . $id;
|
|
dol_syslog(get_class($this)."::delete sql=".$sql, LOG_DEBUG);
|
|
if (! $this->db->query($sql))
|
|
{
|
|
$error++;
|
|
$this->error = $this->db->lasterror();
|
|
dol_syslog(get_class($this)."::delete erreur -3 ".$this->error, LOG_ERR);
|
|
}
|
|
}
|
|
|
|
if (! $error)
|
|
{
|
|
// 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
|
|
}
|
|
|
|
if (! $error)
|
|
{
|
|
$this->db->commit();
|
|
|
|
// Delete directory
|
|
$docdir = $conf->societe->dir_output . "/" . $id;
|
|
if (file_exists ($docdir))
|
|
{
|
|
dol_delete_dir_recursive($docdir);
|
|
}
|
|
|
|
return 1;
|
|
}
|
|
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;
|
|
}
|
|
|
|
/**
|
|
* Update record to set prefix
|
|
*/
|
|
function attribute_prefix()
|
|
{
|
|
global $conf;
|
|
|
|
$sql = "SELECT nom as name 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->name);
|
|
$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.= " '".$this->db->escape($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;
|
|
}
|
|
}
|
|
|
|
/**
|
|
* 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
|
|
* @param tva_tx VAT rate
|
|
* @return int <0 if KO, id or record if 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;
|
|
}
|
|
}
|
|
|
|
/**
|
|
* Return array of sales representatives
|
|
* @return array Array of sales representatives of third party
|
|
*/
|
|
function getSalesRepresentatives($user='')
|
|
{
|
|
global $conf;
|
|
|
|
$reparray=array();
|
|
|
|
$sql = "SELECT u.rowid, u.name, u.firstname";
|
|
$sql.= " FROM ".MAIN_DB_PREFIX."societe_commerciaux as sc, ".MAIN_DB_PREFIX."user as u";
|
|
$sql.= " WHERE u.rowid = sc.fk_user AND sc.fk_soc =".$this->id;
|
|
$sql.= " AND entity in (0, ".$conf->entity.")";
|
|
|
|
$resql = $this->db->query($sql);
|
|
if ($resql)
|
|
{
|
|
$num = $this->db->num_rows($resql);
|
|
$i=0;
|
|
while ($i < $num)
|
|
{
|
|
$obj = $this->db->fetch_object($resql);
|
|
$reparray[$i]['id']=$obj->rowid;
|
|
$reparray[$i]['name']=$obj->name;
|
|
$reparray[$i]['firstname']=$obj->firstname;
|
|
$i++;
|
|
}
|
|
return $reparray;
|
|
}
|
|
else {
|
|
dol_print_error($this->db);
|
|
return -1;
|
|
}
|
|
}
|
|
|
|
/**
|
|
* Set the price level
|
|
*
|
|
* @param $price_level
|
|
* @param $user
|
|
*/
|
|
function set_price_level($price_level, $user)
|
|
{
|
|
if ($this->id)
|
|
{
|
|
$now=dol_now();
|
|
|
|
$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($now)."',".$this->id.",'".$price_level."',".$user->id.")";
|
|
|
|
if (! $this->db->query($sql) )
|
|
{
|
|
dol_print_error($this->db);
|
|
return -1;
|
|
}
|
|
return 1;
|
|
}
|
|
return -1;
|
|
}
|
|
|
|
/**
|
|
*
|
|
*
|
|
*/
|
|
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");
|
|
}
|
|
|
|
}
|
|
}
|
|
|
|
|
|
/**
|
|
* Return a link on thirdparty (with picto)
|
|
* @param withpicto Inclut le picto dans le lien (0=No picto, 1=Inclut le picto dans le lien, 2=Picto seul)
|
|
* @param option Sur quoi pointe le lien ('', 'customer', 'prospect', 'supplier')
|
|
* @param maxlen Max length of text
|
|
* @return string String with URL
|
|
*/
|
|
function getNomUrl($withpicto=0,$option='',$maxlen=0)
|
|
{
|
|
global $conf,$langs;
|
|
|
|
$result='';
|
|
$lien=$lienfin='';
|
|
|
|
if ($option == 'customer' || $option == 'compta')
|
|
{
|
|
if (($this->client == 1 || $this->client == 3) && empty($conf->global->SOCIETE_DISABLE_CUSTOMERS)) // Only customer
|
|
{
|
|
$lien = '<a href="'.DOL_URL_ROOT.'/comm/fiche.php?socid='.$this->id;
|
|
}
|
|
elseif($this->client == 2 && empty($conf->global->SOCIETE_DISABLE_PROSPECTS)) // Only prospect
|
|
{
|
|
$lien = '<a href="'.DOL_URL_ROOT.'/comm/prospect/fiche.php?socid='.$this->id;
|
|
}
|
|
}
|
|
else if ($option == 'prospect' && empty($conf->global->SOCIETE_DISABLE_PROSPECTS))
|
|
{
|
|
$lien = '<a href="'.DOL_URL_ROOT.'/comm/prospect/fiche.php?socid='.$this->id;
|
|
}
|
|
else if ($option == 'supplier')
|
|
{
|
|
$lien = '<a href="'.DOL_URL_ROOT.'/fourn/fiche.php?socid='.$this->id;
|
|
}
|
|
// By default
|
|
if (empty($lien))
|
|
{
|
|
$lien = '<a href="'.DOL_URL_ROOT.'/societe/soc.php?socid='.$this->id;
|
|
}
|
|
|
|
// Add type of canvas
|
|
$lien.=(!empty($this->canvas)?'&canvas='.$this->canvas:'').'">';
|
|
$lienfin='</a>';
|
|
|
|
$name=$this->name?$this->name:$this->nom;
|
|
|
|
if ($withpicto) $result.=($lien.img_object($langs->trans("ShowCompany").': '.$name,'company').$lienfin);
|
|
if ($withpicto && $withpicto != 2) $result.=' ';
|
|
$result.=$lien.($maxlen?dol_trunc($name,$maxlen):$name).$lienfin;
|
|
|
|
return $result;
|
|
}
|
|
|
|
/**
|
|
* Return label of status (activity, closed)
|
|
* @param mode 0=libelle long, 1=libelle court, 2=Picto + Libelle court, 3=Picto, 4=Picto + Libelle long
|
|
* @return string Libelle
|
|
*/
|
|
function getLibStatut($mode=0)
|
|
{
|
|
return $this->LibStatut($this->status,$mode);
|
|
}
|
|
|
|
/**
|
|
* Renvoi le libelle d'un statut donne
|
|
* @param statut Id statut
|
|
* @param mode 0=libelle long, 1=libelle court, 2=Picto + Libelle court, 3=Picto, 4=Picto + Libelle long, 5=Libelle court + Picto
|
|
* @return string Libelle du statut
|
|
*/
|
|
function LibStatut($statut,$mode=0)
|
|
{
|
|
global $langs;
|
|
$langs->load('companies');
|
|
|
|
if ($mode == 0)
|
|
{
|
|
if ($statut==0) return $langs->trans("ActivityCeased");
|
|
if ($statut==1) return $langs->trans("InActivity");
|
|
}
|
|
if ($mode == 1)
|
|
{
|
|
if ($statut==0) return $langs->trans("ActivityCeased");
|
|
if ($statut==1) return $langs->trans("InActivity");
|
|
}
|
|
if ($mode == 2)
|
|
{
|
|
if ($statut==0) return img_picto($langs->trans("ActivityCeased"),'statut6').' '.$langs->trans("ActivityCeased");
|
|
if ($statut==1) return img_picto($langs->trans("InActivity"),'statut4').' '.$langs->trans("InActivity");
|
|
}
|
|
if ($mode == 3)
|
|
{
|
|
if ($statut==0) return img_picto($langs->trans("ActivityCeased"),'statut6');
|
|
if ($statut==1) return img_picto($langs->trans("InActivity"),'statut4');
|
|
}
|
|
if ($mode == 4)
|
|
{
|
|
if ($statut==0) return img_picto($langs->trans("ActivityCeased"),'statut6').' '.$langs->trans("ActivityCeased");
|
|
if ($statut==1) return img_picto($langs->trans("InActivity"),'statut4').' '.$langs->trans("InActivity");
|
|
}
|
|
if ($mode == 5)
|
|
{
|
|
if ($statut==0) return $langs->trans("ActivityCeased").' '.img_picto($langs->trans("ActivityCeased"),'statut6');
|
|
if ($statut==1) return $langs->trans("InActivity").' '.img_picto($langs->trans("InActivity"),'statut4');
|
|
}
|
|
}
|
|
|
|
/**
|
|
* Return full address of third party
|
|
* @param withcountry 1=Add country into address string
|
|
* @param sep Separator to use to build string
|
|
* @return string Full address string
|
|
*/
|
|
function getFullAddress($withcountry=0,$sep="\n")
|
|
{
|
|
$ret='';
|
|
if (in_array($this->country,array('us')))
|
|
{
|
|
$ret.=($this->address?$this->address.$sep:'');
|
|
$ret.=trim($this->zip.' '.$this->town);
|
|
if ($withcountry) $ret.=($this->country?$sep.$this->country:'');
|
|
}
|
|
else
|
|
{
|
|
$ret.=($this->address?$this->address.$sep:'');
|
|
$ret.=trim($this->zip.' '.$this->town);
|
|
if ($withcountry) $ret.=($this->country?$sep.$this->country:'');
|
|
}
|
|
return trim($ret);
|
|
}
|
|
|
|
|
|
/**
|
|
* Return list of contacts emails existing for third party
|
|
*
|
|
* @param int $addthirdparty 1=Add also a record for thirdparty email
|
|
* @return array Array of contacts emails
|
|
*/
|
|
function thirdparty_and_contact_email_array($addthirdparty=0)
|
|
{
|
|
global $langs;
|
|
|
|
$contact_emails = $this->contact_property_array('email');
|
|
if ($this->email && $addthirdparty)
|
|
{
|
|
if (empty($this->name)) $this->name=$this->nom;
|
|
// TODO: Tester si email non deja present dans tableau contact
|
|
$contact_emails['thirdparty']=$langs->trans("ThirdParty").': '.dol_trunc($this->name,16)." <".$this->email.">";
|
|
}
|
|
return $contact_emails;
|
|
}
|
|
|
|
/**
|
|
* Return list of contacts mobile phone existing for third party
|
|
*
|
|
* @return array Array of contacts emails
|
|
*/
|
|
function thirdparty_and_contact_phone_array()
|
|
{
|
|
global $langs;
|
|
|
|
$contact_phone = $this->contact_property_array('mobile');
|
|
if ($this->tel)
|
|
{
|
|
if (empty($this->name)) $this->name=$this->nom;
|
|
// TODO: Tester si tel non deja present dans tableau contact
|
|
$contact_phone['thirdparty']=$langs->trans("ThirdParty").': '.dol_trunc($this->name,16)." <".$this->tel.">";
|
|
}
|
|
return $contact_phone;
|
|
}
|
|
|
|
/**
|
|
* Return list of contacts emails or mobile existing for third party
|
|
*
|
|
* @param mode 'email' or 'mobile'
|
|
* @return array Array of contacts emails or mobile
|
|
*/
|
|
function contact_property_array($mode='email')
|
|
{
|
|
$contact_property = array();
|
|
|
|
$sql = "SELECT rowid, email, phone_mobile, 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);
|
|
if ($mode == 'email') $property=$obj->email;
|
|
else if ($mode == 'mobile') $property=$obj->phone_mobile;
|
|
$contact_property[$obj->rowid] = trim($obj->firstname." ".$obj->name)." <".$property.">";
|
|
$i++;
|
|
}
|
|
}
|
|
}
|
|
else
|
|
{
|
|
dol_print_error($this->db);
|
|
}
|
|
return $contact_property;
|
|
}
|
|
|
|
|
|
/**
|
|
* 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;
|
|
}
|
|
|
|
/**
|
|
* Return property of contact from its id
|
|
*
|
|
* @param rowid id of contact
|
|
* @param mode 'email' or 'mobile'
|
|
* @return string email of contact
|
|
*/
|
|
function contact_get_property($rowid,$mode)
|
|
{
|
|
$contact_property='';
|
|
|
|
$sql = "SELECT rowid, email, phone_mobile, name, firstname";
|
|
$sql.= " FROM ".MAIN_DB_PREFIX."socpeople";
|
|
$sql.= " WHERE rowid = '".$rowid."'";
|
|
|
|
$resql=$this->db->query($sql);
|
|
if ($resql)
|
|
{
|
|
$nump = $this->db->num_rows($resql);
|
|
|
|
if ($nump)
|
|
{
|
|
$obj = $this->db->fetch_object($resql);
|
|
|
|
if ($mode == 'email') $contact_property = "$obj->firstname $obj->name <$obj->email>";
|
|
else if ($mode == 'mobile') $contact_property = $obj->phone_mobile;
|
|
}
|
|
return $contact_property;
|
|
}
|
|
else
|
|
{
|
|
dol_print_error($this->db);
|
|
}
|
|
|
|
}
|
|
|
|
|
|
/**
|
|
* Return bank number property of thirdparty
|
|
*
|
|
* @return string Bank number
|
|
*/
|
|
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;
|
|
}
|
|
}
|
|
}
|
|
|
|
/**
|
|
* Returns if a profid sould be verified
|
|
* @param idprof 1,2,3,4 (Exemple: 1=siren,2=siret,3=naf,4=rcs/rm)
|
|
* @return boolean true , false
|
|
*/
|
|
function id_prof_verifiable($idprof)
|
|
{
|
|
global $conf;
|
|
|
|
switch($idprof)
|
|
{
|
|
case 1:
|
|
$ret=(!$conf->global->SOCIETE_IDPROF1_UNIQUE?false:true);
|
|
break;
|
|
case 2:
|
|
$ret=(!$conf->global->SOCIETE_IDPROF2_UNIQUE?false:true);
|
|
break;
|
|
case 3:
|
|
$ret=(!$conf->global->SOCIETE_IDPROF3_UNIQUE?false:true);
|
|
break;
|
|
case 4:
|
|
$ret=(!$conf->global->SOCIETE_IDPROF4_UNIQUE?false:true);
|
|
break;
|
|
default:
|
|
$ret=false;
|
|
}
|
|
|
|
return $ret;
|
|
}
|
|
|
|
/**
|
|
* Verify if a profid exists into database for others thirds
|
|
* @param idprof 1,2,3,4 (Exemple: 1=siren,2=siret,3=naf,4=rcs/rm)
|
|
* @param value value of profid
|
|
* @param socid id of society if update
|
|
* @return boolean true if exists, false if not
|
|
*/
|
|
function id_prof_exists($idprof,$value,$socid=0)
|
|
{
|
|
switch($idprof)
|
|
{
|
|
case 1:
|
|
$field="siren";
|
|
break;
|
|
case 2:
|
|
$field="siret";
|
|
break;
|
|
case 3:
|
|
$field="ape";
|
|
break;
|
|
case 4:
|
|
$field="idprof4";
|
|
break;
|
|
}
|
|
|
|
//Verify duplicate entries
|
|
$sql = "SELECT COUNT(*) as idprof FROM ".MAIN_DB_PREFIX."societe WHERE ".$field." = '".$value."'";
|
|
if($socid) $sql .= " AND rowid <> ".$socid;
|
|
$resql = $this->db->query($sql);
|
|
if ($resql)
|
|
{
|
|
$nump = $this->db->num_rows($resql);
|
|
$obj = $this->db->fetch_object($resql);
|
|
$count = $obj->idprof;
|
|
}
|
|
else
|
|
{
|
|
$count = 0;
|
|
print $this->db->error();
|
|
}
|
|
$this->db->free($resql);
|
|
|
|
if ($count > 0) return true;
|
|
else return false;
|
|
}
|
|
|
|
/**
|
|
* 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 if KO, >0 if OK
|
|
* TODO not in business class
|
|
*/
|
|
function id_prof_check($idprof,$soc)
|
|
{
|
|
global $conf;
|
|
|
|
$ok=1;
|
|
|
|
if (! empty($conf->global->MAIN_DISABLEPROFIDRULES)) return 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;
|
|
}
|
|
|
|
//Verify CIF/NIF/NIE if pays ES
|
|
//Returns: 1 if NIF ok, 2 if CIF ok, 3 if NIE ok, -1 if NIF bad, -2 if CIF bad, -3 if NIE bad, 0 if unexpected bad
|
|
if ($idprof == 1 && $soc->pays_code == 'ES')
|
|
{
|
|
$string=trim($this->siren);
|
|
$string=preg_replace('/(\s)/','',$string);
|
|
$string = strtoupper($string);
|
|
|
|
for ($i = 0; $i < 9; $i ++)
|
|
$num[$i] = substr($string, $i, 1);
|
|
|
|
//Check format
|
|
if (!preg_match('/((^[A-Z]{1}[0-9]{7}[A-Z0-9]{1}$|^[T]{1}[A-Z0-9]{8}$)|^[0-9]{8}[A-Z]{1}$)/', $string))
|
|
return 0;
|
|
|
|
//Check NIF
|
|
if (preg_match('/(^[0-9]{8}[A-Z]{1}$)/', $string))
|
|
if ($num[8] == substr('TRWAGMYFPDXBNJZSQVHLCKE', substr($string, 0, 8) % 23, 1))
|
|
return 1;
|
|
else
|
|
return -1;
|
|
|
|
//algorithm checking type code CIF
|
|
$sum = $num[2] + $num[4] + $num[6];
|
|
for ($i = 1; $i < 8; $i += 2)
|
|
$sum += substr((2 * $num[$i]),0,1) + substr((2 * $num[$i]),1,1);
|
|
$n = 10 - substr($sum, strlen($sum) - 1, 1);
|
|
|
|
//Chek special NIF
|
|
if (preg_match('/^[KLM]{1}/', $string))
|
|
if ($num[8] == chr(64 + $n) || $num[8] == substr('TRWAGMYFPDXBNJZSQVHLCKE', substr($string, 1, 8) % 23, 1))
|
|
return 1;
|
|
else
|
|
return -1;
|
|
|
|
//Check CIF
|
|
if (preg_match('/^[ABCDEFGHJNPQRSUVW]{1}/', $string))
|
|
if ($num[8] == chr(64 + $n) || $num[8] == substr($n, strlen($n) - 1, 1))
|
|
return 2;
|
|
else
|
|
return -2;
|
|
|
|
//Check NIE T
|
|
if (preg_match('/^[T]{1}/', $string))
|
|
if ($num[8] == preg_match('/^[T]{1}[A-Z0-9]{8}$/', $string))
|
|
return 3;
|
|
else
|
|
return -3;
|
|
|
|
//Check NIE XYZ
|
|
if (preg_match('/^[XYZ]{1}/', $string))
|
|
if ($num[8] == substr('TRWAGMYFPDXBNJZSQVHLCKE', substr(str_replace(array('X','Y','Z'), array('0','1','2'), $string), 0, 8) % 23, 1))
|
|
return 3;
|
|
else
|
|
return -3;
|
|
|
|
//Can not be verified
|
|
return -4;
|
|
}
|
|
|
|
return $ok;
|
|
}
|
|
|
|
/**
|
|
* 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
|
|
* TODO not in business class
|
|
*/
|
|
function id_prof_url($idprof,$soc)
|
|
{
|
|
global $conf,$langs;
|
|
|
|
if (! empty($conf->global->MAIN_DISABLEPROFIDRULES)) return '';
|
|
|
|
$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 ($idprof == 1 && $soc->pays_code == 'ES') $url='http://www.e-informa.es/servlet/app/portal/ENTP/screen/SProducto/prod/ETIQUETA_EMPRESA/nif/'.$soc->siren;
|
|
|
|
if ($url) return '<a target="_blank" href="'.$url.'">['.$langs->trans("Check").']</a>';
|
|
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);
|
|
}
|
|
|
|
|
|
/**
|
|
* Add permissions
|
|
* @param user_id
|
|
* @param read
|
|
* @param write
|
|
* @param perms
|
|
*/
|
|
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)
|
|
{
|
|
|
|
}
|
|
}
|
|
|
|
/**
|
|
* 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 as name, 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->name;
|
|
$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);
|
|
}
|
|
}
|
|
|
|
/**
|
|
* Return if third party is a company (Business) or an end user (Consumer)
|
|
* @return 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;
|
|
}
|
|
|
|
|
|
/**
|
|
* Return if a country is inside the EEC (European Economic Community)
|
|
* @return 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
|
|
'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);
|
|
}
|
|
|
|
/**
|
|
* Charge la liste des categories fournisseurs
|
|
* @return int 0 if success, <> 0 if 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;
|
|
}
|
|
}
|
|
|
|
/**
|
|
* Charge la liste des categories fournisseurs
|
|
* @return int 0 if success, <> 0 if 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.= "'".$this->db->escape($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();
|
|
}
|
|
}
|
|
|
|
|
|
/**
|
|
* Create a third party into database from a member object
|
|
* @param member Object member
|
|
* @param socname Name of third party to force
|
|
* @return int <0 if KO, id of created account if OK
|
|
*/
|
|
function create_from_member($member,$socname='')
|
|
{
|
|
global $conf,$user,$langs;
|
|
|
|
$name = $socname?$socname:$member->societe;
|
|
if (empty($name)) $name=$member->getFullName($langs);
|
|
|
|
// Positionne parametres
|
|
$this->nom=$name; // TODO obsolete
|
|
$this->name=$name;
|
|
$this->adresse=$member->adresse; // TODO obsolete
|
|
$this->address=$member->adresse;
|
|
$this->cp=$member->cp; // TODO obsolete
|
|
$this->zip=$member->cp;
|
|
$this->ville=$member->ville; // TODO obsolete
|
|
$this->town=$member->ville;
|
|
$this->pays_code=$member->pays_code; // TODO obsolete
|
|
$this->country_code=$member->pays_code;
|
|
$this->pays_id=$member->pays_id; // TODO obsolete
|
|
$this->country_id=$member->pays_id;
|
|
$this->tel=$member->phone; // Prof phone
|
|
$this->email=$member->email;
|
|
|
|
$this->client = 1; // A member is a customer by default
|
|
$this->code_client = -1;
|
|
$this->code_fournisseur = -1;
|
|
|
|
$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." - ".join(',',$this->errors), LOG_ERR);
|
|
|
|
$this->db->rollback();
|
|
return $result;
|
|
}
|
|
}
|
|
|
|
|
|
/**
|
|
* Initialise an instance with random values.
|
|
* Used to build previews or test instances.
|
|
* id must be 0 if object instance is a specimen.
|
|
*
|
|
* @return void
|
|
*/
|
|
function initAsSpecimen()
|
|
{
|
|
global $user,$langs,$conf,$mysoc;
|
|
|
|
$now=dol_now();
|
|
|
|
// Initialize parameters
|
|
$this->id=0;
|
|
$this->name = 'THIRDPARTY SPECIMEN '.dol_print_date($now,'dayhourlog');
|
|
$this->nom = $this->name; // For backward compatibility
|
|
$this->specimen=1;
|
|
$this->cp='99999';
|
|
$this->zip='99999';
|
|
$this->ville='MyTown';
|
|
$this->town='MyTown';
|
|
$this->pays_id=1;
|
|
$this->country_id=1;
|
|
$this->pays_code='FR';
|
|
$this->country_code='FR';
|
|
|
|
$this->code_client='CC-'.dol_print_date($now,'dayhourlog');
|
|
$this->code_fournisseur='SC-'.dol_print_date($now,'dayhourlog');
|
|
$this->siren='123456789';
|
|
$this->siret='ABCDE';
|
|
$this->capital=10000;
|
|
$this->client=1;
|
|
$this->prospect=1;
|
|
$this->fournisseur=1;
|
|
$this->tva_assuj=1;
|
|
$this->tva_intra='EU1234567';
|
|
$this->note_public='This is a comment (public)';
|
|
$this->note='This is a comment (private)';
|
|
}
|
|
|
|
}
|
|
|
|
?>
|