home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
database
/
workdb.zip
/
ADD.INV
next >
Wrap
Text File
|
1983-01-04
|
3KB
|
82 lines
* 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