Cita:
Empezado por Edwardfeliz
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!
|
Hola Edwardfeliz.
Es decir que la fecha de referencia es la actual y vos le envias los días que deseas, ¿ Es así ?
Entonces sería:
Código Delphi
[-]
procedure FaltanNDias(const Dias: 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", :DIAS, FECHA_VENCIMIENTO) = DATE()');
Parameters.ParamByName('DIAS').Value := Dias;
Open;
while not Eof do
begin
ME.Lines.Add(FieldByName('FECHA_VENCIMIENTO').AsString);
Next;
end;
end;
end;
Uso:
Código Delphi
[-]FaltanNDias(DBEdit_de_dias.Text, ADOQuery1, Memo2);
Saludos
