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)