home *** CD-ROM | disk | FTP | other *** search
/ PC-Blue - MS DOS Public Domain Library / PC-Blue MS-DOS Public Domain Library - NYACC.iso / vol136 / checkaud.bas < prev    next >
Encoding:
BASIC Source File  |  1986-12-15  |  3.9 KB  |  73 lines
  1. 4000 COLOR 7,0: REM  ***************************************************************************************************
  2. 4010 REM                  'CHECKAUD' SUBROUTINE TO PRINT THE ACTIVITY LOG FILE (AUDIT TRAIL)
  3. 4020 REM  **************************************************************************************************************
  4. 4030 COLOR 7,0: CLS
  5. 4040 PRINT: PRINT "  AUDTRAIL.REC FILE is on PAMCHECK"
  6. 4045 PRINT "  or was copied to PAMBOOKS diskette."
  7. 4050 COLOR 0,7: PRINT "  Insert proper diskette on DRIVE B"
  8. 4060 PRINT "  Press any key to continue";SPC(8): COLOR 7,0
  9. 4070 IF INKEY$ = "" THEN 4070
  10. 4080 OPEN "B:AUDTRAIL.REC" FOR INPUT AS #3
  11. 4090 PAGENO% = 0  'INITIALIZE TO ZERO
  12. 4100 LINECT% = 0  'INITIALIZE TO ZERO
  13. 4110 IF EOF(3) THEN GOTO 4620
  14. 4120 CLS
  15. 4130 PRINT "  Press ENTER key to print the entire"
  16. 4140 PRINT: PRINT "  Audit Trail file, or else enter"
  17. 4150 PRINT: PRINT "  the FROM date at which printing"
  18. 4160 PRINT: PRINT "  is to begin"
  19. 4170 PRINT: PRINT "  (use format:  MO-DA-YEAR)";: Y = CSRLIN: X = POS(0)
  20. 4180 FIELDMAX% = 10: NUM.ONLY% = TRUE%: DEC.MINUS% = TRUE%: GOSUB 330
  21. 4190 PDATE$ = DATU$
  22. 4200 IF PDATE$ = "" THEN GOTO 4250
  23. 4210 IF EOF(3) THEN GOTO 4620
  24. 4220 INPUT #3,DA$,TI$,TC$,CN%,AC$,TD$,PA%,PC$,PA$,TAMT,LACTM%,LACTS%,LAMT,BDIW,BAMT
  25. 4230 IF PDATE$<>DA$ THEN GOTO 4210
  26. 4240 GOTO 4280
  27. 4250 IF EOF(3) THEN GOTO 4620
  28. 4260 INPUT #3,DA$,TI$,TC$,CN%,AC$,TD$,PA%,PC$,PA$,TAMT,LACTM%,LACTS%,LAMT,BDIW,BAMT
  29. 4270 IF PDATE$ = "" THEN PDATE$ = DA$
  30. 4280 IF PAGENO% = 0 THEN GOSUB 4500
  31. 4290 LINECT% = LINECT% + 2
  32. 4300 LPRINT DA$;"  ";TI$;"  ";TC$;
  33. 4310 IF CN% = -1 THEN LPRINT "  DEP";
  34. 4320 IF CN% = -2 THEN LPRINT "  INT";
  35. 4330 IF CN% = -3 THEN LPRINT "  W/D";
  36. 4340 IF CN% > 0 THEN LPRINT USING " ####";CN%;
  37. 4350 IF CN% = 0 THEN LPRINT SPC(5);
  38. 4360 LPRINT " ";AC$;" ";TD$;
  39. 4370 LPRINT USING "  ###";PA%;
  40. 4380 LPRINT " ";PC$;" ";PA$;
  41. 4390 LPRINT USING "#####,.##-";TAMT;BDIW;BAMT;
  42. 4400 LPRINT USING "####";LACTM%;
  43. 4410 LPRINT "-";
  44. 4420 LPRINT USING "####";LACTS%;
  45. 4430 LPRINT USING "#####,.##-";LAMT
  46. 4440 LPRINT
  47. 4450 IF LINECT% > 60 THEN GOSUB 4500
  48. 4460 GOTO 4250
  49. 4470 REM  **************************************************************************************************************
  50. 4480 REM                      SUBROUTINE TO PRINT REPORT HEADING FOR AUDIT TRAIL LISTING
  51. 4490 REM  **************************************************************************************************************
  52. 4500 IF PAGENO% <> 0 THEN LPRINT CHR$(12)
  53. 4510 PAGENO% = PAGENO% + 1
  54. 4520 LINECT% = 5
  55. 4530 LPRINT PMODE$;TAB(40);"ACTIVITY LOG FILE AUDIT TRAIL RECORDS FROM ";PDATE$; TAB(122);"PAGE ";
  56. 4540 LPRINT USING "####";PAGENO%: LPRINT
  57. 4550 LPRINT TAB(21);"TRANS CK# STA- TRANS  --------P  A  Y  E  E-------------------   TRANS  BANK-STATEMENT-FIELDS   BOOKKEEPING"
  58. 4560 LPRINT " LOG DATE     TIME   CODE DIW TUS   DATE REC# PAYEE#          NAME                   AMOUNT    D-I-W   CHECKS    ACCOUNT   AMOUNT"
  59. 4570 LPRINT
  60. 4580 RETURN
  61. 4590 REM  **************************************************************************************************************
  62. 4600 REM                                               END OF FILE
  63. 4610 REM  **************************************************************************************************************
  64. 4620 LPRINT CHR$(18); CHR$(12)  'RETURN TO NORMAL PRINT & SKIP TO NEXT PAGE
  65. 4630 CLOSE #3
  66. 4640 REM  --------------------------------------------------------------------------------------------------------------
  67. 4650 REM          KILL THE AUDIT TRAIL FILE AFTER PRINTING IT IF THE SIMPLE BOOKKEEPING OPTION IS NOT USED
  68. 4660 REM  --------------------------------------------------------------------------------------------------------------
  69. 4670 IF BOOKS$<>"Y" THEN KILL "B:AUDTRAIL.REC"
  70. 4680 GOTO 260  'RETURN TO DISPLAY UTILITY JOB CHOICES MENU
  71. 9000 GOTO 9000  'CHAIN MERGE AREA LAST STATEMENT
  72. B:AUDTRAIL.REC"
  73. 4680 GOTO 260  'RETURN TO DISPLA