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 / RFCREDIT.CMD < prev    next >
OS/2 REXX Batch file  |  1979-12-31  |  2KB  |  86 lines
  1. *RFCREDIT.PRG
  2. * RETURN FOR CREDIT PROGRAM
  3. *THIS PROGRAM GENERATES DATA FOR TWO FILES .DBF ,THE FIRST IS DATA FOR THE
  4. *LEDGERS THE SECOND IS A RECORD OF THE RETURN IN IT'S OWN FILE RFC.DBF
  5. ERASE
  6. USE
  7. SELE PRIM
  8. USE
  9. SELE SECO
  10. USE
  11. STORE ' ' TO DEC
  12. REMARK********************INITIALIZE THE VARIABLES
  13. RESTORE FROM A:CREDIT
  14. STORE CREDIT:NUM +1 TO CREDIT:NUM
  15. ************************FIND CUSTOMER ROUTINE******
  16. ERASE
  17. DO WHILE T
  18. USE NAMELIST INDEX NAME
  19. STORE '               ' TO CUST
  20. @ 1,0 SAY 'NAME OF CUSTOMER TO CREDIT ZERO (0) TO QUIT' GET CUST;
  21.  PICT '!!!!!!!!!!!!!!!'
  22. READ
  23. IF CUST='0'
  24. SAVE TO A:CREDIT ALL LIKE CREDIT:NUM
  25. RETURN
  26. ENDIF
  27. STORE TRIM(CUST) TO CUST
  28. FIND &CUST
  29. IF #=0
  30. ?? CHR(07)
  31. @ 2,0 SAY 'NOT FOUND'
  32. LOOP
  33. ENDIF
  34. STORE ACCNUM TO ACCNUMA
  35. STORE NAME TO NAMEA
  36. STORE ' ' TO DEC
  37. ? NAME,ACCNUM
  38. @ 5,0 SAY 'IS THIS CORRECT, IF NOT PRESS "N"' GET DEC PICT'!'
  39. READ
  40. IF DEC='N'
  41. LOOP
  42. ENDIF
  43. ERASE
  44. @ 1,0 SAY 'NAME'
  45. @ 1,40 GET NAMEA
  46. @ 2,0 SAY 'ACCOUNT NUMBER'
  47. @ 2,40 GET ACCNUMA
  48. STORE '                    ' TO REASON
  49. STORE 0 TO QTY:RFC
  50. STORE ' ' TO CHECK
  51. @ 13,0 SAY 'WHAT IS THE REASON FOR THE RETURN' GET REASON PICT'!!!!!!!!;
  52. !!!!!!!!!!!!!!!!!!!!!!!!!'
  53. READ
  54. USE RFC
  55. APPEND BLANK
  56. ERASE
  57. STORE .00 TO VALU:RFC
  58. STORE .00 TO TAXA
  59. STORE .00 TO S:TAXA
  60. @ 2,0 SAY 'ACTUAL AMOUNT TO BE CREDITED     ' GET VALU:RFC
  61. @ 3,0 SAY 'AMOUNT OF CREDIT  SALES TAXABLE  ' GET TAXA
  62. @ 4,0 SAY 'AMOUNT OF TAX INCLUDED           ' GET S:TAXA
  63. @ 5,0 SAY 'CREDIT NUMBER                    ' GET CREDIT:NUM
  64. READ
  65. REMARK ********************WRITING TO LEDGER
  66. STORE VALU:RFC TO VALU:REC
  67. STORE TAXA TO SALESTAX
  68. REPLACE TAXABLE WITH TAXA
  69. REPLACE S:TAX WITH S:TAXA
  70. REPLACE ACCNUM WITH ACCNUMA,DATE:RFC WITH DATE();
  71. ,REASON:RFC WITH REASON,CRED:NUMB WITH CREDIT:NUM,
  72. REMARK ************************WRITING TO CREDIT FILE
  73. USE LEDGER
  74. APPEND BLANK
  75. REPLACE ACCNUM WITH ACCNUMA,NUM WITH CREDIT:NUM,CREDIT WITH VALU:REC,;
  76. TYPE:TRAN WITH 'RFC',DATE WITH DATE()
  77. ERASE
  78. USE
  79. ENDDO
  80.  
  81. 
  82. @ 14,0 
  83. @ 16,0 
  84. @ 17,0 
  85. @ 18,0
  86. @