Shareware Overload/ShartewareOverload.cdr/database/workdb.zip/SEARCH.INV

Text File | 1983-01-04 | 4KB | 113 lines

* search.inv 08/18/83
* inventory search file
STORE t TO first
STORE t TO more
DO WHILE more
    IF first
        ERASE
        STORE 'Search for volumes by <V>olume number' TO prompt1
        STORE '<B>ackward or <F>orward, <E>dit' TO prompt2
        STORE '<P>rint,  or <Q>uit searching' TO prompt3
        STORE  'Inventory Search Module' TO mode
        @  1,25 SAY mode
        @  2, 0 SAY "+--------------------------------------"
        @  2,39 SAY "----------------------------------------+"
        @  3,26 SAY "SIG/M VOLUME"
        @  5,14 SAY "Opening Inventory"
        @  5,46 SAY "Description of Volume"
        @  7,19 SAY "Back Ordered"
        @  8,15 SAY "Waiting Shipment"
        @  9,14 SAY "Quantity Received"
        @ 10,14 SAY "Closing Inventory"
        @ 10,45 SAY "Change in Inventory"
        @ 11,46 SAY "Date"
        @ 11,64 SAY "No "
        @ 12,19 SAY "Normal Stock"
        @ 13,14 SAY "Quantity to Order"
        @ 13,45 SAY "Change in Backorders"
        @ 14,15 SAY "Quantity Ordered"
        @ 14,46 SAY "Date"
        @ 14,64 SAY "No "
        @ 16,10 SAY "Anticipated Inventory"
        @ 17,51 SAY "Update:"
        @ 19, 0 SAY "+--------------------------------------"
        @ 19,39 SAY "----------------------------------------+"
        @ 20,12 SAY prompt1
        @ 21,12 SAY prompt2
        @ 22,12 SAY prompt3
    ENDIF first
    STORE f TO first
    STORE '?' TO command
    STORE 0 TO volume
    IF change1 = t
        STORE 'Yes' TO mchange1
    ELSE
        STORE ' No' TO mchange1
    ENDIF change1
    IF change2 = t
        STORE 'Yes' TO mchange2
    ELSE
        STORE ' No' TO mchange2
    ENDIF change2
    @  3,39 SAY disk
    @  5,34 SAY open:inv
    @  7,34 SAY back:ord
    @  7,46 SAY line1
    @  8,34 SAY wait:ship
    @  8,46 SAY line2
    @  9,34 SAY recvd
    @ 10,34 SAY STR(open:inv-back:ord -wait:ship + recvd,3,0)
    @ 10,70 SAY mchange1
    @ 11,53 SAY daych1
    @ 11,70 SAY ship
    @ 12,34 SAY norm:stk
    @ 13,34 SAY order
    @ 13,70 SAY mchange2
    @ 14,34 SAY pend
    @ 14,53 SAY daych2
    @ 14,70 SAY backship
    @ 16,34 SAY STR(open:inv -back:ord -wait:ship + pend,3,0)
    @ 17,59 SAY dayu
    @ 22,56 SAY 'WHAT NEXT?'
    @ 22,70 GET command PICTURE '!'
    READ
    DO CASE
        CASE (command = 'B' .OR. command = ',')
            SKIP -1
        CASE (command = 'F' .OR. command = '.')
            SKIP
        CASE command = 'E'
            DO edit.inv
        CASE command = 'P'
            DO print.inv
        CASE command = 'V'
            @ 20,00
            @ 21,00
            @ 22,00
            @ 20,12 SAY 'Please enter Volume Number' GET volume
            READ
            LOCATE for volume = disk
            @ 20,00
            IF EOF
                @ 20,00
                @ 20,12 SAY 'That VOLUME is not in the SIG/M library'
                @ 21,12 SAY 'Press RETURN to Continue'
                SET CONSOLE OFF
                WAIT
                SET CONSOLE ON
                GOTO top
                @ 20,00
                @ 21,12 SAY '                                                           '
            ENDIF EOF
            @ 20,12 SAY prompt1
            @ 21,12 SAY prompt2
            @ 22,12 SAY prompt3
        CASE command = 'Q'
            STORE  f  TO more
    ENDCASE
ENDDO while more
RELEASE prompt1, prompt2, prompt3
STORE t TO first
STORE t TO more
STORE '?' TO command