WDForge.org

[Résolu] Erreur d'affichage

Posté par Machou43 le 3/5/2006 9:11:01

Bonjour,

J'ai dans un état un champ liste permettant de récapituler tous les montants des centre de couts d'un devis. L'affichage final se fait comme ceci :

PVC 1500 €
ALU 521.25 €
...

Le problème est que sur certains ordinateurs, même les montants à 0 € sont affichés alors que je le demande pas car je le gère dans le code.

Si quelqu'un a une solution cela m'aiderais bien, Voici mon code :

PROCEDURE Recup_Montant_CentreCouts()
//** Déclaration des Variables **
Req_Recup_Montant est une Source de Données
CodeSql est une chaîne
Champ1 est une chaîne fixe sur 25
Champ2 est une chaîne
ChampTest est chaîne fixe sur 25
NbPassages est entier = 0
//** Ouverture du sablier **
Sablier(Vrai)
//** Lecture des Résultats **
Windevis2.TxtSaisieRTF = ""
HLitPremier(WDCentreDeCouts,NumOrdreImportance)
TANTQUE PAS HEnDehors(WDCentreDeCouts) 
	//** paramétrage du code sql **
	CodeSql = "SELECT" + " " + WDJOB_LIGNE..Nom + "." + WDJOB_LIGNE.Jl_Ccout_Autre..Nom + " " + "AS Nom,SUM(" + WDJOB_LIGNE..Nom
	CodeSql = CodeSql + "." + WDJOB_LIGNE.JLMTTOTALLIGNE..Nom + ")" + " " + "AS TotalLigne" + " "
	CodeSql = CodeSql + "FROM" + " " + WDJOB_LIGNE..Nom + " "
	CodeSql = CodeSql + "WHERE" + " " + WDJOB_LIGNE..Nom + "." + WDJOB_LIGNE.Jl_Ccout_Autre..Nom + " " + "=" 
	CodeSql = CodeSql + " " + "'" + WDCentreDeCouts.CCCode + "'" + " " + "AND" + " " + WDJOB_LIGNE..Nom + "." + WDJOB_LIGNE.JBCODE..Nom + " " + "="
	CodeSql = CodeSql + " " + "'" + WDJOBS.JBCODE + "'"
	//** Exécution de la requête **
	HExécuteRequêteSQL(Req_Recup_Montant,CodeSql)
	//** Initialisation des variables qui vont servir à la construction de la chaîne **
	Champ1 = WDCentreDeCouts.CCCode
	HLitPremier(Req_Recup_Montant)
	SELON Req_Recup_Montant.TotalLigne
		CAS > 0 :
			Champ2 = NumériqueVersChaîne(Req_Recup_Montant.TotalLigne,",2fS ")
		AUTRES CAS :
			Champ2 = "0.00"
	FIN
	HAnnuleDéclaration(Req_Recup_Montant)
	ChampTest = "DESCRIPTION"
	SI Champ1 <> ChampTest _ET_ Champ2 <> "0.00" _ET_ Champ1 <> "                         " ALORS
		SI NbPassages = 1 ALORS
			Windevis2.TxtSaisieRTF = RTFVersTexte(Windevis2.TxtSaisieRTF) + RC + Champ1 + TAB + Champ2 + " €"
		SINON
			Windevis2.TxtSaisieRTF = RTFVersTexte(Windevis2.TxtSaisieRTF) + Champ1 + TAB + Champ2 + " €"
			NbPassages++
		FIN
	FIN
	//** Centre de cout suivant **
	HLitSuivant(WDCentreDeCouts,NumOrdreImportance)
FIN
//** Mise à jour du Champ RTF **
RecapMontant..Valeur = RTFVersTexte(Windevis2.TxtSaisieRTF)
//** Fermeture du Sablier **
Sablier(Faux)

Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=17&topic_id=3939&post_id=16522