home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / cpm / dbaseii / dataflow.lbr / CREDIT.CZD / CREDIT.CMD
Encoding:
Text File  |  1989-06-15  |  1.5 KB  |  61 lines
  1. *CREDIT.PRG
  2. *A GENERAL PURPOSE CREDIT FACILITY FOR ENTERING CREDITS FOR REASONS OTHER THAN
  3. * THE RETURN OF GOODS.
  4. ERASE
  5. STORE ' ' TO DEC
  6. @ 1,0 SAY ' CONTINUE ENTERING CREDIT OR (Q)UIT ' GET DEC PICT '!'
  7. READ
  8. IF DEC='Q'
  9. RETURN
  10. ENDIF
  11. ERASE
  12. RESTORE FROM A:CREDIT
  13. STORE CREDIT:NUM+1 TO CREDIT:NUM
  14. SAVE TO CREDIT
  15. DO WHILE T
  16. STORE '         ' TO CUST
  17. @ 2,0 SAY 'WHAT IS SHORT NAME OF CUSTOMER TO FIND' GET CUST
  18. READ
  19. USE NAMELIST INDEX NAME
  20. FIND &CUST
  21. IF #=0
  22. ? 'NOT FOUND  TRY AGAIN'
  23. ? CHR(7)
  24. LOOP
  25. ENDIF
  26. STORE ACCNUM TO ACCNUMA
  27. ERASE
  28. @ 2,0 SAY 'NAME'
  29. @ 2,40 SAY NAME
  30. @ 3,0 SAY 'ACCOUNT NUMBER'
  31. @ 3,40 SAY ACCNUMA
  32. STORE '                               ' TO REASON
  33. STORE .00 TO CREDITA
  34. @ 6,0 SAY 'WHAT IS THIS CREDIT FOR' GET REASON PICT'!!!!!!!!!!!!!!!!!!!!!!!!'
  35. @ 7,0 SAY 'AMOUNT TO BE CREDITED' GET CREDITA PICT '9999999'
  36. @ 8,0 SAY ' AN AMOUNT OF ZERO WILL EXIT'
  37. READ
  38. USE RFC
  39. APPEND BLANK
  40. REPLACE ACCNUM WITH ACCNUMA,REASON:RFC WITH REASON,CRED:NUMB WITH CREDIT:NUM;
  41. ,TAX:P WITH F,VALU:RFC WITH CREDITA ,DATE:RFC WITH DATE()
  42. USE LEDGER
  43. APPEND BLANK
  44. REPLACE ACCNUM WITH ACCNUMA,NUM WITH CREDIT:NUM,CREDIT WITH CREDITA,USEDSTMT ;
  45. WITH F,TYPE:TRAN WITH 'ADJC',DATE WITH DATE()
  46. ENDDO
  47. RETURN
  48.  
  49.  
  50.  
  51.  
  52.  
  53.  
  54.  
  55.  
  56.  
  57.  
  58.  
  59.  
  60.  
  61.