ftp.barnyard.co.uk/2015.02.ftp.barnyard.co.uk.tar/ftp.barnyard.co.uk/cpm/walnut-creek-CDROM/MBUG/MBUG102.ARC/STOCKIN.CMD

OS/2 REXX Batch file | 1979-12-31 | 2KB | 56 lines

*STOCKIN.PRG
*STOCK INWARDS PROGRAM, TO ENTER STOCK RECIEVED
RELEASE ALL
ERASE
SET TALK OFF
USE PRICELIS INDEX PRICECOD
STORE '         ' TO CODEA
DO WHILE CODEA<>'0'
STORE '         ' TO CODEA
@ 2,0 SAY ' CODE OF STOCK RECEIVED' GET CODEA PICT '!!!!!!!!!'
@ 3,0 SAY ' INSERT CODE OF (0) ZERO TO EXIT'
READ
IF CODEA='0'
RETURN
ENDIF
FIND &CODEA
IF #=0
? 'PRODUCT NOT FOUND , TRY AGAIN OR ENTER  AS A NEW PRODUCT LATER'
? 'PRESS ANY KEY TO CONTINUE'
WAIT
ERASE
LOOP
ENDIF
STORE COST TO COSTA
STORE LAND:COST TO LAND:COSTA
STORE 0 TO STOCKEDA
STORE ITEM TO ITEMA
STORE STOCKED TO STOCK
@ 6,0 SAY 'PRESS RETURN IF NO CHANGE'
@ 7,0 SAY 'AMOUNT IN STOCK AT PRESENT  '
@ 7,30 SAY STOCK
@ 8,0 SAY 'PRODUCT                     '
@ 8,30 SAY ITEMA
@ 9,0 SAY 'NEW LANDED COST           ' GET LAND:COSTA
@ 10,0 SAY 'NEW MINIMUM SALE PRICE    ' GET COSTA
@ 11,0 SAY 'QUANTITY RECEIVED         ' GET STOCKEDA
READ
REPLACE LAND:COST WITH LAND:COSTA,STOCKED WITH STOCKED+STOCKEDA,;
COST WITH COSTA
REPLACE DATE WITH DATE()
LOOP
ENDDOO WHILE T
ERASE
STORE 35 TO CENTRE
STORE 10 TO COLUMN1
STORE 30 TO COLUMN2
@ 1,00 SAY'*****************************************************************'
@ 4,CENTRE SAY'REPORT MENU '
@ 7,COLUMN1 SAY'DEBTORS: '
@ 7,COLUMN2 SAY'1. AGED TRIAL BALANCE '
@ 8,COLUMN2 SAY'2. CUSTOMER LIST '
@ 9,COLUMN2 SAY'3. CUSTOMER MAILING LABELS'
@ 10,COLUMN2 SAY'4. OVERDUE LETTER'
@ 12,COLUMN1 SAY'SALES REPORTS'
@ 12,COLUMN2 SAY'5. SALES TAX REPORT'
@ 13,COLUMN2 SAY'6. TRADING