Bucle While para Comprobar Fecha en Base de Datos

[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.

[Edwardfeliz]

Empezado por 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.

Estudie el ejemplo que me diste aun estoy perdido, observa el comportamiento, en el siguiente codigo:

Código Delphi [-]
procedure FaltanNDias(const Dias: string; Qry: TADOQuery; ME: TMemo);
begin
  with Qry do
  begin
    Close;
    SQL.Clear;
    SQL.Add('SELECT ORDERNO, SALEDATE FROM ORDERS');
    SQL.Add('WHERE DATEADD("d", IAS, SALEDATE) <= DATE()');
    Parameters.ParamByName('DIAS').Value := Dias;
    Open;
    while not Eof do
    begin
      ME.Lines.Add(Format('%s - %s',[FieldByName('ORDERNO').AsString,
        FieldByName('SALEDATE').AsString]));
      Next;
    end;
  end;
end;

Resta a la fecha actual el contenido del edit y muestra las fechas de ahi hacia abajo.


en el siguiente:

Código Delphi [-]
procedure FaltanNDias(const Dias: string; Qry: TADOQuery; ME: TMemo);
begin
  with Qry do
  begin
    Close;
    SQL.Clear;
    SQL.Add('SELECT ORDERNO, SALEDATE FROM ORDERS');
    SQL.Add('WHERE DATEADD("d", IAS, SALEDATE) >= DATE()');
    Parameters.ParamByName('DIAS').Value := Dias;
    Open;
    while not Eof do
    begin
      ME.Lines.Add(Format('%s - %s',[FieldByName('ORDERNO').AsString,
        FieldByName('SALEDATE').AsString]));
      Next;
    end;
  end;
end;

Resta a la fecha actual el contenido del edit y muestra las fechas de ahi hacia arriba.

y lo que yo quiero es que a la fecha actual(Ejemplo: 16/04/2014) y se le sume la cantidad del edit(ejemplo: 5) y muestre los registro que estén desde 16/04/2014 hasta 21/04/2014

Saludos.

[ecfisa]

Hola Edwardfeliz.

Empezado por Edwardfeliz

...lo que yo quiero es que a la fecha actual(Ejemplo: 16/04/2014) y se le sume la cantidad del edit(ejemplo: 5) y muestre los registro que estén desde 16/04/2014 hasta 21/04/2014

Ahora si está mas claro...

Código Delphi [-]
procedure FaltanNDias(const Dias: string; Qry: TADOQuery; ME: TMemo);
begin
  with Qry do
  begin
    Close;
    SQL.Clear;
    SQL.Add('SELECT ORDERNO, SALEDATE FROM ORDERS');
    SQL.Add('WHERE SALEDATE >= DATE() AND SALEDATE <= DATE() + :DIAS');
    Parameters.ParamByName('DIAS').Value := Dias;
    Open;
    while not Eof do
    begin
      ME.Lines.Add(Format('%s - %s',[FieldByName('ORDERNO').AsString,
        FieldByName('SALEDATE').AsString]));
      Next;
    end;
  end;
end;

Saludos

[Edwardfeliz]

Empezado por ecfisa

Hola Edwardfeliz.


Ahora si está mas claro...

Código Delphi [-]
procedure FaltanNDias(const Dias: string; Qry: TADOQuery; ME: TMemo);
begin
  with Qry do
  begin
    Close;
    SQL.Clear;
    SQL.Add('SELECT ORDERNO, SALEDATE FROM ORDERS');
    SQL.Add('WHERE SALEDATE >= DATE() AND SALEDATE <= DATE() + :DIAS');
    Parameters.ParamByName('DIAS').Value := Dias;
    Open;
    while not Eof do
    begin
      ME.Lines.Add(Format('%s - %s',[FieldByName('ORDERNO').AsString,
        FieldByName('SALEDATE').AsString]));
      Next;
    end;
  end;
end;

Saludos

Perfecto Con ese mismo hice unas modificacionsitas e hice el de los artículos a reordenar también.

Saludos!

[Casimiro Noteví]

Empezado por ecfisa

..