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