Stagiaire WDF
Inscrit: 05/09/2006 15:53
Post(s): 21
|
Bonjour,
Dans une fenêtre j'ai un bouton actualiser qui me permet de remplir 2 tables et aussi de remplir 2 champ Images par des graphes en fonction de la table numéro 1.
J'ai donc créé 4 procédures locales : 1 pour chaque Tables et 1 pour chaque champ Image.
POur les tables tout fonctionne sans probléme.
Par contre pour les graphes:
SI je mets les procédures dans le bouton actualiser dans l'ordre suivant : remplir Image 1 remplir Image 2
J'ai uniquement le graphe de l'image 2 qui apparait.
Par contre si je fais l'inverse:
remplir Image 2 remplir Image 1
J'ai uniquement le graphe de l'image 1 qui apparait.
N'arrivant pas à trouver de solution, voici le code de mes procédures :
PROCEDURE RemplirImage2()
sNomGraphe1 est une chaîne = "GRP_STAT"
// Suppression de l'ancien graphe SI grExiste(sNomGraphe1) = Vrai ALORS grSupprimeTout(sNomGraphe1) FIN
// Définition du graphique i est un entier
// Création du graphe grCrée(sNomGraphe1, grSecteur)
// Destination du graphe grDestinationChamp(sNomGraphe1, Image2) grLégende(sNomGraphe1,grADroite) grLibellé(sNomGraphe1,grAffichePourcentage,Vrai) grSecteurPartExcentrée(sNomGraphe1,3,25)
// Libellé des catégories grEtiquetteCatégorie(sNomGraphe1,1, "MEUBLES") grEtiquetteCatégorie(sNomGraphe1,2, "SOMMIERS / MATELAS") grEtiquetteCatégorie(sNomGraphe1,3," ELECTROMENAGERS") grEtiquetteCatégorie(sNomGraphe1,4,"DIVERS")
grEtiquetteSérie(sNomGraphe1,1,"Encombrants")
// Mise a jour des couleurs
//grCouleurSérie(snomgraphe,1,iRougeclair) //grCouleurSérie(snomgraphe,2,irougefoncé) //grCouleurSérie(snomgraphe,3,icyanClair) //grCouleurSérie(snomgraphe,4,iVertClair)
// Titre du graphe grPoliceTitre(sNomGraphe1,PoliceCrée("Trebuchet MS",12,iGras,iGrisFoncé)) grTitre(sNomGraphe1, "Répartitions des Encombrants")
// Afficher les bulles d'aide grBulle(sNomGraphe1, grBulleActive, Vrai)
// Ajout des données POUR i=1 A TableOccurrence(Table1) // On affecte selon les mêmes critères que la table SELON Table1.COL_MEUBLES[i] CAS = Vrai : // meubles => couleur bleu grIncrémenteDonnée(sNomGraphe1,1, 1,1) FIN SELON Table1.COL_LIT[i] CAS = Vrai // lits => couleur violet grIncrémenteDonnée(sNomGraphe1,1, 2,1) FIN SELON Table1.COL_ELECTRO[i] CAS = Vrai : // Electroménagers => couleur orange grIncrémenteDonnée(sNomGraphe1,1, 3,1) FIN SELON Table1.COL_DIVERS[i] CAS = Vrai : // Divers => couleur vert grIncrémenteDonnée(sNomGraphe1,1, 4,1) FIN FIN
// Dessin du graphe grDessine(sNomGraphe1)
Pour l'image 1, j'ai juste remplacé les Image2 par Image1
Contribution le : 08/10/2006 15:17
Edité par drcharly93 sur 9/10/2006 10:21:20
|