-- Если есть разные счета, тогда надо использовать код операции
CREATE INDEX IX_OPR1_REW ON dbo.OPR1(KofOpr, DateOpr DESC, NomOpr DESC )

-- Использовать временную таблиицу или таблицу памяти
Declare @DateN DateTime, @DateK DateTime
Create table #T (KodOPr int, DateOpr DateTime, NomOpr int)
Insert into #T (KodOpr)
select Distinct KodOpr
from Opr1 with (index(Ix_Opr1_Rew))
where DateOpr between @DateN and @DateK
-- Здесь нет перебора по базе, используется только индекс

-- Заполнить таблицу последней датой
Update t Set
DateOpr=(select top 1 DateOpr
from Opr1 with (index(Ix_Opr1_Rew))
order by DateOpr Desc, NomOpr desc),
NomOpr=(select top 1 DateOpr
from Opr1 with (index(Ix_Opr1_Rew))
order by DateOpr Desc, NomOpr desc)
from #T t

-- Можно еще уменьшить время в два раза, если помудрить
-- над последним операторм, т.е.

Declare @Str VarChar (50)
Update t Set
@Str =(select top 1
Convert(Char(15),DateOpr,4)+
Convert(Char(10), NomOpr)
from Opr1 with (index(Ix_Opr1_Rew))
order by DateOpr Desc, NomOpr desc),
DateOpr=Convert(DateTime,Left(@Str,15)),
NomOpr=Convert(Int,Substring(@Str,16,10))
from #T t