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

[Edwardfeliz]

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!

[ecfisa]

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

[Edwardfeliz]

Empezado por ecfisa

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

No hace nada .-.

[ecfisa]

Hola.

Empezado por Edwardfeliz

No hace nada .-.

Habría que ver que datos tenes en tu bd y que valores estas enviando como argumento, en mi caso funciona correctamente.

Saludos

[Edwardfeliz]

Empezado por ecfisa

Hola.

Habría que ver que datos tenes en tu bd y que valores estas enviando como argumento, en mi caso funciona correctamente.

Saludos

En el Form de configuracion esta el DBEDiasVencimiento

Base de datos: access.
Tabla: Productos.
Campos:
Codigo
Descripcion
...
Fecha_Vencimiento

Saludos.

[ecfisa]

Hola.

Te adjunto un demo basado en el campo "saledate" del archivo orders de dbdemos.mdb (que viene con Delphi e incluyo) para que puedas analizarlo con tranquilidad.

Crea una carpeta y descomprimilo en ella para las pruebas.

Saludos

Edito: Como el archivo es muy antiguo modifiqué las últimas fechas para que fueran razonables con la fecha actual, podes hacer lo mismo sobre el DBGrid.