Fórum Problema com lógica... Data Vigência #347421

    //Não pode existir mais de um registro de configuração
    //vigente no mesmo período para o mesmo e-mail
adoq_VerificaDataVigencia.Close;
    adoq_VerificaDataVigencia.Parameters.ParamByName(´rtv_DATA´      ).Value := DeltaDS.FieldByName(´DATA_INICIO´).asDateTime;
    adoq_VerificaDataVigencia.Parameters.ParamByName(´rtv_CODG_EMAIL´).Value := DeltaDS.FieldByName(´CODG_EMAIL´ ).AsInteger;
    adoq_VerificaDataVigencia.Open;

    if not adoq_VerificaDataVigencia.IsEmpty then
      Raise Exception.Create(´Já existe um registro de configuração vigente para esse e-mail no período informado.´);

    if not VarIsEmpty(DeltaDS.FieldByName(´DATA_INICIO´).NewValue) then
    begin
      if DeltaDS.FieldByName(´DATA_INICIO´).OldValue <> DeltaDS.FieldByName(´DATA_INICIO´).NewValue then
      begin
        adoq_VerificaDataVigencia.Close;
        adoq_VerificaDataVigencia.Parameters.ParamByName(´rtv_DATA´      ).Value := DeltaDS.FieldByName(´DATA_INICIO´).NewValue;
        adoq_VerificaDataVigencia.Parameters.ParamByName(´rtv_CODG_EMAIL´).Value := DeltaDS.FieldByName(´CODG_EMAIL´ ).Value;
        adoq_VerificaDataVigencia.Open;
        if not adoq_VerificaDataVigencia.IsEmpty then
          Raise Exception.Create(´Já existe um registro de configuração vigente para esse e-mail no período informado.´);
      end;
    end;

DECLARE @DATA_INICIO DATETIME
DECLARE @DATA_FIM    DATETIME
DECLARE @CODG_EMAIL  NUMERIC(18,0)

SET @DATA_INICIO = ´20071017´--Null--:rtv_DATA_INICIO
SET @DATA_FIM    = ´20071022´--:rtv_DATA_FIM
SET @CODG_EMAIL  = 1 --:rtv_CODG_EMAIL

SELECT
  TOP 1 1
FROM 
  CONFIG_EMAILS_CONSULTORES
WHERE (1=1)
  AND CODG_EMAIL = @CODG_EMAIL
  AND @DATA_INICIO >= DATA_INICIO 
  AND ((DATA_FIM IS NULL) OR (@DATA_INICIO >= DATA_FIM + ´ 23:59:59´ ))

UNION 

SELECT
  TOP 1 1
FROM 
  CONFIG_EMAILS_CONSULTORES
WHERE (1=1)
  AND CODG_EMAIL = @CODG_EMAIL
  AND @DATA_FIM + ´23:59:59´ <= DATA_INICIO 
  AND ((DATA_FIM IS NULL) OR (@DATA_FIM + ´ 23:59:59´ >= DATA_INICIO))

CODG_EMAIL CODG_SEQUENCIA DATA_INICIO               DATA_FIM  
----------------------------------------------------------------------------
1         1             2007-10-18 00:00:00.0002007-10-18 00:00:00.000
1         2             2007-10-19 00:00:00.000NULL

Se NovaDataFim <> Vazio entao
    Se (NovaDataIni < (DataFimMax)and(NovaDataFim < DataFimMax)and
         (NovaDataIni) < (NovaDataFim) entao
        permitir inserção
    else
       erro
else
   se (NovaDataFim < DataFimMax) enta
      permitir Inserçaõ
  else
      erro

Se DataFim <> Vazio Entao
    se (NovaDataIni < NovaDataFim)and
        (NovaDataFim < ProximaDataIni)  entao
      permitir Edicao
   else
     erro
else
   se (NovaDataIni < ProximaDataIni) entao
      permitir Edicao
   else
      erro