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
| /******* Analyse des dépassements ***************/
STEP_ = '';
NBR_ = 0;
RATIO_ = -1;
NUM = 1;
LIGNE = LIGNE || ascii_char(13) || ascii_char(10);
LIGNE = LIGNE || 'III - ANALYSE DES DEPASSEMENTS PMA / PMD'
|| ascii_char(13) || ascii_char(10);
IF (EXISTS(SELECT * FROM
"[8]PS_ANALYSE_COS_PHI_DRAIDJ"(:DATE_DEBUT, :DATE_FIN))) THEN
BEGIN
FOR
SELECT NOM_STEP,
count(NBR_DEP),
max(PMD)
FROM "[8]PS_DEPASS_PMAPMD"(:DATE_DEBUT, :DATE_FIN)
WHERE (NOM_STEP like upper(:N_STEP))
GROUP BY NOM_STEP
INTO :STEP_,
:NBR_,
:RATIO_
DO BEGIN
LIGNE = LIGNE || LPAD(' ',4, ' ') || 'PMD (kw): '
|| coalesce(cast(ratio_ as integer), ' ')
|| ascii_char(13) || ascii_char(10)
|| LPAD(' ',4, ' ') || 'Dépassement en PMA '
|| coalesce(NBR_,'') || ' fois '
|| 'du ' || :date_debut || ' au ' || :date_fin
|| ascii_char(13) || ascii_char(10);
END
END
ELSE
LIGNE = LIGNE || LPAD(' ',4, ' ')
|| 'Cette STEP n''enregistre aucun dépassement de la PMD. '; |
Partager