* add.inv 08/18/83
***********************************************************************
* THIS MODULE ADDS RECORDS TO THE INVENTORY FILE
* SINCE THE DATA BASE FOR THE .INV FILES IN NOT
* INDEXED IT DOES NOT CONTAIN AN INDEX MODULE.
* IN ADDITION, BECAUSE THE FILE IS IMMEDIATELY
* AVAILABLE FOR EDITING WITHOUT HAVING TO WAIT
* FOR THE INDEXING, IT IS NOT NECESSARY TO ADD AN
* OPTION ALLOWING THE USER TO HAVE A SECOND TRY AT
* CORRECTING DATA.
***********************************************************************
ERASE
STORE t TO first
STORE t TO more
DO WHILE more
    IF first
        STORE 'Add Volumes Module' TO mode
        STORE 'Enter as many new volumes as needed.' TO prompt1
        STORE 'When done, enter blank for volume number' TO prompt2
        STORE "Or Control 'Q' to end session" TO prompt3
        @  1,25 SAY mode
        @  2, 0 SAY "+---------------------------------------"
        @  2,39 SAY "---------------------------------------+"
        @  3,26 SAY "SIG/M VOLUME"
        @  5,14 SAY "Opening Inventory               Description of Volume"
        @  7,19 SAY "Back Ordered"
        @  8,15 SAY "Waiting Shipment"
        @  9,14 SAY "Quantity Received"
        @ 10,14 SAY "Closing Inventory"
        @ 12,19 SAY "Normal Stock"
        @ 13,14 SAY "Quantity to Order"
        @ 14,15 SAY "Quantity Ordered"
        @ 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
ENDIF first
STORE f TO first
STORE '   ' TO mdisk
STORE '  ' TO mopen:inv
STORE '  ' TO mback:ord
STORE '  ' TO mwait:ship
STORE '  ' TO mrecvd
STORE '  ' TO mnorm:stk
STORE '  ' TO morder
STORE '  ' TO mpend
STORE '                              ' TO mline1
STORE '                              ' TO mline2
STORE DATE() to mdayu
@  3,39 GET mdisk picture '999'
@  7,46 GET mline1
@  8,46 GET mline2
@  5,34 GET mopen:inv PICTURE '99'
@  7,34 GET mback:ord PICTURE '99'
@  8,34 GET mwait:ship PICTURE '99'
@  9,34 GET mrecvd PICTURE '99'
@ 12,34 GET mnorm:stk PICTURE '99'
@ 13,34 GET morder PICTURE '99'
@ 14,34 GET mpend PICTURE '99'
@ 17,59 GET mdayu picture '99/99/99'
READ
CLEAR GETS
IF mdisk <> ' '
    APPEND BLANK
    REPLACE disk WITH VAL(mdisk)
    REPLACE open:inv WITH VAL(mopen:inv), back:ord WITH VAL(mback:ord)
    REPLACE wait:ship WITH VAL(mwait:ship), recvd WITH VAL(mrecvd)
    REPLACE norm:stk WITH VAL(mnorm:stk)
    REPLACE order WITH VAL(morder), pend WITH VAL(mpend)
    REPLACE line1 WITH mline1, line2 WITH mline2, dayu WITH mdayu
    STORE t TO more
ELSE
    STORE f TO more
ENDIF there is an empty record
ENDDO while more
RELEASE ALL
STORE t TO first