use bn
set dateformat ymd
declare @objectID int,
       @Last_time datetime,
       @tele_Time datetime,
       @max_dec_sec int,
       @start_time datetime,
       @stop_time datetime,
       @live_cout_sec bigint
select @start_time='2013-03-13 15:00',@stop_time='2013-03-14'

create table #t (ObjectID int, live_cout_sec bigint)
declare cur_ts cursor local for  
select ObjectID from [dbo].[FLEET_Object] as O
where ObjectActive=1
and  [ObjectGarNum]like '%143%'-- фильтр по части гаражного номера

open cur_ts
while 1=1 begin -- цикл по ТС
    fetch next from cur_ts into @objectID
    if @@Fetch_status!=0 break
    print 1
    print @ObjectID
    select @max_dec_sec=case when [opt_int1]>[opt_int2] then [opt_int1] else [opt_int2] end from [dbo].[FLEET_Object] as O
    inner join [dbo].[SYS_DEV_Device] as D on o.Device_ID=d.id
    where o.ObjectID=@ObjectID

    declare cur_ad cursor local read_only for  
    select tele_time from [dbo].[SYS_DEV_ArchiveData] as AD
    where ad.ObjectID=@objectID and tele_time between @start_time and @stop_time
    order by tele_time

    select @tele_Time=null, @Last_time=@start_time,@live_cout_sec=0
    open cur_ad
    while 1=1 begin -- цикл по координатам
       fetch next from cur_ad into @tele_time
       if @@FETCH_STATUS!=0 break
       print '1'
       if datediff (ss,@Last_time,@tele_Time)<= @max_dec_sec set @live_cout_sec=@live_cout_sec+datediff (ss,@Last_time,@tele_Time)
       set @Last_time=@tele_Time
    end
    close cur_ad
    deallocate cur_ad
    insert into #t
    values (@ObjectID,@live_cout_sec)
end

close cur_TS
deallocate cur_TS

select o.ObjectGarNum,o.ObjectGosNum,t.live_cout_sec from #t t
inner join [dbo].[FLEET_Object] as O on o.ObjectID=t.ObjectID
drop table #t

-- убрать тревогу и потерю связи
update dbo.FLEET_Object  
set ObjectAlarmMess=0
where ObjectAlarmMess=3 or ObjectAlarmMess=2 or ObjectAlarmMess=1

-- Отработать тревожные события в ивентах
update dbo.FLEET_Events
set WorkOffDateTime=(select getdate ()), WorkOffComments='script'
where handle=0