1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
| CREATE OR REPLACE PROCEDURE MP2.CALCUL_COMPTEURS_TRAFIC_REINIT IS
CURSOR compteurs IS
SELECT EQNUM, ENSEMBLE, TYPE_DEFAUT, REFERENCE, DATE_REINIT, TYPE_PERIPH, DATE_MAJ
FROM SAPRR_COMPTEURS
WHERE DATE_REINIT IS NOT NULL AND TRAFIC_REINIT IS NULL
AND (
ENSEMBLE IN (1, 2, 3)
OR
(ENSEMBLE = 4 AND TYPE_PERIPH IN (1, 7, 8))
)
;
traficReinit SAPRR_COMPTEURS.TRAFIC_REINIT%TYPE;
lastReinit SAPRR_COMPTEURS.DATE_REINIT%TYPE;
site EQUIP.SITEID%TYPE;
district EQUIP.LOCATION%TYPE;
gare EQUIP.SUBLOCATION1%TYPE;
voie EQUIP.SUBLOCATION2%TYPE; |