CREATE TABLE [#hist] (
	[Adres] [int] NULL ,
	[Data] [datetime] NULL ,
	[PlusDay] [int] NULL ,
	[Tarif] [money] NULL ,
	[Start] [smalldatetime] NULL ,
	[Final] [smalldatetime] NULL ,
	[ID] [int] IDENTITY ( 1 ,  1 ) NOT NULL
) ON [PRIMARY]

 -- Вставим во временную таблицу всю историю
 
insert #hist  --(Adres, [Data], PlusDay, Tarif, Start, Final)
 
select 	hh.Adres, 
	hh.Data,
	hh.PlusDay,
	hh.Tarif,
	cast(null as smalldatetime) as Start,
	cast(null as smalldatetime) as Final
	from history hh
where not (hh.PlusDay is Null) and (hh.PlusDay <>  0 )
order by hh.Adres, hh.Data

ALTER TABLE [#hist] WITH NOCHECK ADD 
	CONSTRAINT [IX_HIST] UNIQUE  CLUSTERED ( [Adres], [ID] ) 
	WITH  FILLFACTOR =  90   ON [PRIMARY] 

CREATE TABLE [#nav] 
	( [Adres] [int] NOT NULL, [ID] [int] NOT NULL, [Sta] [smalldatetime] ) 
	ON [PRIMARY]
ALTER TABLE [#nav] WITH NOCHECK ADD 
	CONSTRAINT [IX_NAV] UNIQUE  CLUSTERED ( [ID] ) 
	WITH  FILLFACTOR =  90   ON [PRIMARY] 

 -- Пихаем в базу начальные даты эксплуатации
 
insert #nav
select hh.Adres, MIN(hh.ID) as ID, ab.StartUse as Sta
from #hist hh
left join abonent ab ON (hh.Adres = ab.Adres)
where (hh.Start is null) and not (hh.Adres in (select distinct Adres from #hist where not Start is null))
group by hh.Adres, ab.StartUse

 -- проставляем в истории "первые" окончания сроков
 
update #hist set Start= nn.Sta, Final= cast(round(cast(nn.Sta as real) + PlusDay,  0 ,  1 ) as smalldatetime)
from #nav nn where (#hist.ID = nn.ID) and not (nn.Sta is null)

truncate table #nav
declare @Cnt bit
set @Cnt=  1 

 -- В цикле будем это делать, пока не поплохеет. 189 циклов при просчёте января 2002 :(
 
while @Cnt =  1  begin
	insert #nav
	select hh.Adres, MIN(hh.ID) as ID, hh1.Final as Sta
	from #hist hh
	left join #hist hh1 ON (hh.ID = hh1.ID+ 1 )
	where (hh.Start is null) and not (hh1.Final is null)
	group by hh.Adres, hh1.Final

	if @@rowcount =  0  set @Cnt=  0 
	if @Cnt =  1  begin
		update #hist set Start= nn.Sta, Final= cast(round(cast(nn.Sta as real) + PlusDay,  0 ,  1 ) as smalldatetime)
		from #nav nn where (#hist.ID = nn.ID) and not (nn.Sta is null)

		truncate table #nav
	end
end