forked from Wavyzz/dolibarr
Ajout de modles de numrotation pour propale, commande, facture qui sont bas sur emeraude et titan mais ne se remettent pas 0 en dbut d'anne d'exercice.
This commit is contained in:
Regis Houssin
147
htdocs/includes/modules/commande/mod_commande_rubis.php
Normal file
147
htdocs/includes/modules/commande/mod_commande_rubis.php
Normal file
@@ -0,0 +1,147 @@
|
||||
<?php
|
||||
/* Copyright (C) 2005 Rodolphe Quiedeville <rodolphe@quiedeville.org>
|
||||
* 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_rubis.php
|
||||
\ingroup commande
|
||||
\brief Fichier contenant la classe du mod<6F>le de num<75>rotation de r<>f<EFBFBD>rence de commande Rubis
|
||||
\version $Revision$
|
||||
*/
|
||||
|
||||
include_once("modules_commande.php");
|
||||
|
||||
|
||||
/**
|
||||
\class mod_commande_rubis
|
||||
\brief Classe du mod<6F>le de num<75>rotation de r<>f<EFBFBD>rence de commande Rubis
|
||||
*/
|
||||
|
||||
class mod_commande_rubis extends ModeleNumRefCommandes
|
||||
{
|
||||
|
||||
/** \brief Constructeur
|
||||
*/
|
||||
function mod_commande_rubis()
|
||||
{
|
||||
$this->nom = "Rubis";
|
||||
}
|
||||
|
||||
|
||||
/** \brief Renvoi la description du modele de num<75>rotation
|
||||
* \return string Texte descripif
|
||||
*/
|
||||
function info()
|
||||
{
|
||||
global $conf;
|
||||
|
||||
$texte = "Renvoie le num<75>ro sous la forme CYYNNNNN o<> YY est l'ann<6E>e et NNNNN le num<75>ro d'incr<63>ment qui commence <20> 1.<br>\n";
|
||||
$texte.= "L'ann<6E>e s'incr<63>mente de 1 SANS remise <20> zero en d<>but d'ann<6E>e d'exercice.<br>\n";
|
||||
$texte.= "D<EFBFBD>finir la variable SOCIETE_FISCAL_MONTH_START avec le mois du d<>but d'exercice, ex: 9 pour septembre.<br>\n";
|
||||
$texte.= "Dans cette exemple nous aurons au 1er septembre 2006 une commande nomm<6D>e C0700345.<br>\n";
|
||||
|
||||
if ($conf->global->SOCIETE_FISCAL_MONTH_START)
|
||||
{
|
||||
$texte.= "SOCIETE_FISCAL_MONTH_START est d<>finie et vaut: ".$conf->global->SOCIETE_FISCAL_MONTH_START."";
|
||||
}
|
||||
else
|
||||
{
|
||||
$texte.= "SOCIETE_FISCAL_MONTH_START n'est pas d<>finie.";
|
||||
}
|
||||
return $texte;
|
||||
}
|
||||
|
||||
/** \brief Renvoi un exemple de num<75>rotation
|
||||
* \return string Example
|
||||
*/
|
||||
function getExample()
|
||||
{
|
||||
return "C0600001";
|
||||
}
|
||||
|
||||
|
||||
/** \brief Renvoi prochaine valeur attribu<62>e
|
||||
* \return string Valeur
|
||||
*/
|
||||
function getNextValue()
|
||||
{
|
||||
global $db,$conf;
|
||||
|
||||
// D'abord on d<>fini l'ann<6E>e fiscale
|
||||
$prefix='C';
|
||||
$current_month = date("n");
|
||||
if($conf->global->SOCIETE_FISCAL_MONTH_START && $current_month >= $conf->global->SOCIETE_FISCAL_MONTH_START)
|
||||
{
|
||||
$yy = strftime("%y",mktime(0,0,0,date("m"),date("d"),date("Y")+1));
|
||||
}
|
||||
else
|
||||
{
|
||||
$yy = strftime("%y",time());
|
||||
}
|
||||
|
||||
// On r<>cup<75>re la valeur max (r<>ponse imm<6D>diate car champ ind<6E>x<EFBFBD>)
|
||||
$cyy='';
|
||||
$sql = "SELECT MAX(ref)";
|
||||
$sql.= " FROM ".MAIN_DB_PREFIX."commande";
|
||||
$resql=$db->query($sql);
|
||||
if ($resql)
|
||||
{
|
||||
$row = $db->fetch_row($resql);
|
||||
if ($row) $cyy = substr($row[0],0,3);
|
||||
}
|
||||
|
||||
// Si au moins un champ respectant le mod<6F>le a <20>t<EFBFBD> trouv<75>e
|
||||
if (eregi('C[0-9][0-9]',$cyy))
|
||||
{
|
||||
// Recherche rapide car restreint par un like sur champ index<65>
|
||||
$posindice=4;
|
||||
$sql = "SELECT MAX(0+SUBSTRING(ref,$posindice))";
|
||||
$sql.= " FROM ".MAIN_DB_PREFIX."commande";
|
||||
$resql=$db->query($sql);
|
||||
if ($resql)
|
||||
{
|
||||
$row = $db->fetch_row($resql);
|
||||
$max = $row[0];
|
||||
}
|
||||
}
|
||||
else
|
||||
{
|
||||
$max=0;
|
||||
}
|
||||
|
||||
$num = sprintf("%05s",$max+1);
|
||||
|
||||
return "C$yy$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();
|
||||
}
|
||||
}
|
||||
?>
|
||||
141
htdocs/includes/modules/facture/orion/orion.modules.php
Normal file
141
htdocs/includes/modules/facture/orion/orion.modules.php
Normal file
@@ -0,0 +1,141 @@
|
||||
<?php
|
||||
/* Copyright (C) 2003 Rodolphe Quiedeville <rodolphe@quiedeville.org>
|
||||
* Copyright (C) 2004-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/facture/neptune/orion.modules.php
|
||||
\ingroup facture
|
||||
\brief Fichier contenant la classe du mod<6F>le de num<75>rotation de r<>f<EFBFBD>rence de facture Orion
|
||||
\version $Revision$
|
||||
*/
|
||||
|
||||
require_once(DOL_DOCUMENT_ROOT ."/includes/modules/facture/modules_facture.php");
|
||||
|
||||
/**
|
||||
\class mod_facture_Orion
|
||||
\brief Classe du mod<6F>le de num<75>rotation de r<>f<EFBFBD>rence de facture Orion
|
||||
*/
|
||||
class mod_facture_orion extends ModeleNumRefFactures
|
||||
{
|
||||
|
||||
/** \brief Renvoi la description du modele de num<75>rotation
|
||||
* \return string Texte descripif
|
||||
*/
|
||||
function info()
|
||||
{
|
||||
global $conf,$langs;
|
||||
|
||||
$langs->load("bills");
|
||||
|
||||
$texte = $langs->trans('OrionNumRefModelDesc1')."<br>\n";
|
||||
$texte.= $langs->trans('OrionNumRefModelDesc2')."<br>\n";
|
||||
$texte.= $langs->trans('OrionNumRefModelDesc3')."<br>\n";
|
||||
$texte.= $langs->trans('OrionNumRefModelDesc4')."<br>\n";
|
||||
|
||||
if ($conf->global->SOCIETE_FISCAL_MONTH_START)
|
||||
{
|
||||
$texte.= ' ('.$langs->trans('DefinedAndHasThisValue').' : '.$conf->global->SOCIETE_FISCAL_MONTH_START.')';
|
||||
}
|
||||
else
|
||||
{
|
||||
$texte.= ' ('.$langs->trans('IsNotDefined').')';
|
||||
}
|
||||
return $texte;
|
||||
}
|
||||
|
||||
/** \brief Renvoi un exemple de num<75>rotation
|
||||
* \return string Example
|
||||
*/
|
||||
function getExample()
|
||||
{
|
||||
return "FA0600001";
|
||||
}
|
||||
|
||||
/** \brief Renvoi prochaine valeur attribu<62>e
|
||||
* \return string Valeur
|
||||
*/
|
||||
function getNextValue()
|
||||
{
|
||||
global $db,$conf;
|
||||
|
||||
// D'abord on d<>fini l'ann<6E>e fiscale
|
||||
$prefix='FA';
|
||||
$current_month = date("n");
|
||||
if($conf->global->SOCIETE_FISCAL_MONTH_START && $current_month >= $conf->global->SOCIETE_FISCAL_MONTH_START)
|
||||
{
|
||||
$yy = strftime("%y",mktime(0,0,0,date("m"),date("d"),date("Y")+1));
|
||||
}
|
||||
else
|
||||
{
|
||||
$yy = strftime("%y",time());
|
||||
}
|
||||
|
||||
// On r<>cup<75>re la valeur max (r<>ponse imm<6D>diate car champ ind<6E>x<EFBFBD>)
|
||||
$fayy='';
|
||||
$sql = "SELECT MAX(facnumber)";
|
||||
$sql.= " FROM ".MAIN_DB_PREFIX."facture";
|
||||
$resql=$db->query($sql);
|
||||
if ($resql)
|
||||
{
|
||||
$row = $db->fetch_row($resql);
|
||||
if ($row) $fayy = substr($row[0],0,4);
|
||||
}
|
||||
|
||||
// Si au moins un champ respectant le mod<6F>le a <20>t<EFBFBD> trouv<75>e
|
||||
if (eregi('FA[0-9][0-9]',$fayy))
|
||||
{
|
||||
// Recherche rapide car restreint par un like sur champ index<65>
|
||||
$posindice=5;
|
||||
$sql = "SELECT MAX(0+SUBSTRING(facnumber,$posindice))";
|
||||
$sql.= " FROM ".MAIN_DB_PREFIX."facture";
|
||||
$resql=$db->query($sql);
|
||||
if ($resql)
|
||||
{
|
||||
$row = $db->fetch_row($resql);
|
||||
$max = $row[0];
|
||||
}
|
||||
}
|
||||
else
|
||||
{
|
||||
$max=0;
|
||||
}
|
||||
|
||||
$num = sprintf("%05s",$max+1);
|
||||
|
||||
return "FA$yy$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 getNumRef($objsoc=0)
|
||||
{
|
||||
return $this->getNextValue();
|
||||
}
|
||||
|
||||
}
|
||||
|
||||
?>
|
||||
@@ -55,7 +55,7 @@ function info()
|
||||
|
||||
if ($conf->global->SOCIETE_FISCAL_MONTH_START)
|
||||
{
|
||||
$texte.= ' ('.$langs->trans('DefinedAndHasThisValue').' : '.$conf->global->SOCIETE_FISCAL_MONTH_START;
|
||||
$texte.= ' ('.$langs->trans('DefinedAndHasThisValue').' : '.$conf->global->SOCIETE_FISCAL_MONTH_START.')';
|
||||
}
|
||||
else
|
||||
{
|
||||
|
||||
138
htdocs/includes/modules/propale/mod_propale_rubis.php
Normal file
138
htdocs/includes/modules/propale/mod_propale_rubis.php
Normal file
@@ -0,0 +1,138 @@
|
||||
<?php
|
||||
/* Copyright (C) 2003 Rodolphe Quiedeville <rodolphe@quiedeville.org>
|
||||
* Copyright (C) 2004-2006 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/propale/mod_propale_rubis.php
|
||||
\ingroup propale
|
||||
\brief Fichier contenant la classe du mod<6F>le de num<75>rotation de r<>f<EFBFBD>rence de propale Rubis
|
||||
\version $Revision$
|
||||
*/
|
||||
|
||||
require_once(DOL_DOCUMENT_ROOT ."/includes/modules/propale/modules_propale.php");
|
||||
|
||||
|
||||
/** \class mod_propale_rubis
|
||||
\brief Classe du mod<6F>le de num<75>rotation de r<>f<EFBFBD>rence de propale Rubis
|
||||
*/
|
||||
|
||||
class mod_propale_rubis extends ModeleNumRefPropales
|
||||
{
|
||||
|
||||
/** \brief Constructeur
|
||||
*/
|
||||
function mod_propale_rubis()
|
||||
{
|
||||
$this->nom = "Rubis";
|
||||
}
|
||||
|
||||
/** \brief Renvoi la description du modele de num<75>rotation
|
||||
* \return string Texte descripif
|
||||
*/
|
||||
function info()
|
||||
{
|
||||
global $conf;
|
||||
|
||||
$texte = "Renvoie le num<75>ro sous la forme PRYYNNNNN o<> YY est l'ann<6E>e et NNNNN le num<75>ro d'incr<63>ment qui commence <20> 1.<br>\n";
|
||||
$texte.= "L'ann<6E>e s'incr<63>mente de 1 SANS remise <20> zero en d<>but d'ann<6E>e d'exercice.<br>\n";
|
||||
$texte.= "D<EFBFBD>finir la variable SOCIETE_FISCAL_MONTH_START avec le mois du d<>but d'exercice, ex: 9 pour septembre.<br>\n";
|
||||
$texte.= "Dans cette exemple nous aurons au 1er septembre 2006 une propale nomm<6D>e PR0700001.<br>\n";
|
||||
|
||||
if ($conf->global->SOCIETE_FISCAL_MONTH_START)
|
||||
{
|
||||
$texte.= "SOCIETE_FISCAL_MONTH_START est d<>finie et vaut: ".$conf->global->SOCIETE_FISCAL_MONTH_START."";
|
||||
}
|
||||
else
|
||||
{
|
||||
$texte.= "SOCIETE_FISCAL_MONTH_START n'est pas d<>finie.";
|
||||
}
|
||||
return $texte;
|
||||
}
|
||||
|
||||
|
||||
/** \brief Renvoi un exemple de num<75>rotation
|
||||
* \return string Example
|
||||
*/
|
||||
function getExample()
|
||||
{
|
||||
return "PR0600001";
|
||||
}
|
||||
|
||||
|
||||
/** \brief Renvoi prochaine valeur attribu<62>e
|
||||
* \return string Valeur
|
||||
*/
|
||||
function getNextValue($objsoc=0)
|
||||
{
|
||||
global $db,$conf;
|
||||
|
||||
// D'abord on d<>fini l'ann<6E>e fiscale
|
||||
$prefix='PR';
|
||||
$current_month = date("n");
|
||||
if($conf->global->SOCIETE_FISCAL_MONTH_START && $current_month >= $conf->global->SOCIETE_FISCAL_MONTH_START)
|
||||
{
|
||||
$yy = strftime("%y",mktime(0,0,0,date("m"),date("d"),date("Y")+1));
|
||||
}
|
||||
else
|
||||
{
|
||||
$yy = strftime("%y",time());
|
||||
}
|
||||
|
||||
// On r<>cup<75>re la valeur max (r<>ponse imm<6D>diate car champ ind<6E>x<EFBFBD>)
|
||||
$pryy='';
|
||||
$sql = "SELECT MAX(ref)";
|
||||
$sql.= " FROM ".MAIN_DB_PREFIX."propal";
|
||||
$resql=$db->query($sql);
|
||||
if ($resql)
|
||||
{
|
||||
$row = $db->fetch_row($resql);
|
||||
if ($row) $pryy = substr($row[0],0,4);
|
||||
}
|
||||
|
||||
// Si au moins un champ respectant le mod<6F>le a <20>t<EFBFBD> trouv<75>e
|
||||
if (eregi('PR[0-9][0-9]',$pryy))
|
||||
{
|
||||
// Recherche rapide car restreint par un like sur champ index<65>
|
||||
$posindice=5;
|
||||
$sql = "SELECT MAX(0+SUBSTRING(ref,$posindice))";
|
||||
$sql.= " FROM ".MAIN_DB_PREFIX."propal";
|
||||
$resql=$db->query($sql);
|
||||
if ($resql)
|
||||
{
|
||||
$row = $db->fetch_row($resql);
|
||||
$max = $row[0];
|
||||
}
|
||||
}
|
||||
else
|
||||
{
|
||||
$max=0;
|
||||
}
|
||||
|
||||
$num = sprintf("%05s",$max+1);
|
||||
|
||||
return "PR$yy$num";
|
||||
}
|
||||
|
||||
}
|
||||
|
||||
?>
|
||||
@@ -292,6 +292,12 @@ MercureNumRefModelDesc1=Renvoie le num
|
||||
NeptuneNumRefModelDesc1=Renvoie le num<75>ro de facture sous une forme du pr<70>fix FA suivi de l'ann<6E>e sur 2 chiffres et d'un compteur simple sur 4 chiffres.
|
||||
NeptuneNumRefModelDesc2=Si la constante FACTURE_NEPTUNE_DELTA est d<>finie, un offset est appliqu<71> sur le compteur
|
||||
|
||||
# orion
|
||||
OrionNumRefModelDesc1=Renvoie le num<75>ro sous la forme FAYYNNNNN o<> YY est l'ann<6E>e et NNNNN le num<75>ro d'incr<63>ment qui commence <20> 1.
|
||||
OrionNumRefModelDesc2=L'ann<6E>e s'incr<63>mente de 1 SANS remise <20> zero en d<>but d'ann<6E>e d'exercice.
|
||||
OrionNumRefModelDesc3=D<>finir la variable SOCIETE_FISCAL_MONTH_START avec le mois du d<>but d'exercice, ex: 9 pour septembre.
|
||||
OrionNumRefModelDesc4=Dans cette exemple nous aurons au 1er septembre 2006 une facture nomm<6D>e FA0700354.
|
||||
|
||||
# terre
|
||||
TerreNumRefModelDesc1=Renvoie le num<75>ro sous la forme %syymm-nnnn o<> yy est l'ann<6E>e, mm le mois et nnnn un compteur s<>quentiel sans rupture et sans remise <20> 0
|
||||
TerreNumRefModelError=Une facture commen<65>ant par $fayymm existe en base et est incompatible avec cette num<75>rotation. Supprimer la ou renommer la pour activer ce module.
|
||||
|
||||
@@ -292,6 +292,12 @@ MercureNumRefModelDesc1=Renvoie le num
|
||||
NeptuneNumRefModelDesc1=Renvoie le num<75>ro de facture sous une forme du pr<70>fix FA suivi de l'ann<6E>e sur 2 chiffres et d'un compteur simple sur 4 chiffres.
|
||||
NeptuneNumRefModelDesc2=Si la constante FACTURE_NEPTUNE_DELTA est d<>finie, un offset est appliqu<71> sur le compteur
|
||||
|
||||
# orion
|
||||
OrionNumRefModelDesc1=Renvoie le num<75>ro sous la forme FAYYNNNNN o<> YY est l'ann<6E>e et NNNNN le num<75>ro d'incr<63>ment qui commence <20> 1.
|
||||
OrionNumRefModelDesc2=L'ann<6E>e s'incr<63>mente de 1 SANS remise <20> zero en d<>but d'ann<6E>e d'exercice.
|
||||
OrionNumRefModelDesc3=D<>finir la variable SOCIETE_FISCAL_MONTH_START avec le mois du d<>but d'exercice, ex: 9 pour septembre.
|
||||
OrionNumRefModelDesc4=Dans cette exemple nous aurons au 1er septembre 2006 une facture nomm<6D>e FA0700354.
|
||||
|
||||
# terre
|
||||
TerreNumRefModelDesc1=Renvoie le num<75>ro sous la forme %syymm-nnnn o<> yy est l'ann<6E>e, mm le mois et nnnn un compteur s<>quentiel sans rupture et sans remise <20> 0
|
||||
TerreNumRefModelError=Une facture commen<65>ant par $fayymm existe en base et est incompatible avec cette num<75>rotation. Supprimer la ou renommer la pour activer ce module.
|
||||
|
||||
Reference in New Issue
Block a user