'SELECT (FLOOR(s.sup_count -'#13#10 +
         '(COALESCE((SELECT SUM(fl.count_sup) FROM flowrate fl WHERE (supply_id=s.id)';

  if PeriodBegin <> 0 then
    ADQueryRemains.SQL.Add(' AND (date_flow < :date_flow)');

  ADQueryRemains.SQL.Text := ADQueryRemains.SQL.Text +
         '), 0)'#13#10 +
         '+ COALESCE((SELECT SUM(fl.count_med) / s.med_count_in_sup FROM flowrate fl WHERE (supply_id=s.id)';

  if PeriodBegin <> 0 then
    ADQueryRemains.SQL.Add(' AND (date_flow < :date_flow)');

  ADQueryRemains.SQL.Text := ADQueryRemains.SQL.Text +
         '), 0))'#13#10 +
         ')),'#13#10 +
         ''' '', sm.rod_padezh_mn,'#13#10 +
         ''' ('', '#13#10 +
         's.sup_count*s.med_count_in_sup -'#13#10 +
         '(COALESCE((SELECT SUM(fl.count_sup*s.med_count_in_sup) FROM flowrate fl WHERE (supply_id=s.id)';

  if PeriodBegin <> 0 then
    ADQueryRemains.SQL.Add(' AND (date_flow < :date_flow)');

  ADQueryRemains.SQL.Text := ADQueryRemains.SQL.Text +
         '), 0)'#13#10 +
         '+ COALESCE((SELECT SUM(fl.count_med) FROM flowrate fl WHERE (supply_id=s.id)';

  if PeriodBegin <> 0 then
    ADQueryRemains.SQL.Add(' AND (date_flow < :date_flow)');

  ADQueryRemains.SQL.Text := ADQueryRemains.SQL.Text +
         '), 0)),'#13#10 +
         ''' '', mm.rod_padezh_mn, '')'''#13#10 +
         ') AS presence_count,';

FROM supply