forked from Wavyzz/dolibarr
*** empty log message ***
This commit is contained in:
Rodolphe Quiedeville
@@ -24,6 +24,206 @@
|
|||||||
// return $texte;
|
// return $texte;
|
||||||
//}
|
//}
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
function transcoS2L($zonein,$devise)
|
||||||
|
{
|
||||||
|
// Open source offert par <A HREF="mailto:alainfloch@free.fr?subject=chif2let">alainfloch@free.fr</A> 28/10/2001, sans garantie.
|
||||||
|
// d<>but de la fonction de transcodification de somme en toutes lettres
|
||||||
|
|
||||||
|
/* $zonein = "123,56";
|
||||||
|
* $devise = "E"; // pr<70>ciser F si francs , sinon ce sera de l'euro
|
||||||
|
* $r = transcoS2L($zonein,$devise); // appeler la fonction
|
||||||
|
* echo "r<>sultat vaut $r<br>";
|
||||||
|
* $zonelettresM = strtoupper($r); // si vous voulez la m<>me zone mais tout en majuscules
|
||||||
|
* echo "r<>sultat en Majuscules vaut $zonelettresM<br>";
|
||||||
|
* $zonein = "1,01";
|
||||||
|
* $r = transcoS2L($zonein,$devise);
|
||||||
|
* echo "r<>sultat vaut $r<br>";
|
||||||
|
*/
|
||||||
|
|
||||||
|
|
||||||
|
if ($devise == "F")
|
||||||
|
{
|
||||||
|
$unite_singulier = " franc ";
|
||||||
|
$unite_pluriel = " francs ";
|
||||||
|
$cent_singulier = " centime";
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
$unite_singulier = " euro ";
|
||||||
|
$unite_pluriel = " euros ";
|
||||||
|
$cent_singulier = " centime";
|
||||||
|
}
|
||||||
|
|
||||||
|
$arr1_99 = array("z<EFBFBD>ro","un","deux","trois",
|
||||||
|
"quatre","cinq","six","sept",
|
||||||
|
"huit","neuf","dix","onze","douze",
|
||||||
|
"treize","quatorze","quinze","seize",
|
||||||
|
"dix-sept","dix-huit","dix-neuf","vingt ");
|
||||||
|
|
||||||
|
$arr1_99[30] = "trente ";
|
||||||
|
$arr1_99[40] = "quarante ";
|
||||||
|
$arr1_99[50] = "cinquante ";
|
||||||
|
$arr1_99[60] = "soixante ";
|
||||||
|
$arr1_99[70] = "soixante-dix ";
|
||||||
|
$arr1_99[71] = "soixante et onze";
|
||||||
|
$arr1_99[80] = "quatre-vingts ";
|
||||||
|
$i = 22;
|
||||||
|
while ($i < 63) {// initialise la table
|
||||||
|
$arr1_99[$i - 1] = $arr1_99[$i - 2]." et un";
|
||||||
|
$j = 0;
|
||||||
|
while ($j < 8) {
|
||||||
|
$k = $i + $j;
|
||||||
|
$arr1_99[$k] = $arr1_99[$i - 2].$arr1_99[$j + 2];
|
||||||
|
$j++;
|
||||||
|
}
|
||||||
|
$i = $i + 10;
|
||||||
|
} // fin initialise la table
|
||||||
|
|
||||||
|
$i = 12;
|
||||||
|
while ($i < 20) {// initialise la table (suite)
|
||||||
|
$j = 60 + $i;
|
||||||
|
$arr1_99[$j] = "soixante-".$arr1_99[$i];
|
||||||
|
$i++;
|
||||||
|
} // fin initialise la table (suite)
|
||||||
|
|
||||||
|
$i = 1;
|
||||||
|
while ($i < 20) {// initialise la table (fin)
|
||||||
|
$j = 80 + $i;
|
||||||
|
$arr1_99[$j] = "quatre-vingt-".$arr1_99[$i];
|
||||||
|
$i++;
|
||||||
|
} // fin initialise la table (fin)
|
||||||
|
echo "Pour une valeur en entr<74>e = $zonein<br>"; //pour ceux qui ne croient que ce qu'ils voient !
|
||||||
|
// quelques petits controles s'imposent !!
|
||||||
|
$valid = "[a-zA-Z\&\<EFBFBD>\"\'\(\-\<EFBFBD>\_\<EFBFBD>\<EFBFBD>\)\=\;\:\!\*\$\^\<\>]";
|
||||||
|
if (ereg($valid,$zonein))
|
||||||
|
{
|
||||||
|
$r = "<b>la cha<68>ne ".$zonein." n'est pas valide</b>";
|
||||||
|
return($r);
|
||||||
|
}
|
||||||
|
$zone = explode(" ",$zonein); // supprimer les blancs s<>parateurs
|
||||||
|
$zonein = implode("",$zone); // reconcat<61>ne la zone input
|
||||||
|
$zone = explode(".",$zonein); // supprimer les points s<>parateurs
|
||||||
|
$zonein = implode("",$zone); // reconcat<61>ne la zone input, <20>a c'est fort ! merci PHP
|
||||||
|
$virg = strpos($zonein,",",1); // <20> la poursuite de la virgule
|
||||||
|
$i = strlen($zonein); // et de la longueur de la zone input
|
||||||
|
if ($virg == 0) { // ya pas de virgule
|
||||||
|
if ($i > 7)
|
||||||
|
{
|
||||||
|
$r = "<b>la cha<68>ne ".$zonein." est trop longue (maxi = 9 millions)</b>";
|
||||||
|
return($r);
|
||||||
|
}
|
||||||
|
$deb = 7 - $i;
|
||||||
|
$zoneanaly = substr($zonechiffres,0,$deb).$zonein.",00";
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{ //ya une virgule
|
||||||
|
$ti = explode(",",$zonein); // mettre de c<>t<EFBFBD> ce qu'il y a devant la virgule
|
||||||
|
$i = strlen($ti[0]); // en controler la longueur
|
||||||
|
$zonechiffres = "0000000,00";
|
||||||
|
if ($i > 7)
|
||||||
|
{
|
||||||
|
$r = "<b>la cha<68>ne ".$zonein." est trop longue (maxi = 9 millions,00)</b>";
|
||||||
|
return($r);
|
||||||
|
}
|
||||||
|
$deb = 7 - $i;
|
||||||
|
$zoneanaly = substr($zonechiffres,0,$deb).$zonein;
|
||||||
|
}
|
||||||
|
$M= substr($zoneanaly,0,1);
|
||||||
|
if ($M != 0)
|
||||||
|
{ // qui veut gagner des millions
|
||||||
|
$r = $arr1_99[$M]." million";
|
||||||
|
if ($M ==1) $r = $r." ";
|
||||||
|
else $r = $r."s ";
|
||||||
|
if (substr($zoneanaly,1,6)==0)
|
||||||
|
{
|
||||||
|
if ($devise == 'F') $r = $r." de ";
|
||||||
|
else $r = $r."d'";
|
||||||
|
}
|
||||||
|
}
|
||||||
|
$CM= substr($zoneanaly,1,1);
|
||||||
|
if ($CM == 1)
|
||||||
|
{ // qui veut gagner des centaines de mille
|
||||||
|
$r = $r." cent ";
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{ // ya des centaines de mille
|
||||||
|
if ($CM > 1)
|
||||||
|
{
|
||||||
|
$r = $r. $arr1_99[$CM]." cent ";
|
||||||
|
}
|
||||||
|
} // fin du else ya des centaines de mille
|
||||||
|
$MM= substr($zoneanaly,2,2);
|
||||||
|
if (substr($zoneanaly,2,1)==0){ $MM = substr($zoneanaly,3,1);} // enlever le z<>ro des milliers cause indexation
|
||||||
|
if ($MM ==0 && $CM > 0)
|
||||||
|
{
|
||||||
|
$r = $r."mille ";
|
||||||
|
}
|
||||||
|
if ($MM != 0)
|
||||||
|
{
|
||||||
|
if ($MM == 80)
|
||||||
|
{
|
||||||
|
$r = $r."quatre-vingt mille ";
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
if ($MM > 1 )
|
||||||
|
{
|
||||||
|
$r = $r.$arr1_99[$MM]." mille ";
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
if ($CM == 0) $r = $r." mille ";
|
||||||
|
else
|
||||||
|
{
|
||||||
|
$r = $r.$arr1_99[$MM]." mille ";
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
$C2= substr($zoneanaly,5,2);
|
||||||
|
if (substr($zoneanaly,5,1)==0){ $C2 = substr($zoneanaly,6,1);} // enlever le z<>ro des centaines cause indexation
|
||||||
|
$C1= substr($zoneanaly,4,1);
|
||||||
|
if ($C2 ==0 && $C1 > 1)
|
||||||
|
{
|
||||||
|
$r = $r.$arr1_99[$C1]." cents ";
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
if ($C1 == 1) $r = $r." cent ";
|
||||||
|
else
|
||||||
|
{
|
||||||
|
if ($C1 > 1) $r = $r.$arr1_99[$C1]." cent ";
|
||||||
|
}
|
||||||
|
}
|
||||||
|
if ($C2 != 0)
|
||||||
|
{
|
||||||
|
$r = $r.$arr1_99[$C2];
|
||||||
|
}
|
||||||
|
if ($virg !=0)
|
||||||
|
{
|
||||||
|
if ($ti[0] > 1) $r = $r. $unite_pluriel; else $r = "un ".$unite_singulier;
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
if ($zonein > 1) $r = $r.$unite_pluriel; else $r = "un ".$unite_singulier;
|
||||||
|
}
|
||||||
|
$UN= substr($zoneanaly,8,2);
|
||||||
|
if ($UN != "00")
|
||||||
|
{
|
||||||
|
$cts = $UN;
|
||||||
|
if (substr($UN,0,1)==0){ $cts = substr($UN,1,1);} // enlever le z<>ro des centimes cause indexation
|
||||||
|
$r = $r." et ". $arr1_99[$cts].$cent_singulier;
|
||||||
|
if ($UN > 1) $r =$r."s"; // accorde au pluriel
|
||||||
|
}
|
||||||
|
$r1 = ltrim($r); // enleve quelques blancs possibles en d<>but de zone
|
||||||
|
$r = ucfirst($r1); // met le 1er caract<63>re en Majuscule, c'est + zoli
|
||||||
|
return($r); // retourne le r<>sultat
|
||||||
|
} // fin fonction transcoS2L
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
function print_liste_field_titre($name, $file, $field, $begin="") {
|
function print_liste_field_titre($name, $file, $field, $begin="") {
|
||||||
global $conf;
|
global $conf;
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user