Cita:
Empezado por 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
|
no entendi mucho XD
pero Quizás no me eh explicado bien.
en La base de datos, en la tabla productos hay una columna llamada Fecha de vencimiento, lo que quiero hacer es agregar al memo, los productos de los cuales las fechas de vencimiento sean menor a la cantidad de dias que esta puesta en el Formulario de Configuración que estará en un DBEedit, esto es para que se pueda configurar la cantidad de dias a los cuales yo quiero que el programa me avise que van a vencer, es decir que el edit va a tener solo dos digitos ( ejemplo: '15' o '30' ).
Saludos!