home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / enterprs / cpm / utils / a / dbase2.arc / EXPENSES.CMD < prev    next >
Encoding:
Text File  |  1992-12-05  |  2.9 KB  |  137 lines
  1. @ 18,0
  2. @ 16,0
  3. SET intensity off
  4. @ 3,52 say chr(27)+chr(94)
  5. @ 3,52 say 'EXPENSE ACCOUNT SUBSYSTEM'
  6. @ 3,77 say chr(27)+chr(113)
  7. SET intensity on
  8. @ 5,48 say 'A - Add/update an expense record'
  9. @ 6,48 say 'B - Edit/browse expense database'
  10. @ 7,48 say 'C - Expenses report per a period'
  11. @ 8,48 say 'D - Summary of expenses for year'
  12. @ 9,48 say 'E - Enter an auto mileage record'
  13. @ 10,48 say 'F - Edit/browse mileage database'
  14. @ 11,48 say 'G - Mileage expenses by a period'
  15. @ 12,48 say 'H - Auto mileage expense summary'
  16. @ 14,48 say 'R - Exit to the main system menu'
  17. SET intensity off
  18. @ 16,52 say "Option (0-9; A-G or R)? "
  19. SET console off
  20. WAIT to option
  21. SET console on
  22. IF val(option)>0 .or. option='0'
  23. DO changeop
  24. RETU
  25. ENDI
  26. ERAS
  27. DO CASE
  28. CASE !(option)='A'
  29. USE expenses index expenses
  30. ERAS
  31. @ 2,0 say 'Existing expense record (Y/N)? '
  32. SET console off
  33. WAIT to response
  34. SET console on
  35. IF !(response)='Y'
  36. STOR '        ' to date
  37. @ 2,0
  38. @ 2,0 say 'Please enter date of expense record (MM/DD/YY) ';
  39. get date picture 'XX/XX/XX'
  40. READ
  41. FIND &date
  42. IF .not. eof
  43. EDIT #
  44. ELSE
  45. @ 2,0
  46. @ 2,0 say 'Record not found - press RETURN to return to menu...'
  47. ?
  48. WAIT to return
  49. ENDI
  50. ELSE
  51. append
  52. ENDI
  53. CASE !(option)='B'
  54. USE expenses index expenses
  55. SET intensity on
  56. BROW
  57. PACK
  58. CASE !(option)='C' .or. !(option)='G'
  59. ERAS
  60. IF !(option)='C'
  61. USE expenses index expenses
  62. ELSE
  63. USE mileages index mileages
  64. ENDI
  65. STOR '        ' to startdate
  66. STOR '        ' to enddate
  67. STOR ' ' to device
  68. @ 2,0 say 'Beggining expense record date (MM/DD/YY) ===> ';
  69. get startdate picture 'XX/XX/XX'
  70. @ 4,0 say 'Ending expense record date (MM/DD/YY)    ===> ';
  71. get enddate picture 'XX/XX/XX'
  72. @ 6,0 say 'Output report to screen or printer (S/P) ===> ';
  73. get device picture 'X'
  74. READ
  75. IF !(device)='P'
  76. ERAS
  77. @ 2,0 say 'Ready printer and press RETURN...'
  78. ?
  79. WAIT to return
  80. IF !(option)='C'
  81. REPO form expenses for date>startdate .and. date<enddate to print
  82. ELSE
  83. REPO form mileages for date>startdate .and. date<enddate to print
  84. ENDI
  85. ELSE
  86. ERAS
  87. IF !(option)='C'
  88. REPO form expenses for date>startdate .and. date<enddate
  89. ELSE
  90. REPO form mileages for date>startdate .and. date<enddate
  91. ENDI
  92. ?
  93. ? 'Press RETURN to return to menu...'
  94. ?
  95. WAIT to return
  96. ENDI
  97. CASE !(option)='D' .or. !(option)='H'
  98. ERAS
  99. IF !(option)='D'
  100. USE expenses index expenses
  101. ELSE
  102. USE mileages index mileages
  103. ENDI
  104. @ 2,0 say 'Output report to screen or printer (S/P)? '
  105. SET console off
  106. WAIT to device
  107. SET console on
  108. IF !(device)='P'
  109. IF !(option)='D'
  110. REPO form expenses to print
  111. ELSE
  112. REPO form mileages to print
  113. ENDI
  114. ELSE
  115. ERAS
  116. IF !(option)='D'
  117. REPO form expenses
  118. ELSE
  119. REPO form mileages
  120. ENDI
  121. ?
  122. ? 'Press RETURN to return to menu...'
  123. ?
  124. WAIT to return
  125. ENDI
  126. CASE !(option)='E'
  127. USE mileages index mileages
  128. append
  129. CASE !(option)='F'
  130. USE mileages index mileages
  131. SET intensity on
  132. BROW
  133. CASE !(option)='R'
  134. RETU
  135. ENDC
  136. RETU
  137.