CREATE OR ALTER TRIGGER TTBLOTE_B02D FOR TBLOTE
ACTIVE BEFORE DELETE POSITION 0
AS
DECLARE VARIABLE PROGRAMACAO INTEGER;
DECLARE VARIABLE BANCO_HORA  INTEGER;
BEGIN
   BANCO_HORA  = COALESCE((SELECT FIRST 1 B.ID FROM TBBH_TRABALHADO B WHERE B.LOTE = OLD.LOTE),0);
   PROGRAMACAO = COALESCE((SELECT FIRST 1 A.CONTROLE FROM TBPONTO_PROGRAMACAO A WHERE A.LOTE = OLD.LOTE),0);

   IF(BANCO_HORA = 0)THEN
   BEGIN
      BANCO_HORA = COALESCE((SELECT FIRST 1 B.ID FROM TBBH_COMPENSADO B WHERE B.LOTE = OLD.LOTE),0);
   END

   IF(PROGRAMACAO > 0)THEN
   BEGIN
      EXCEPTION "..." 'LOTE JA UTILIZADO EM PROGRAMACOES DE PONTO.<BR> OPERACAO CANCELADA.';
   END

   IF(BANCO_HORA > 0)THEN
   BEGIN
      EXCEPTION "..." 'LOTE JA UTILIZADO EM PROGRAMACOES DE BANCOS DE HORAS.<BR> OPERACAO CANCELADA.';
   END

END;