Control Rango de Fechas

[pape19]

Código Delphi [-]
Procedure TConsultas.EjecucionPorFecha(); 
Var
VarFecha1, VarFecha2:string;
Begin
If DateTimePicker2.Date > DateTimePicker1.Date then
    Begin
        VarFecha1:=FormatDateTime('mm/dd/yy', DateTimePicker1.Date);
        VarFecha2:=FormatDateTime('mm/dd/yy', DateTimePicker2.Date);
        IBQuery1.SQL.Add('AND D.FECHA >= ' + '''' + VarFecha1 + '''' );
        IBQuery1.SQL.Add('AND D.FECHA <= ' + '''' + VarFecha2 + '''' );
    End
  else
    Begin
        showmessage('La segunda fecha del rango es menor a la primera');
        DatetimePicker2.SetFocus;
    end;

Procedure TConsultas.Excedidos(); //solo los registros que se hayan excedido en el tiempo permitido
Begin
    IBQuery1.SQL.Add('AND LEFT(D.EXCEDENTE, 1) =' + '''' + '+' +'''');
End;

procedure TConsultas.Button1Click(Sender: TObject);
begin
If (CheckBox1.Checked=False) and (CheckBox2.Checked=True) and (CheckBox3.Checked = True) then
                               Begin
                                    TotalRegistros();
                                    EjecucionPorFecha();
                                    Excedidos();
                                    Ordenar();
                                    IBQuery1.Open;
                              End;
End;

Aca tengo una parte del código, como se ve, hay 3 procedimientos. El primero es el que aporta a la query la parte del rango de fechas. Ahi es donde debe cortar la ejecución, hasta que la fecha2 sea mayor a la fecha1, ya que sino, como se ve en el procedimiento 3, sigue ejecutando(Excedidos(), Ordenar()), y devuelve un resultado, que es erróneo, ya que lo de las fechas no se corroboró.

[MartinS]

Hola: Como puedo apreciar (Puedo esta equivocado) las fechas se la pones a mano antes de la ejecucion de las instrucciones del button1. Lo que deberias hacer es la comprobacion antes de ejecutar las sentencias asi:

Código Delphi [-]
procedure TConsultas.Button1Click(Sender: TObject);
Var
VarFecha1, VarFecha2:string;
begin
        // aca la comprobacion
        If DateTimePicker2.Date < DateTimePicker1.Date then   // Cambio sentido de mayor a menor
        Begin
            showmessage('La segunda fecha del rango es menor a la primera');
            DatetimePicker2.SetFocus;
        end     
        else
        Begin 
          VarFecha1:=FormatDateTime('mm/dd/yy', DateTimePicker1.Date);
          VarFecha2:=FormatDateTime('mm/dd/yy', DateTimePicker2.Date);
          IBQuery1.SQL.Add('AND D.FECHA >= ' + '''' + VarFecha1 + '''' );
          IBQuery1.SQL.Add('AND D.FECHA <= ' + '''' + VarFecha2 + '''' );
          If (CheckBox1.Checked=False) and (CheckBox2.Checked=True) and (CheckBox3.Checked = True) then
                               Begin
                                    TotalRegistros();
                                    EjecucionPorFecha();  // <----- Elimina esta linea
                                    Excedidos();
                                    Ordenar();
                                    IBQuery1.Open;
                              End;
       end;
End;

Asi la ejecucion directamente no arrancara hasta tanto la segunda fecha no sea mayor que la primera. Si no es esto lo que necesitabas, avisa y volvemos a intentarlo.-

Saludos

[pape19]

Como pusiste en el ejemplo, cambiaría toda la funcionalidad de mi ejecución; ya que lo que hago, es ir concatenando una única Query en base a varios parámetros que dependen de CheckBox.

Igualmente, entiendo lo difícil que es buscar una solución sin tener demasiada idea del código completo, o de la manera en que está diseñado el el mismo, y amoldar una solución a eso.

Lo que plantié terminó siendo más complicado de lo que imaginé, supuse que había alguna manera de volver arriba en el procedimiento, para volver a ejecutar lo que no paso. (Como un goto en Pascal).

Igualmente terminé solucionando mi problema de una manera bastante sencilla. Programe el evento CloseUp, de mi DateTimePicker2, donde establezco ahi el control de fechas. Si al ejecutarse el evento la fecha 1 es mayor que la 2, la fecha 2 le asigno el valor de la 1, y el evento da la posibilidad de volver a seleccionar la fecha del DateTimePicker2 sin seguir ejecutando nada.

Agradezco mucho tu ayuda, un abrazo!