home *** CD-ROM | disk | FTP | other *** search
/ Software Du Jour / SoftwareDuJour.iso / BUSINESS / DBASE / DBASEACC.ARC / CHECKSTU.PRG < prev    next >
Encoding:
Text File  |  1979-12-31  |  1.6 KB  |  66 lines
  1.         ************** CHECKSTUB COMMAND FILE *****************
  2. * Prints out check numbers, amounts, and balances from the Checkfile when
  3. * SALARIES and BILLS are paid.  When more than one bill is paid by a
  4. * single check, the program totals all the bills against that check if they
  5. * are entered in consecutive order (which they are in the two command files).
  6. * Records are marked for deletion, but can be reviewed and retrieved.
  7. *****************************************************************************
  8.  
  9. ERASE
  10. @ 5,10 SAY '*** DO NOT INTERRUPT ***'
  11. @ 6,10 SAY ' JUST GETTING ORGANIZED'
  12.  
  13. USE Checkfil
  14. TOTAL ON Check:Nmbr TO Scratch FOR .NOT. *
  15. COUNT FOR .NOT. * TO Entries
  16.  
  17. USE Scratch
  18. UPDATE FROM B:Checkfil ON Check:Nmbr REPLACE Balance
  19. COUNT FOR .NOT. * TO Checks
  20.  
  21. IF Entries > Checks
  22.    USE Checkfil
  23.    ERASE
  24.    @ 4,0 SAY ' '
  25.    SET PRINT ON
  26.    ? '   THESE INDIVIDUAL BILLS WERE PAID:'
  27.    ?
  28.    ?'        Date    Check  Name       Amount  #'
  29.    ?
  30.    LIST '         '+Check:Date, Check:Nmbr, Name, Amount, Bill:Nmbr OFF;
  31.  FOR  .NOT.*
  32.    ?
  33.    ?
  34.    ?
  35. ENDIF
  36.  
  37. USE Scratch
  38. STORE 'Y' TO Doing
  39. DO WHILE !(Doing)='Y'
  40.    ERASE
  41.    SET PRINT ON
  42.    ? '                  MAKE THE FOLLOWING ENTRIES IN THE CHECK BOOK:'
  43.    ?
  44.    ? '          Date     Check  Name                   Amount     Balance'
  45.    ?
  46.    LIST '          '+Check:Date, Check:Nmbr, Name, Amount, Balance OFF
  47.    ?
  48.    ?
  49.    ?
  50.    SET PRINT OFF
  51.    ? 'Do you want to print it again (Y or N)?'
  52.    WAIT TO Doing
  53. ENDDO
  54.  
  55. SET PRINT ON
  56. ? CHR(12)
  57. SET PRINT OFF
  58.  
  59. USE CheckFil
  60. DELETE All
  61.  
  62. DELETE FILE Scratch
  63. RELEASE Doing, Checks, Entries
  64. RETURN
  65.  
  66.