home *** CD-ROM | disk | FTP | other *** search
/ RISC DISC 1 / RISC_DISC_1.iso / commercial / acp / profesnal / !Entprise / NominData / Forms / PeriodEnd < prev    next >
Text File  |  1992-11-09  |  1KB  |  38 lines
  1. !     Nominal Period End Report Format File
  2. !     Lists all transactions for all accounts in the nominal ledger
  3. ===========================================================================
  4.  
  5.                          **************************
  6.                          *NOMINAL LEDGER - LISTING*
  7.                          **************************
  8.  
  9.     {SY0:<34}                   Date {SY22    }
  10. ===========================================================================
  11.     Account   Date    Reference     Amount        Total  Bal. A/c  Batch
  12. ---------------------------------------------------------------------------
  13. #SELECT NL 1
  14. #WHILE NL
  15. #  tran  = NL7
  16. #  total = 0
  17.  
  18.      {NL0:<6} {NL1:<28}
  19. #IF NL7 
  20.                              Brought forward {£NL5:>12}
  21. #ENDIF
  22. #  WHILE tran
  23. #    SELECT NT tran
  24.             {NT2:<8}   {NT1:<8} {NT3:>12}              {NT4:>6}   {NT5:>4}
  25. #    tran = NT6
  26. #    total & NT3
  27. #  LOOP
  28. #IF NL7
  29.                                   ==========   ==========
  30.                                 {£total:>12} {£NL3+NL4:>12}
  31. #ELSE
  32.                              Total balance   {£NL3+NL4:>12}
  33. #ENDIF
  34. #  NEXT NL
  35. #LOOP
  36.  
  37.     Report complete.
  38.