Filtro de fecha vencida

[leodelca23]

Hola a todos una pregunta tengo. Como hago para hacer un filtro con un query si se vencio o no. Tengo un campo que se llama fecha prometida, quiero saber si con la fecha que me filtre en la tabla todos lo que se han vencido o que la fecha prometida es mas vieja que la fecha que tengo en el sistema. Trabajo en delphi7 con interbase si les sirve de algo.

Muchas gracias

Saludos

[bitbow]

Puedes hacer un select y comparar esa fecha de tu campo con la fecha actual usando la funcion Date(); para obtener la fecha.

Suerte.

[leodelca23]

perdoname bitlow pero soy novato y no sabria como hacerlo, si me puedes ayudar gracias

[leodelca23]

y perdoname por poner mal tu nombre es que estoy cansado no he dormido intentando hacer eso y no me sale.

Saludos y Gracias

[bitbow]

No problem, ya vivi esa parte, bueno pa comensar que estas usando?

TTable o TQuery?

[leodelca23]

estoy usando tquery y quiero la consulta si se puede en sql lo del select entiendo lo que no es la comparacion de la fechas.

Muchas Gracias

[[Caral]]

Hola
sinceramente no entiendo por que necesariamente tiene que ser en la sentencia sql del query, supongo el programa hace algo, yo de primeras lo haria en el fromcreate para que al entar el programa revisara la fecha del query o de la tabla en otras palabras y luego la comparara con la del sistema.
Asi no modifico la sentencia sql que tal vez la necesite para otros menesteres.
Yo lo haria con un DateTimePicker y un DBEdit de donde sacar la fecha.
No se me parece lo mas logico y facil para un novato.
Saludos

[bitbow]

SELECT * FROM TUTABLA WHERE FECHA<=10/08/2006

Asi se usa con las fechas , en paradox y todoas las demas bases que funcionan con el ODBC o BDE funciona, tambien con MySQL, InterBase/FireBird, PostGreSQL, MSSQL menos con SQLite ya lo probe y no fonuncia.

[marcoszorrilla]

Prueba:

Código SQL [-]
Select *
Where MiFecha > Today

Un Saludo.

[leodelca23]

Muchas Gracias, Pero como hago para poner la fecha de hoy en ves del numero gracias
Saludos

[marcoszorrilla]

La función Today te devuelve la fecha del día. También tienes Now, que devuelve fecha y hora actuales.

Un Saludo.

[leodelca23]

Gracias, no habia leido tu mensaje

[leodelca23]

Hola a todos probe con today y now y me dice que columna no se encuentra que puede ser? ahi esta el codigo gracias

procedure TFTodos.BFiltrarClick(Sender: TObject);

begin
IBQInformes.Close;
IBQInformes.Sql.Clear;
if Cbvencidos.Checked=true then
IBQInformes.SQL.Add('SELECT * FROM Telas INNER JOIN Descripcion '+
'ON Telas.Descripcion1 = Descripcion.Descripcion Where'+ 'Telas.FECHA_PROMETIDA > NOW');
IBQInformes.Open;
end;

[[Caral]]

Hola
sigo sin entender.
ahora veo dos tablas o me parece.
telas y descripcion
el campo telas.descripcion1 es diferente a descripcion.descripcion, por que el ligue para que se necesita si el campo fecha esta en telas?
Saludos.

[bitbow]

PHP Code:

procedure TFTodos.BFiltrarClick(Sender: TObject);
 
 begin
   IBQInformes.Close;
   IBQInformes.Sql.Clear;
   if Cbvencidos.Checked=true then
    begin
      IBQInformes.SQL.Add(' SELECT * FROM Telas INNER JOIN Descripcion ');
      IBQInformes.SQL.Add(' ON Telas.Descripcion1 = Descripcion.Descripcion ');
      IBQInformes.SQL.Add(' Where Telas.FECHA_PROMETIDA > '+ NOW);
      IBQInformes.Open;
    end;
 end; 


Asi es como le hago yo :

PHP Code:

