home *** CD-ROM | disk | FTP | other *** search
/ RISC DISC 1 / RISC_DISC_1.iso / commercial / acp / profesnal / !Entprise / SalesData / Forms / PeriodEnd < prev    next >
Text File  |  1992-11-09  |  1KB  |  50 lines
  1. !     Sales Period End Report Format File
  2. !     Lists all transactions for all accounts in the sales ledger
  3. ===========================================================================
  4.  
  5.                           ************************
  6.                           *SALES LEDGER - LISTING*
  7.                           ************************
  8.  
  9.     {SY0:<34}                   Date {SY22    }
  10. ===========================================================================
  11.  Account  Date  Reference T/x   Goods value    VAT value     Total  Batch
  12. ---------------------------------------------------------------------------
  13. #SELECT SL 1
  14. #WHILE SL
  15. #  tran = SL15
  16. #  bfstat = SL17
  17. #  IF bfstat
  18. #    SELECT ST bfstat
  19. #    totalbal = ST3+ST4
  20. #  ELSE
  21. #    totalbal = 0
  22. #  ENDIF
  23.  
  24. #IF SL15
  25.  {SL0:<6} {SL1:<28}    Brought forward {£totalbal:>12}
  26. #ENDIF
  27. #WHILE tran
  28. #  SELECT ST tran
  29. #  IF !(tran=bfstat)
  30. #    total = ST3+ST4
  31. #    IF ST7=5
  32.                                                           ----------
  33. #    ELSE
  34. #       totalbal & total
  35. #    ENDIF
  36.         {ST2:<8} {ST1:<8} {ST7:>3} {ST3:>12} {ST4:>12} {£total:>12} {ST6:>4}
  37. #  ENDIF
  38. #  tran = ST8
  39. #LOOP
  40. #IF SL15
  41.                                                           ----------
  42.                                         Total balance   {£totalbal:>12}
  43. #ELSE
  44.  {SL0:<6} {SL1:<28}    Total balance   {£totalbal:>12}
  45. #ENDIF
  46. #NEXT SL
  47. #LOOP
  48.  
  49.     Report complete.
  50.