Discussion :

[abdo1966]

bonjour,

Mon problème est le suivant :

je veux imprimer le montant en lettre sur 3 lignes sans qu'il soit tronque

exemple dans mon programme, 30 CARACTÈRE PAR LIGNE : 148 024,80 DH

CENT QUARANTE HUIT MILLE VINGT
QUATRE DIRHAMS ET QUATRE-VING
TS CENTIMES

[Louis Griffont]

Et quel est le problème ?

Soit c'est parce que 148.024,00 et que tu trouves 80 centimes ?
Soit c'est parce que il n'y a pas de :s à centimes ?

Sinon, je ne vois pas !

[mail.spam]

Bonjour,

regarde l'exemple fournit avec Windev : Nombre en lettres
puis au besoin test le nombre de caractère en fesant des découpes sur le caractère " " avec ExtraitChaîne

en gros

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
19
20
21
22
23
24
25
26
27
28
29
30
MontantenLettre est chaîne = "CENT QUARANTE HUIT MILLE VINGT QUATRE DIRHAMS ET QUATRE-VINGTS CENTIMES"
SousChaîne est une chaîne
NumLigne est entier = 1
Ligne est tableau de 3 chaîne
 
SI Taille(MontantenLettre) > 30 ALORS
	SousChaîne = ExtraitChaîne(MontantenLettre, rangPremier, " ")
	TANTQUE SousChaîne <> EOT
		SELON (Taille(Ligne[NumLigne]) + Taille(SousChaîne))
			CAS <30
				// pas de souci
				Ligne[NumLigne]+= SousChaîne + " "
 
			CAS 30
				//on n'ajoute pas d'espace à la fin car c'est pas besoin
				Ligne[NumLigne]+= SousChaîne
 
			CAS >30
			// on change de ligne car pas assez de place pour ajouter le nouveau texte
			NumLigne++
			Ligne[NumLigne]+= SousChaîne + " "
		FIN
		SousChaîne = ExtraitChaîne(MontantenLettre, rangSuivant, " ")
	FIN
SINON
	Ligne[1] = MontantenLettre
FIN
POUR i = 1 A 3 
	Trace(Ligne[i])
FIN

n'oublie pas de tester si ton nombre totale de carctère ne dépasse pas le maxi sur tes 3 lignes

[abdo1966]

Mail.spam

je te remercie beaucoup