SELECT Tempvo
	SUM t1_n6 TO cm2 FOR INLIST(t1_bs, 'XXXXX','YYYYY')

	    ex.cells(16,4+j).select
	    ex.cells(16,4+j)=ABS(cm2)

	SELECT * from proclcdt WHERE INLIST(SUBSTR(pl_lc,4,5),'XXXXX','YYYYY') ORDER BY pl_lc INTO CURSOR proclc
	    ex.cells(16,4+j).select
	    ex.cells(16,4+j)=0

    tt1_n6 = 0

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

	    tt1_n6 = tt1_n6 + t1_n6

    ENDSCAN

	    ex.cells(16,4+j).select
	    ex.cells(16,4+j)=ABS(tt1_n6)

...
SELECT proclcdt
SUM t1_n6 TO tt1_n6 FOR INLIST(SUBSTR(pl_lc,4,5), 'XXXXX','YYYYY') and m_date1>=TTOD(pl_date2)-7 AND m_date1<=TTOD(pl_date2)
...

*
SELECT * from proclcdt WHERE INLIST(SUBSTR(pl_lc,4,5),'XXXXX','YYYYY') ;
ORDER BY pl_lc INTO CURSOR proclc
	    ex.cells(19,4+j).select
	    ex.cells(19,4+j)=0
	    tt1_n6 = 0
    SCAN FOR m_date1>=TTOD(pl_date2)-7 AND m_date1<=TTOD(pl_date2)
	SELECT * from Tempvo WHERE t1_lc=proclc.pl_lc INTO CURSOR tmp
	SELECT tmp
	    tt1_n6 = tt1_n6 + tmp.t1_n6
	    EXIT
    ENDSCAN 
	    ex.cells(19,4+j).select
	    ex.cells(19,4+j)=ABS(tt1_n6)
*

*
SELECT * from proclcdt WHERE INLIST(SUBSTR(pl_lc,4,5),'XXXXX','YYYYY') ;
ORDER BY pl_lc INTO CURSOR proclc
	    ex.cells(19,4+j).select
	    ex.cells(19,4+j)=0
	    tt1_n6 = 0
    SCAN FOR m_date1>=TTOD(pl_date2)-7 AND m_date1<=TTOD(pl_date2)
	SELECT * from Tempvo WHERE t1_lc=proclc.pl_lc INTO CURSOR tmp
	SELECT tmp
	    tt1_n6 = tt1_n6 + tmp.t1_n6
	    EXIT
    ENDSCAN 
	    ex.cells(19,4+j).select
	    ex.cells(19,4+j)=ABS(tt1_n6)
*

m_date1>=TTOD(pl_date2)-7 
 AND m_date1<=max(TTOD(pl_date2), m_date1+7-dow(m_date1,2))

SELECT * from proclcdt WHERE INLIST(pl_lc,'XXXX') ;
ORDER BY pl_lc INTO CURSOR proclc
	    ex.cells(22,4+j).select
	    ex.cells(22,4+j)=0
	    tt1_n6 = 0
    SCAN FOR (m_date1>=TTOD(pl_date2)-6 AND m_date1<=TTOD(pl_date2)) or ((TTOD(pl_date2)-m_date1)<0)
 	SELECT * from Tempvo WHERE t1_lc=proclc.pl_lc INTO CURSOR tmp
	SELECT tmp
	    tt1_n6 = tt1_n6 + tmp.t1_n6
    ENDSCAN
	    ex.cells(22,4+j).select
	    ex.cells(22,4+j)=ABS(tt1_n6)

SELECT * from proclcdt WHERE INLIST(pl_lc,'ХХХХ') ;
ORDER BY pl_lc INTO CURSOR proclc

1. Какая версия FoxPro?

2. Для одной записи таблицы PROCLCDT может существовать только одна запись таблицы TEMPVO?
Т.е. связь между таблицами Tempvo.t1_lc = proclc.pl_lc - это связь один-к-одному или тут возможен вариант много-ко-многим?

3. Если вместо вычитания дат использовать простое сравнение проблема останется?

4. "Не пустой остаток" - это значение поля Tempvo.t1_n6 отлично от нуля?

5. Если в командном окне выполнить такой запрос

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 - текущая дата, pl_date2 - дата окончания срока из proclcdt.

* Для версии VFP6 или старше
m_date1 = {^2016-06-26}

select proclc.pl_lc, proclc.pl_date2, Tempvo.t1_n6 ;
from Tempvo ;
inner join proclc on Tempvo.t1_lc = proclc.pl_lc ;
where LIKE('ХХХ*',SUBSTR(proclc.pl_lc,4,5))  ;
	and ((m.m_date1 between TTOD(proclc.pl_date2)-6 AND TTOD(proclc.pl_date2)) ;
		or (TTOD(proclc.pl_date2) < m.m_date1)) ;
order by proclc.pl_lc

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

    SCAN FOR (m_date1>=TTOD(pl_date2)-6 AND m_date1<=TTOD(pl_date2)) or (дата договора < TTOD(pl_date2)-6 and Остаток != 0)

SCAN FOR (m_date1>=TTOD(pl_date2)-6 AND m_date1<=TTOD(pl_date2)) and Tempvo.t1_n6!=0

or (дата договора < TTOD(pl_date2)-6

SCAN FOR (m_date1>=TTOD(pl_date2)-6 AND m_date1<=TTOD(pl_date2)) and Tempvo.t1_n6!=0

SCAN FOR (m_date1>=TTOD(pl_date2)-6 AND m_date1<=TTOD(pl_date2)) or Tempvo.t1_n6!=0

or (дата договора < TTOD(pl_date2)-6

(m_date1 попадает в период) ИЛИ (договор закончился И остаток != 0)

create cursor proclcdt (...)
insert into proclcdt ...
...

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

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

SELECT * from proclcdt WHERE INLIST(SUBSTR(pl_lc,4,5),'XXXXX','YYYYY') ;
ORDER BY pl_lc INTO CURSOR proclc

*	    ex.cells(19,4+j).select   && Это лишняя, не нужная, команда
	    ex.cells(19,4+j)=0

*** Переменная, которая будет хранить вычисленную итоговую сумму
	    tt1_n6 = 0

*** Вот это есть в Вашем коде. Оставьте "как есть"
*** Это сумма тех счетов, период действия которых включает указанную дату
    SCAN FOR (m_date1>=TTOD(pl_date2)-6 AND m_date1<=TTOD(pl_date2))
	SELECT * from Tempvo WHERE t1_lc=proclc.pl_lc INTO CURSOR tmp
	SELECT tmp
	    tt1_n6 = tt1_n6 + tmp.t1_n6
    ENDSCAN 

*** Вот здесь делает ПОВТОРНЫЙ расчет для учета не нулевого остатка
*** Отбираем ВСЕ счета, период действия которых уже ЗАВЕРШЕН
    SCAN FOR m_date1>TTOD(pl_date2)
    	* Считаем сумму ОСТАТКА
	SELECT * from Tempvo WHERE t1_lc=proclc.pl_lc INTO CURSOR tmp
	SELECT tmp
	    tt1_n6 = tt1_n6 + tmp.t1_n6
    ENDSCAN 

*	    ex.cells(19,4+j).select    && Это лишняя, не нужная, команда
	    ex.cells(19,4+j)=ABS(tt1_n6)