home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / CPM / DBASEII / TDAS.ARK / STUDENT5.PRG < prev    next >
Text File  |  1986-08-24  |  3KB  |  87 lines
  1. *******************************************************************************
  2. *      This is the menu for various accounting processes. You                 *
  3. *      select the procedure you want.                                         *
  4. *******************************************************************************
  5. SET talk OFF
  6. STORE T TO Report
  7. DO WHILE Report
  8.   STORE " " to Choice
  9. STORE 'January  February March    April    May      June     '+;
  10. 'July     August   SeptemberOctober  November December ' to Date:str
  11. *
  12. STORE TRIM($(Date:str, VAL($(Cdate,1,2))*9-8,9))+;
  13. ", 19"+$(Cdate,7,2) to Rdate
  14. STORE TRIM($(Date:str, VAL($(Cdate,1,2))*9-8,9))+" "+;
  15. $(Cdate,4,2)+", 19"+$(Cdate,7,2) TO Sdate
  16.   ERASE
  17.   DO WHILE .NOT. Choice$"0123456789"
  18.   SET Intensity OFF
  19.   SET Color TO 11
  20.   @ 1,25 SAY "YOUR COMPANY NAME GOES HERE"
  21.   SET Color TO 9
  22.   @ 3,27 SAY "Accounting Report Menu"
  23.   SET Color TO 112,7
  24.   SET Intensity ON
  25.   @ 7,11 SAY "1 - Enter any rate-per-lesson changes."
  26.   @ 8,11 SAY "2 - Enter the number of lessons given in the month."
  27.   @ 9,11 SAY "3 - Enter, post or summarize payments and/or credits."
  28.   @ 10,11 SAY "4 - Print the statements: one only, or all of them."
  29.   @ 11,11 SAY "5 - Print mailing labels"
  30. SET Intensity OFF
  31. SET Color to 147
  32. @ 12,1 SAY "***"
  33. SET Color to 112,7
  34. SET Intensity ON
  35. @ 12,5 SAY "For safety, at this point make a copy of your 'B' diskette.;
  36.   Use it hence-"
  37. @ 13,5 SAY "forth.  SAVE the older diskette as your permanent record."
  38.   @ 14,11 SAY '6 - Run the monthly "activity" report'
  39.   @ 15,11 SAY "7 - POST the students' records (do"
  40.   SET Intensity OFF
  41.   SET Color TO 9
  42.   @ 15,46 SAY "AFTER"
  43.   SET Color TO 112,7
  44.   SET Intensity ON
  45.   @ 15,52 SAY "doing the above)."
  46.   @ 16,11 SAY '8 - Print an "Ageing Report."'
  47.   @ 17,11 SAY '9 - Print Attendance Record for the new month.'
  48.   @ 19,11 SAY "0 - Return to Previous Menu"
  49.   @ 21,26 SAY "-"
  50.   SET Intensity OFF
  51.   SET Color TO 240
  52.   @ 21,28 SAY "Pick One!"
  53.   SET Color to 112,7
  54.   SET Intensity ON
  55.   @ 21,24 GET Choice
  56.   READ NOUPDATE
  57.   ENDDO
  58. *
  59. DO CASE
  60.   CASE Choice = "1"
  61.     DO Stud5-1
  62.   CASE Choice = "2"
  63.     DO Stud5-2
  64.   CASE Choice = "3"
  65.     DO Stud5-3
  66.   CASE Choice = "4"
  67.     DO Stud5-4
  68.   CASE Choice = "5"
  69.     DO Stud5-5
  70.   CASE Choice = "6"
  71.     DO Stud5-6
  72.   CASE Choice = "7"
  73.     DO Stud5-7
  74.   CASE Choice = "8"
  75.     DO Stud5-8
  76.   CASE Choice = "9"
  77.     DO Stud5-9
  78.   CASE Choice = "0"
  79.     USE
  80.     STORE F to Report
  81.     RETURN
  82.   ENDCASE
  83. RELEASE Choice
  84. ENDDO
  85. RETURN
  86. * EOF
  87. iling labels