1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36
|
PROCEDURE AffGrapheEvolution()
tabNbrCollaborateurs est un tableau de chaînes
sNomGraphe est une chaîne = "GRAF_Rendement"
//Suppression de l'ancien graphe
SI grExiste(sNomGraphe) = Vrai ALORS
grSupprimeTout(sNomGraphe)
FIN
//Création du graphe
grCrée(sNomGraphe,grCourbe)
//Destination du graphe
grDestinationChamp(sNomGraphe,IMG_Image1)
grLégende(sNomGraphe,grADroite)
grLibellé(sNomGraphe,grAfficheValeur,Vrai)
SupprimeTout(tabNbrCollaborateurs)
POUR TOUTE LIGNE DE TABLE_REQ_EvolutionRendement
Ajoute(tabNbrCollaborateurs,TABLE_REQ_EvolutionRendement.COL_NomPrenom)
FIN
TableauSupprimeDoublon(tabNbrCollaborateurs)
TableauTrie(tabNbrCollaborateurs)
POUR i = 1 A tabNbrCollaborateurs..Occurrence
grEtiquetteSérie(sNomGraphe,i,tabNbrCollaborateurs[i])
POUR TOUTE LIGNE DE TABLE_REQ_EvolutionRendement
SI TABLE_REQ_EvolutionRendement.COL_NomPrenom = tabNbrCollaborateurs[i] ALORS
grAjouteDonnée(sNomGraphe,i,TABLE_REQ_EvolutionRendement.COL_Rendement*100)
FIN
FIN
FIN
grDessine(sNomGraphe) |
Partager