Discussion :

[guandal]

Bonjour tout le monde,
Je viens vers vous pour savoir, si quelqu'un connait une fonction ou methode en crystal report ,qui permet d'ecrire un nombre en toute lettre.
exemple : 1002,30 ecrit en "Mille deux euros et trente centimes"
Merci.

[luc_chivas]

Bonjour tout le monde,
Je viens vers vous pour savoir, si quelqu'un connait une fonction ou methode en crystal report ,qui permet d'ecrire un nombre en toute lettre.
exemple : 1002,30 ecrit en "Mille deux euros et trente centimes"
Merci.

Bonjour

Est ce que TOWORDS existe en version 8 ??

[guandal]

Bonjour

Est ce que TOWORDS existe en version 8 ??

Bonjour Luc_Chivas,
je suis désolé pour le retard; WK oblige.
Merci beaucoup pour ta réponse , TOWORDS existe bien en version 8 ; et je peux te dire que j'ai vraiment l'air bête car je n'ai pas trop cherché .
Merci encore.
Mais comme on dit vaux mieux être bête une fois que toute sa vie.

[guandal]

Pour infos voici ma fonction dans crystal report .
C'est peut être pas une fonction optimale , mais elle fait mon affaire.
Je rappelle que je n'ai pas de souci pour la langue , elle est en français.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
stringVar array t;  #Pour contenir la partie entière et decimale du montant
 
StringVar Libelle1; #Libellé pour des montants avec 00 centimes
 
StringVar Libelle2; #Libellé pour  des montants avec partie décimale >0 
 
t:=split(totext({#TotalFacture},2,'',','),','); # On decoupe le montant une partie entière et une partie décimale
Libelle1:=towords (tonumber(replace(t[1],' ','')),0);
Libelle1:=UpperCase(Left(Libelle1,1)) + Lowercase(Right(Libelle1,Length(Libelle1)-1));
Libelle2:=towords (tonumber(replace(t[1],' ','')),0) ;
Libelle2:=UpperCase(Left(Libelle2,1)) + Lowercase(Right(Libelle2,Length(Libelle2)-1));
Libelle2:=Libelle2 + ' Euros ' +  ' et ' & towords (tonumber(t[2]),0);
if tonumber(t[2]) =0 then # et on ecrit selon qu'il y ait des decimaux ou pas 
    ("La présente facture est arrêtée à la somme de " & {#TotalFacture} & " Euros TTC (" & (Libelle1 &  " Euros TTC)")) 
 
else 
   ("La présente facture est arrêtée à la somme de " & {#TotalFacture} & " Euros TTC (" & (Libelle2) & " centimes TTC)")

Merci.