home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol155 / xbalance.cmd < prev    next >
Encoding:
Text File  |  1984-04-29  |  4.2 KB  |  130 lines
  1. *
  2. *   Atlanta Data Base Users Society Banking System Balance Command File
  3. *
  4. *            Program Name    : XBALANCE.CMD
  5. *            Author        : Keith R. Plossl
  6. *            Date Written    : July 1982
  7. *
  8. * -----------------------------------------------------------------------------
  9. *       P U B L I C   D O M A I N   S O F T W A R E   N O T I C E
  10. *
  11. *   This program has been placed in the public domain by Keith R. Plossl
  12. *   for the Atlanta Data Base Users Society, Inc. Atlanta, Georgia
  13. *   and may be copied, modified or used NON-COMMERCIALLY provided this
  14. *   notice, the title block and modification history have not been 
  15. *   removed.  The COMMERCIAL sale or use of this program for profit 
  16. *   is strictly prohibited.  KRP 7/15/83
  17. *   
  18. * -----------------------------------------------------------------------------
  19. *                Modification History
  20. *
  21. *    2/1/83        Added decimal check numbers           Keith R. Plossl
  22. *            to data file & programs.
  23. *
  24. *    7/15/83        Set to Public Domain with Atlanta    Keith R. Plossl
  25. *            Data Base Users Society.
  26. *
  27. * -----------------------------------------------------------------------------
  28. ERASE
  29. STORE 'Y'    TO BALANCE
  30. STORE '                              '    TO BLNKS
  31. STORE F    TO XEND
  32. @ 10,25 SAY 'Calculating - Please Wait'
  33.  
  34. * ----------------------------------------------------------------------------
  35. *        ADD UP NON-CANCELLED DEPOSITS AND CHECKS  
  36. * ----------------------------------------------------------------------------
  37.     SUM AMOUNT TO CK:OUT FOR .NOT. CANCEL .AND. NUMBER > 0.0
  38.     SUM AMOUNT TO DP:OUT FOR .NOT. CANCEL .AND. NUMBER = 0.0
  39. * ----------------------------------------------------------------------------
  40. *        ADD UP ALL DEPOSITS AND CHECKS
  41. * ----------------------------------------------------------------------------
  42.     SUM AMOUNT TO CKTOTAL FOR NUMBER > 0.0
  43.     SUM AMOUNT TO DPTOTAL FOR NUMBER = 0.0
  44. * ----------------------------------------------------------------------------
  45. *        COMPUTE BALANCES & DISPLAY TOTAL DEPOSITS & CHECKS 
  46. * ----------------------------------------------------------------------------
  47.     STORE DPTOTAL - CKTOTAL        TO CK:BAL
  48.     STORE CK:BAL - DP:OUT + CK:OUT TO BK:BAL
  49.  
  50.     @ 2,15 SAY 'Atlanta Data Base Users Society Bank Account System'
  51.     @ 3,19 SAY '   Balance & Reconcilliation Program '
  52.  
  53.     @ 6,10  SAY '  Balance per Bank Statement ' + $(BLNKS,1,20) + STR(BK:BAL,10,2)
  54.     @ 7,10  SAY '     Less Outstanding Checks ' + STR(CK:OUT,10,2)
  55.     @ 8,10  SAY '   Plus Outstanding Deposits ' + STR(DP:OUT,10,2)
  56.     @ 9,39    SAY '____________'
  57.     @ 10,10 SAY 'Checkbook & Adjusted Balance ' + $(BLNKS,1,20) + STR(CK:BAL,10,2)
  58.  
  59.     @ 21,0 SAY 'Do You Want a Reconcilliation (Y)es or (N)o'
  60.     WAIT TO ANSWER
  61. IF ANSWER = 'Y'
  62.     STORE T TO PRNT
  63.     SET PRINT ON
  64.     SET CONSOLE OFF
  65.     EJECT
  66.     ? CHR(18) + CHR(27) + CHR(70) + CHR(27) + CHR(72)
  67.     ? CHR(14) + '        ADBUS BANKING SYSTEM    '
  68.     ? CHR(14) + '        Bank Reconcilliation'
  69.     ? CHR(14) + '           Date ' + DATE()
  70.     ?
  71.     ?
  72.     ? $(BLNKS,1,10) + 'Balance per Bank Statement ' + $(BLNKS,1,20) + STR(BK:BAL,10,2)
  73.     ?
  74.     ? $(BLNKS,1,10) + 'Less Outstanding Checks: '
  75.     GO TOP
  76.     LOCATE FOR NUMBER > 0.0 .AND. .NOT. CANCEL
  77.     IF .NOT. EOF
  78.         ? $(BLNKS,1,10) + '    Check No.          Amount'
  79.         DO WHILE PRNT
  80.             IF NUMBER > 0.0 .AND. .NOT. CANCEL
  81.             ? $(BLNKS,1,14) + STR(NUMBER,7,1) + $(BLNKS,1,10) + STR(AMOUNT,10,2)
  82.             ENDIF
  83.             SKIP
  84.             IF EOF
  85.                 STORE F TO PRNT
  86.                 ? $(BLNKS,1,27) + '-------------'
  87.                 ? $(BLNKS,1,10) + 'Total Outstd. Cks  ' + STR(CK:OUT,10,2)
  88.                 ?
  89.             ENDIF
  90.         ENDDO
  91.     ENDIF
  92.     IF PRNT
  93.         ? $(BLNKS,1,10) + 'Total Outstanding Checks   ' + STR(CK:OUT,10,2)
  94.     ENDIF
  95.         ? $(BLNKS,1,10) + 'Plus Outstanding Deposits: '
  96.         STORE T TO PRNT
  97.         GO TOP
  98.         LOCATE FOR NUMBER = 0.0 .AND. .NOT. CANCEL
  99.     IF .NOT. EOF
  100.         ? $(BLNKS,1,10) + '      Date              Amount'
  101.         DO WHILE PRNT
  102.             IF NUMBER = 0.0 .AND. .NOT. CANCEL
  103.             ? $(BLNKS,1,14) + DATE + $(BLNKS,1,8) + STR(AMOUNT,10,2)
  104.             ENDIF
  105.             SKIP
  106.             IF EOF
  107.                 STORE F TO PRNT
  108.                 ? $(BLNKS,1,27) + '-------------'
  109.                 ? $(BLNKS,1,10) + 'Total Outstd. Dep.  ' + STR(DP:OUT,10,2)
  110.             ENDIF
  111.         ENDDO
  112.     ENDIF
  113.     IF PRNT
  114.         ? $(BLNKS,1,10) + 'Total Outstanding Deposits ' + STR(DP:OUT,10,2)
  115.     ENDIF
  116.         ?
  117.         ? $(BLNKS,1,10) + 'Adjusted & Checkbook Balance ' + $(BLNKS,1,18) + STR(CK:BAL,10,2)
  118.         ?
  119.         EJECT
  120.         SET PRINT OFF
  121.         SET CONSOLE ON
  122. ENDIF
  123. ERASE
  124. RELEASE ALL
  125. SET TALK ON
  126. RETURN  
  127. *
  128. *        END OF BALANCE & RECONCILLIATION COMMAND FILE
  129. *
  130.