Ajout d'un mod�le de num�rotation de commande

2026-01-06 00:53:00 +01:00 · 2006-02-12 15:59:54 +00:00
parent 0b2724ead3
commit 673e93562c
1 changed files with 140 additions and 0 deletions
--- a/htdocs/includes/modules/commande/mod_commande_marbre.php
+++ b/htdocs/includes/modules/commande/mod_commande_marbre.php
@@ -0,0 +1,140 @@
+<?php
+/* Copyright (C) 2005      Laurent Destailleur  <eldy@users.sourceforge.net>
+ * Copyright (C) 2005-2006 Regis Houssin        <regis.houssin@cap-networks.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 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/commande/mod_commande_marbre.php
+		\ingroup    commande
+		\brief      Fichier contenant la classe du mod<6F>le de num<75>rotation de r<>f<EFBFBD>rence de commande Marbre
+		\version    $Revision$
+*/
+
+require_once(DOL_DOCUMENT_ROOT ."/includes/modules/commande/modules_commande.php");
+
+/**	    \class      mod_commande_marbre
+		\brief      Classe du mod<6F>le de num<75>rotation de r<>f<EFBFBD>rence de commande Marbre
+*/
+
+class mod_commande_marbre extends ModeleNumRefCommandes
+{
+    var $error='';
+    
+    /**     \brief      Renvoi la description du modele de num<75>rotation
+     *      \return     string      Texte descripif
+     */
+    function info()
+    {
+      return "Renvoie le num<75>ro sous la forme Cyymm-nnnn o<> yy est l'ann<6E>e, mm le mois et nnnn un compteur s<>quentiel sans rupture et sans remise <20> 0";
+    }
+
+
+    /**     \brief      Renvoi un exemple de num<75>rotation
+     *      \return     string      Example
+     */
+    function getExample()
+    {
+        return "C0501-0001";
+    }
+
+
+    /**     \brief      Test si les num<75>ros d<>j<EFBFBD> en vigueur dans la base ne provoquent pas de
+     *                  de conflits qui empechera cette num<75>rotation de fonctionner.
+     *      \return     boolean     false si conflit, true si ok
+     */
+    function canBeActivated()
+    {
+        $cyymm='';
+        
+        $sql = "SELECT MAX(ref)";
+        $sql.= " FROM ".MAIN_DB_PREFIX."commande";
+        $resql=$db->query($sql);
+        if ($resql)
+        {
+            $row = $db->fetch_row($resql);
+            if ($row) $cyymm = substr($row[0],0,6);
+        }
+        if (! $cyymm || eregi('C[0-9][0-9][0-9][0-9]',$cyymm))
+        {
+            return true;
+        }
+        else
+        {
+            $this->error='Une commande commen<65>ant par $cyymm existe en base et est incompatible avec cette num<75>rotation. Supprimer la ou renommer la pour activer ce module.';
+            return false;    
+        }
+    }
+
+    /**     \brief      Renvoi prochaine valeur attribu<62>e
+     *      \return     string      Valeur
+     */
+    function getNextValue()
+    {
+        global $db;
+
+        // D'abord on r<>cup<75>re la valeur max (r<>ponse imm<6D>diate car champ ind<6E>x<EFBFBD>)
+        $cyymm='';
+        $sql = "SELECT MAX(ref)";
+        $sql.= " FROM ".MAIN_DB_PREFIX."commande";
+        $resql=$db->query($sql);
+        if ($resql)
+        {
+            $row = $db->fetch_row($resql);
+            if ($row) $cyymm = substr($row[0],0,6);
+        }
+    
+        // Si au moins un champ respectant le mod<6F>le a <20>t<EFBFBD> trouv<75>e
+        if (eregi('C[0-9][0-9][0-9][0-9]',$cyymm))
+        {
+            // Recherche rapide car restreint par un like sur champ index<65>
+            $posindice=8;
+            $sql = "SELECT MAX(0+SUBSTRING(ref,$posindice))";
+            $sql.= " FROM ".MAIN_DB_PREFIX."commande";
+            $sql.= " WHERE ref like '${cyymm}%'";
+            $resql=$db->query($sql);
+            if ($resql)
+            {
+                $row = $db->fetch_row($resql);
+                $max = $row[0];
+            }
+        }
+        else
+        {
+            $max=0;
+        }        
+        $yymm = strftime("%y%m",time());
+        $num = sprintf("%04s",$max+1);
+        
+        return  "C$yymm-$num";
+    }
+
+
+    /**     \brief      Renvoie la r<>f<EFBFBD>rence de commande suivante non utilis<69>e
+     *      \param      objsoc      Objet soci<63>t<EFBFBD>
+     *      \return     string      Texte descripif
+     */
+    function commande_get_num($objsoc=0)
+    {
+        return $this->getNextValue();
+    }
+}
+
+?>