Bucle While para Comprobar Fecha en Base de Datos

[ecfisa]

Hola Edwardfeliz.

Como para darte una idea, fijate si te sirve de este modo:

Código Delphi [-]
procedure AReordenar(const Fech: string; Qry: TADOQuery; ME: TMemo);
begin
  with Qry do
  begin
    Close;
    SQL.Clear;
    SQL.Add('SELECT FECHA_VENCIMIENTO FROM PRODUCTOS');
    SQL.Add('WHERE FECHA_VENCIMIENTO <= :FECHA');
    Parameters.ParamByName('FECHA').Value := Fech;
    Open;
    while not Eof do
    begin
      ME.Lines.Add(FieldByName('FECHA_VENCIMIENTO').AsString);
      Next;
    end;
  end;
end;

procedure Faltan15(const Fech: string; Qry: TADOQuery; ME: TMemo);
begin
  with Qry do
  begin
    Close;
    SQL.Clear;
    SQL.Add('SELECT FECHA_VENCIMIENTO FROM PRODUCTOS');
    SQL.Add('WHERE DATEADD("d", 16, FECHA_VENCIMIENTO) = :FECHA');
    Parameters.ParamByName('FECHA_VENCIMIENTO').Value := Fech;
    Open;
    while not Eof do
    begin
      ME.Lines.Add(FieldByName('ORDERNO').AsString);
      Next;
    end;
  end;
end;

Ejemplo de uso:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Clear;
  AReordenar('12/05/2013', ADOQuery1, Memo1);
  Memo2.Clear;
  Faltan15('10/02/2014', ADOQuery1, Memo2);
end;

Saludos