WDForge.org - Forums - WD 10 - [Résolu] Erreur d'affichage

Index des forums WDForge.org

WD 10

[Résolu] Erreur d'affichage

Bas

Suivant S'enregistrer pour contribuer

[Résolu] Erreur d'affichage

DSI WDF

Inscrit:
13/02/2006 16:52

Post(s): 266

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)

Contribution le : 03/05/2006 09:11

Edité par drcharly93 sur 4/5/2006 19:52:58

	Re: Erreur d'affichage	#2
Animateur WDF Inscrit: 19/01/2004 13:48 De www.sigmasys.fr Post(s): 988	Bonjour, Essayez de remplacer ceci : `SI Champ1 <> ChampTest _ET_ Champ2 <> "0.00" _ET_ Champ1 <> " " ALORS` Par celui là : `SI ( Champ1 <> ChampTest ) ET ( Champ2 <> "0.00" ) ET ( Champ1 <> " " ) ALORS` Bon dév., Totof Contribution le : 03/05/2006 12:17
	_________________ [ Totof(Christophe LOGEL) réalise des développements spécifiques WinDev (Mon annonce wdforge), http://www.sigmasys.fr]

	Re: Erreur d'affichage	#3
DSI WDF Inscrit: 13/02/2006 16:52 Post(s): 266	Merci pour ta réponse, mais j'ai réussi a priori à corriger le probleme en Testatnt un HTrouve(Req...) aprés le HlitPremier.... Et tout a l'air de marcher correctement. Contribution le : 04/05/2006 07:49
DSI WDF Inscrit: 13/02/2006 16:52 Post(s): 266

Haut

S'enregistrer pour contribuer

Vous ne pouvez pas débuter de nouveaux sujets.

Vous pouvez voir les sujets.

Vous ne pouvez pas répondre aux contributions.

Vous ne pouvez pas éditer vos contributions.

Vous ne pouvez pas effacez vos contributions.

Vous ne pouvez pas ajouter de nouveaux sondages.

Vous ne pouvez pas voter en sondage.

Vous ne pouvez pas attacher des fichiers à vos contributions.

Vous ne pouvez pas poster sans approbation.