dolibarr  9.0.0
mod_commande_marbre.php
Go to the documentation of this file.
1 <?php
2 /* Copyright (C) 2005-2010 Laurent Destailleur <eldy@users.sourceforge.net>
3  * Copyright (C) 2005-2009 Regis Houssin <regis.houssin@inodbox.com>
4  *
5  * This program is free software; you can redistribute it and/or modify
6  * it under the terms of the GNU General Public License as published by
7  * the Free Software Foundation; either version 3 of the License, or
8  * (at your option) any later version.
9  *
10  * This program is distributed in the hope that it will be useful,
11  * but WITHOUT ANY WARRANTY; without even the implied warranty of
12  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13  * GNU General Public License for more details.
14  *
15  * You should have received a copy of the GNU General Public License
16  * along with this program. If not, see <http://www.gnu.org/licenses/>.
17  * or see http://www.gnu.org/
18  */
19 
25 require_once DOL_DOCUMENT_ROOT .'/core/modules/commande/modules_commande.php';
26 
31 {
36  public $version = 'dolibarr'; // 'development', 'experimental', 'dolibarr'
37 
38  public $prefix='CO';
39 
43  public $error='';
44 
50  public $nom='Marbre';
51 
55  public $name='Marbre';
56 
57 
63  function info()
64  {
65  global $langs;
66  return $langs->trans("SimpleNumRefModelDesc",$this->prefix);
67  }
68 
69 
75  function getExample()
76  {
77  return $this->prefix."0501-0001";
78  }
79 
80 
87  function canBeActivated()
88  {
89  global $conf,$langs,$db;
90 
91  $coyymm=''; $max='';
92 
93  $posindice=8;
94  $sql = "SELECT MAX(CAST(SUBSTRING(ref FROM ".$posindice.") AS SIGNED)) as max";
95  $sql.= " FROM ".MAIN_DB_PREFIX."commande";
96  $sql.= " WHERE ref LIKE '".$db->escape($this->prefix)."____-%'";
97  $sql.= " AND entity = ".$conf->entity;
98 
99  $resql=$db->query($sql);
100  if ($resql)
101  {
102  $row = $db->fetch_row($resql);
103  if ($row) { $coyymm = substr($row[0],0,6); $max=$row[0]; }
104  }
105  if ($coyymm && ! preg_match('/'.$this->prefix.'[0-9][0-9][0-9][0-9]/i',$coyymm))
106  {
107  $langs->load("errors");
108  $this->error=$langs->trans('ErrorNumRefModel', $max);
109  return false;
110  }
111 
112  return true;
113  }
114 
122  function getNextValue($objsoc,$object)
123  {
124  global $db,$conf;
125 
126  // D'abord on recupere la valeur max
127  $posindice=8;
128  $sql = "SELECT MAX(CAST(SUBSTRING(ref FROM ".$posindice.") AS SIGNED)) as max";
129  $sql.= " FROM ".MAIN_DB_PREFIX."commande";
130  $sql.= " WHERE ref LIKE '".$db->escape($this->prefix)."____-%'";
131  $sql.= " AND entity = ".$conf->entity;
132 
133  $resql=$db->query($sql);
134  if ($resql)
135  {
136  $obj = $db->fetch_object($resql);
137  if ($obj) $max = intval($obj->max);
138  else $max=0;
139  }
140  else
141  {
142  dol_syslog("mod_commande_marbre::getNextValue", LOG_DEBUG);
143  return -1;
144  }
145 
146  //$date=time();
147  $date=$object->date;
148  $yymm = strftime("%y%m",$date);
149 
150  if ($max >= (pow(10, 4) - 1)) $num=$max+1; // If counter > 9999, we do not format on 4 chars, we take number as it is
151  else $num = sprintf("%04s", $max+1);
152 
153  dol_syslog("mod_commande_marbre::getNextValue return ".$this->prefix.$yymm."-".$num);
154  return $this->prefix.$yymm."-".$num;
155  }
156 
157 
158  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.NotCamelCaps
166  function commande_get_num($objsoc,$objforref)
167  {
168  // phpcs:enable
169  return $this->getNextValue($objsoc,$objforref);
170  }
171 }
Class to manage customer order numbering rules Marbre.
if(! empty($conf->facture->enabled) && $user->rights->facture->lire) if(! empty($conf->fournisseur->enabled) && $user->rights->fournisseur->facture->lire) if(! empty($conf->don->enabled) && $user->rights->societe->lire) if(! empty($conf->tax->enabled) && $user->rights->tax->charges->lire) if(! empty($conf->facture->enabled) &&! empty($conf->commande->enabled) && $user->rights->commande->lire &&empty($conf->global->WORKFLOW_DISABLE_CREATE_INVOICE_FROM_ORDER)) if(! empty($conf->facture->enabled) && $user->rights->facture->lire) if(! empty($conf->fournisseur->enabled) && $user->rights->fournisseur->facture->lire) $resql
Social contributions to pay.
Definition: index.php:1053
Classe mere des modeles de numerotation des references de commandes.
getExample()
Renvoi un exemple de numerotation.
getNextValue($objsoc, $object)
Return next free value.
canBeActivated()
Test si les numeros deje en vigueur dans la base ne provoquent pas de de conflits qui empechera cette...
dol_syslog($message, $level=LOG_INFO, $ident=0, $suffixinfilename='', $restricttologhandler='')
Write log message into outputs.
commande_get_num($objsoc, $objforref)
Return next free value.
$version
Dolibarr version of the loaded document string.
info()
Return description of numbering module.