home *** CD-ROM | disk | FTP | other *** search
/ RISC DISC 1 / RISC_DISC_1.iso / commercial / acp / profesnal / !Entprise / NominData / Forms / BalSheet < prev    next >
Text File  |  1993-01-04  |  9KB  |  354 lines
  1. !    Balance Sheet Format File
  2. !
  3. ===========================================================================
  4.  
  5.                         ******************************
  6.                         *BALANCE SHEET - {P42:<12}*
  7.                         ******************************
  8.  
  9.     {SY0:<32}                     Date {SY22}
  10. ===========================================================================
  11.  
  12.                          Period  {SY20  } - {SY22  }
  13.  
  14. ---------------------------------------------------------------------------
  15.    Year to {SY20  }              LIABILITIES
  16. #liabs = 0
  17. #type  = "L4"
  18. #SELECT AT type
  19. #total = 0
  20. #SELECT NL 0
  21. #NEXT NL9 type
  22. #WHILE NL
  23. #  bal = -(NL3 + NL4)
  24. #  add = bal + NL6
  25. #  total & bal
  26.  
  27.  {£(-NL6):>12} {NL0:>6} {NL1:<                     }             {£bal:>12}
  28. #  NEXT NL9 type
  29. #LOOP
  30. #liabs & total
  31. !   ---------------------------------------
  32. #type  = "L2"
  33. #SELECT AT type
  34. #total = 0
  35. #totalbf = 0
  36. #totalacc = 0
  37. #totalaccbf = 0
  38. #SELECT NL 0
  39. #NEXT NL9 type
  40. #WHILE NL
  41. #  total & -(NL3 + NL4)
  42. #  totalbf & -NL6
  43. #  NEXT NL9 type
  44. #IF NL0 = "420"
  45. #totalacc & -(NL3 + NL4)
  46. #totalaccbf & -NL6
  47. #ENDIF
  48. #LOOP
  49. #liabs & total
  50.  
  51.  {£(totalbf-totalaccbf):>12} 400/19 VAT creditor                             {£(total-totalacc):>12}
  52.  
  53.  {£totalaccbf:>12}    420 VAT accruals                             {£totalacc:>12}
  54. !   ----------------------
  55. #type  = "L1"
  56. #SELECT AT type
  57. #total = 0
  58. #SELECT NL 0
  59. #NEXT NL9 type
  60. #WHILE NL
  61. #  bal = -(NL3 + NL4)
  62. #  add = bal + NL6
  63. #  total & bal
  64.  
  65. #  IF add
  66.  {£(-NL6):>12} {NL0:>6} {NL1:<28}
  67.                      Balance at {SY20  }         {£(-NL6):>12}
  68. #    IF (add<0)
  69.                      Deductions                  {£add:>12}
  70. #       ELSE
  71.                      Additions                   {£add:>12}
  72. #    ENDIF
  73.                                                   ===========
  74.                      Total                                    {£bal:>12}
  75. #  ELSE
  76.  {£(-NL6):>12} {NL0:>6} {NL1:<                     }             {£bal:>12}
  77. #  ENDIF
  78. #  NEXT NL9 type
  79. #LOOP
  80. #liabs & total
  81. !   --------------------------------------
  82. #type  = "L5"
  83. #SELECT AT type
  84. #total = 0
  85. #SELECT NL 0
  86. #NEXT NL9 type
  87. #WHILE NL
  88. #  bal = -(NL3 + NL4)
  89. #  add = bal + NL6
  90. #  total & bal
  91.  
  92. #  IF add
  93.  {£(-NL6):>12} {NL0:>6} {NL1:<28}
  94.                      Balance at {SY20  }         {£(-NL6):>12}
  95. #    IF (add<0)
  96.                      Deductions                  {£add:>12}
  97. #       ELSE
  98.                      Additions                   {£add:>12}
  99. #    ENDIF
  100.                                                   ===========
  101.                      Total                                    {£bal:>12}
  102. #  ELSE
  103.  {£(-NL6):>12} {NL0:>6} {NL1:<                     }             {£bal:>12}
  104. #  ENDIF
  105. #  NEXT NL9 type
  106. #LOOP
  107. #liabs & total
  108. !   ---------------------------------------------
  109. #type  = "L3"
  110. #SELECT AT type
  111. #total = 0
  112. #SELECT NL 0
  113. #NEXT NL9 type
  114. #WHILE NL
  115. #  bal = -(NL3 + NL4)
  116. #  add = bal + NL6
  117. #  total & bal
  118.  
  119. #  IF add
  120.  {£(-NL6):>12} {NL0:>6} {NL1:<28}
  121.                      Balance at {SY20  }         {£(-NL6):>12}
  122. #    IF (add<0)
  123.                      Deductions                  {£add:>12}
  124. #       ELSE
  125.                      Additions                   {£add:>12}
  126. #    ENDIF
  127.                                                   ===========
  128.                      Total                                    {£bal:>12}
  129. #  ELSE
  130.  {£(-NL6):>12} {NL0:>6} {NL1:<                     }             {£bal:>12}
  131. #  ENDIF
  132. #  NEXT NL9 type
  133. #LOOP
  134. #liabs & total
  135. !   -------------------------------------
  136. #type  = "L7"
  137. #SELECT AT type
  138. #total = 0
  139. #SELECT NL 0
  140. #NEXT NL9 type
  141. #WHILE NL
  142. #  bal = -(NL3 + NL4)
  143. #  add = bal + NL6
  144. #  total & bal
  145.  
  146. #  IF add
  147.  {£(-NL6):>12} {NL0:>6} {NL1:<28}
  148.                      Balance at {SY20  }         {£(-NL6):>12}
  149. #    IF (add<0)
  150.                      Deductions                  {£add:>12}
  151. #       ELSE
  152.                      Additions                   {£add:>12}
  153. #    ENDIF
  154.                                                   ===========
  155.                      Total                                    {£bal:>12}
  156. #  ELSE
  157.  {£(-NL6):>12} {NL0:>6} {NL1:<                     }             {£bal:>12}
  158. #  ENDIF
  159. #  NEXT NL9 type
  160. #LOOP
  161. #liabs & total
  162. !   -----------------------------------
  163. #type  = "L8"
  164. #SELECT AT type
  165. #total = 0
  166. #SELECT NL 0
  167. #NEXT NL9 type
  168. #WHILE NL
  169. #  bal = -(NL3 + NL4)
  170. #  add = bal + NL6
  171. #  total & bal
  172.  
  173. #  IF add
  174.  {£(-NL6):>12} {NL0:>6} {NL1:<28}
  175.                      Balance at {SY20  }         {£(-NL6):>12}
  176. #    IF (add<0)
  177.                      Deductions                  {£add:>12}
  178. #       ELSE
  179.                      Additions                   {£add:>12}
  180. #    ENDIF
  181.                                                   ===========
  182.                      Total                                    {£bal:>12}
  183. #  ELSE
  184.  {£(-NL6):>12} {NL0:>6} {NL1:<                     }             {£bal:>12}
  185. #  ENDIF
  186. #  NEXT NL9 type
  187. #LOOP
  188. #liabs & total
  189. !   --------------------------------
  190. #type  = "L6"
  191. #SELECT AT type
  192. #total = 0
  193. #totalbf = 0
  194. #SELECT NL 0
  195. #NEXT NL9 type
  196. #WHILE NL
  197. #  bal = -(NL3 + NL4)
  198. #  add = bal + NL6
  199. #  total & bal
  200. #  totalbf & -NL6
  201. #  NEXT NL9 type
  202. #LOOP
  203. #liabs & total
  204.  
  205.  {£(totalbf):>12}    448 Net profit carried down                  {£(#P17+total):>12}
  206. #liabs & #P17
  207. !   ------------------------------------
  208.                                                                 ----------
  209.                                                               {£liabs:>12}
  210.                                                                 ==========
  211.  
  212. - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  213.    Year to {SY20  }                ASSETS
  214. #asset = 0
  215. #type  = "A6"
  216. #SELECT AT type
  217. #total = 0
  218. #SELECT NL 0
  219. #NEXT NL9 type
  220. #WHILE NL
  221. #  bal = NL3 + NL4
  222. #  add = bal - NL6
  223. #  total & bal
  224.  
  225.  {NL6:>12} {NL0:>6} {NL1:<                     }             {£bal:>12}
  226. #  NEXT NL9 type
  227. #LOOP
  228. #asset & total
  229. !   ---------------------------------
  230. #asset & #P8
  231.  
  232.  {P28:>12}    347 Stock held                               {P8:>12}
  233. !   --------------------------------
  234. #type  = "A3"
  235. #SELECT AT type
  236. #total = 0
  237. #SELECT NL 0
  238. #NEXT NL9 type
  239. #WHILE NL
  240. #  bal = NL3 + NL4
  241. #  add = bal - NL6
  242. #  total & bal
  243.  
  244.  {NL6:>12} {NL0:>6} {NL1:<                     }             {£bal:>12}
  245. #  NEXT NL9 type
  246. #LOOP
  247. #asset & total
  248. !   ------------------------------------
  249. #type  = "A2"
  250. #SELECT AT type
  251. #total = 0
  252. #SELECT NL 0
  253. #NEXT NL9 type
  254. #WHILE NL
  255. #  bal = NL3 + NL4
  256. #  add = bal - NL6
  257. #  total & bal
  258.  
  259.  {NL6:>12} {NL0:>6} {NL1:<                     }             {£bal:>12}
  260. #  NEXT NL9 type
  261. #LOOP
  262. #asset & total
  263. !   ----------------------------
  264. #type  = "A4,A5,AA,AB"
  265. #total = 0
  266. #SELECT NL 0
  267. #NEXT NL9 type
  268. #WHILE NL
  269. #  bal = NL3 + NL4
  270. #  add = bal - NL6
  271.  
  272. #  IF add | NL9 = "A5" | NL9 = "AB"
  273.  {NL6:>12} {NL0:>6} {NL1:<28}
  274.                      Balance at {SY20  }         {NL6:>12}
  275. #    IF (add<0)
  276.                      Deductions                  {£add:>12}
  277. #      ELSE
  278.                      Additions                   {£add:>12}
  279. #    ENDIF
  280. #    IF NL9 = "A5" | NL9 = "AB"
  281. #      dep = #P40
  282. #      bal & dep
  283.  {P41:>12}        Less depreciation           {£dep:>12}
  284. #ENDIF
  285.                                                     =========
  286.                      Total                                    {£bal:>12}
  287. #  ELSE
  288.  {NL6:>12} {NL0:>6} {NL1:<                     }             {£bal:>12}
  289. #  ENDIF
  290. #  NEXT NL9 type
  291. #  total & bal
  292. #LOOP
  293. #asset & total
  294. !   ---------------------------------
  295. #type  = "A8"
  296. #SELECT AT type
  297. #total = 0
  298. #SELECT NL 0
  299. #NEXT NL9 type
  300. #WHILE NL
  301. #  bal = NL3 + NL4
  302. #  add = bal - NL6
  303. #  total & bal
  304.  
  305. #  IF add
  306.  {NL6:>12} {NL0:>6} {NL1:<28}
  307.                      Balance at {SY20  }         {NL6:>12}
  308. #    IF (add<0)
  309.                      Deductions                  {£add:>12}
  310. #       ELSE
  311.                      Additions                   {£add:>12}
  312. #    ENDIF
  313.                                                   ===========
  314.                      Total                                    {£bal:>12}
  315. #  ELSE
  316.  {NL6:>12} {NL0:>6} {NL1:<                     }             {£bal:>12}
  317. #  ENDIF
  318. #  NEXT NL9 type
  319. #LOOP
  320. #asset & total
  321. !   ----------------------------------
  322. #type  = "A9"
  323. #SELECT AT type
  324. #total = 0
  325. #SELECT NL1 0
  326. #NEXT NL9 type
  327. #WHILE NL
  328. #  bal = NL3 + NL4
  329. #  add = bal - NL6
  330. #  total & bal
  331.  
  332. #  IF add
  333.  {NL6:>12} {NL0:>6} {NL1:<28}
  334.                      Balance at {SY20  }         {NL6:>12}
  335. #    IF (add<0)
  336.                      Deductions                  {£add:>12}
  337. #       ELSE
  338.                      Additions                   {£add:>12}
  339. #    ENDIF
  340.                                                   ===========
  341.                      Total                                    {£bal:>12}
  342. #  ELSE
  343.  {NL6:>12} {NL0:>6} {NL1:<                     }             {£bal:>12}
  344. #  ENDIF
  345. #  NEXT NL9 type
  346. #LOOP
  347. #asset & total
  348. !   --------------------------------------
  349.                                                                 ----------
  350.                                                               {£asset:>12}
  351.                                                                 ==========
  352.  
  353.     Report complete.
  354.