* Copyright (C) 2006-2007 Laurent Destailleur * Copyright (C) 2007 Regis Houssin * * 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. * or see http://www.gnu.org/ * * $Id$ * $Source$ */ /** \file htdocs/includes/modules/societe/mod_codeclient_tigre.class.php \ingroup societe \brief Fichier de la classe des gestion tigre des codes clients \version $Revision$ */ require_once(DOL_DOCUMENT_ROOT."/includes/modules/societe/modules_societe.class.php"); /** \class mod_codeclient_tigre \brief Classe permettant la gestion tigre des codes tiers */ class mod_codeclient_tigre extends ModeleThirdPartyCode { var $nom; // Nom du modele var $code_modifiable; // Code modifiable var $code_modifiable_invalide; // Code modifiable si il est invalide var $code_modifiable_null; // Code modifiables si il est null var $code_null; // Code facultatif var $version; // 'development', 'experimental', 'dolibarr' var $code_auto; // Numérotation automatique var $searchcode; // String de recherche var $numbitcounter; // Nombre de chiffres du compteur var $substrBegin; var $substrEnd; /** \brief Constructeur classe */ function mod_codeclient_tigre() { $this->nom = "Tigre"; $this->version = "development"; $this->code_modifiable = 0; $this->code_modifiable_invalide = 1; $this->code_modifiable_null = 1; $this->code_null = 0; $this->code_auto = 1; } /** \brief Renvoi la description du module * \return string Texte descripif */ function info($langs) { global $conf,$langs; $langs->load("companies"); $form = new Form($db); $texte = $langs->trans('TigreNumRefModelDesc1')."
\n"; $texte.= ''; return $texte; } /** \brief Renvoi la description du module * \param $type Client ou fournisseur (1:client, 2:fournisseur) * \return string Texte descripif */ function getExample($langs,$objsoc=0,$type=0) { if ($type == 1) { $example = $this->getNextValue($objsoc,1); } else if ($type == 2) { $example = $this->getNextValue($objsoc,2); } else { $example = $this->getNextValue($objsoc,1)."
".$this->getNextValue($objsoc,2); } return $example; } /** \brief Renvoi prochaine valeur attribuée * \param $type Client ou fournisseur (1:client, 2:fournisseur) * \return string Valeur */ function getNextValue($objsoc=0,$type=0) { global $db,$conf; $mask = $this->buildMask($objsoc,$type); $count = 0; if ($type == 1) { $field = 'code_client'; } else if ($type == 2) { $field = 'code_fournisseur'; } // On récupère la valeur max (réponse immédiate car champ indéxé) $posindice = $this->numbitcounter; if ($this->substrEnd > 0) $substrEnd = ',-'.$this->substrEnd; $searchyy=''; $sql = "SELECT MAX(".$field.")"; $sql.= " FROM ".MAIN_DB_PREFIX."societe"; $sql.= " WHERE ".$field." REGEXP '^".$this->searchcode."$'"; $resql=$db->query($sql); if ($resql) { $row = $db->fetch_row($resql); //print 'row='.$row[0].'
'; //print 'begin='.$this->substrBegin.'
'; //print 'end='.$this->substrEnd.'
'; if ($row[0]) $count = substr($row[0],$this->substrBegin.$substrEnd); } // On applique le nombre de chiffres du compteur $arg = '%0'.$this->numbitcounter.'s'; $count = sprintf($arg,$count+1); $mask = eregi_replace('\{0+\}',$count,$mask); dolibarr_syslog("mod_codeclient_tigre::getNextValue return ".$mask); //print 'count='.$count.'
'; return $mask; } /** \brief Construction du masque de numérotation * \param objsoc Objet société * \param $type Client ou fournisseur (1:client, 2:fournisseur) * \return string Valeur */ function buildMask($objsoc=0,$type='') { global $conf; if ($type==1) { $mask = $conf->global->CODE_TIGRE_MASK_CUSTOMER; } else if ($type==2) { $mask = $conf->global->CODE_TIGRE_MASK_SUPPLIER; } $maskElement = preg_split('/[|]{1}/', $mask); $foundCounter = 0; $substrBegin = 0; $substrEnd = 0; $maskRebuild = ''; $error = 0; $this->searchcode = ''; for ($i = 0; $i < count($maskElement); $i++) { // Ajout du jour en cours if ($maskElement[$i] == '{dd}') { $maskRebuild .= strftime("%d",time()); $this->searchcode .= strftime("%d",time()); if ($foundCounter==0) { $substrBegin += 2; } else { $substrEnd += 2; } } else if (eregi('\{d+\}',$maskElement[$i]) && (eregi('\{d+\}',$$maskElement[$i]) != '{dd}')) { $error++; } // Ajout du mois en cours if ($maskElement[$i] == '{mm}') { $maskRebuild .= strftime("%m",time()); $this->searchcode .= strftime("%m",time()); if ($foundCounter==0) { $substrBegin += 2; } else { $substrEnd += 2; } } else if (eregi('\{m+\}',$maskElement[$i]) && (eregi('\{m+\}',$maskElement[$i]) != '{mm}')) { $error++; } // Ajout de l'année en cours if ($maskElement[$i] == '{aa}') { $maskRebuild .= substr(strftime("%Y",time()),2); $this->searchcode .= substr(strftime("%Y",time()),2); if ($foundCounter==0) { $substrBegin += 2; } else { $substrEnd += 2; } } else if ($maskElement[$i] == '{aaaa}') { $maskRebuild .= strftime("%Y",time()); $this->searchcode .= strftime("%Y",time()); if ($foundCounter==0) { $substrBegin += 4; } else { $substrEnd += 4; } } else if (eregi('\{a+\}',$maskElement[$i]) && ((eregi('\{a+\}',$maskElement[$i]) != '{aa}') || (eregi('\{a+\}',$maskElement[$i]) != '{aaa}'))) { $error++; } // Ajout du préfix de la société if (is_object($objsoc) && $objsoc->prefix_comm && $maskElement[$i] == '{pre}') { $maskRebuild .= strtoupper($objsoc->prefix_comm); $this->searchcode .= strtoupper($objsoc->prefix_comm); $prefixLength = strlen($objsoc->prefix_comm); if ($foundCounter==0) { $substrBegin += $prefixLength; } else { $substrEnd += $prefixLength; } } else if (is_object($objsoc) && !$objsoc->prefix_comm && $maskElement[$i] == '{pre}') { $error++; } else if (!is_object($objsoc) && $maskElement[$i] == '{pre}') { $maskRebuild .= 'ABC'; if ($foundCounter==0) { $substrBegin += 3; } else { $substrEnd += 3; } } // Ajout des séparateurs éventuels : \ / - if (eregi('[\/-]{1}',$maskElement[$i])) { $maskRebuild .= $maskElement[$i]; $this->searchcode .= $maskElement[$i]; if ($foundCounter==0) { $substrBegin++; } else { $substrEnd++; } } else if (eregi('[\/-]{2,}',$maskElement[$i])) { $error++; } // Ajout des champs libres éventuels if (eregi('^[0-9A-Z]+$',$maskElement[$i])) { $maskRebuild .= strtoupper($maskElement[$i]); $this->searchcode .= strtoupper($maskElement[$i]); $MaskElementLength = strlen($maskElement[$i]); if ($foundCounter==0) { $substrBegin += $MaskElementLength; } else { $substrEnd += $MaskElementLength; } } // Définition du compteur if (eregi('\{0+\}',$maskElement[$i])) { // Défini le nombre de chiffres du compteur $this->numbitcounter = strlen(substr($maskElement[$i],1,-1)); // Permettra d'effectuer une recherche dans la table $this->searchcode .= '([0-9]{'.$this->numbitcounter.'})'; $maskRebuild .= $maskElement[$i]; $foundCounter = 1; } else if ($i == count($maskElement) && !eregi('\{0+\}',$maskElement[$i]) && $foundCounter == 0) { $error++; } //print 'searchcodeTemp='.$this->searchcode.'
'; } $this->substrBegin = $substrBegin; $this->substrEnd = $substrEnd; //print 'begin='.$this->substrBegin.'
'; //print 'end='.$this->substrEnd.'
'; //print 'searchcode='.$this->searchcode.'
'; return $maskRebuild; } /** * \brief Vérifie la validité du code * \param $db Handler acces base * \param $code Code a vérifier/corriger * \param $soc Objet societe * \return int <0 si KO, 0 si OK */ function verif($db, &$code, $soc) { $result=0; $code = strtoupper(trim($code)); if (! $code && $this->code_null) { $result=0; } else { if ($this->verif_syntax($code) >= 0) { $is_dispo = $this->verif_dispo($db, $code, $soc); if ($is_dispo <> 0) { $result=-3; } else { $result=0; } } else { if (strlen($code) == 0) { $result=-2; } else { $result=-1; } } } dolibarr_syslog("mod_codeclient_tigre::verif result=".$result); return $result; } /** * \brief Renvoi une valeur correcte * \param $db Handler acces base * \param $code Code reference eventuel * \return string Code correct, <0 si KO */ function get_correct($db, $code) { $return='001'; $sql = "SELECT MAX(code_client) as maxval FROM ".MAIN_DB_PREFIX."societe"; $resql=$db->query($sql); if ($resql) { $obj=$db->fetch_object($resql); if ($obj) { $newval=$obj->maxval+1; $return=sprintf('%03d',$newval); return $return; } } else { return -1; } } /** * \brief Renvoi si un code est pris ou non (par autre tiers) * \param $db Handler acces base * \param $code Code a verifier * \param $soc Objet societe * \return int 0 si dispo, <0 si erreur */ function verif_dispo($db, $code, $soc) { $sql = "SELECT code_client FROM ".MAIN_DB_PREFIX."societe"; $sql.= " WHERE code_client = '".$code."'"; $sql.= " AND rowid != '".$soc->id."'"; $resql=$db->query($sql); if ($resql) { if ($db->num_rows($resql) == 0) { return 0; } else { return -1; } } else { return -2; } } /** * \brief Renvoi si un code respecte la syntaxe * \param $code Code a verifier * \return int 0 si OK, <0 si KO */ function verif_syntax($code) { $res = 0; if (strlen($code) < 3) { $res = -1; } else { if (eregi('[0-9][0-9][0-9]+',$code)) { $res = 0; } else { $res = -2; } } return $res; } /** * Renvoi 0 si numerique, sinon renvoi nb de car non numerique */ function is_num($str) { $ok = 0; $alpha = '0123456789'; for ($i = 0 ; $i < length($str) ; $i++) { if (strpos($alpha, substr($str,$i, 1)) === false) { $ok++; } } return $ok; } } ?>

Modele code client	'.$form->textwithhelp('',$langs->trans("TigreMaskCodes"),1,1).'
Modele code fournisseur	'.$form->textwithhelp('',$langs->trans("TigreMaskCodes"),1,1).'