29require_once DOL_DOCUMENT_ROOT.
'/core/modules/societe/modules_societe.class.php';
38 public $name =
'Monkey';
39 public $version =
'dolibarr';
42 public $prefixcustomer =
'CU';
43 public $prefixsupplier =
'SU';
56 $this->code_modifiable = 1;
57 $this->code_modifiable_invalide = 1;
58 $this->code_modifiable_null = 1;
60 $this->prefixIsRequired = 0;
70 public function info($langs)
72 return $langs->trans(
"MonkeyNumRefModelDesc", $this->prefixcustomer, $this->prefixsupplier);
84 public function getExample($langs =
null, $objsoc =
'', $type = -1)
86 return $this->prefixcustomer.
'0901-00001<br>'.$this->prefixsupplier.
'0901-00001';
104 $field =
'code_client';
105 $prefix = $this->prefixcustomer;
106 } elseif ($type == 1) {
107 $field =
'code_fournisseur';
108 $prefix = $this->prefixsupplier;
114 $posindice = strlen($prefix) + 6;
115 $sql =
"SELECT MAX(CAST(SUBSTRING(".$field.
" FROM ".$posindice.
") AS SIGNED)) as max";
116 $sql .=
" FROM ".MAIN_DB_PREFIX.
"societe";
117 $sql .=
" WHERE ".$field.
" LIKE '".$db->escape($prefix).
"____-%'";
118 $sql .=
" AND entity IN (".getEntity(
'societe').
")";
120 dol_syslog(get_class($this).
"::getNextValue", LOG_DEBUG);
122 $resql = $db->query($sql);
124 $obj = $db->fetch_object($resql);
126 $max = intval($obj->max);
137 if ($max >= (pow(10, 5) - 1)) {
140 $num = sprintf(
"%05d", $max + 1);
143 dol_syslog(get_class($this).
"::getNextValue return ".$prefix.$yymm.
"-".$num);
144 return $prefix.$yymm.
"-".$num;
163 public function verif($db, &$code, $soc, $type)
166 $code = strtoupper(trim($code));
168 if (empty($code) && $this->code_null && !
getDolGlobalString(
'MAIN_COMPANY_CODE_ALWAYS_REQUIRED')) {
170 } elseif (empty($code) && (!$this->code_null ||
getDolGlobalString(
'MAIN_COMPANY_CODE_ALWAYS_REQUIRED'))) {
174 $is_dispo = $this->
verif_dispo($db, $code, $soc, $type);
175 if ($is_dispo != 0) {
189 dol_syslog(get_class($this).
"::verif code=".$code.
" type=".$type.
" result=".$result);
207 $sql =
"SELECT rowid FROM ".MAIN_DB_PREFIX.
"societe";
209 $sql .=
" WHERE code_fournisseur = '".$db->escape($code).
"'";
211 $sql .=
" WHERE code_client = '".$db->escape($code).
"'";
213 $sql .=
" AND entity IN (".getEntity(
'societe').
")";
215 $sql .=
" AND rowid <> ".$soc->id;
218 dol_syslog(get_class($this).
"::verif_dispo", LOG_DEBUG);
219 $resql = $db->query($sql);
221 if ($db->num_rows($resql) == 0) {
Parent class for third parties code generators.
Class permettant la gestion monkey des codes tiers.
verif_syntax($code)
Renvoi si un code respecte la syntax.
getExample($langs=null, $objsoc='', $type=-1)
Return an example of result returned by getNextValue.
info($langs)
Return description of module.
__construct($db)
Constructor.
verif_dispo($db, $code, $soc, $type=0)
Indicates if the code is available or not (by another third party)
verif($db, &$code, $soc, $type)
Check validity of code according to its rules.
getNextValue($objsoc='', $type=-1)
Return next value.
dol_strlen($string, $stringencoding='UTF-8')
Make a strlen call.
dol_now($mode='auto')
Return date for now.
dol_print_date($time, $format='', $tzoutput='auto', $outputlangs=null, $encodetooutput=false)
Output date in a string format according to outputlangs (or langs if not defined).
getDolGlobalString($key, $default='')
Return a Dolibarr global constant string value.
dol_syslog($message, $level=LOG_INFO, $ident=0, $suffixinfilename='', $restricttologhandler='', $logcontext=null)
Write log message into outputs.