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 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68
| SI grExiste(CST_NOMGRAPHE) ALORS grSupprimeTout(CST_NOMGRAPHE)
grCrée(CST_NOMGRAPHE,grCourbe)
// Définir la destination du graphique
grDestinationChamp(CST_NOMGRAPHE, GraphePRP)
//Construit paramètre
grTitre(CST_NOMGRAPHE, "Courbe de l'article : "+_psCodArt+" du "+LST_SOURCE..ValeurMémorisée+" du "+DateVersChaîne(DATEDEB,"JJ/MM/AAAA")+" au "+DateVersChaîne(DATEFIN,"JJ/MM/AAAA"), grEnHaut)
grTitreAxe(CST_NOMGRAPHE, "Prix en ()", grOrdonnée)
nNbreTarifACh=TableauOccurrence(gfclTarifs:csTarifAch_Tab)
grLégende(CST_NOMGRAPHE, grADroite)
grEtiquetteSérie(CST_NOMGRAPHE, 1, LST_SOURCE..ValeurAffichée)
grEpaisseurTrait(CST_NOMGRAPHE, 1, 3)
//grGraduation(CST_NOMGRAPHE,1,grAbscisse)
grQuadrillage(CST_NOMGRAPHE,Vrai,grAbscisse)
grQuadrillage(CST_NOMGRAPHE,Vrai,grOrdonnée)
SI nNbreTarifACh>0 ALORS
SI gfclTarifs:csTarifAch_Tab[1]:sDatedeb=DATEDEB ALORS
SI gfclTarifs:csTarifAch_Tab[nNbreTarifACh]:sDatedeb=DATEFIN ALORS
grOrigine(CST_NOMGRAPHE,1, nNbreTarifACh, grAbscisse)
SINON
grOrigine(CST_NOMGRAPHE,1, nNbreTarifACh+1, grAbscisse)
grEtiquetteCatégorie(CST_NOMGRAPHE, nNbreTarifACh+1, DateVersChaîne(DATEFIN,"JJ/MM/AAAA"))
FIN
SINON
SI gfclTarifs:csTarifAch_Tab[nNbreTarifACh]:sDatedeb=DATEFIN ALORS
grOrigine(CST_NOMGRAPHE,0, nNbreTarifACh, grAbscisse)
SINON
grOrigine(CST_NOMGRAPHE,0, nNbreTarifACh+1, grAbscisse)
grEtiquetteCatégorie(CST_NOMGRAPHE, nNbreTarifACh+1, DateVersChaîne(DATEFIN,"JJ/MM/AAAA"))
FIN
grEtiquetteCatégorie(CST_NOMGRAPHE, 0, DateVersChaîne(DATEDEB,"JJ/MM/AAAA"))
FIN
PL_CalculBorneOrdonner(LST_SOURCE..ValeurMémorisée,nNbreTarifACh,nBorneMinOr, nBorneMaxOr)
grOrigine(CST_NOMGRAPHE,nBorneMinOr, nBorneMaxOr, grOrdonnée)
POUR nIndice = 1 A nNbreTarifACh
SELON LST_SOURCE..ValeurMémorisée
CAS "PAB"
grAjouteDonnée(CST_NOMGRAPHE, 1, nIndice, gfclTarifs:csTarifAch_Tab[nIndice]:mPab)
CAS "PAF"
grAjouteDonnée(CST_NOMGRAPHE, 1 ,nIndice, gfclTarifs:csTarifAch_Tab[nIndice]:mPaf)
CAS "PAN"
grAjouteDonnée(CST_NOMGRAPHE, 1,nIndice, gfclTarifs:csTarifAch_Tab[nIndice]:mPan)
CAS "PANN"
grAjouteDonnée(CST_NOMGRAPHE, 1, nIndice, gfclTarifs:csTarifAch_Tab[nIndice]:mPann)
CAS "PANNN"
grAjouteDonnée(CST_NOMGRAPHE, 1, nIndice, gfclTarifs:csTarifAch_Tab[nIndice]:mPannn)
AUTRE CAS
FIN
grEtiquetteCatégorie(CST_NOMGRAPHE, nIndice, DateVersChaîne(gfclTarifs:csTarifAch_Tab[nIndice]:sDatedeb,"JJ/MM/AAAA"))
//info(gfclTarifs:csTarifAch_Tab[nIndice]:mPannn)
FIN
grLissage(CST_NOMGRAPHE, Vrai)
FIN
grDessine(CST_NOMGRAPHE) |
Partager