procedure TFTodos.BFiltrarClick(Sender: TObject);
 
 begin
   IBQInformes.Close;
   IBQInformes.Sql.Clear;
   if Cbvencidos.Checked=true then
    begin
      IBQInformes.SQL.Add(' SELECT * FROM Telas INNER JOIN Descripcion ');
      IBQInformes.SQL.Add(' ON Telas.Descripcion1 = Descripcion.Descripcion ');
      IBQInformes.SQL.Add(' Where Telas.FECHA_PROMETIDA > "'+ DateToStr(Date) +'"');
      IBQInformes.Open;
    end;
 end; 


Debes concatenar tu consulta con el valor de Now, la verdad no he manejado Now y no se que tipo de datos devuelva si es Date , Time o combinado de cualquier forma debes de hacer la conversion del tipo de dato que te devuelva a String , para las fechas es DateToStr.

Por ahi en google anda un manual de las funciones de conversion , no recuerdo el enlace.

[bitbow]

Hola
sigo sin entender.
ahora veo dos tablas o me parece.
telas y descripcion
el campo telas.descripcion1 es diferente a descripcion.descripcion, por que el ligue para que se necesita si el campo fecha esta en telas?
Saludos.

Sinceramente he trabajado con Tablas y no es por hacerles el feo pero tienen sus limitaciones y con SQL tienes mucha potencia, hay veces en que no sera necesario utilizar query y sera mas facil usar Tablas eso que ni que, pero aqui siento que es mejor con Query almenos esa es mi humilde opinion.

[[Caral]]

Hola
Por favor corrigeme pero creo que funcionaria asi tambien:

Código Delphi [-]
procedure TFTodos.BFiltrarClick(Sender: TObject);
 
 begin
   IBQInformes.Close;
   IBQInformes.Sql.Clear;
   if Cbvencidos.Checked=true then
    begin
      IBQInformes.SQL.Add(' SELECT * FROM Telas INNER JOIN Descripcion ');
      IBQInformes.SQL.Add(' ON Telas.Descripcion1 = Descripcion.Descripcion ');
      IBQInformes.SQL.Add(' Where Telas.FECHA_PROMETIDA > "'+ DateToStr(Now) +'"');
      IBQInformes.Open;
    end;
 end;

Con relacion a lo otro totalmente de acuerdo con tigo, gracias por la acotacion.
Saludos

[bitbow]

No he tenido la oportunidad/necesidad de usar Now, Today de echo no se nada pero ahorita me documento , cada dia de aprenden algo nuevo.

Saludos.

[leodelca23]

Ahi funciono. Realmente son unos maestros todos. Se les agradece por todo realmente hay que tener paciencia para aguantar preguntas de alguien como yo. Le agradezco en el nobmre de todos los usuarios del club delphi ya que sin gente como ustedes nosotros nos suicidariamos. Muchas Gracias

Saludos

[leodelca23]

Perdonen pero no se que paso pero no me funciona ahora no se que habre hecho le voy a pasar las tablas para ver si hay algun error estas son las tablas

PHP Code:

CREATE TABLE TELAS (
  CLIENTE VARCHAR(30) NOT NULL,
  PO VARCHAR(20) NOT NULL,
  FECHA_EMISION TIMESTAMP NOT NULL,
  DESCRIPCION1 VARCHAR(55) NOT NULL,
  DESCRIPCION2 VARCHAR(55) NOT NULL,
  CANTIDADES_PEDIDAS INTEGER NOT NULL,
  CANTIDADES_HECHAS INTEGER NOT NULL,
  CANTIDADES_FALTANTES INTEGER NOT NULL,
  FECHA_PROMETIDA TIMESTAMP NOT NULL
);CREATE TABLE DESCRIPCION (
  DESCRIPCION VARCHAR(50),
  ESTILO VARCHAR(25),
  COLOR1 VARCHAR(25),
  COLOR2 VARCHAR(25),
  COLOR3 VARCHAR(25),
  COLOR4 VARCHAR(25),
  COLOR5 VARCHAR(25),
  FOLDLINE VARCHAR(25)
) 


no se cuando le cambio la fechas de timestamp a date me da error , si me pueden ayudar haciendo la comparacion con el timestamp realmente la hora no la hora no me interesa.

Saludos