TEXT |
---|
PROCEDURE verificar_validade_alimentos IS CURSOR cur_vencidos IS SELECT nome FROM ALIMENTO WHERE data_validade < SYSDATE; alimento_vencido VARCHAR(30); BEGIN OPEN cur_vencidos; LOOP FETCH cur_vencidos INTO alimento_vencido; EXIT WHEN cur_vencidos%NOTFOUND; --ENVIAR EMAIL AQUI DBMS_OUTPUT.PUT_LINE('ATENÇÃO: O ' || TO_CHAR(alimento_vencido) || ' está fora do prazo de validade!'); END LOOP; CLOSE cur_vencidos; END verificar_validade_alimentos; |