lainwir3d/dolibarr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Nettoyage

Browse Source
This commit is contained in:
Rodolphe Quiedeville 2006-12-22 22:05:44 +00:00
parent 6853892f7a
commit c0ba261f0a
1 changed files with 243 additions and 257 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

100
htdocs/lib/functions.inc.php
View File

@ -1,5 +1,5 @@
<?php <?php
/* Copyright (C) 2000-2005 Rodolphe Quiedeville <rodolphe@quiedeville.org> /* Copyright (C) 2000-2006 Rodolphe Quiedeville <rodolphe@quiedeville.org>
* Copyright (C) 2003 Jean-Louis Bergamo <jlb@j1b.org> * Copyright (C) 2003 Jean-Louis Bergamo <jlb@j1b.org>
* Copyright (C) 2004-2005 Laurent Destailleur <eldy@users.sourceforge.net> * Copyright (C) 2004-2005 Laurent Destailleur <eldy@users.sourceforge.net>
* Copyright (C) 2004 Sebastien Di Cintio <sdicintio@ressource-toi.org> * Copyright (C) 2004 Sebastien Di Cintio <sdicintio@ressource-toi.org>
@ -227,8 +227,6 @@ function dolibarr_syslog($message, $level=LOG_INFO)
} }
} }
} }
/** /**
\brief Affiche le header d'une fiche \brief Affiche le header d'une fiche
\param links Tableau de titre d'onglets \param links Tableau de titre d'onglets
@ -1796,13 +1794,10 @@ function price($amount, $html=0, $outlangs='')
$cents = $datas[1]; $cents = $datas[1];
// On augmente au besoin // On augmente au besoin
if ($cents > 99 ) if ($cents > 99 )
{
$decimal = 3; $decimal = 3;
}
if ($cents > 999 ) if ($cents > 999 )
{
$decimal = 4; $decimal = 4;
}
// Formate nombre // Formate nombre
if ($html) if ($html)
@ -1814,7 +1809,6 @@ function price($amount, $html=0, $outlangs='')
return number_format($amount, $decimal, $dec, $thousand); return number_format($amount, $decimal, $dec, $thousand);
} }
} }
/** /**
\brief Fonction qui retourne un numérique depuis un montant formaté \brief Fonction qui retourne un numérique depuis un montant formaté
\remarks Fonction à appeler sur montants saisi avant un insert \remarks Fonction à appeler sur montants saisi avant un insert
@ -1830,17 +1824,17 @@ function price2num($amount)
/** /**
* \brief Fonction qui renvoie la tva d'une ligne (en fonction du vendeur, acheteur et taux du produit) \brief Fonction qui renvoie la tva d'une ligne (en fonction du vendeur, acheteur et taux du produit)
* \remarks Si vendeur non assujeti à TVA, TVA par défaut=0. Fin de règle. \remarks Si vendeur non assujeti à TVA, TVA par défaut=0. Fin de règle.
* Si le (pays vendeur = pays acheteur) alors TVA par défaut=TVA du produit vendu. Fin de règle. Si le (pays vendeur = pays acheteur) alors TVA par défaut=TVA du produit vendu. Fin de règle.
* Si vendeur et acheteur dans Communauté européenne et bien vendu = moyen de transports neuf (auto, bateau, avion), TVA par défaut=0 (La TVA doit être payé par acheteur au centre d'impots de son pays et non au vendeur). Fin de règle. Si vendeur et acheteur dans Communauté européenne et bien vendu = moyen de transports neuf (auto, bateau, avion), TVA par défaut=0 (La TVA doit être payé par acheteur au centre d'impots de son pays et non au vendeur). Fin de règle.
* Si vendeur et acheteur dans Communauté européenne et acheteur = particulier ou entreprise sans num TVA intra alors TVA par défaut=TVA du produit vendu. Fin de règle. Si vendeur et acheteur dans Communauté européenne et acheteur = particulier ou entreprise sans num TVA intra alors TVA par défaut=TVA du produit vendu. Fin de règle.
* Si vendeur et acheteur dans Communauté européenne et acheteur = entreprise avec num TVA intra alors TVA par défaut=0. Fin de règle. Si vendeur et acheteur dans Communauté européenne et acheteur = entreprise avec num TVA intra alors TVA par défaut=0. Fin de règle.
* Sinon TVA proposée par défaut=0. Fin de règle. Sinon TVA proposée par défaut=0. Fin de règle.
* \param societe_vendeuse Objet société vendeuse \param societe_vendeuse Objet société vendeuse
* \param societe_acheteuse Objet société acheteuse \param societe_acheteuse Objet société acheteuse
* \param taux_produit Taux par defaut du produit vendu \param taux_produit Taux par defaut du produit vendu
* \return float Taux de tva de la ligne \return float Taux de tva de la ligne
*/ */
function get_default_tva($societe_vendeuse, $societe_acheteuse, $taux_produit) function get_default_tva($societe_vendeuse, $societe_acheteuse, $taux_produit)
{ {
@ -1920,7 +1914,6 @@ function makesalt($type=CRYPT_SALT_LENGTH)
dolibarr_syslog("functions.inc::makesalt return=".$result); dolibarr_syslog("functions.inc::makesalt return=".$result);
return $result; return $result;
} }
/** /**
\brief Fonction pour qui retourne le rowid d'un departement par son code \brief Fonction pour qui retourne le rowid d'un departement par son code
\param db handler d'accès base \param db handler d'accès base
@ -1955,10 +1948,10 @@ function departement_rowid($db,$code, $pays_id)
} }
/** /**
* \brief Renvoi un chemin de classement répertoire en fonction d'un id \brief Renvoi un chemin de classement répertoire en fonction d'un id
* Examples: 1->"0/0/1/", 15->"0/1/5/" \remarks Examples: 1->"0/0/1/", 15->"0/1/5/"
* \param $num Id à décomposer \param $num Id à décomposer
* \param $level Niveau de decoupage (1, 2 ou 3 niveaux) \param $level Niveau de decoupage (1, 2 ou 3 niveaux)
*/ */
function get_exdir($num,$level=3) function get_exdir($num,$level=3)
{ {
@ -1970,9 +1963,9 @@ function get_exdir($num,$level=3)
} }
/** /**
* \brief Création de répertoire recursive \brief Création de répertoire recursive
* \param $dir Répertoire à créer \param $dir Répertoire à créer
* \return int < 0 si erreur, >= 0 si succès \return int < 0 si erreur, >= 0 si succès
*/ */
function create_exdir($dir) function create_exdir($dir)
{ {
@ -2024,15 +2017,15 @@ function create_exdir($dir)
/** /**
* \brief Scan a directory and return a list of files/directories \brief Scan a directory and return a list of files/directories
* \param $path Starting path from which to search \param $path Starting path from which to search
* \param $types Can be "directories", "files", or "all" \param $types Can be "directories", "files", or "all"
* \param $recursive Determines whether subdirectories are searched \param $recursive Determines whether subdirectories are searched
* \param $filter Regex for filter \param $filter Regex for filter
* \param $exludefilter Regex for exclude filter \param $exludefilter Regex for exclude filter
* \param $sortcriteria Sort criteria ("date","size") \param $sortcriteria Sort criteria ("date","size")
* \param $sortorder Sort order (SORT_ASC, SORT_DESC) \param $sortorder Sort order (SORT_ASC, SORT_DESC)
* \return array Array of array('name'=>xxx,'date'=>yyy,'size'=>zzz) \return array Array of array('name'=>xxx,'date'=>yyy,'size'=>zzz)
*/ */
function dolibarr_dir_list($path, $types="all", $recursive=0, $filter="", $excludefilter="", $sortcriteria="", $sortorder=SORT_ASC) function dolibarr_dir_list($path, $types="all", $recursive=0, $filter="", $excludefilter="", $sortcriteria="", $sortorder=SORT_ASC)
{ {
@ -2051,8 +2044,6 @@ function dolibarr_dir_list($path, $types="all", $recursive=0, $filter="", $exclu
if (eregi('^\.',$file)) $qualified=0; if (eregi('^\.',$file)) $qualified=0;
if ($excludefilter && eregi($excludefilter,$file)) $qualified=0; if ($excludefilter && eregi($excludefilter,$file)) $qualified=0;
// print "path=$path file=$file<br>\n";
if ($qualified) if ($qualified)
{ {
// Check whether this is a file or directory and whether we're interested in that type // Check whether this is a file or directory and whether we're interested in that type
@ -2102,9 +2093,7 @@ function dolibarr_dir_list($path, $types="all", $recursive=0, $filter="", $exclu
foreach ($file_list as $key => $row) foreach ($file_list as $key => $row)
{ {
$myarray[$key] = $row[$sortcriteria]; $myarray[$key] = $row[$sortcriteria];
//$myarray2[$key] = $row['size'];
} }
// Sort the data // Sort the data
array_multisort($myarray, $sortorder, $file_list); array_multisort($myarray, $sortorder, $file_list);
@ -2115,11 +2104,10 @@ function dolibarr_dir_list($path, $types="all", $recursive=0, $filter="", $exclu
return false; return false;
} }
} }
/** /**
* \brief Retourne le numéro de la semaine par rapport a une date \brief Retourne le numéro de la semaine par rapport a une date
* \param time Date au format 'timestamp' \param time Date au format 'timestamp'
* \return int Numéro de semaine \return int Numéro de semaine
*/ */
function numero_semaine($time) function numero_semaine($time)
{ {
@ -2196,19 +2184,19 @@ function numero_semaine($time)
return sprintf("%02d",$numeroSemaine); return sprintf("%02d",$numeroSemaine);
} }
/** /**
* \brief Retourne le picto champ obligatoire \brief Retourne le picto champ obligatoire
* \return string Chaine avec picto obligatoire \return string Chaine avec picto obligatoire
*/ */
function picto_required() function picto_required()
{ {
return '<b>*</b>'; return '<b>*</b>';
} }
/** /**
* \brief Convertit une masse d'une unite vers une autre unite \brief Convertit une masse d'une unite vers une autre unite
* \param weight float Masse a convertir \param weight float Masse a convertir
* \param from_unit int Unite originale en puissance de 10 \param from_unit int Unite originale en puissance de 10
* \param to_unit int Nouvelle unite en puissance de 10 \param to_unit int Nouvelle unite en puissance de 10
* \return float Masse convertie \return float Masse convertie
*/ */
function weight_convert($weight,&$from_unit,$to_unit) function weight_convert($weight,&$from_unit,$to_unit)
{ {
@ -2236,10 +2224,10 @@ function weight_convert($weight,&$from_unit,$to_unit)
return $weight; return $weight;
} }
/** /**
* \brief Renvoi le texte d'une unite \brief Renvoi le texte d'une unite
* \param int Unit \param int Unit
* \return string Unite \return string Unite
* \todo gerer les autres unités de mesure comme la livre, le gallon, le litre, ... \todo gerer les autres unités de mesure comme la livre, le gallon, le litre, ...
*/ */
function weight_units_string($unit) function weight_units_string($unit)
{ {
@ -2248,13 +2236,11 @@ function weight_units_string($unit)
* cela surchagerait inutilement d'une requete supplémentaire * cela surchagerait inutilement d'une requete supplémentaire
* pour quelque chose qui est somme toute peu variable * pour quelque chose qui est somme toute peu variable
*/ */
$weight_string[3] = 'Tonnes'; $weight_string[3] = 'Tonnes';
$weight_string[0] = 'kg'; $weight_string[0] = 'kg';
$weight_string[-3] = 'g'; $weight_string[-3] = 'g';
$weight_string[-6] = 'mg'; $weight_string[-6] = 'mg';
return $weight_string[$unit]; return $weight_string[$unit];
} }
?> ?>