home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / cpm / dbaseii / tdas.ark / STUD5-7.PRG < prev    next >
Encoding:
Text File  |  1986-08-24  |  2.5 KB  |  79 lines
  1. *******************************************************************************
  2. *     STUD5-7.PRG  This program is run AFTER statements are printed.          *
  3. *  It posts the "Cur(rent)Billing" by multiplying "lessons" times "rate",     *
  4. *  and then calculates and enters "Balance" (due) into the Student record.    *
  5. *                                                                             *
  6. * To make room for this current information, it moves all prior chgs/credits  *
  7. * back one month into the record, so that an Ageing Report is possible.       *
  8. * As a final tip-of-the-hat, it clears the Payments.DBF file so that it can   *
  9. * accept posting of checks to come in as the new month progresses.            *
  10. *******************************************************************************
  11. SET Talk OFF
  12. ERASE
  13. *
  14. SET Intensity OFF
  15. SET Color TO 137
  16. @ 3,3 SAY "** WARNING ***** WARNING ***** WARNING ***** WARNING *****;
  17.  WARNING **"
  18. SET Color to 112,7
  19. SET Intensity ON
  20. @ 6,7 SAY "YOU ARE ENTERING A PROGRAM THAT WILL POST PAYMENTS, BILLINGS,;
  21.  ETC."
  22. @ 8,7 SAY "IF YOU CONTINUE, CURRENT DATA WILL BE REARRANGED AND THE ;
  23. PAYMENTS"
  24. @ 9,7 SAY "JOURNAL WILL BE ERASED."
  25. @ 12,5 SAY "Be sure the"
  26. SET Intensity OFF
  27. SET Color TO 11
  28. @ 12,17 SAY "Monthly Activity Summary"
  29. SET Color to 112,7
  30. @ 12,42 SAY "has been run"
  31. SET Color TO 137
  32. @ 12,55 SAY "BEFORE"
  33. SET Color to 112,7
  34. SET Intensity ON
  35. @ 12,62 SAY "continuing."
  36. *
  37. STORE "          " to Enable
  38. @ 16,10 say 'Enter "Go for it!" to continue; anything else to ABORT'
  39. @ 19,38 GET Enable
  40. READ NOUPDATE
  41. ERASE
  42. *
  43. IF Enable="Go for it!"
  44. @ 6,16 SAY "I've a hunch this will take about 10 minutes."
  45. @ 8,9 SAY "Watch me if you like, but really ... I can do it all by myself."
  46. *
  47. USE Student
  48. DO WHILE .NOT. EOF
  49.  REPLACE ALL History WITH History+M6Chg-M6Pay,M6Pay WITH M5Pay,;
  50.   M5Pay WITH M4Pay, M4Pay WITH M3Pay, M3Pay WITH M2Pay, M2Pay with M1Pay
  51.  REPLACE ALL M6Chg WITH M5Chg,M5Chg WITH M4Chg,M4Chg WITH M3Chg,;
  52.   M3Chg WITH M2Chg, M2Chg with M1Chg, M1Chg WITH 0, M1Pay WITH 0
  53.  REPLACE ALL M1Chg with Lessons*Rate
  54.  REPLACE ALL M1Pay with Curpayment
  55.  REPLACE ALL Dateofbill with Cdate
  56.  REPLACE ALL Curpayment WITH 0
  57.  REPLACE ALL Balance WITH Balance-M1Pay+M1Chg
  58. USE
  59. ENDDO
  60. *
  61. USE Payments
  62. COPY Structure TO Tempay
  63. USE
  64. DELETE File Payments.dbf
  65. DELETE File Pid.ndx
  66. DELETE File Plname.ndx
  67. RENAME Tempay to Payments.dbf
  68. USE Payments
  69. *
  70. ERASE
  71. RELEASE Enable
  72. SET Talk ON
  73. RETURN
  74. * EOF
  75. 
  76. *
  77. USE Student
  78. DO WHILE .NOT. EOF
  79.  REPLACE ALL History WITH Histo