iBase.ru Forum

Код: Выделить всё

  fdset_datas.Close;//мастер-таблица
  fdset_datas.SQLs.SelectSQL.Clear;
  fdset_datas.SQLs.SelectSQL.Add('select distinct(iD_otd),NAim_OTD from rsx_mat');
  fdset_detal.SQLs.SelectSQL.Clear;//деталь-таблица
  fdset_detal.SQLs.SelectSQL.Add('select distinct(rsx_mat.id) as f_2,naim_mat,ed_izm,rasxod.id_mat,');
  fdset_detal.SQLs.SelectSQL.Add('(select rsx_mat.cena*count(visits.id) from visits where opl=1 and dat>='+d1+' and dat<='+d2+
   'and kod_usl in (select id_usl from rsx_mat where rsx_mat.id_otd=:ID_otd and rsx_mat.id=rasxod.id_mat))');
  fdset_detal.SQLs.SelectSQL.Add('from rsx_mat,rasxod where rsx_mat.id_otd=:ID_otd and rasxod.id_mat=rsx_mat.id');
  fdset_datas.Open;

Код: Выделить всё

/* Таблица материалов */
create table materials
(id integer not null,
 name varchar(80),
 current_price double precision not null); /* Текущая расценка */

/* Таблица отделов */
create table departments
(id integer not null,
 name varchar(80));

/* Таблица услуг */
create table services
(id integer not null,
 name varchar(80),
 department_id integer not null); /* Код отдела */

/* Таблица заказов */
create table orders
(id integer not null,
 service_id integer not null,
 exec_date DATE); /* Дата выполнения */

/* Расход материала */
create table material_expenses
(service_id integer not null,
 material_id integer not null,
 quantity double precision not null); /* Количество израсходованного материала */

/* Здесь должны быть объявления первичных и внешних ключей */

Код: Выделить всё

select m.id,min(m.name) as material_name,
         sum(me.quantity) as quantity,
         sum(me.quantity*m.current_price) as Summ
  from orders o left join material_expenses me
         on me.service_id = o.service_id
       left join materials m
         on me.material_id = m.id
       inner join services s
         on o.service_id = s.id
  where s.department_id = :dep_id
  and o.exec_date between :start_date and :end_date
  group by m.id

Код: Выделить всё

роFetchAll=false