home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / enterprs / cpm / utils / f / perfless.ark / APAYMULT.PC next >
Text File  |  1989-09-27  |  5KB  |  236 lines
  1. >a1:\dc0
  2. >a1:\wc2
  3. >b1:"ACCOUNTS PAYABLE WORKSHEET
  4. >b1:\wc17
  5. >c1:\dc0
  6. >c1:\wc6
  7. >d1:\jcr
  8. >e1:\dc0
  9. >e1:\wc4
  10. >e1:\jcc
  11. >f1:\dc0
  12. >f1:\wc3
  13. >f1:\jcc
  14. >g1:\dc0
  15. >g1:\wc3
  16. >g1:\jcc
  17. >h1:\dc0
  18. >h1:\wc6
  19. >h1:\jcc
  20. >i1:\dc0
  21. >i1:\wc4
  22. >i1:\jcc
  23. >j1:\dc0
  24. >j1:\wc3
  25. >j1:\jcc
  26. >k1:\dc0
  27. >k1:\wc3
  28. >k1:\jcc
  29. >l1:\dc0
  30. >l1:\wc7
  31. >l1:\jcc
  32. >m1:\wc9
  33. >m1:\jcc
  34. >n1:\dc0
  35. >n1:\wc5
  36. >n1:\jcc
  37. >o1:\dc0
  38. >o1:\wc5
  39. >p1:\dc0
  40. >p1:\wc5
  41. >q1:\dc0
  42. >q1:\wc4
  43. >r1:\dc0
  44. >r1:\wc5
  45. >s1:\dc0
  46. >s1:\wc5
  47. >a2:"Co
  48. >b2:"pyright, 1982, Perfect Software, Inc.  
  49. >a3:"==
  50. >b3:"==============================================
  51. >f3:"===
  52. >g3:"===
  53. >a4:" 
  54. >b4:"Today's Date (enter MN:DY:YR)-->
  55. >e4:1.000000000000E+00
  56. >f4:1.000000000000E+00
  57. >g4:8.200000000000E+01
  58. >a5:"==
  59. >b5:"==============================================
  60. >f5:"=========
  61. >b6:"This program automatically reads in the following entry files:
  62. >b7:"   apentry1.pc   apentry2.pc   apentry3.pc
  63. >b8:"Switch to these files to enter the appropriate data.  We recommend
  64. >b9:"using manual recalculation mode for this file.  Also, you will need
  65. >b10:"to press the recalculation key "!" twice because of forward references.
  66. >a11:"==========================================================================
  67. >c12:"     ACCOUNTS  PAYABLE  SUMMARY  STATEMENT
  68. >a14:"D
  69. >c14:"Purchase
  70. >e14:" Dat
  71. >f14:"e o
  72. >g14:"f 
  73. >i14:" 
  74. >l14:" Age of
  75. >q14:" 
  76. >a15:"u
  77. >c15:"Order
  78. >d15:"  Amount
  79. >e15:"  P.
  80. >f15:" O.
  81. >g15:" 
  82. >h15:"Days 
  83. >i15:"Date 
  84. >j15:"  D
  85. >k15:"ue
  86. >l15:" Purchase Order
  87. >r15:"Worktable
  88. >a16:"e
  89. >b16:" Name of Vendor
  90. >c16:"Number
  91. >d16:"    Due     
  92. >e16:" MN:
  93. >f16:"DY:
  94. >g16:"YR
  95. >h16:"Net 
  96. >i16:"MN:
  97. >j16:"DY:
  98. >k16:"YR
  99. >l16:" (Days)
  100. >r16:"Columns
  101. >a17:"--
  102. >b17:" ---------------
  103. >c17:"------
  104. >d17:" --------
  105. >e17:" ---
  106. >f17:"---
  107. >g17:"---
  108. >h17:" ----- 
  109. >i17:"
  110. >j17:"
  111. >k17:"
  112. >l17:"
  113. >a18:=if(if(g4=g18,c30-r18,365-r18+c30)>h18,1,0)@
  114. >c18:=apentry1[c4]@
  115. >d18:=apentry1[d21]@
  116. >e18:=apentry1[e4]@
  117. >f18:=apentry1[g4]@
  118. >g18:=apentry1[i4]@
  119. >h18:=apentry1[c5]@
  120. >i18:=lookup(s18-1,c28:p28)@
  121. >j18:=s18-lookup(i18,c27:q27)@
  122. >k18:=if(e18+(int((h18+f18)/30))>=13,g18+1,g18)@
  123. >l18:=if(g4=g18,c30-r18,365-r18+c30)@
  124. >r18:=lookup(e18,c27:p27)+f18@
  125. >s18:=if((h18+r18)<=365,h18+r18,h18+r18-365)@
  126. >a19:=if(if(g4=g19,c30-r19,365-r19+c30)>h19,1,0)@
  127. >c19:=apentry2[c4]@
  128. >d19:=apentry2[d21]@
  129. >e19:=apentry2[e4]@
  130. >f19:=apentry2[g4]@
  131. >g19:=apentry2[i4]@
  132. >h19:=apentry2[c5]@
  133. >i19:=lookup(s19-1,c28:p28)@
  134. >j19:=s19-lookup(i19,c27:q27)@
  135. >k19:=if(e19+(int((h19+f19)/30))>=13,g19+1,g19)@
  136. >l19:=if(g4=g19,c30-r19,365-r19+c30)@
  137. >r19:=lookup(e19,c27:p27)+f19@
  138. >s19:=if((h19+r19)<=365,h19+r19,h19+r19-365)@
  139. >a20:=if(if(g4=g20,c30-r20,365-r20+c30)>h20,1,0)@
  140. >c20:=apentry3[c4]@
  141. >d20:=apentry3[d21]@
  142. >e20:=apentry3[e4]@
  143. >f20:=apentry3[g4]@
  144. >g20:=apentry3[i4]@
  145. >h20:=apentry3[c5]@
  146. >i20:=lookup(s20-1,c28:p28)@
  147. >j20:=s20-lookup(i20,c27:q27)@
  148. >k20:=if(e20+(int((h20+f20)/30))>=13,g20+1,g20)@
  149. >l20:=if(g4=g20,c30-r20,365-r20+c30)@
  150. >r20:=lookup(e20,c27:p27)+f20@
  151. >s20:=if((h20+r20)<=365,h20+r20,h20+r20-365)@
  152. >b22:"   Totals
  153. >d22:=sum(d18:d20)@
  154. >b24:0
  155. >c24:0
  156. >d24:1.000000000000E+00
  157. >e24:2.000000000000E+00
  158. >f24:3.000000000000E+00
  159. >g24:4.000000000000E+00
  160. >h24:5.000000000000E+00
  161. >i24:6.000000000000E+00
  162. >j24:7.000000000000E+00
  163. >k24:8.000000000000E+00
  164. >l24:9.000000000000E+00
  165. >m24:1.000000000000E+01
  166. >n24:1.100000000000E+01
  167. >o24:1.200000000000E+01
  168. >p24:1.300000000000E+01
  169. >b25:0
  170. >c25:0
  171. >d25:3.100000000000E+01
  172. >e25:2.800000000000E+01
  173. >f25:3.100000000000E+01
  174. >g25:3.000000000000E+01
  175. >h25:3.100000000000E+01
  176. >i25:3.000000000000E+01
  177. >j25:3.100000000000E+01
  178. >k25:3.100000000000E+01
  179. >l25:3.000000000000E+01
  180. >m25:3.100000000000E+01
  181. >n25:3.000000000000E+01
  182. >o25:3.100000000000E+01
  183. >p25:3.100000000000E+01
  184. >c27:1.000000000075E-01
  185. >d27:1.000000000000E+00
  186. >e27:2.000000000000E+00
  187. >f27:3.000000000000E+00
  188. >g27:4.000000000000E+00
  189. >h27:5.000000000000E+00
  190. >i27:6.000000000000E+00
  191. >j27:7.000000000000E+00
  192. >k27:8.000000000000E+00
  193. >l27:9.000000000000E+00
  194. >m27:1.000000000000E+01
  195. >n27:1.100000000000E+01
  196. >o27:1.200000000000E+01
  197. >p27:1.300000000000E+01
  198. >b28:0
  199. >c28:0
  200. >d28:0
  201. >e28:3.100000000000E+01
  202. >f28:5.900000000000E+01
  203. >g28:9.000000000000E+01
  204. >h28:1.200000000000E+02
  205. >i28:1.510000000000E+02
  206. >j28:1.810000000000E+02
  207. >k28:2.120000000000E+02
  208. >l28:2.430000000000E+02
  209. >m28:2.730000000000E+02
  210. >n28:3.040000000000E+02
  211. >o28:3.340000000000E+02
  212. >p28:3.650000000000E+02
  213. >r28:" 
  214. >b29:0
  215. >c29:0
  216. >d29:1.000000000000E+00
  217. >e29:2.000000000000E+00
  218. >f29:3.000000000000E+00
  219. >g29:4.000000000000E+00
  220. >h29:5.000000000000E+00
  221. >i29:6.000000000000E+00
  222. >j29:7.000000000000E+00
  223. >k29:8.000000000000E+00
  224. >l29:9.000000000000E+00
  225. >m29:1.000000000000E+01
  226. >n29:1.100000000000E+01
  227. >o29:1.200000000000E+01
  228. >p29:1.300000000000E+01
  229. >b30:"  Day Number
  230. >c30:=lookup(e4,c27:p27)+f4@
  231. >b31:"Invoice Day
  232. >c31:=lookup(e18,c27:q27)+f18@
  233. >l31:=lookup(e18,c27:q27) +f18+h18 
  234. >a1
  235. \aB:APENTRY1.PC
  236.