home *** CD-ROM | disk | FTP | other *** search
/ Software Du Jour / SoftwareDuJour.iso / BUSINESS / DBASE / DB3AR.ARC / ADDIT.PRG < prev    next >
Encoding:
Text File  |  1985-10-14  |  1.9 KB  |  84 lines
  1. ********************************* (B:ADDIT.PRG)
  2. CLEAR
  3. DO WHILE .T.
  4. ? 'Want to continue ? '
  5. ?
  6. STORE ' ' TO OPTION
  7. WAIT '?  ' TO OPTION
  8. IF OPTION<>'Y'
  9. RETURN
  10. ENDIF
  11. CLEAR
  12. USE B:INV
  13. STORE 0.00 TO MPRICE,MCRINV,MAMT,MNET
  14. STORE 0.00 TO OVER_30,OVER_45,OVER_60,OVER_90
  15. DO WHILE .NOT. EOF()
  16. SET TALK ON
  17. SUM PRICE,CRINV,AMTAPPL,NET TO MPRICE,MCRINV,MAMT,MNET
  18. SUM NET FOR NEWDATE <= DATE() - 60 TO OVER_30
  19. SUM NET FOR NEWDATE <= DATE() - 75 TO OVER_45
  20. SUM NET FOR NEWDATE <= DATE() - 90 TO OVER_60
  21. SUM NET FOR NEWDATE <= DATE() - 120 TO OVER_90
  22. SET TALK OFF
  23. CLEAR
  24. ? SPACE(35)+DTOC(DATE())
  25. ?
  26. ? SPACE(20)+ 'Total shipped in file: $ '+STR(MPRICE,9,2)
  27. ?
  28. ? SPACE(20)+ 'Total credits in file: $ '+STR(MCRINV,9,2)
  29. ?
  30. ? SPACE(20)+ 'Total payments_______: $ '+STR(MAMT,9,2)
  31. ?
  32. ? SPACE(20)+ 'Total net due________: $ '+STR(MNET,9,2)
  33. ?
  34. ? SPACE(20)+ 'Over 30 days past due: $ '+STR(OVER_30,9,2)
  35. ?
  36. ? SPACE(20)+ 'Over 45 days past due: $ '+STR(OVER_45,9,2)
  37. ?
  38. ? SPACE(20)+ 'Over 60 days past due: $ '+STR(OVER_60,9,2)
  39. ?
  40. ? SPACE(20)+ 'Over 90 days past due: $ '+STR(OVER_90,9,2)
  41. ?
  42. ? SPACE(25)+'Want to print this report? '
  43. ?
  44. WAIT '                                     ? ' TO OPTION
  45. IF OPTION<>'Y'
  46. ENDDO
  47. RETURN
  48. ENDIF
  49. SET PRIN ON
  50. SET DEVI TO PRIN
  51. ? SPACE(23)+MTITLE
  52. ? SPACE(33)+DTOC(DATE())
  53. ?
  54. ?
  55. ? SPACE(20)+ 'Total shipped in file: $ '+STR(MPRICE,9,2)
  56. ?
  57. ?
  58. ? SPACE(20)+ 'Total credits in file: $ '+STR(MCRINV,9,2)
  59. ?
  60. ?
  61. ? SPACE(20)+ 'Total payments_______: $ '+STR(MAMT,9,2)
  62. ?
  63. ?
  64. ? SPACE(20)+ 'Total net due________: $ '+STR(MNET,9,2)
  65. ?
  66. ?
  67. ? SPACE(20)+ 'Over 30 days past due: $ '+STR(OVER_30,9,2)
  68. ?
  69. ?
  70. ? SPACE(20)+ 'Over 45 days past due: $ '+STR(OVER_45,9,2)
  71. ?
  72. ?
  73. ? SPACE(20)+ 'Over 60 days past due: $ '+STR(OVER_60,9,2)
  74. ?
  75. ?
  76. ? SPACE(20)+ 'Over 90 days past due: $ '+STR(OVER_90,9,2)
  77. ?
  78. ? SPACE(20)+ '----------------------------------'
  79. ? CHR(12)
  80. SET PRIN OFF
  81. SET DEVI TO SCREEN
  82. ENDDO
  83. RETURN
  84.