home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / dbbooks.zip / COAREPT.CMD < prev    next >
OS/2 REXX Batch file  |  1987-02-14  |  2KB  |  84 lines
  1. **************************** COAREPT.CMD
  2. ************ Print Chart of Accounts and Balances.
  3.  
  4. ************ Get date of last update.
  5. USE GENINFO
  6. STORE LAST:UPDAT TO LAST:DATE
  7.  
  8. USE COA INDEX COA
  9.  
  10. ************ Ask about hardcopy.
  11. ERAS
  12. STORE " " TO YN
  13. @ 5,2 SAY "Send report to printer? " GET YN
  14. READ
  15.  
  16. IF !(YN)="Y"
  17.    STORE "TO PRINT" TO COND
  18. ELSE
  19.    STORE " " TO COND
  20. ENDIF (yn=y)
  21.  
  22.  
  23. *********** Caculate totals, leaving out sub-accounts.
  24. ERASE
  25. ? "Calculating totals...."
  26.  
  27. SUM AMOUNT FOR ACCT<300 .AND. INT(ACCT)=ACCT TO TOT:MTD1
  28. SUM AMOUNT FOR ACCT>=300 .AND. INT(ACCT)=ACCT TO TOT:MTD2
  29. SUM QTD FOR ACCT<300 .AND. INT(ACCT)=ACCT TO TOT:QTD1
  30. SUM QTD FOR ACCT>=300 .AND. INT(ACCT)=ACCT TO TOT:QTD2
  31. SUM YTD FOR ACCT<300 .AND. INT(ACCT)=ACCT TO TOT:YTD1
  32. SUM YTD FOR ACCT>=300 .AND. INT(ACCT)=ACCT TO TOT:YTD2
  33.  
  34. ********************** Print the report using
  35. ********************** pre-defined report formats.
  36. SET EJECT OFF
  37. ERASE
  38. ? "              Chart of Accounts for &COMPANY"
  39. ?
  40. ********************* Print appropriate sub-heading.
  41. ? "Last Update: &LAST:DATE"
  42.  
  43.  
  44.  
  45. ******************** Print income accounts.
  46. ?
  47. ? "INCOME:"
  48. REPO FORM COA FOR ACCT<300 &COND PLAIN
  49. ? "Total Income            ",TOT:MTD1," ",TOT:QTD1," ",TOT:YTD1
  50. ?
  51. ******************** Print expense transactions.
  52. ? "EXPENSES:"
  53. REPO FORM COA FOR ACCT>=300 &COND PLAIN
  54. ? "Total Expenses          ",TOT:MTD2," ",TOT:QTD2," ",TOT:YTD2
  55. ******************** Display balance at bottom of sheet.
  56. ?
  57. ? "Total Income            ",TOT:MTD1," ",TOT:QTD1," ",TOT:YTD1
  58. ? "Total Expenses          ",TOT:MTD2," ",TOT:QTD2," ",TOT:YTD2
  59. ?
  60. ? "Balance                  ",;
  61.    TOT:MTD1-TOT:MTD2," ",TOT:QTD1-TOT:QTD2," ",;
  62.    TOT:YTD1-TOT:YTD2
  63. EJECT
  64.  
  65. *************** If report not going to printer,
  66. *************** pause on screen. 
  67. IF COND = " "
  68.    ?
  69.    ?
  70.    ? "Press any key to continue"
  71.    WAIT
  72. ENDIF (cond=" ")
  73.  
  74. RETURN
  75.  DO BEDIT
  76.  
  77.    ENDCASE
  78.  
  79. ENDDO (while choice <> 4)
  80.  ERASE
  81. STORE T TO ADDING
  82. DO WHILE ADDING
  83.    APPEND BLANK
  84.