SCAN FOR (m_date1>=TTOD(pl_date2)-6 AND m_date1<=TTOD(pl_date2))

clear
create cursor Tempvo (t1_lc c(16), t1_n6 N(15,2))
insert into Tempvo values ('123ХХХ', 5000)
create cursor proclcdt (PL_LC c(16), PL_DATE1 t, PL_DATE2 t)
insert into proclcdt values ('123ХХХ', {^2014-11-19}, {^2015-03-18})
insert into proclcdt values ('123ХХХ', {^2016-01-25}, {^2016-06-21})
insert into proclcdt values ('123ХХХ', {^2016-06-24}, {^2016-07-22})

for i = 1 to 5
	m_date1 = {^2016-07-20} + i
	SELECT * from proclcdt WHERE LIKE('ХХХ*',SUBSTR(pl_lc,4,5)) ;
		ORDER BY pl_lc INTO CURSOR proclc

	*ex.cells(21,4+j).select
	*ex.cells(21,4+j)=0
	* Обнуляю переменную, где буду хранить сумму за период
	tt1_n6 = 0
	SCAN FOR (m_date1>=TTOD(pl_date2)-6 AND m_date1<=TTOD(pl_date2))
		*** ЕСЛИ ДАТА_ОКОНЧАНИЯ_ДОГОВОРА - ТЕКУЩАЯ_ДАТА<=0, ТОГДА ДОЛЖНЫ ВКЛ В РАСЧЕТ.

		* Считаем сумму за период
		SELECT * from Tempvo WHERE t1_lc=proclc.pl_lc INTO CURSOR tmp
		SELECT tmp
		tt1_n6 = tt1_n6 + tmp.t1_n6
	ENDSCAN 
	* здесь, после окончания цикла, в tt1_n6 находится сумма за период!!! ее и вывожу в Excel.
	*ex.cells(21,4+j).select
	*ex.cells(21,4+j)=ABS(tt1_n6)
	? m_date1, tt1_n6
endfor

return

SCAN FOR (m_date1>=TTOD(pl_date2)-6 AND m_date1<=TTOD(pl_date2))

SCAN FOR (m_date1>=TTOD(pl_date1) AND m_date1<=TTOD(pl_date2))

clear
create cursor Tempvo (t1_lc c(16), t1_n6 N(15,2))
insert into Tempvo values ('123ХХХ', 5000)
create cursor proclcdt (PL_LC c(16), PL_DATE1 t, PL_DATE2 t)
insert into proclcdt values ('123ХХХ', {^2014-11-19}, {^2015-03-18})
insert into proclcdt values ('123ХХХ', {^2016-01-25}, {^2016-06-21})
insert into proclcdt values ('123ХХХ', {^2016-06-24}, {^2016-07-22})

for i = 1 to 15
	m_date1 = {^2016-07-10} + i
	
	* Макс. даты закрытия счетов
	select pl_lc, max(TTOD(pl_date2)) as pl_dt_max;
		from proclcdt;
		WHERE LIKE('ХХХ*',SUBSTR(pl_lc,4,5));
		group by pl_lc;
		having pl_dt_max <= m_date1 + 6; && те что закрыты или закроются в течении 6 дней
		into cursor proclc
	
	select sum(Tempvo.t1_n6) as nSum;
		from Tempvo join proclc on Tempvo.t1_lc = proclc.pl_lc;
		into cursor tmp

	tt1_n6 = nvl(tmp.nSum, 0)

	? m_date1, tt1_n6
endfor

return