* Added this short version 12/20/21
*run ftplate
*run ftplate2
*clear
*? ' '
*? ' '
*type f:\acct\rlg.prn
*wait
*return

select 1
STORE 'Y' TO PRINT
INDEX ON DAYLATE TO DLl
SET INDEX TO DLl
STORE 'Y' TO SOLID
IF PRINT = 'Y'
 SET PRINTER TO RLG
 SET PRINT ON
ENDIF
goto top
store 2 to row
if print = 'N'	
 clear
 @ 0,0 SAY DTOC(date())
 @ 1,0 SAY 'DAYS LATE     15   20   25   30   35   40   45   50   55   60   65   70   75'
ELSE
 ? DTOC(date()),"<br>","  Tenants over 10 days late (does not show Tenants 1-9 days late","<br>"
 ? ' '
 ? 'DAYS LATE 15-20-25-30-35-40-45-50-55-60-65-70-75 <br>'
ENDIF

do while .not. eof()
if active <> 'Y'
 skip
 loop
endif
IF DAYLATE <10
 SKIP
 LOOP
ENDIF
*removed 10/10/2021 to include 324SG
*IF hcode ='4722C'.OR.HCODE='4716C'.OR.HCODE='4718C'.OR.HCODE='324SG' 
IF hcode ='4722C'.OR.HCODE='4716C'.OR.HCODE='4718C'
 SKIP
 LOOP
ENDIF
STORE TRIM(HCODE) + '  ---------------' TO FF
STORE SUBSTR(FF,1,8) TO FF
IF PRINT = 'N'
 @ ROW,0 SAY FF
ELSE
 STORE FF TO PLINE
ENDIF
STORE DAYLATE TO DD
STORE 10 TO COL
DO WHILE .T.
IF SOLID = 'Y'
 IF PRINT = 'N'
  @ ROW,COL SAY CHR(219)
 ELSE
  STORE PLINE + '-' TO PLINE
 ENDIF
ELSE
 IF PRINT = 'N'
  @ ROW,COL SAY CHR(177)
 ELSE
  STORE PLINE + '-' TO PLINE
 ENDIF
ENDIF
STORE LEN(PLINE) TO YY
STORE LEN(TRIM(HCODE)) TO KK
IF COL > DD
 IF PRINT = 'N'
  @ ROW,COL-LEN(TRIM(HCODE)) SAY str(daylate,3,0)
 ELSE
 * changed to fix house code from clipping off 10/10/21
 * STORE SUBSTR(PLINE,1,YY-KK-2) + str(daylate,3,0)+ 'print Y'  TO PLINE
  STORE TRIM(PLINE) + '  ' + str(daylate,3,0)  TO PLINE
  IF SOLID = 'Y'
   STORE PLINE + '--' TO PLINE
  ELSE 
   STORE PLINE + '--' TO PLINE
  ENDIF
 ENDIF
 EXIT
ENDIF
STORE COL+1 TO COL
ENDDO
store name to xname
SKIP
IF SOLID = 'Y'
 STORE 'N' TO SOLID
ELSE
 STORE 'Y' TO SOLID
ENDIF
STORE ROW+1 TO ROW
IF PRINT = 'Y'
* ? PLINE 
 ? PLINE + '  ' + xname + "<br>"  

ENDIF

ENDDO
*SET PRINT OFF
*SET PRINTER TO

? ' '
? ' '

*Run again for days under 10 to RLG1
select 1
STORE 'Y' TO PRINT
*INDEX ON DAYLATE TO DLl
SET INDEX TO DLl
STORE 'Y' TO SOLID
*IF PRINT = 'Y'
* SET PRINTER TO RLG1
* SET PRINT ON
*ENDIF
goto top
store 2 to row
if print = 'N'	
 clear
 @ 0,0 SAY DTOC(date())
 @ 1,0 SAY 'DAYS LATE     15   20   25   30   35   40   45   50   55   60   65   70   75'
ELSE
 ? ' '
 ? ' '
 ? DTOC(date()),"  Tenants UNDER 10 days late (does not show Tenants 10+ days late","<br>"
 ? ' '
* ? 'DAYS LATE 15-20-25-30-35-40-45-50-55-60-65-70-75 <br>'
ENDIF

do while .not. eof()
if active <> 'Y'
 skip
 loop
endif
IF DAYLATE >=10 .OR. DAYLATE <1
 SKIP
 LOOP
ENDIF
*removed 10/10/2021 to include 324SG
*IF hcode ='4722C'.OR.HCODE='4716C'.OR.HCODE='4718C'.OR.HCODE='324SG' 
IF hcode ='4722C'.OR.HCODE='4716C'.OR.HCODE='4718C'
 SKIP
 LOOP
ENDIF
STORE TRIM(HCODE) + '  ---------------' TO FF
STORE SUBSTR(FF,1,8) TO FF
IF PRINT = 'N'
 @ ROW,0 SAY FF
ELSE
 STORE FF TO PLINE
ENDIF
STORE DAYLATE TO DD
STORE 10 TO COL
DO WHILE .T.
IF SOLID = 'Y'
 IF PRINT = 'N'
  @ ROW,COL SAY CHR(219)
 ELSE
  STORE PLINE + '-' TO PLINE
 ENDIF
ELSE
 IF PRINT = 'N'
  @ ROW,COL SAY CHR(177)
 ELSE
  STORE PLINE + '-' TO PLINE
 ENDIF
ENDIF
STORE LEN(PLINE) TO YY
STORE LEN(TRIM(HCODE)) TO KK
IF COL > DD
 IF PRINT = 'N'
  @ ROW,COL-LEN(TRIM(HCODE)) SAY str(daylate,3,0)
 ELSE
 * changed to fix house code from clipping off 10/10/21
 * STORE SUBSTR(PLINE,1,YY-KK-2) + str(daylate,3,0)+ 'print Y'  TO PLINE
  STORE TRIM(PLINE) + '  ' + str(daylate,3,0)  TO PLINE
  IF SOLID = 'Y'
   STORE PLINE + '--' TO PLINE
  ELSE 
   STORE PLINE + '--' TO PLINE
  ENDIF
 ENDIF
 EXIT
ENDIF
STORE COL+1 TO COL
ENDDO
SKIP
IF SOLID = 'Y'
 STORE 'N' TO SOLID
ELSE
 STORE 'Y' TO SOLID
ENDIF
STORE ROW+1 TO ROW
IF PRINT = 'Y'
* ? PLINE 
 ? PLINE + "<br>"  

ENDIF

ENDDO
SET PRINT OFF
SET PRINTER TO