Software Du Jour/SoftwareDuJour.iso/BUSINESS/DBASE/DB2IOS.ARC/EDIT.INV

Text File | 1983-01-04 | 2.9 KB | 100 lines

* edit.inv 08/18/83
* edit inventory data
STORE CHR(PEEK (063)) TO dr
STORE # TO rec:number
RECALL
STORE STR(disk,3,0) TO mdisk
STORE STR(open:inv,2,0) TO mopen:inv
STORE STR(back:ord,2,0) TO mback:ord
STORE STR(wait:ship,2,0) TO mwait:ship
STORE STR(recvd,2,0) TO mrecvd
STORE STR(norm:stk,2,0) TO mnorm:stk
STORE STR(order,2,0) TO morder
STORE STR(pend,2,0) TO mpend
STORE line1 TO mline1
STORE line2 TO mline2
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
STORE dayu TO mdayu
ERASE
STORE 'Edit Inventory Module' TO mode
STORE 'Enter the new or corrected information' TO prompt1
STORE ' ' TO prompt2
STORE "Control 'Q' to end edit 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"
@ 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
@  3,39 SAY mdisk picture '999'
@  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'
@ 10,32 SAY VAL(mopen:inv)-VAL(mback:ord) - VAL(mwait:ship) + VAL(mrecvd)
@ 10,70 SAY mchange1
@ 11,53 SAY daych1
@ 11,60 SAY ship
@ 12,34 GET mnorm:stk PICTURE '99'
@ 13,34 GET morder PICTURE '99'
@ 13,70 SAY mchange2
@ 14,34 GET mpend PICTURE '99'
@ 14,53 SAY daych2
@ 14,70 SAY backship
@ 16,31 SAY VAL(mopen:inv) -VAL(mback:ord) - VAL(mwait:ship) + VAL(mrecvd)+ VAL(mpend)
@  7,46 GET mline1
@  8,46 GET mline2
@ 17,59 GET mdayu picture '99/99/99'
READ
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
STORE 'Y' TO command
@ 20,00
@ 21,00
@ 22,00
@ 21,12 SAY 'Do You wish to UpDate to Todays Date (Y/N) ?'
@ 21,57 GET command PICTURE '!'
READ
IF command = 'Y'
    REPLACE dayu WITH  DATE()
ELSE
    REPLACE dayu WITH mdayu
ENDIF command = Y
GOTO rec:number
RELEASE ALL
STORE '?' TO command
STORE t TO more
STORE t TO first