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);