home *** CD-ROM | disk | FTP | other *** search
/ Software Du Jour / SoftwareDuJour.iso / BUSINESS / DBASE / DB3.ARC / PAYMENU.PRG < prev    next >
Encoding:
Text File  |  1984-10-25  |  2.1 KB  |  67 lines
  1.         **********  Paymenu COMMAND FILE   **********
  2. * This is a sub-module of the Accounts.prg file and provides choices
  3. * as to which checks are to be prepared for posting and printing.
  4. *        Paying salaries has another menu level to allow partial payments
  5. * to selected employees (e.g., leave of absence, when an employee does not
  6. * work a full two week stretch, etc.)
  7. ********************************************************************
  8. *
  9. SELECT 2
  10. USE Postfile
  11. SELECT 3
  12. USE Costbase Index Costname,Costjobs
  13. SELECT 4
  14. USE Supplier INDEX Supplier
  15. SELECT 5
  16. USE Personne
  17. SELECT 6
  18. USE Checkfil
  19. DO WHILE .T.
  20.    CLEAR
  21.    @  3, 0 SAY '* * * * *   P A Y   B I L L S   &   S A L A R I E S   * * * * *'
  22.    @  5,20 SAY '     1> PAY SALARIES'
  23.    @  7,20 SAY '     2> PAY BILLS'
  24.    @  9, 0 SAY '* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *'
  25.    @ 11,20 SAY 'Choose a number or press <ENTER>'
  26.    @ 12, 0
  27.    *
  28.    WAIT ' ' TO Paying
  29.    *
  30.    DO CASE
  31.       CASE Paying = '1'
  32.          @ ROW(),0 SAY 'Preparing to Pay Salaries' 
  33.          SELECT 2
  34.          USE
  35.          SELECT 7
  36.          USE WAGES
  37.          DO Payemps
  38.          SELECT 2
  39.          USE Postfile
  40.       CASE Paying = '2'
  41.          @ ROW(),0 SAY 'Preparing to Pay Bills'
  42.          * Count to see if there are any undeleted records in the
  43.          * Postfile.  If not, do the Paybills command file.  If
  44.          * there are some, ask if user still wants to pay bills.
  45.          SELECT 2
  46.          COUNT FOR .NOT. DELETED() TO Any
  47.          IF Any = 0
  48.             DO PayBills
  49.          ELSE
  50.             ? 
  51.             ? 'The Posting file contains '+STR(Any,5)+' bills' 
  52.             ? 'that have not been posted to the Costbase yet.'
  53.             WAIT 'Do you still want to pay bills now (Y or N)?' To Continue
  54.             IF UPPER(Continue) = 'Y'
  55.                DO Paybills
  56.             ENDIF
  57.          ENDIF
  58.       CASE LEN(Paying) = 0
  59.          @ ROW(),0 SAY 'Returning to Main Menu'
  60.          CLOSE DATABASE
  61.          RETURN
  62.          *
  63.       OTHERWISE
  64.       *
  65.    ENDCASE Paying
  66. ENDDO
  67.