Controlar Tiempo e Imprimir Formulario de Informe

[ecfisa]

Hola nefore.

Al igual que mis compañeros, pienso que lo mas simple y flexible es usar una consulta con rango de fechas .

Según veo para generar el listado habría, al menos, dos tablas involucradas: PACIENTES e INSPECCION y estas están relacionadas por el campo CODIGO.

Creo que una consulta similar a esta resolvería tu problema:

Código SQL [-]
SELECT T1.CODIGO,
       T1.DNI,
       T1.APELLIDONOMBRE,
       T2.ENFERMEDAD,
       T2.CONTAGIOSA,
       T2.TRATAMIENTO,
       T2.EMBARAZO
FROM PACIENTES T1, INSPECCION T2
WHERE T1.CODIGO = T2.CODIGO
  AND T2.FECHA_INSPECCION >= :DESDE AND T2.FECHA_INSPECCION <= :HASTA

Luego a los parámetros DESDE y HASTA le envias los rangos de fechas que desees (por semana, por mes, etc.).

Saludos

[nefore]

Empezado por tiammat

Independientemente de cómo llegues a configurarlo, el "preguntar" por la condición no debería ser problema. Una vez que llegues al menú o pantalla principal, corres un procedimiento o función que te avise que para ciertos registros ya se cumplió la condición de haber pasado una semana.

Empezado por ecfisa

Hola nefore.

Al igual que mis compañeros, pienso que lo mas simple y flexible es usar una consulta con rango de fechas .

Según veo para generar el listado habría, al menos, dos tablas involucradas: PACIENTES e INSPECCION y estas están relacionadas por el campo CODIGO.

Creo que una consulta similar a esta resolvería tu problema:

Código SQL [-]
SELECT T1.CODIGO,
       T1.DNI,
       T1.APELLIDONOMBRE,
       T2.ENFERMEDAD,
       T2.CONTAGIOSA,
       T2.TRATAMIENTO,
       T2.EMBARAZO
FROM PACIENTES T1, INSPECCION T2
WHERE T1.CODIGO = T2.CODIGO
  AND T2.FECHA_INSPECCION >= :DESDE AND T2.FECHA_INSPECCION <= :HASTA

Luego a los parámetros DESDE y HASTA le envias los rangos de fechas que desees (por semana, por mes, etc.).

Saludos

Efectivamente, son buenas ideas, muchas gracias a todos por tomarse su tiempo para entender y responder.
Ahora por el tema de los parámetros por ejemplo: ¿Existira alguna funcion en delphi, que me devuelva los dias de la semana, de acuerdo a una determinada fecha?, o sea por ejemplo yo en una variable tengo la fecha de hoy (22/08/13), y ¿existira una funcion que me devuelva "jueves"?

[ecfisa]

Empezado por nefore

¿Existira alguna funcion en delphi, que me devuelva los dias de la semana, de acuerdo a una determinada fecha?, o sea por ejemplo yo en una variable tengo la fecha de hoy (22/08/13), y ¿existira una funcion que me devuelva "jueves"?

Hola nefore.

Código Delphi [-]
...
uses DateUtils;

function DayName(aDate: TDate): string;
begin
  case GetUserDefaultLangID and $03FF of
    LANG_SPANISH: Result := LongDayNames[DayOfTheWeek(aDate)+1];
    LANG_ENGLISH: Result := LongDayNames[DayOfTheWeek(aDate)];
    //...
  end;
end;

// Ejemplo de uso:
procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(DayName(StrToDate('22/08/2013')));
end;

Saludos.

Edito: Para la próxima, recuerda que debes crear un nuevo hilo para una nueva pregunta.

[nefore]

Empezado por ecfisa

Hola nefore.

Código Delphi [-]
...
uses DateUtils;

function DayName(aDate: TDate): string;
begin
  case GetUserDefaultLangID and $03FF of
    LANG_SPANISH: Result := LongDayNames[DayOfTheWeek(aDate)+1];
    LANG_ENGLISH: Result := LongDayNames[DayOfTheWeek(aDate)];
    //...
  end;
end;

// Ejemplo de uso:
procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(DayName(StrToDate('22/08/2013')));
end;

Saludos.

Edito: Para la próxima, recuerda que debes crear un nuevo hilo para una nueva pregunta.

Ah muchas gracias! y disculpa nuevamente, me parece que no estoy con los pies sobre la tierra