home *** CD-ROM | disk | FTP | other *** search
/ Software Du Jour / SoftwareDuJour.iso / BUSINESS / DBASE / DBASEACC.ARC / REPORTME.PRG < prev    next >
Encoding:
Text File  |  1979-12-31  |  2.3 KB  |  81 lines
  1.      ********  REPORTMENU COMMAND FILE  ********
  2. * This command file is a sub-module of the ACCOUNTS.CMD control
  3. * module.  It provides detailed choices that relate to reports
  4. * that the user might choose to see or print from the cost
  5. * database.  The functions are set up as sub-sub-procedures
  6. * under the control of this module.
  7. **************************************************************
  8.  
  9. ERASE
  10. STORE T TO Reporting
  11. DO WHILE Reporting
  12.      @  3,20 SAY '   1> COSTS BY JOB'
  13.      @  5,20 SAY '   2> FIND & EDIT BILLS'
  14.      @  7,20 SAY '   3> REVIEW A DATABASE'
  15.      @  9,20 SAY '   4> Quarterly Sales Tax Summary'
  16.      @ 11,20 SAY '   5> RE-INDEX THE COSTBASE ON JOB NUMBERS'
  17.      @ 12,20 SAY "      Make sure you don't need the computer"
  18.      @ 13,20 SAY '      for a while: this takes a long time.'
  19.  
  20.      @ 17,20 SAY '               <RETURN>'
  21.      WAIT TO ACTION
  22.  
  23.      IF Action = '1'
  24.         USE Postfile
  25.  COUNT FOR .NOT. * TO Any
  26.  IF Any > 0
  27.     @ 15, 0 SAY CHR(27)+CHR(121)
  28.     ? 'There are '+STR(Any,5)+' entries in the Postfile.'
  29.     ? 'Do you still want to do the Job Costs (Y or N).'
  30.     WAIT TO Continue
  31.     IF !(Continue) = 'Y'
  32.        DO JobCosts
  33.     ENDIF
  34.  ELSE
  35.     DO JobCosts
  36.  ENDIF
  37.  RELEASE Any
  38.      ELSE
  39.  IF Action = '2'
  40.     DO FindBill
  41.         ELSE
  42.        IF Action = '3'
  43.        ERASE
  44.        DISPLAY FILES ON B
  45.        ?
  46.        ?
  47.        ? 'Which file do you want to review?'
  48.        ACCEPT TO Database
  49. *      IF FILE(DATABASE) > 0     <OLD LINE>
  50. *      NEXT LINE CHANGED 09/30/83
  51. *      FILE FUNCTION RETURNS (.T. OR .F.) NOT (0 OR 1)
  52.        IF FILE(DATABASE)
  53.        USE &Database
  54.        DO Review
  55.            ELSE
  56.        * Erases ADM-31 to end of screen
  57.        @ 17,0 SAY CHR(27)+CHR(121)
  58.        @ 17,0 SAY !(Database) + " isn't on the list, is it?  Check ";
  59.      + 'your spelling, then hit <Return.>'
  60.        ? 'and try again.  Or not, as the case may be.'
  61.        WAIT
  62.            ENDIF
  63.         ELSE
  64.     If Action = '4'
  65.               DO SalesTax
  66.     ELSE
  67.        IF Action = '5'
  68.                 Do JobsIndx
  69.       ELSE
  70.          RELEASE ALL
  71.          RETURN
  72.       ENDIF 5
  73.           ENDIF 4
  74.        ENDIF 3
  75.     ENDIF 2
  76.  ENDIF 1
  77. ERASE
  78. STORE T TO Reporting
  79. ENDDO Reporting
  80.  
  81.