home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
xbase
/
library
/
dbase
/
billing
/
statacct.prg
< prev
next >
Wrap
Text File
|
1986-11-10
|
2KB
|
44 lines
*--[ statacct.prg ]-- display or print the current status of accounts
USE client INDEX cltname ALIAS clt
CLEAR
SET COLOR TO W+
? " TENNESSEE DATA CONSULTING STATUS OF ACCOUNTS FOR "+CMONTH(DATE())
SET COLOR TO W
? "==========================================================================="
SET COLOR TO W+
? "CLIENT NAME CURRENT OVER_30 OVER_60 OVER_90 TOTAL "
SET COLOR TO W
? "------------------------- --------- --------- --------- --------- ---------"
line=5
DO WHILE .NOT. EOF()
IF over_60>0
SET COLOR TO W+*
ELSE
SET COLOR TO W
ENDIF over_60
@ line,0 SAY SUBSTR(c_name,1,25)+STR(current,10,2)+STR(over_30,10,2)+STR(over_60,10,2)+STR(over_90,10,2)+STR(current+over_30+over_60+over_90,10,2)
SET COLOR TO W
IF line=22
SET COLOR TO W*+
WAIT " PRESS RETURN FOR MORE CLIENTS"
SET COLOR TO W
line=5
@ line,0 CLEAR
ELSE
line=line+1
ENDIF line=22
SKIP
ENDDO WHILE .NOT. EOF()
IF line >19
WAIT " PRESS RETURN TO SEE BALANCES"
line=5
@ line,0 CLEAR
ENDIF line > 16
SUM current,over_30,over_60,over_90 TO s_cur,s_30,s_60,s_90
? "------------------------- --------- --------- --------- --------- ---------"
? " "+STR(s_cur,10,2)+STR(s_30,10,2)+STR(s_60,10,2)+STR(s_90,10,2)+STR(s_cur+s_30+s_60+s_90,10,2)
? " ========= ========= ========= ========= ========="
?
WAIT " PRESS RETURN AFTER READING SCREEN"
RETURN