SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
ALTER procedure [dbo].[CalcNach_FLS]
@LS numeric(19,0)
AS


DECLARE @House dec(19,0)

select @House=House
from PROD..tabPK 
where LS=@LS 

DELETE PROD..tabNachP where LS=@LS 

if object_id('tempdb..##DomNah') is not null begin drop table ##DomNah end


DECLARE Dom CURSOR FOR select HouseID from adr_tabHouse 
where HouseID = @House and Enable = 1
		
OPEN Dom

FETCH NEXT FROM Dom INTO @House
WHILE @@FETCH_STATUS = 0
BEGIN   
   exec NahDom @House
   insert into tabNachP(Code,House,LS,FLS,Flat,Room,Area,T,Usl,GM,P,Dat0,Dat1,Nah,PGF,INN)
   select NewID(),@House,LS,FLS,Flat,Isnull(Room,''),Area,T,Usl,GM,P,Dat0,Dat1,round(cast(Nah as money),2),PGF,INN
   from ##DomNah
   where LS = @LS
   drop table ##DomNah
   FETCH NEXT FROM Dom INTO @House
END

CLOSE Dom
DEALLOCATE Dom


---/////////////////////////////////////////////////////////////////////////////////
declare @GM int = (select top 1 GM from tabPeriod where (D is NULL) order by GM desc)
select ls,FLS,
(select Sum(SumP) from CalcStop where GM is null and LS = a.LS) as Sum0,
(select Sum(SumP) from CalcStop where GM = @GM and LS = a.LS) as SumN,
Sum(SumP) as Sum1 into #Calc
from CalcStop a
where Isnull(GM,0)<@GM and LS = @LS
group by LS,FLS

select LS,
case when Sum1>0 then case when Sum1>=Abs(SumN) then SumN else -Sum1 end else 0 end as Nah
into #Result
from #Calc

INSERT INTO [dbo].[tabNachP]([code],[House],[LS],[FLS],[Flat],[Room],[Area],[T],[Usl],[GM],[P],[Dat0],[Dat1],[Nah],[PGF],[INN])
select NewID(),[House],[LS],[FLS],[Flat],[Room],[Area],[T],3,[GM],[P],[Dat0],[Dat1],
(select SumP from CalcStop where ls = N.ls and  GM = N.GM),
--(select Nah from #Result where ls = N.ls and  Nah <> 0),
[PGF],[INN]
from [tabNachP] N
where Usl = 1 and ls in (select ls from #Result where Nah <> 0) and gm >= 213 

drop table #Calc,#Result


exec PROD..CalcPeni_FLS @LS 
exec PROD..CreateKvitEPD_FLS @LS