Pesquisa

Pesquisa personalizada

domingo, 19 de fevereiro de 2017

Trigger:Data menor que a de hoje

EXCEPTION
Trigger para validar a data de retirada, ela não pode ser menor do que data do sistema.

CREATE EXCEPTION  data ‘Data menor que a de hoje ! Digite outra data’

SET TERM !! ;
CREATE TRIGGER datasistem
FOR emprestimo
BEFORE INSERT
AS
DECLARE VARIABLE dt CHAR(1);
BEGIN
   IF (new.dataRet is not null) THEN
   BEGIN
      EXECUTE PROCEDURE data(new.dataRet)
      RETURNING_VALUES :dt;
      IF (:dt = 'data invalida') THEN
            EXCEPTION data;
   END
END !!
SET TERM ; !!

Nenhum comentário: