[Résolu]Impossibilité d'afficher 2 graphes sur la même fenetre ??? |
Sujet: [Résolu]Impossibilité d'afficher 2 graphes sur la même fenetre ??? par pelucre sur 8/10/2006 15:17:24 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 |