home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / lambda / soundpot / a / dataflo1.lbr / STOCKIN.CZD / STOCKIN.CMD
Encoding:
Text File  |  1993-10-26  |  1.5 KB  |  56 lines
  1. *STOCKIN.PRG
  2. *STOCK INWARDS PROGRAM, TO ENTER STOCK RECIEVED
  3. RELEASE ALL
  4. ERASE
  5. SET TALK OFF
  6. USE PRICELIS INDEX PRICECOD
  7. STORE '         ' TO CODEA
  8. DO WHILE CODEA<>'0'
  9. STORE '         ' TO CODEA
  10. @ 2,0 SAY ' CODE OF STOCK RECEIVED' GET CODEA PICT '!!!!!!!!!'
  11. @ 3,0 SAY ' INSERT CODE OF (0) ZERO TO EXIT'
  12. READ
  13. IF CODEA='0'
  14. RETURN
  15. ENDIF
  16. FIND &CODEA
  17. IF #=0
  18. ? 'PRODUCT NOT FOUND , TRY AGAIN OR ENTER  AS A NEW PRODUCT LATER'
  19. ? 'PRESS ANY KEY TO CONTINUE'
  20. WAIT
  21. ERASE
  22. LOOP
  23. ENDIF
  24. STORE COST TO COSTA
  25. STORE LAND:COST TO LAND:COSTA
  26. STORE 0 TO STOCKEDA
  27. STORE ITEM TO ITEMA
  28. STORE STOCKED TO STOCK
  29. @ 6,0 SAY 'PRESS RETURN IF NO CHANGE'
  30. @ 7,0 SAY 'AMOUNT IN STOCK AT PRESENT  '
  31. @ 7,30 SAY STOCK
  32. @ 8,0 SAY 'PRODUCT                     '
  33. @ 8,30 SAY ITEMA
  34. @ 9,0 SAY 'NEW LANDED COST           ' GET LAND:COSTA
  35. @ 10,0 SAY 'NEW MINIMUM SALE PRICE    ' GET COSTA
  36. @ 11,0 SAY 'QUANTITY RECEIVED         ' GET STOCKEDA
  37. READ
  38. REPLACE LAND:COST WITH LAND:COSTA,STOCKED WITH STOCKED+STOCKEDA,;
  39. COST WITH COSTA
  40. REPLACE DATE WITH DATE()
  41. LOOP
  42. ENDDOO WHILE T
  43. ERASE
  44. STORE 35 TO CENTRE
  45. STORE 10 TO COLUMN1
  46. STORE 30 TO COLUMN2
  47. @ 1,00 SAY'*****************************************************************'
  48. @ 4,CENTRE SAY'REPORT MENU '
  49. @ 7,COLUMN1 SAY'DEBTORS: '
  50. @ 7,COLUMN2 SAY'1. AGED TRIAL BALANCE '
  51. @ 8,COLUMN2 SAY'2. CUSTOMER LIST '
  52. @ 9,COLUMN2 SAY'3. CUSTOMER MAILING LABELS'
  53. @ 10,COLUMN2 SAY'4. OVERDUE LETTER'
  54. @ 12,COLUMN1 SAY'SALES REPORTS'
  55. @ 12,COLUMN2 SAY'5. SALES TAX REPORT'
  56. @ 13,COLUMN2 SAY'6. TRADING