home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / MBUG / MBUG102.ARC / OVERDUE.CMD < prev    next >
OS/2 REXX Batch file  |  1979-12-31  |  3KB  |  109 lines
  1. *OVERDUE.PRG
  2. ERASE
  3. STORE ' ' TO DEC
  4. @ 1,0 SAY 'THIS  PROGRAM CHECKS FOR PAYMENTS AND THEN SENDS OUT THE '
  5. @ 2,0 SAY 'OVER DUE LETTER, PRESS C TO CONTINUE, R TO RETURN'GET DEC;
  6.  PICT '!'
  7. READ
  8. IF DEC<>'C'
  9. RETURN
  10. ENDIF
  11. ERASE
  12. *******************************CHECK FOR PAYMENTS THIS MONTH***********
  13. @ 12,0 SAY '*****************CHECKING FOR PAYMENTS*******************'
  14. SELECT PRIMARY
  15. USE NAMELIST INDEX NAMENUM
  16. ERASE
  17. @ 12,0 SAY'******************************RESETTING FLAGS********************'
  18. REPLACE ALL NASTY WITH F
  19. ERASE
  20. @ 12,0 SAY '*********************USING THE RECEIPTS FILE*******************'
  21. SELECT SECONDARY
  22. USE LEDGER
  23. ERASE
  24. DO WHILE .NOT. EOF
  25. SELECT SECONDARY
  26. IF CREDIT = 0
  27. SKIP
  28. LOOP
  29. ENDIF
  30. STORE ACCNUM TO ACCNUMA
  31. SELECT PRIMARY
  32. @ 12,20 SAY ACCNUMA
  33. FIND &ACCNUMA
  34. REPLACE NASTY WITH T
  35. SELECT SECONDARY
  36. SKIP
  37. ENDDO
  38. ***********************OVERDUE A/CS WITH PAYMENTS MADE MARKED FOR NO LETTER**
  39. ERASE
  40. ? 'SET PRINTER UP WITH PLAIN PAPER IN IT AND RESET TO TOP OF PAGE'
  41. ? 'PRESS ANY KEY WHEN READY'
  42. WAIT
  43. ERASE
  44. SET TALK OFF
  45. RELEASE ALL
  46. SELECT PRIMARY
  47. SET INDEX TO NAME
  48. GO TOP
  49. SET PRINT ON
  50. EJECT
  51. DO WHILE .NOT. EOF
  52. ***********NOT NASTY MEANS  NASTY LETTER TO BE SENT.************
  53. IF NASTY .OR. LAST:BAL=0 .OR. SIXTY=0 .AND. NINETY=0
  54. SKIP
  55. LOOP
  56. ENDIF
  57. SET PRINT ON
  58. SET FORMAT TO PRINT
  59. @ 16,20 SAY NAME
  60. @ 16,55 SAY 'ACCOUNT #'
  61. @ 16,65 SAY ACCNUM
  62. @ 17,20 SAY STREET
  63. @ 17,55 SAY 'BALANCE'
  64. @ 17,65 SAY LAST:BAL
  65. @ 18,20 SAY CITYPC
  66. ENDIF
  67. TEXT
  68.  
  69.  
  70.  
  71.  
  72. Dear Sir,               OVERDUE ACCOUNT NOTICE
  73.  
  74.     The above account has exceeded our trading terms of Nett 30 Days and
  75. is now at least 45 days overdue. Whilst the "experts" keep on telling us that
  76. the recession  is over  they  have  not said that every body is paying their 
  77. accounts on time . It  seems that  we  are expected to finance your account 
  78. whilst we have to go into overdraft to do so. 
  79.     
  80.     Should there be any reason for withholding payment, please do not 
  81. hestitate to contact the undersigned to enable the problem to be solved.
  82.  
  83.     Assuming there are no problems, we expect your cheque in the near 
  84. future.
  85.         If you have sent a cheque in the meantime please accept our thanks
  86. and disregard this notice.
  87. ENDTEXT
  88. IF RESALE 
  89. TEXT 
  90.     Please note that this over due account WILL not be eligble for the 
  91. early settlement discount .
  92. endtext
  93. endif
  94. text
  95. Yours Faithfully
  96.  
  97.  
  98.      
  99. Manager credit department         
  100. ENDTEXT
  101. ? DATE()
  102. EJECT
  103. REPLACE NASTY WITH T
  104. SKIP
  105. ENDDO
  106. SET FORMAT TO SCREEN
  107. SET PRINT OFF
  108. RETURN
  109.