create procedure [dbo].[my_procedure]

	@Kodr_list	kodR_list   READONLY,
	@FOR_DATE				date = NULL, 
	@SLOT					INT = 0
as

begin
	
			create table #abon  (
							kodr	    int
							);
			create index indx_abon_temp on #abon(kodr);

			insert into #abon
			select * from @Kodr_list;
		
		with tmps (KODR, DATIC, chkode, cntrkod)
					as (

						select  
							c.KODR as KODR,
							c.DATIC as DATIC,
							c.changekey AS chkode,
							c.counterr AS cntrkod
						from change c
						join #abon a on a.kodr=c.KODR
						where c.DATIC=
										(SELECT  max(c1.datic) as fg
												 FROM change c1
												 where c1.datic<=@FOR_DATE
												 and c1.KODR=c.KODR
												 and c1.counterr is not null)
												 )


		select 
			cast(isnull(con.initvalue,0)+ isnull(val.Values_Sum,0) as float) as SCURRENT,
			ch.cntrkod,
			CH.chkode,
			ch.kodr ,
			null		as slot
			 from counter con
			join  tmps ch 
			on con.counterkey = ch.cntrkod
			join 	(
					select sum(coalesce(isnull(vdiffer, 0) + isnull(vfree, 0), 0)) as Values_Sum
						,counterr
					 from valuic 
					 where checkdate <= @FOR_DATE
					 and ischecked <> 0 
					 group by counterr
					 ) val
			on val.counterr = ch.cntrkod
			where ch.cntrkod is not null


	drop table #abon
end;

create FUNCTION [dbo].[my_function]
(
	@ABONID					int = NULL,
	@FOR_DATE				date = NULL, 
	@SLOT					INT = null
)
RETURNS
@SelTable TABLE (SCURRENT Float, SCOUNTERR int)
AS 
BEGIN

declare  @VALUE_KEY INT, 
         @CHANGE_KEY INT, 
         @COUNTER_KEY INT,  
         @TEMPVALKEY INT,
         @CHANGE_DATE date, 
         @INIT_COUNTER float, 
         @VALUES_SUM FLOAT, 
         @TMPCHECKDATE DATE, 
         @OWNER_COUNTER_KODR int,
		 @tmpcoefflosses float

DECLARE  @scurrent float, 
         @scounterinit float, 
         @scounterr INT, 
         @scheckdate date, 
         @svaluekey INT, 
         @showing_found int,
		 @coefflosses float

set @scurrent=0 ; /* возвращает текущее Показание на Дату.
Это ГЛАВНЫЙ возвращаемы параметр, остальные -- вспомогательные */
set @scounterinit=0 /* если Последнее показание было найдено как "Иниц.Значению на счетчике" -- сюда оно возвращается. Инче -- 0.*/
set @scounterr = null  /* тоже самое -- ссылка на тот счетчик*/
set @scheckdate = null /* если последнее Показание найдено было как Показатель, то сюда возвращается Дата того Показания */
set @svaluekey=0       /* то же самое, -- ссылка на то Показание */
set @showing_found = 0  /* этот параметр: 0 -- если вообще никакой инфы про текущее показание не было найдено, например, если по Норме абонент. При этом, конечно же, остальные параметры можно игнорировать.
1 -- если информация найдена  */
SET @OWNER_COUNTER_KODR =NULL  /* Поле "Владелец счетчика" Counter.OwnerR. Если это ЧУЖОЙ счечтик то входное поле abonid не равно этому полю.*/
set @Value_Key = null
--Change_Key = null;
set @Counter_Key = null
set @Change_Date = null
set @Init_Counter=0
set @Values_Sum=0
 
DECLARE @datic date                      


 if (@counter_key is not null) 
 begin
   select @init_counter = initvalue
	 from counter 
	where counterkey = @counter_key --into Init_Counter, owner_counter_kodr;

   set @scounterinit = @init_counter
   set @scounterr = @counter_key
   set @scurrent = @init_counter
   
   select @Values_Sum = sum(coalesce(isnull(vdiffer, 0) + isnull(vfree, 0), 0))
	 from valuic
		  left join counter c on (counterr = c.counterkey)
	where counterr = @counter_key 
      and checkdate <= @for_date
	  and ischecked <> 0 --and /*KodR=:abonid and -- теперь KodR игнорируем для Один-Счетчик-у-нескольких-Абонентов*/

   set @scurrent = @scurrent + @Values_Sum

 end

INSERT INTO @SelTable  (SCURRENT, SCOUNTERR) VALUES (@scurrent, @scounterr)

RETURN
end