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

  1. * main.inv 08/18/83
  2. STORE CHR(PEEK(063))TO dr
  3. USE &dr.:stock
  4. STORE t TO more
  5. STORE t TO first
  6. * set up forever loop for this data base
  7. DO WHILE t
  8.     IF first
  9.         * set up screen and prompts
  10.         ERASE
  11.         STORE '<F>orward, <B>ackward, <A>dd, <E>dit' TO prompt1
  12.         STORE '<S>earch, <M>aintenance, <P>rint, <R>eports' TO prompt2
  13.         STORE '<Q>uit to main menu' TO prompt3
  14.         STORE 'Main Inventory Module ' TO mode
  15.         @  1,25 SAY mode
  16.         @  2, 0 SAY "+--------------------------------------"
  17.         @  2,39 SAY "----------------------------------------+"
  18.         @  3,26 SAY "SIG/M VOLUME"
  19.         @  5,14 SAY "Opening Inventory               Description of Volume"
  20.         @  7,19 SAY "Back Ordered"
  21.         @  8,15 SAY "Waiting Shipment"
  22.         @  9,14 SAY "Quantity Received"
  23.         @ 10,14 SAY "Closing Inventory              Change  in  Inventory: "
  24.         @ 11,46 SAY "Date:             No: "
  25.         @ 12,19 SAY "Normal Stock"
  26.         @ 13,14 SAY "Quantity to Order              Change in  Backorders: "
  27.         @ 14,15 SAY "Quantity Ordered               Date:             No: "
  28.         @ 16,10 SAY "Anticipated Inventory"
  29.         @ 17,51 SAY "Update"
  30.         @ 19, 0 SAY "+--------------------------------------"
  31.         @ 19,39 SAY "----------------------------------------+"
  32.         @ 20,12 SAY prompt1
  33.         @ 21,12 SAY prompt2
  34.         @ 22,12 SAY prompt3
  35.     ENDIF first
  36.     STORE f TO first
  37.     STORE '?' TO command
  38.     IF change1 = t
  39.         STORE 'Yes' TO mchange1
  40.     ELSE
  41.         STORE ' No' TO mchange1
  42.     ENDIF change1
  43.     IF change2 = t
  44.         STORE 'Yes' TO mchange2
  45.     ELSE
  46.         STORE ' No' TO mchange2
  47.     ENDIF change2
  48.     @  3,39 SAY disk
  49.     @  5,34 SAY open:inv
  50.     @  7,34 SAY back:ord
  51.     @  7,46 SAY line1
  52.     @  8,34 SAY wait:ship
  53.     @  8,46 SAY line2
  54.     @  9,34 SAY recvd
  55.     @ 10,70 SAY mchange1
  56.     @ 10,34 SAY STR(open:inv-back:ord-wait:ship+recvd,3,0)
  57.     @ 11,53 SAY daych1
  58.     @ 11,70 SAY ship
  59.     @ 12,34 SAY norm:stk
  60.     @ 13,34 SAY order
  61.     @ 13,70 SAY mchange2
  62.     @ 14,34 SAY pend
  63.     @ 14,53 SAY daych2
  64.     @ 14,70 SAY backship
  65.     @ 16,34 SAY STR(open:inv -back:ord -wait:ship + recvd + pend,3,0)
  66.     @ 17,59 SAY dayu
  67.     @ 22,56 SAY 'WHAT NEXT?'
  68.     @ 22,70 GET command PICTURE '!'
  69.     READ
  70.     DO CASE
  71.         CASE command = 'A'
  72.             DO add.inv
  73.         CASE (command = 'B' .OR. command = ',')
  74.             * move backwards one record
  75.             SKIP -1
  76.         CASE command = 'E'
  77.             DO edit.inv
  78.         CASE (command = 'F' .OR. command = '.')
  79.             * move forward one record
  80.             SKIP
  81.         CASE command = 'M'
  82.             DO maintain.inv
  83.         CASE command = 'P'
  84.             DO print.inv
  85.         CASE command = 'Q'
  86.             RELEASE ALL
  87.             DO menu.sig
  88.         CASE command = 'R'
  89.             DO report.inv
  90.         CASE command = 'S'
  91.             DO search.inv
  92.     ENDCASE
  93.     * loop back again
  94.  
  95. ENDDO while t