WITH DebSums AS (select tk.kntid as kntid,sum(td.invcost*tk.currrate_c) as sumTDInvCst,(select sum(case when top.c_oplat is not null 
	then top.c_oplat*tk1.currrate_r else  0  end) from yeis.kontracts tk1 left outer join yeis.oplata top on tk1.kntid=top.kntid 
	where tk1.kntid=tk.kntid ) as sumTOpALL from yeis.kontracts tk left outer join yeis.deliver td on tk.kntid=td.kntid 
	where ucase(tk.knttype)='ЭК' and '01.02.2008'>td.boarddate and TK.Name_ExpStr='004' and TK.MFO='00497' 
	group by tk.kntid having sum(td.invcost*tk.currrate_c)<>(select sum(case when top.c_oplat is not null 
	then top.c_oplat*tk1.currrate_r else  0  end) from yeis.kontracts tk1 left outer join yeis.oplata top on tk1.kntid=top.kntid 
	where tk1.kntid=tk.kntid) and sum(td.invcost*tk.currrate_c)>(select sum(case when top.c_oplat is not null 
	then top.c_oplat*tk1.currrate_r else  0  end) from yeis.kontracts tk1 left outer join yeis.oplata top on tk1.kntid=top.kntid
	where tk1.kntid=tk.kntid))

SELECT TK.KntrName ,
	TK.NamePartner ,
	TK.NomKont ,
	TK.D_Kont ,
	TD.GdsName,
	(select case when tagrm.agrmsum= 0  or tagrm.agrmsum is null  then tk2.kntsum*tk2.currrate_c  else tagrm.agrmsum*tagrm.currrate end
		from yeis.kontracts tk2 left outer join (select * from YEIS.Agrmnts TAgrm where TAgrm.AgrmNo=(select max(TAgrm1.AgrmNo)  
			from YEIS.Agrmnts TAgrm1 where TAgrm1.KntID=TAgrm.KntID)) as TAgrm on TK2.KntID=TAgrm.KntID where tk2.kntid=tk.kntid) ,
	COUNT(TD.DlvDate) ,
	SUMTOpALL ,
	sumTDInvCst-SUMTOpALL
FROM YEIS.Kontracts TK inner join YEIS.Deliver TD ON TK.KntID=TD.KntID inner join DebSums TDeb on TK.KntID=TDeb.KntID 
GROUP BY TK.KntID,TK.KntrName,TK.NamePartner,TK.NomKont,TK.D_Kont,TD.GdsName,SUMTOpALL,sumTDInvCst-SUMTOpALL

select case when tagrm.agrmsum= 0  or tagrm.agrmsum is null  then tk2.kntsum*tk2.currrate_c  else tagrm.agrmsum*tagrm.currrate end
		from yeis.kontracts tk2 left outer join (select * from YEIS.Agrmnts TAgrm where TAgrm.AgrmNo=(select max(TAgrm1.AgrmNo)  
			from YEIS.Agrmnts TAgrm1 where TAgrm1.KntID=TAgrm.KntID)) as TAgrm on TK2.KntID=TAgrm.KntID where tk2.kntid=tk.kntid