* Copyright (C) 2006-2007 Laurent Destailleur * * 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 . * or see http://www.gnu.org/ */ /** * \file htdocs/includes/modules/societe/mod_codeclient_monkey.php * \ingroup societe * \brief Fichier de la classe des gestion lion des codes clients */ require_once(DOL_DOCUMENT_ROOT."/includes/modules/societe/modules_societe.class.php"); /** * \class mod_codeclient_monkey * \brief Classe permettant la gestion monkey des codes tiers */ class mod_codeclient_monkey extends ModeleThirdPartyCode { var $nom='Monkey'; // 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='dolibarr'; // 'development', 'experimental', 'dolibarr' var $code_auto; // Numerotation automatique var $prefixcustomer='CU'; var $prefixsupplier='SU'; /** Constructor classe */ function mod_codeclient_monkey() { $this->nom = "Monkey"; $this->version = "dolibarr"; $this->code_null = 1; $this->code_modifiable = 1; $this->code_modifiable_invalide = 1; $this->code_modifiable_null = 1; $this->code_auto = 1; } /** Return description of module * * @param $langs Object langs * @return string Description of module */ function info($langs) { return $langs->trans("MonkeyNumRefModelDesc",$this->prefixcustomer,$this->prefixsupplier); } /** Return an example of result returned by getNextValue * * @param $langs Object langs * @param $objsoc Object thirdparty * @param $type Type of third party (1:customer, 2:supplier, -1:autodetect) */ function getExample($langs,$objsoc=0,$type=-1) { return $this->prefixcustomer.'0901-0001
'.$this->prefixsupplier.'0901-0001'; } /** Return next value * * @param objsoc Object third party * @param type Client ou fournisseur (1:client, 2:fournisseur) * @return string Value if OK, '' if module not configured, <0 if KO */ function getNextValue($objsoc=0,$type=-1) { global $db, $conf; $return='000001'; $field='';$where=''; if ($type == 0) { $field = 'code_client'; //$where = ' AND client in (1,2)'; } else if ($type == 1) { $field = 'code_fournisseur'; //$where = ' AND fournisseur = 1'; } else return -1; if ($type == 0) $prefix=$this->prefixcustomer; if ($type == 1) $prefix=$this->prefixsupplier; // D'abord on recupere la valeur max (reponse immediate car champ indexe) $posindice=8; $sql = "SELECT MAX(SUBSTRING(".$field." FROM ".$posindice.")) as max"; // This is standard SQL $sql.= " FROM ".MAIN_DB_PREFIX."societe"; $sql.= " WHERE ".$field." LIKE '".$prefix."____-%'"; $resql=$db->query($sql); if ($resql) { $obj = $db->fetch_object($resql); if ($obj) $max = intval($obj->max); else $max=0; } else { dol_syslog("mod_codeclient_monkey::getNextValue sql=".$sql); return -1; } //$date=time(); $date=gmmktime(); $yymm = strftime("%y%m",$date); $num = sprintf("%04s",$max+1); dol_syslog("mod_codeclient_monkey::getNextValue return ".$prefix.$yymm."-".$num); return $prefix.$yymm."-".$num; } /** * Check validity of code according to its rules * * @param $db Database handler * @param $code Code to check/correct * @param $soc Object third party * @param $type 0 = customer/prospect , 1 = supplier * @return int 0 if OK * -1 ErrorBadCustomerCodeSyntax * -2 ErrorCustomerCodeRequired * -3 ErrorCustomerCodeAlreadyUsed * -4 ErrorPrefixRequired */ function verif($db, &$code, $soc, $type) { global $conf; $result=0; $code = strtoupper(trim($code)); if (empty($code) && $this->code_null && empty($conf->global->MAIN_COMPANY_CODE_ALWAYS_REQUIRED)) { $result=0; } else if (empty($code) && (! $this->code_null || ! empty($conf->global->MAIN_COMPANY_CODE_ALWAYS_REQUIRED)) ) { $result=-2; } 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 (dol_strlen($code) == 0) { $result=-2; } else { $result=-1; } } } dol_syslog("mod_codeclient_monkey::verif type=".$type." result=".$result); return $result; } /** * 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; } } /** * 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 (dol_strlen($code) < 11) { $res = -1; } else { $res = 0; } return $res; } } ?>