*RENTAL REMINDER PROGRAM
DO WHILE .T.
SET EXCLUSIVE OFF
STORE 1 TO CL
STORE 'N' TO DNETAPPEND
CLOSE DATA
STORE 'RENTAL' TO DNET
set exclusive off
DO NETERROR

@ 1,0 say '======================================================================'
GOTO TOP
STORE 2 TO ROW
STORE 0 TO COL
STORE 0 TO CCC
DO WHILE .NOT. EOF()
if active <> 'Y' .or. type <> 'T'
 skip
 loop
endif
IF  DAYLATE > 9 .AND. DAYLATE < 16 
 STORE CCC+1 TO CCC
 @ ROW,COL SAY HCODE
 STORE ROW+1 TO ROW
 IF ROW = 4 
  STORE COL+10 TO COL
  STORE 2 TO ROW
 ENDIF
 IF COL = 80 
  @ 4,70 SAY 'FULL SCRN'
  EXIT
 ENDIF
ENDIF
SKIP
ENDDO
wait
set color to 15
@ 1,20 SAY STR(CCC,2,0) + ' TENENTS PAST DUE less than 15 days '
set color to 12

@ 6,0 SAY '==========================================================================='
GOTO TOP
STORE 7 TO ROW
STORE 0 TO COL
STORE 0 TO CCC
DO WHILE .NOT. EOF()
IF  DAYLATE > 16  
 STORE CCC+1 TO CCC
 @ ROW,COL SAY HCODE
 STORE ROW+1 TO ROW
 IF ROW = 12 
  STORE COL+10 TO COL
  STORE 7 TO ROW
 ENDIF
 IF COL = 80 
  @ 10,70 SAY 'FULL SCRN'
  EXIT
 ENDIF
ENDIF
SKIP
ENDDO
wait
set color to 15
@ 9,20 SAY STR(CCC,2,0) + ' TENENTS PAST DUE 15 +++ days '
set color to 15
 
@ 13,0 SAY '==========================================================================='
@ 13,20 SAY ' LATE REMINDERS '
STORE 14 TO ROW
GOTO TOP
DO WHILE .NOT. EOF()
IF ROW = 21
 @ ROW+1,0 SAY 'SCREEN FULL !!!!!!!!!!!!'
 EXIT
ENDIF
DO WHILE .T.
IF SUBSTR(DTOC(LDATE),1,2)  = '  '
 EXIT
ENDIF 
IF LDATE = DATE()+3
 @ ROW,0 SAY 'IN 3 DAYS  ' + HCODE + LCOMMENT
 STORE ROW+1 TO ROW
 EXIT
ENDIF
IF LDATE = DATE()+2
 @ ROW,0 SAY 'IN 2 DAYS  ' + HCODE + LCOMMENT
 STORE ROW+1 TO ROW
 EXIT
ENDIF
IF LDATE = DATE()+1
 @ ROW,0 SAY 'TOMORROW   ' + HCODE + LCOMMENT
 STORE ROW+1 TO ROW
 EXIT
ENDIF
IF LDATE = DATE()
 @ ROW,0 SAY 'TODAY      ' + HCODE + LCOMMENT
 STORE ROW+1 TO ROW
 EXIT
ENDIF
IF LDATE < DATE()
 store date()-ldate to lier
 @ ROW,0 SAY str(lier,2,0) + ' Days ago this Lier ' + substr(HCODE,1,7) + 'promised ' + LCOMMENT
 STORE ROW+1 TO ROW
 EXIT
ENDIF
EXIT
ENDDO
SKIP
ENDDO

@ 23,0 say 'ESC to recaculate   ctrl c to STOP'
do delay9
do delay9
do delay9
do delay9
do ftplate
enddo