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...