Bucle While para Comprobar Fecha en Base de Datos

Edwardfeliz · #1 16-04-2014

Saludos a todos aca!

he estado mirando este club y me gusto su forma de trabajar, los felicito!
Ya se fijaron de que soy nuevo acá, no soy experto pero espero que lo poco que pueda aportar ayudar en algo!

Y por si acaso 'Leí la guía de estilo' XD

entremos en materia:
Tengo un bucle para comprobar un dato de una columna de registro para que me diga los articulos que estan para reordenar con el siguiente bucle:

Código Delphi [-]begin
DM.AQProductos.First;
While not DM.AQProductos.Eof Do
Begin
if DM.AQProductos.FieldByName('Reordenar').Value <= Fconfiguracion.DBEreordenar.text
then
Memo1.Lines.Add(DM.AQProductos.FieldByName('Descripcion').Text+' Para reordenar'+#13#10);
DM.AQProductos.Next;
end;

de la misma forma en el Form de configuración tengo otro campo que se llama fecha de vencimiento,
Como hago otro bucle para comprobar que la fecha de vencimiento le quedan de hoy a 15 días para llegar?
y que pueda poner la cantidad de días en configuración.

-- Base de datos Access --
-- Componentes Ado --

Saludos a todos!

Casimiro Notevi · #2 16-04-2014

Cita:

Empezado por Edwardfeliz

Y por si acaso 'Leí la guía de estilo' XD

Bienvenido

[newtron] · #3 16-04-2014

Cita:

Empezado por Edwardfeliz

de la misma forma en el Form de configuración tengo otro campo que se llama fecha de vencimiento,
Como hago otro bucle para comprobar que la fecha de vencimiento le quedan de hoy a 15 días para llegar?
y que pueda poner la cantidad de días en configuración.

No estoy seguro si es por lo que preguntas pero si restas a la fecha de vencimiento el día actual te da el número de días entre una y otra.

Saludos

mamcx · #4 16-04-2014

Eso lo puedes hacer de forma mas eficiente usando el mismo SQL, del tipo:

Código SQL [-]SELECT [campos] FROM [tabla] WHERE Reordenar <= ?param

Date una estudiada de como se usa SQL en especial para tu motor de base de datos.

Edwardfeliz · #5 16-04-2014

Cita:

Empezado por newtron

No estoy seguro si es por lo que preguntas pero si restas a la fecha de vencimiento el día actual te da el número de días entre una y otra.

Saludos

No es restarla, es sumarla, es decir: es como si se fuera a poner en un Datetimerpicker (Now+Fconfiguracion.Editdiasdevencimiento).

Saludos!

Edwardfeliz · #6 16-04-2014

Cita:

Empezado por Casimiro Notevi

Bienvenido

Gracias .-.

Edwardfeliz · #7 16-04-2014

Cita:

Empezado por mamcx

Eso lo puedes hacer de forma mas eficiente usando el mismo SQL, del tipo:

Código SQL [-]SELECT [campos] FROM [tabla] WHERE Reordenar <= ?param

Date una estudiada de como se usa SQL en especial para tu motor de base de datos.

llevo la idea pero no entiendo la salida
Algo mas o menos asi?

Código Delphi [-]With DM.Productos Do
begin
Close;
SQL.Clear;
SQL.Add('Select Fecha_vencimiento');
SQL.Add('From Productos');
SQL.Add('Where Fecha_vencimiento <= :fechaparavencer');
Parameters.ParamByName('fechaparavencer').Value := Datetimepicker1.Date;
 ExecSQL;

Saludos.

ecfisa · #8 16-04-2014

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 · #9 16-04-2014

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!

ecfisa · #10 16-04-2014

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

Edwardfeliz · #11 16-04-2014

Cita:

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 · #12 16-04-2014

Hola.

Cita:

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 · #13 16-04-2014

Cita:

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 · #14 16-04-2014

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 · #15 16-04-2014

Cita:

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.

Casimiro Notevi · #16 16-04-2014

Cita:

Empezado por ecfisa

..

ecfisa · #17 16-04-2014

Hola Edwardfeliz.

Cita:

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 · #18 16-04-2014

Cita:

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!

Temas Similares
Tema	Autor	Foro	Respuestas	Último mensaje
comprobar antigüedad de fecha	jonydread	Varios	0	02-04-2014 04:26:17
Insertar fecha a la base de datos	borlandpablo	C++ Builder	5	26-10-2012 16:55:22
Fecha de modificacion de mi base de datos	jfontane	PHP	1	07-01-2007 14:11:10
comprobar valor en base de datos	lalomon	Conexión con bases de datos	9	13-11-2006 10:12:32
Problemas con Fecha en base de datos	Roilo	Conexión con bases de datos	2	20-01-2006 15:30:23