/htdocs/societe/core/models/mod_codeclient_monkey.php
PHP | 267 lines | 118 code | 31 blank | 118 comment | 22 complexity | 2150c938afc0ddaebf4cbfc43992d428 MD5 | raw file
Possible License(s): LGPL-3.0, LGPL-2.1, GPL-3.0, MIT
- <?php
- /* Copyright (C) 2004 Rodolphe Quiedeville <rodolphe@quiedeville.org>
- * Copyright (C) 2006-2007 Laurent Destailleur <eldy@users.sourceforge.net>
- * Copyright (C) 2006-2013 Regis Houssin <regis.houssin@capnetworks.com>
- *
- * 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 3 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/>.
- * or see http://www.gnu.org/
- */
- /**
- * \file htdocs/core/models/mod_codeclient_monkey.php
- * \ingroup societe
- * \brief Fichier de la classe des gestion lion des codes clients
- */
- require_once DOL_DOCUMENT_ROOT . '/societe/core/models/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
- */
- function __construct()
- {
- $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 string $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 Translate $langs Object langs
- * @param societe $objsoc Object thirdparty
- * @param int $type Type of third party (1:customer, 2:supplier, -1:autodetect)
- * @return string Return string example
- */
- function getExample($langs,$objsoc=0,$type=-1)
- {
- return $this->prefixcustomer.'0901-0001<br>'.$this->prefixsupplier.'0901-0001';
- }
- /**
- * Return next value
- *
- * @param Societe $objsoc Object third party
- * @param int $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, $mc;
- $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."____-%'";
- $sql.= " AND entity IN (".getEntity('societe', 1).")";
- /*
- $resql=$db->query($sql);
- if ($resql)
- {
- $obj = $db->fetch_object($resql);
- if ($obj) $max = intval($obj->max);
- else $max=0;
- }
- else
- {
- dol_syslog(get_class($this)."::getNextValue sql=".$sql, LOG_ERR);
- return -1;
- }
- */
- $date = dol_now();
- $yymm = strftime("%y%m",$date);
- $num = sprintf("%04s",$max+1);
- dol_syslog(get_class($this)."::getNextValue return ".$prefix.$yymm."-".$num);
- return $prefix.$yymm."-".$num;
- }
- /**
- * Check validity of code according to its rules
- *
- * @param DoliDB $db Database handler
- * @param string &$code Code to check/correct
- * @param Societe $soc Object third party
- * @param int $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(get_class($this)."::verif type=".$type." result=".$result);
- return $result;
- }
- /**
- * Renvoi si un code est pris ou non (par autre tiers)
- *
- * @param DoliDB $db Handler acces base
- * @param string $code Code a verifier
- * @param Societe $soc Objet societe
- * @return int 0 if available, <0 if KO
- */
- function verif_dispo($db, $code, $soc)
- {
- /*
- $sql = "SELECT code_client FROM ".MAIN_DB_PREFIX."societe";
- $sql.= " WHERE code_client = '".$code."'";
- $sql.= " AND entity IN (".getEntity('societe', 1).")";
- if ($soc->id > 0) $sql.= " AND rowid <> ".$soc->id;
- dol_syslog(get_class($this)."::verif_dispo sql=".$sql, LOG_DEBUG);
- $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 string $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;
- }
- }
- ?>