--Справочник Номенклатура
create table r_product
(
 id integer not null,
 prod_name  varchar( 80 ),
 type_id integer, -- изделия,комплектующие,прочее
 primary key(id)
)
--Справочник Клиенты 
create table r_client
(
 id integer not null,
 client_name  varchar( 80 ),
 type_id integer, --внешние клиенты,склады,сотрудники,прочее
 primary key(id)
)

--Таблица Операции 
create table r_operation
(
 id integer not null,
 num_oper    integer, -- номер накладной
 date_oper   date,    --дата накладной
 debet_id integer, -- Куда ссылка на r_client
 credit_id integer, -- Откуда  ссылка на r_client
 primary key(id)
)

--Таблица Документы

create table r_document
(
 id integer not null,
 oper_id     integer, -- ссылка на r_operation
 prod_id     integer,
 amount  decimal( 15 , 3 ),-- количество
 primary key(id)
)


--Расчет остатков и оборотов по Складу
--Все упрощенно,только идеи.
--Остаток продукта на дату по складу
create procedure r_rest_prod(rep_date date,client_id integer,prod_id integer)
returns (amount decimal( 15 , 3 ))
as
begin
 for select 
      sum(case when debet_id=:client_id then b.amount else -b.amount end),
        from r_operation a,r_document b
         where a.id=b.oper_id 
          and  (a.debet_id=:client_id or a.credit_id=:client_id)
          and a.date_oper<:rep_date and b.prod_id=:prod_id
           into :amount
             do suspend;
end;
#

-- Обороты по складу
create procedure r_turnover_whouse (client_id integer,start_date date,end_date date)
returns (prod_id integer,prod_name varchar( 80 ),
in_amount decimal( 15 , 3 ),debet_amount decimal( 15 , 3 ),credit_amount decimal( 15 , 3 ),
out_amount decimal( 15 , 3 )
)
as
begin
 for select id,prod_name 
    from man_product
      order by c.prod_name
       into :prod_id,:prod_name
     do
     begin
     in_amount= 0 ;debet_amount= 0 ;credit_amount= 0 ;out_amount= 0 ;
      
     execute procedure r_rest_prod start_date,client_id,prod_id returning_values in_amount;
      
     select 
      sum(case when debet_id=:client_id then b.amount else  0  end),
      sum(case when credit_id=:client_id then b.amount else  0  end),
        from man_operation a,man_document b
         where a.id=b.oper_id 
          and  (a.debet_id=:client_id or a.credit_id=:client_id)
           and a.date_oper>=:start_date and a.date_oper<=:end_date and prod_id=:prod_id
            into :debet_amount,:credit_amount;
       out_amount=in_amount+debet_amount-credit_amount;
       suspend;            
    end
    
end
#

--Для знания текущего остатка.
--обновления данных в этой таблице происходит в триггерах 
--для таблиц r_document (after insert,update,delete)
--или r_operation (after update,когда debet_id,credit_id 
--ввели ошибочно и изменили после вставки документов)

create table man_whouserest
(
  id integer not null, 
  whouse_id   integer, -- клиенты у которых тип Склад
  prod_id     integer, -- ссылка на r_product
  rest  decimal( 15 , 3 ),
  primary key(id)
);