home *** CD-ROM | disk | FTP | other *** search
/ Software Du Jour / SoftwareDuJour.iso / BUSINESS / DBASE / DBASEACC.ARC / PAYMENU.PRG < prev    next >
Encoding:
Text File  |  1979-12-31  |  1.5 KB  |  67 lines
  1.  
  2.  
  3. * PAYMENU.CMD
  4. * This is a sub-module of the Acctg.Cmd file and provides choices
  5. * as to which checks are to be prepared for posting and printing.
  6. *   Paying salaries has another menu level to allow partial payments
  7. * to selected employees (e.g.., leave of absence, when an employee
  8. * does not work a full two week stretch, etc.)
  9. *   The checkbook balance and next check number must be confirmed before
  10. * either of the procedures can be performed
  11.  
  12. SET INTE OFF
  13. RESTORE FROM Constant
  14. ERASE
  15. @ 3,0 SAY 'CHECK NUMBER: ' +NextCheck+'      BALANCE: '+STR(MBalance,9,2)
  16. ?
  17. ? '         Do these match the checkbook?'
  18. ? '         C to CONTINUE,'
  19. ? '         <Return> to change..'
  20. ?
  21. WAIT TO Continue
  22.  
  23. IF !(Continue) <> 'C'
  24.     RELEASE All
  25.     RETURN
  26. ENDIF
  27.  
  28. STORE T TO Paying
  29. DO WHILE Paying
  30.     ERASE
  31.     @ 5,20 SAY '     1> PAY BILLS'
  32.     @ 7,20 SAY '     2> PAY SALARIES'
  33.     @ 10,20 SAY '        <Return>'
  34.     WAIT TO Action
  35.  
  36.     IF Action = '1'
  37.  USE PostFile
  38.  
  39.  * Can abort if any entries in the Postfile.
  40.  COUNT FOR .Not. * TO Any
  41.  IF Any = 0
  42.      DO PayBills
  43.  ELSE
  44.      ?
  45.      ? 'The POSTING file has '-STR(Any,5)+' bills in it.'
  46.      ? 'Do you still want to pay bills now (Y or N)?'
  47.      WAIT TO Continue
  48.      IF !(Continue) = 'Y'
  49.   DO PayBills
  50.      ELSE
  51.   RELEASE All
  52.      ENDIF
  53.  ENDIF
  54.     ELSE
  55.  IF Action = '2'
  56.      DO PayEmps
  57.  ELSE
  58.      RELEASE All
  59.      RETURN
  60.  ENDIF 2
  61.     ENDIF 1
  62.     STORE T TO Paying
  63. ENDDO Paying
  64.  
  65.  
  66.  
  67.