Where Fecha+Mes=Hoy

[[Ivanzinho]]

Pues para dbf se me ocurre algo como

Código SQL [-]
select * from NombreTabla 
where (cast(extract(month from Fecha) as integer) + PlazoMeses <= 12 and (
       cast(extract(month from Fecha) as integer) + PlazoMeses < cast(extract(month from FechaHoy) as integer or
       (cast(extract(month from Fecha) as integer) + PlazoMeses = cast(extract(month from FechaHoy) as integer) and
        cast(extract(day from Fecha) as integer) <= cast(extract(day from FechaHoy) as integer)) and
       cast(extract(year from Fecha) as integer) = cast(extract(year from FechaHoy) as integer))
   or
      (cast(extract(month from Fecha) as integer) + PlazoMeses > 12 and (
       cast(extract(month from Fecha) as integer) + PlazoMeses - 12 < cast(extract(month from FechaHoy) as integer or
       (cast(extract(month from Fecha) as integer) + PlazoMeses - 12 = cast(extract(month from FechaHoy) as integer) and
        cast(extract(day from Fecha) as integer) <= cast(extract(day from FechaHoy) as integer)) and
       cast(extract(year from Fecha) as integer) + 1 = cast(extract(year from FechaHoy) as integer))
   or (cast(extract(month from Fecha) as integer) + PlazoMeses > 12 and 
      cast(extract(year from Fecha) as integer) + 1 < cast(extract(year from FechaHoy) as integer))

Igual no es una buena opción, pero así de pronto y para dbf no se me ocurre otra cosa, todo sería mejorar esto.

El problema que te comentaba antes es para los dias que no existen, por ejemplo si tienes un registro del 31/1/**** con
un mes de vencimiento te daria fecha vencimientos el 31/2/**** la cual no existe por lo que el registro saldría como vencido
el primer día del mes siguente (no se si es como lo quieres tratar)

Lo dicho, esto es solo una idea, quiza muy mala y que puede tener muchos fallos ya que no me pare a probarla en profundidad,
que habría que ir depurando para que se adaptase a tus necesidades.

Pruebalo, depuralo, mejoralo y ya me contaras

[Jose_Pérez]

Ivanzinho, no lo he probado, aunque creo que no me voy a complicar demasiado y voy a optar por utilizar TTables con índices. Probablemente vaya hasta más rápido.

Tal como tú propones, ¿serán demasiados cálculos para que la consulta SQL sea rápida? La verdad es que no lo sé, pero probablemente sea lenta.

Saludos y gracias.

[marcoszorrilla]

Creo que con SQL va a ser dificil solventar la papeleta, porque por ejemplo si le sumamos 4 meses al mes 10, nos da 14, mes que no existe.

Si no tenemos en cuenta el SQL, con programación en Delphi, si que podemos sumar meses sin problemas de este tipo:

Un ejemplo.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
f:Tdate;
begin
f:=Date - 40;
ShowMessage(FormatDatetime('dd/mm/yyyy',f));
f:=incMonth(f, 3);
ShowMessage(FormatDatetime('dd/mm/yyyy',f));
end;

Solución que propongo:
Crear una tabla temporal con un campo calculado y quedaría resuelto.

Un Saludo.

[[Ivanzinho]]

Empezado por Jose_Pérez

Ivanzinho, no lo he probado, aunque creo que no me voy a complicar demasiado y voy a optar por utilizar TTables con índices. Probablemente vaya hasta más rápido.

Yo probe con una tabla de 20000 registro y no iba lento, lo que si es es una consulta retorcida que todavía habría que retocar para que fuese 100% segura. Pero si va bien con TTables adelante que seguro que es mucho más fácil lo que conllevara a menos errores.

Empezado por Marcos

Creo que con SQL va a ser dificil solventar la papeleta, porque por ejemplo si le sumamos 4 meses al mes 10, nos da 14, mes que no existe.

Eso lo contemplo en la consulta, siempre y cuando no haya plazos de mas de 12 meses, pero todo seria incluir mas condiciones.

Un saúdo.

[Jose_Pérez]

Empezado por Ivanzinho

Yo probe con una tabla de 20000 registro y no iba lento, lo que si es es una consulta retorcida que todavía habría que retocar para que fuese 100% segura. Pero si va bien con TTables adelante que seguro que es mucho más fácil lo que conllevara a menos errores.

Como bien dices, la consulta en sí es muy compleja y debería de pulirse un poco. Además surge otro problema. Suponte que la fecha fuese el 31/Ene/2007 y el plazo fuese de 1 mes. Obviamente, la consulta tal como tú la has planteado iría a comprobar el 31/Feb/2007, cuando obviamente el plazo correcto sería el 28, o 29 si el año fuese bisiesto, de febrero. Según tu consulta te avisaría el 1/Mar/2007, con un día de retraso.

Creo que SQL es una herramienta muy útil y rápida, pero a la hora de realizar algunas consultas y cálculos el uso de TTables siguen siendo la mejor opción.

Para serte sincero, yo esperaba alguna función simple, algo así como un AddMonth(Fecha,Meses).

Saludos.