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
| create or replace TRIGGER email
AFTER UPDATE
ON T_METER
FOR EACH ROW
DECLARE
CURSOR NS
IS
SELECT EREQ_SERIAL_NUMBER, MDMT_DESCRIPTION
FROM T_METER , T_EQUIPMENT
WHERE PK_METER = MDMT_CUMULATIVE_UNITS
AND ereq_code = MDMT_CODE;
objet VARCHAR2 (100 BYTE);
MESSAGE VARCHAR2 (500 BYTE);
recipient vest_tools.tablevarchar100;
BEGIN
IF MDMT_CUMULATIVE_UNITS >= MDMT_NUMBER3
THEN
objet := 'Fin de vie de l'' Adapter'|| MDMT_CODE;
FOR vie IN NS
LOOP
MESSAGE :=
'L'' Adapter '
|| MDMT_DESCRIPTION
|| ' avec le numero de série '
|| EREQ_SERIAL_NUMBER
|| ' à attend son cycle de fin de vie ';
MESSAGE :=
MESSAGE
|| CHR (10)
|| ' ---- NE PAS REPONDRE ---'
|| CHR (10)
|| '---- Mail envoyé automatiquement par Coswin ----'; |
Partager