home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / cpmug / cpmug087.ark / MMAINT.BAS < prev    next >
Encoding:
BASIC Source File  |  1986-10-20  |  4.4 KB  |  144 lines
  1.      rem This is the Monthly File Maintenance Program
  2.  
  3. %INCLUDE ALL.BAS
  4.      dim n(2,20)
  5.      RESTORE
  6. 1500 PRINT clear$:PRINT
  7. 1510 PRINT "THIS IS THE MONTHLY FILE MAINTENANCE PROGRAM....."
  8. 1520 PRINT:PRINT"IT DOES THE FOLLOWING:"
  9. 1530 PRINT:PRINT"POSTS ALL M-T-D GENERAL LEDGER AMOUNTS TO PREVIOUS"
  10. 1540 PRINT:PRINT"POSTS ALL M-T-D GENERAL LEDGER AMOUNTS TO ZERO"
  11. 1550 PRINT:PRINT"UPDATES CUSTOMER AND VENDOR AGING DATA"
  12. 1570 PRINT:PRINT"ZEROS MONTH TO DATE 'QUANTITY"
  13. 1580 PRINT:PRINT"ISSUED' FIGURES."
  14. 1590 PRINT:INPUT"TO CONTINUE TYPE CARRIAGE RETURN ";line temp$
  15. 2000 PRINT clear$:PRINT
  16. 2010 PRINT "INSTALL GENERAL LEDGER DISK IN DRIVE B."
  17. 2020 PRINT:INPUT "TO CONTINUE TYPE CARRIAGE RETURN. ";line temp$
  18.      initialize
  19. 2040 PRINT "CHECKING FILE LENGTH"
  20. 2050 PRINT:PRINT "*** PLEASE WAIT ***"
  21. 2060 open "b:gl" recl 138 as 1
  22.      z3=(size("b:gl")*block.size)/138
  23. 2080 FOR Z2=1 TO Z3
  24. 2090 read #1,z2;N(2,1),N(2,2),N$
  25. 2100 IF N(2,2)=0 THEN 2120
  26. 2110 NEXT Z2
  27. 2120 Z3=Z3-1
  28. 2130 close 1
  29. 2140 Z2=Z2-1
  30. 2200 PRINT clear$:PRINT
  31. 2210 PRINT "GENERAL LEDGER ACCOUNTS = ";Z2
  32. 2220 PRINT:PRINT "*** POSTING ***"
  33. 2500 open "b:gl" recl 138 as 1
  34. 2505 FOR Z=1 TO Z2
  35. 2510 N$=""
  36. 2520 read #1,z;N(2,1),N(2,2),N$,G1,G2,G3,G4,G5,G6,G7
  37. 2530 G4=G1:G1=0
  38.       print #1,z;N(2,1),N(2,2),N$,G1,G2,G3,G4,G5,G6,G7
  39. 2550 NEXT Z
  40. 2560 close 1
  41. 3000 PRINT clear$:PRINT
  42. 3010 PRINT "INSTALL CUSTOMER RECEIVABLES DISK IN DRIVE B."
  43. 3020 PRINT:INPUT "TO CONTINUE TYPE CARRIAGE RETURN. ";line temp$
  44.      initialize
  45. 3040 PRINT "CHECKING FILE LENGTH"
  46. 3050 PRINT:PRINT "*** PLEASE WAIT ***"
  47. 3060 open "b:cr" recl 384 as 1
  48.      z3=(size("b:cr")*block.size)/384
  49. 3080 FOR Z2=1 TO Z3
  50. 3090 read #1,z2;N(2,1),N(2,2),N$
  51. 3100 IF N(2,2)=0 THEN 3120
  52. 3110 NEXT Z2
  53. 3120 Z3=Z3-1
  54. 3130 close 1
  55. 3140 Z2=Z2-1
  56. 3200 PRINT clear$:PRINT
  57. 3210 PRINT "CUSTOMER RECEIVABLES ACCOUNTS = ";Z2
  58. 3220 PRINT:PRINT "*** POSTING ***"
  59. 3500 open "b:cr" recl 384 as 1
  60. 3510 FOR Z=1 TO Z2
  61. 3520 read #1,z2;n(2,1),n(2,2),n$,c1,c2,c3,c4,c5,c6
  62. 3530 C6=C6+C5:C5=C4:C4=C3:C3=0
  63. 3540 print #1,z2;n(2,1),n(2,2),n$,c1,c2,c3,c4,c5,c6
  64. 3550 NEXT Z
  65. 3560 close 1
  66. 4000 PRINT clear$:PRINT
  67. 4010 PRINT "INSTALL VENDOR PAYABLES DISK IN DRIVE B."
  68. 4020 PRINT:INPUT "TO CONTINUE TYPE CARRIAGE RETURN. ";line temp$
  69.      initialize
  70. 4040 PRINT "CHECKING FILE LENGTH"
  71. 4050 PRINT:PRINT "*** PLEASE WAIT ***"
  72. 4060 open "b:vp" recl 384 as 1
  73.      z3=(size("b:vp")*block.size)/384
  74. 4080 FOR Z2=1 TO Z3
  75. 4090 read #1,z2;N(2,1),N(2,2),N$
  76. 4100 IF N(2,2)=0 THEN 4120
  77. 4110 NEXT Z2
  78. 4120 Z3=Z3-1
  79. 4130 close 1
  80. 4140 Z2=Z2-1
  81. 4200 PRINT clear$:PRINT
  82. 4210 PRINT "VENDOR PAYABLES ACCOUNTS = ";Z2
  83. 4220 PRINT:PRINT "*** POSTING ***"
  84. 4500 open "b:vp" recl 384 as 1
  85. 4510 FOR Z=1 TO Z2
  86. 4520 read #1,z2;n(2,1),n(2,2),n$,v1,v2,v3,v4,v5,v6
  87. 4530 V6=V6+V5:V5=V4:V4=V3:V3=0
  88. 4540 print #1,z2;n(2,1),n(2,2),n$,v1,v2,v3,v4,v5,v6
  89. 4550 NEXT Z
  90. 4560 close 1
  91. 6000 PRINT clear$:PRINT
  92. 6010 PRINT "INSTALL FINISHED GOODS DISK IN DRIVE B."
  93. 6020 PRINT:INPUT "TO CONTINUE TYPE CARRIAGE RETURN. ";line temp$
  94.      initialize
  95. 6040 PRINT "CHECKING FILE LENGTH"
  96. 6050 PRINT:PRINT "*** PLEASE WAIT ***"
  97. 6060 open "b:fg" recl 256 as 1
  98.      z3=(size("b:fg")*block.size)/256
  99. 6080 FOR Z2=1 TO Z3
  100. 6090 read #1,z2;N(2,1),N(2,2),N$
  101. 6100 IF N(2,2)=0 THEN 6120
  102. 6110 NEXT Z2
  103. 6120 Z3=Z3-1
  104. 6130 close 1
  105. 6140 Z2=Z2-1
  106. 6200 PRINT clear$:PRINT
  107. 6210 PRINT "FINISHED GOODS ACCOUNTS = ";Z2
  108. 6220 PRINT:PRINT "*** POSTING ***"
  109. 6500 open "b:fg" recl 256 as 1
  110. 6505 FOR Z=1 TO Z2
  111. 6510 N$=""
  112. 6520 read #1,z;N(2,1),N(2,2),N$,F0,F1,F2,F3,F4,F5,F6,F7,F8,F9
  113. 6530 F5=0
  114. 6540 print #1,z;N(2,1),N(2,2),N$,F0,F1,F2,F3,F4,F5,F6,F7,F8,F9
  115. 6550 NEXT Z
  116. 6560 close 1
  117. 7000 PRINT clear$:PRINT
  118. 7010 PRINT "INSTALL RAW GOODS DISK IN DRIVE B."
  119. 7020 PRINT:INPUT "TO CONTINUE TYPE CARRIAGE RETURN. ";line temp$
  120.      initialize
  121. 7040 PRINT "CHECKING FILE LENGTH"
  122. 7050 PRINT:PRINT "*** PLEASE WAIT ***"
  123. 7060 open "b:rg" recl 256 as 1
  124.      z3=(size("b:rg")*block.size)/256
  125. 7080 FOR Z2=1 TO Z3
  126. 7090 read #1,z2;N(2,1),N(2,2),N$
  127. 7100 IF N(2,2)=0 THEN 7120
  128. 7110 NEXT Z2
  129. 7120 Z3=Z3-1
  130. 7130 close 1
  131. 7140 Z2=Z2-1
  132. 7200 PRINT clear$:PRINT
  133. 7210 PRINT "RAW GOODS ACCOUNTS = ";Z2
  134. 7220 PRINT:PRINT "*** POSTING ***"
  135. 7500 open "b:rg" recl 256 as 1
  136. 7505 FOR Z=1 TO Z2
  137. 7510 N$=""
  138. 7520 read #1,z;N(2,1),N(2,2),N$,R0,R1,R2,R3,R4,R5,R6,R7,R8,R9
  139. 7530 R5=0
  140. 7540 print #1,z;N(2,1),N(2,2),N$,R0,R1,R2,R3,R4,R5,R6,R7,R8,R9
  141. 7550 NEXT Z
  142. 7560 close 1
  143. 9995 CHAIN "bizmii"
  144.