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)