home *** CD-ROM | disk | FTP | other *** search
/ RISC DISC 1 / RISC_DISC_1.iso / commercial / acp / profesnal / !Entprise / PurchData / Forms / PeriodEnd < prev    next >
Text File  |  1992-11-09  |  1KB  |  50 lines
  1. !     Purchase Period End Report Format File
  2. !     Lists all transactions for all accounts in the purchase ledger
  3. ===========================================================================
  4.  
  5.                            ***************************
  6.                            *PURCHASE 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 PL 1
  14. #WHILE PL
  15. #  tran = PL15
  16. #  bfstat = PL17
  17. #  IF bfstat
  18. #    SELECT PT bfstat
  19. #    totalbal = PT3+PT4
  20. #  ELSE
  21. #    totalbal = 0
  22. #  ENDIF
  23.  
  24. #IF PL15
  25.  {PL0:<6} {PL1:<28}    Brought forward {£totalbal:>12}
  26. #ENDIF
  27. #WHILE tran
  28. #  SELECT PT tran
  29. #  IF !(tran=bfstat)
  30. #    total = PT3+PT4
  31. #    IF PT7=5
  32.                                                           ----------
  33. #    ELSE
  34. #       totalbal & total
  35. #    ENDIF
  36.         {PT2:<8} {PT1:<8} {PT7:>3} {PT3:>12} {PT4:>12} {£total:>12} {PT6:>4}
  37. #  ENDIF
  38. #  tran = PT8
  39. #LOOP
  40. #IF PL15
  41.                                                           ----------
  42.                                         Total balance   {£totalbal:>12}
  43. #ELSE
  44.  {PL0:<6} {PL1:<28}    Total balance   {£totalbal:>12}
  45. #ENDIF
  46. #NEXT PL
  47. #LOOP
  48.  
  49.     Report complete.
  50.