-- Доходы
 
create table Income (
  Income_id int not null identity primary key,  -- id дохода
 
  Name varchar( 50 ) not null  -- наименование дохода
 
)

 -- Значения доходов
 
create table IncomeValue (
  CalcDate date not null,  -- дата начала действия
 
  Income_id int not null,   -- id дохода
 
  Income_Num int not null,  -- код дохода
 
  Dicount_Num int null,  -- код налоговой скидки
 
  Discount_Value numeric( 15 ,  2 ) null,  -- сумма налоговой скидки
 
  primary key pk_IncomeValue (CalcDate, Income_id)
)

 -- Напишем вьювер (UDF), показывающий состояние кодов дохода 
 
 -- на указанный период
 
create view pv_IncomeValue
 /*
  Используется глобальная переменная $CalcDate для указания расч. месяца
*/ 
as
  select 
    iv.CalcDate, iv.Income_id, iv.Income_Num, iv.Discount_Num, iv.Discount_Value
  from IncomeValue iv
    inner join (
      select Income_id, Max(CalcDate) as MaxCalcDate
      from IncomeValue
      where CalcDate <= $CalcDate
      group by Income_id
    ) as m on m.Income_id = iv.Income_id and m.MaxCalcDate = iv.CalcDate

 -- Занесем код дохода
 
insert into Income (Name)
values ('Суммы материальной помощи')

 -- Занесем аттрибуты кода дохода на 2003/01/01
 
insert into IncomeValue 
  (CalcDate, Income_id, Income_Num, Discount_Num, Discount_Value)
values
  ('2003/01/01',  1 ,  2760 ,  503 ,  2000 )

 -- В феврале изменился код дохода 2760 на 3000
 
set $CalcDate = '2002/02/01'

insert into IncomeValue 
  (CalcDate, Income_id, Income_Num, Discount_Num, Discount_Value)
select $CalcDate, Income_id,  3000 , Discount_Num, Discount_Value
from pv_IncomeValue
where Income_id =  1 

 -- В марте изменился код налоговой скидки 503 на 600 и 
 
 -- ее сумма с 3000 на 5000
 
insert into IncomeValue 
  (CalcDate, Income_id, Income_Num, Discount_Num, Discount_Value)
select $CalcDate, Income_id, Income_Num,  600 ,  5000 
from pv_IncomeValue
where Income_id =  1 

 -- Можно сделать ХП, реализующую изменения любого аттрибута
 
create procedure sp_IncomeValue_Set (
  in @CalcDate date,
  in @Income_id int,
  inout @Income_Num int default null,
  inout @Discount_Num int default null,
  inout @Discount_Value numeric( 15 ,  2 ) default null
)
begin
  declare @RealDate date;

   -- Получаем значения предыдущего текущего состояния кода дохода
 
  set $CalcDate = @CalcDate;

  select
    CalcDate,
    case when @Income_Num is null then Income_Num 
      else @Income_Num end,
    case when @Discount_Num is null then Discount_Num 
      else @Discount_Num end,
    case when @Discount_Value is null then Discount_Value 
      else @Discount_Value end
  into @RealDate, @Income_Num, @Discount_Num, @Discount_Value
  from pv_IncomeValue
  where Income_id = @Income_id;

   -- Если полученная дата не установлена или меньше указанной, 
 
   -- значит записи на указанный месяц нет и ее просто нужно добавить
 
  if @RealDate is null or @RealDate < @CalcDate then
    insert into IncomeValue 
      (CalcDate, Income_id, Income_Num, Discount_Num, Discount_Value)
    values
      (@CalcDate, @Income_id, @Income_Num, @Discount_Num, @Discount_Value)
  else
   -- Иначе обновляем запись
 
    update IncomeValue
    set 
      Income_Num = @Income_Num,
      Discount_Num = @Discount_Num,
      Discount_Value = @Discount_Value
    where Incomt_id = @Income_id;
  end if;
end

 -- Посредством ХП добавляем новые аттрибуты скидок кода дохода
 
 -- на апрель
 
call sp_IncomeValue_Set ('2003/04/01',  1 , null,  700 ,  6000 )

 -- Также изменяем код дохода в апреле
 
call sp_IncomeValue_Set ('2003/04/01',  1 ,  3500 , null, null)

 -- Смотрим состояние аттрибутов кода дохода на январь
 
set $CalcDate = '2003/01/01'
select *
from pv_IncomeValue
where Income_id =  1 

 -- Смотрим состояние аттрибутов кода дохода за апрель
 
set $CalcDate = '2003/04/01'
select *
from pv_IncomeValue
where Income_id =  1 

 -- В марте изменился код налоговой скидки 503 на 600 и 
 
-- ее сумма с  3000  на  5000 

set $CalcDate = '2003/03/01'

 -- Иначе обновляем запись
 
    update IncomeValue
    set 
      Income_Num = @Income_Num,
      Discount_Num = @Discount_Num,
      Discount_Value = @Discount_Value
    where Incomt_id = @Income_id;

 -- Иначе обновляем запись
 
    update IncomeValue
    set 
      Income_Num = @Income_Num,
      Discount_Num = @Discount_Num,
      Discount_Value = @Discount_Value
    where 
      Income_id = @Income_id and
      CalcDate = @CalcDate;