consulta por campo calculado

[noe]

Saludos a todos los del foro de delphi.
bueno mi pregunta es la siguiente: como puedo realizar una consulta en base a un campo calculado, tengo el siguiente codigo:

Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('SELECT Alumnos.matricula, Alumnos.ApPat, Alumnos.ApMat, Alumnos.Nombre, Alumnos.Horario, Alumnos.status, Alumnos.Nombreprof, Alumnos.Colegiatura, Alumnos.UltSem, sum(Cobranza.Buenopor)as TotalPagado');
Query1.SQL.Add('FROM cobranza, Alumnos');
Query1.SQL.Add('Where (Alumnos.Matricula=Cobranza.Matricula) and (Alumnos.Status="ACTIVO") and Atraso>=3');
Query1.SQL.Add('Group by Alumnos.matricula, Alumnos.ApPat, Alumnos.ApMat, Alumnos.Nombre, Alumnos.horario, Alumnos.status, Alumnos.nombreprof, Alumnos.colegiatura, Alumnos.UltSem');
Query1.SQL.Add('Order by Alumnos.NombreProf, Alumnos.Horario, Alumnos.ApPat, Alumnos.ApMat, Alumnos.Nombre');
Query1.Open;

En la consulta anteriormente realizada, necesito que se pueda realizar la consulta por el campo calculado Atraso, como esta en la linea del Where, pero me manda el mensaje " Invalid use of keyword" Token:>=3

Bueno ese es el problema, tal vez sea facil pero no doy con la solucion.

Bueno muchas gracias por la ayuda que se me pueda brindar.

[vtdeleon]

Saludos.

No se mucho SQL, pero...
Donde esta declarado el campo ATRASO en la clausura Select?

Código SQL [-]
Select campo as ATRASO

??????

[noe]

Gracias por responder, pero es que atraso no es un campo de una tabla como por ejemplo de la de alumnos, si no que es un campo calculado que sale de un query, como lo tengo entonces que declarar con el codigo que envié de ejemplo.
Gracias por la ayuda

[marcoszorrilla]

Si entiendo bien lo que pides, tienes una tabla con un campo calculado y ahora deseas mediante una consulta, referirte a dicho campo que en realidad no existe en la tabla.

Un solución puede ser calcular en la consulta.

Por ejemplo:

Código SQL [-]
  Select Fecha, Fecha + 30 as Vencimiento
  From MiTabla

En donde Vencimiento sería nuestro campo calculado.

Un Saludo.

[noe]

Gracias marcos, pero no me sirve lo que me escribiste, realice este codigo con parametros pero tampoco me sirve:

Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('SELECT Alumnos.matricula, Alumnos.ApPat, Alumnos.ApMat, Alumnos.Nombre, Alumnos.Horario, Alumnos.status, Alumnos.Nombreprof, Alumnos.Colegiatura, Alumnos.UltSem, sum(Cobranza.Buenopor)as TotalPagado');
Query1.SQL.Add('FROM cobranza, Alumnos');
Query1.SQL.Add('Where (Alumnos.Matricula=Cobranza.Matricula) and (Alumnos.Status="ACTIVO") and (:SemCons-Alumnos.UltSem>=3) ');
Query1.SQL.Add('Group by Alumnos.matricula, Alumnos.ApPat, Alumnos.ApMat, Alumnos.Nombre, Alumnos.horario, Alumnos.status, Alumnos.nombreprof, Alumnos.colegiatura, Alumnos.UltSem');
Query1.SQL.Add('Order by Alumnos.NombreProf, Alumnos.Horario, Alumnos.ApPat, Alumnos.ApMat, Alumnos.Nombre');
Query1.ParamByName('SemCons').AsInteger:=strtoint(Edt_SemComparacion.text);
Query1.Open;

Lo que deseo es que unicamente me devuelva en la consulta aquellos alumnos que tengan de atraso de 3 semanas en adelante, UltSem es la ultima semana de pago que tiene el alumno.

El parametro que esta en negritas creo que es el problema, porque me manda el error "Parameter 'SemCons' not found", o mas bien cual sera
He buscado varias formas pero nada, aver si me pueden ayudar con mas sugerencias, les estaré agradecido.

[marcoszorrilla]

No dices con que motor de base de datos estás trabajando, pero sino te permite incluir Date en la sentencia SQL

Código SQL [-]
 Select Date - UlSemana as Diferencia
 From MiTabla

Haz:

Código Delphi [-]
 Var
 Hoy:TDate;
 begin
 Hoy:=Date;
 Select Hoy - UltSemana as diferencia
 From MiTabla
 end;

Un Saludo.