Consulta simple y con sumas

[MartinS]

Hola gente!!!. A medida que voy progresando en el desarrollo de una aplicación para personal aparecen dudas sobre las consultas que debo realizar en SQL ya que hace muy poco que empece con Firebird.

Hoy el tema es el siguiente: Una de mis tablas llamada inasistencias registra eso "Inasistencias" y lo que debo realizar es el calculo de los días que ha faltado el personal. Los campos de dicha tabla son

Id, IdAgente, Fecha, Periodo, Tipo, FaltaJust, FaltaInj, TardeJust, TardeInj y Observaciones

La idea es que seleccionando el agente me liste las veces que ha faltado. Hasta ahi todo bien:

Código Delphi [-]
 With Filtro do
  Begin
    Close;
    SQL.Clear;
    SQL.Add('Select * From Inasistencias Where Fecha >= :FDesde and Fecha <=:FHasta and IDAGente = :Cod');
    SQL.Add('Order By Fecha');
    ParamByName('FDesde').Value := Desde.DateTime;
    ParamByName('FHasta').Value := Hasta.DateTime;
    ParamByName('Cod').Value := CodigoAgente;
    Open;
  End;

El tema es que ademas necesito que en la barra de estado (StatusBar) me de el total (suma por separado) de cada tipo de inasistencia TardeJust,TardeInj,FaltaJust y FaltaInj.

Filtro es un IBQuery y los campos que necesito sumar contiene la cantidad de días que han faltado o llegado tarde.

Gracias y saludos.-

[Neftali [Germán.Estévez]]

Prueba a utilizar la función SUM(campo1), SUM(campo2) en la parte de los campos de la sentencia SQL.
En tu caso si los campos donde anotas las faltas ya contienen el entero con los día, eso debería devolver el resultado.

Al final un GROUP BY por el ID y te debería devolver las sumas...

Código SQL [-]
SELECT ID, SUM(FaltaJust), SUM(FaltaInj), SUM(TardeJust), SUM(TardeInj) FROM...
...
GROUP BY ID

Échale un vistazo a la ayuda sobre el SUM o buscas en los foros y encontrarás más ejemplos para acabar de entenderlo.

[MartinS]

Hola Neftali: Gracias por la respuesta. Ahora bien, me surge un inconveniente ya que si agrupo no veo el detalle y si listo no veo los totales Hay alguna forma de conbinar las dos sentencias SQL en una sola??

Código Delphi [-]
  With Filtro do
  Begin
    Close;
    SQL.Clear;
    SQL.Add('Select * From Inasistencias Where IdAgente = :Cod');
    SQL.Add('Order By Fecha');
    ParamByName('Cod').AsInteger := CodigoAgente;
    Open;
  End;
  With Calculo do
  Begin
    Close;
    Sql.Clear;
    Sql.Add('Select IdAgente, Sum(TardeJust) as TJ, Sum(TardeInj) As TI, Sum(Faltajust) As FJ, Sum(FaltaInj) as FI From Inasistencias Where IdAgente = :Cod');
    Sql.Add('Group by IdAgente');
    ParamByName('Cod').AsInteger := CodigoAgente;
    open;
  End;
  StatusBar1.Panels[1].Text := IntToStr(Calculo.FieldByName('FJ').AsInteger);
  StatusBar1.Panels[3].Text := IntToStr(Calculo.FieldByName('FI').AsInteger);
  StatusBar1.Panels[5].Text := IntToStr(Calculo.FieldByName('TJ').AsInteger);
  StatusBar1.Panels[7].Text := IntToStr(Calculo.FieldByName('TI').AsInteger);

Gracias nuevamente...

[[Caral]]

Hola
Tal vez asi:

Código Delphi [-]
With Filtro do
  Begin
    Close;
    SQL.Text:= 'Select Id, IdAgente, Fecha, Periodo, Tipo, FaltaJust, FaltaInj, TardeJust, TardeInj, Observaciones '+
               '(Select IdAgente, Sum(TardeJust) as TJ, Sum(TardeInj) As TI, Sum(Faltajust) As FJ, Sum(FaltaInj) as FI) '+
               ' From Inasistencias Where IdAgente = :Cod '+
               ' Group by IdAgente';
    ParamByName('Cod').AsInteger := CodigoAgente;
    Open;
  End;
  StatusBar1.Panels[1].Text := IntToStr(Filtro.FieldByName('FJ').AsInteger);
  StatusBar1.Panels[3].Text := IntToStr(Filtro.FieldByName('FI').AsInteger);
  StatusBar1.Panels[5].Text := IntToStr(Filtro.FieldByName('TJ').AsInteger);
  StatusBar1.Panels[7].Text := IntToStr(Filtro.FieldByName('TI').AsInteger);

Saludos

[Neftali [Germán.Estévez]]

O si necesitas ambas cosas, tal vez debas hacer 2 consultas separadas, pero no me queda claro qué es exactamente lo que necesitas.

[MartinS]

Empezado por Neftali

O si necesitas ambas cosas, tal vez debas hacer 2 consultas separadas, pero no me queda claro qué es exactamente lo que necesitas.

Si, Necesito ambas cosas. En el form hay un dbgrid donde se lista por fechas las veces que ha faltado y en el Status bar dividido en paneles donde se muestra la suma de cada llegada tarde y falta. En el codigo que presente después del primer mensaje hice como decis, 2 consultas separadas (filtro para lista y calculo para sumas - ambos Ibquery) pero quería saber si se puede expresar en una sola. Me queda probar lo del amigo Caral y veremos si funciona si no me quedo con las 2 consultas.-

Saludos

[Neftali [Germán.Estévez]]

Creo que no, salvo cosas raras, porque piensa que en una consulta necesitas TODOS los datos, y en la otra justo lo que necesitas es eliminar "datos superfluos" para quedarte con las agrupaciones (suma de horas/cantidades).

[MartinS]

Me quedo con las 2 consultas separadas. Probé la opción de Caral pero me da error en el segundo select. En definitiva no se si haciendo las 2 consultas es lo mas elegante pero en algún lado de este foro también vi:

-Si funciona para que reprogramarlo!!!

Saludos y gracias por su tiempo y su predisposición.