home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / workdb.zip / EDIT.INV < prev    next >
Text File  |  1983-01-04  |  3KB  |  100 lines

  1. * edit.inv 08/18/83
  2. * edit inventory data
  3. STORE CHR(PEEK (063)) TO dr
  4. STORE # TO rec:number
  5. RECALL
  6. STORE STR(disk,3,0) TO mdisk
  7. STORE STR(open:inv,2,0) TO mopen:inv
  8. STORE STR(back:ord,2,0) TO mback:ord
  9. STORE STR(wait:ship,2,0) TO mwait:ship
  10. STORE STR(recvd,2,0) TO mrecvd
  11. STORE STR(norm:stk,2,0) TO mnorm:stk
  12. STORE STR(order,2,0) TO morder
  13. STORE STR(pend,2,0) TO mpend
  14. STORE line1 TO mline1
  15. STORE line2 TO mline2
  16. IF change1 = t
  17.     STORE 'Yes' TO mchange1
  18. ELSE
  19.     STORE ' No' TO mchange1
  20. ENDIF change1
  21. IF change2 = t
  22.     STORE 'Yes' TO mchange2
  23. ELSE
  24.     STORE ' No' TO mchange2
  25. ENDIF change2
  26. STORE dayu TO mdayu
  27. ERASE
  28. STORE 'Edit Inventory Module' TO mode
  29. STORE 'Enter the new or corrected information' TO prompt1
  30. STORE ' ' TO prompt2
  31. STORE "Control 'Q' to end edit session" TO prompt3
  32. @  1,25 SAY mode
  33. @  2, 0 SAY "+--------------------------------------"
  34. @  2,39 SAY "----------------------------------------+"
  35. @  3,26 SAY "SIG/M VOLUME"
  36. @  5,14 SAY "Opening Inventory               Description of Volume"
  37. @  7,19 SAY "Back Ordered"
  38. @  8,15 SAY "Waiting Shipment"
  39. @  9,14 SAY "Quantity Received"
  40. @ 10,14 SAY "Closing Inventory"
  41. @ 10,45 SAY "Change in Inventory"
  42. @ 11,46 SAY "Date"
  43. @ 11,64 SAY "No  "
  44. @ 12,19 SAY "Normal Stock"
  45. @ 13,14 SAY "Quantity to Order"
  46. @ 13,45 SAY "Change in Backorders"
  47. @ 14,15 SAY "Quantity Ordered"
  48. @ 14,46 SAY "Date:"
  49. @ 14,64 SAY "No "
  50. @ 16,10 SAY "Anticipated Inventory"
  51. @ 17,51 SAY "Update"
  52. @ 19, 0 SAY "+--------------------------------------"
  53. @ 19,39 SAY "----------------------------------------+"
  54. @ 20,12 SAY prompt1
  55. @ 21,12 SAY prompt2
  56. @ 22,12 SAY prompt3
  57. @  3,39 SAY mdisk picture '999'
  58. @  5,34 GET mopen:inv PICTURE '99'
  59. @  7,34 GET mback:ord PICTURE '99'
  60. @  8,34 GET mwait:ship PICTURE '99'
  61. @  9,34 GET mrecvd PICTURE '99'
  62. @ 10,32 SAY VAL(mopen:inv)-VAL(mback:ord) - VAL(mwait:ship) + VAL(mrecvd)
  63. @ 10,70 SAY mchange1
  64. @ 11,53 SAY daych1
  65. @ 11,60 SAY ship
  66. @ 12,34 GET mnorm:stk PICTURE '99'
  67. @ 13,34 GET morder PICTURE '99'
  68. @ 13,70 SAY mchange2
  69. @ 14,34 GET mpend PICTURE '99'
  70. @ 14,53 SAY daych2
  71. @ 14,70 SAY backship
  72. @ 16,31 SAY VAL(mopen:inv) -VAL(mback:ord) - VAL(mwait:ship) + VAL(mrecvd)+ VAL(mpend)
  73. @  7,46 GET mline1
  74. @  8,46 GET mline2
  75. @ 17,59 GET mdayu picture '99/99/99'
  76. READ
  77. REPLACE disk WITH VAL(mdisk)
  78. REPLACE open:inv WITH VAL(mopen:inv), back:ord WITH VAL(mback:ord)
  79. REPLACE wait:ship WITH VAL(mwait:ship), recvd WITH VAL(mrecvd)
  80. REPLACE norm:stk WITH VAL(mnorm:stk)
  81. REPLACE order WITH VAL(morder), pend WITH VAL(mpend)
  82. REPLACE line1 WITH mline1, line2 WITH mline2
  83. STORE 'Y' TO command
  84. @ 20,00
  85. @ 21,00
  86. @ 22,00
  87. @ 21,12 SAY 'Do You wish to UpDate to Todays Date (Y/N) ?'
  88. @ 21,57 GET command PICTURE '!'
  89. READ
  90. IF command = 'Y'
  91.     REPLACE dayu WITH  DATE()
  92. ELSE
  93.     REPLACE dayu WITH mdayu
  94. ENDIF command = Y
  95. GOTO rec:number
  96. RELEASE ALL
  97. STORE '?' TO command
  98. STORE t TO more
  99. STORE t TO first
  100.