home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / xbase / library / dbase / billing / statacct.prg < prev    next >
Encoding:
Text File  |  1986-11-10  |  1.5 KB  |  44 lines
  1. *--[ statacct.prg ]-- display or print the current status of accounts
  2. USE client INDEX cltname ALIAS clt
  3. CLEAR
  4. SET COLOR TO W+
  5. ? "        TENNESSEE DATA CONSULTING STATUS OF ACCOUNTS FOR "+CMONTH(DATE())
  6. SET COLOR TO W
  7. ? "==========================================================================="
  8. SET COLOR TO W+
  9. ? "CLIENT NAME                CURRENT   OVER_30   OVER_60   OVER_90    TOTAL "
  10. SET COLOR TO W
  11. ? "------------------------- --------- --------- --------- --------- ---------"
  12. line=5
  13. DO WHILE .NOT. EOF()
  14.     IF over_60>0
  15.         SET COLOR TO W+*
  16.     ELSE
  17.         SET COLOR TO W
  18.     ENDIF over_60
  19.     @ 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)
  20.     SET COLOR TO W
  21.     IF line=22
  22.         SET COLOR TO W*+
  23.         WAIT "                    PRESS RETURN FOR MORE CLIENTS"
  24.         SET COLOR TO W
  25.         line=5    
  26.         @ line,0 CLEAR
  27.     ELSE
  28.         line=line+1
  29.     ENDIF line=22
  30.     SKIP
  31. ENDDO WHILE .NOT. EOF()
  32. IF line >19
  33.     WAIT "                    PRESS RETURN TO SEE BALANCES"
  34.     line=5
  35.     @ line,0 CLEAR
  36. ENDIF line > 16
  37. SUM current,over_30,over_60,over_90 TO s_cur,s_30,s_60,s_90
  38. ? "------------------------- --------- --------- --------- --------- ---------"
  39. ? "                         "+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)
  40. ? "                          ========= ========= ========= ========= ========="
  41. ?
  42. WAIT "                    PRESS RETURN AFTER READING SCREEN"
  43. RETURN
  44.