home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
database
/
workdb.zip
/
REQUIRE.PRG
< prev
next >
Wrap
Text File
|
1983-01-04
|
1KB
|
47 lines
* require.inv 08/18/83
* inventory requirements report
GOTO TOP
STORE 0 TO pageno
STORE 0 TO need
STORE T to MORE
SET MARGIN TO 5
DO WHILE more
STORE pageno + 1 TO pageno
STORE 7 TO lineno
ERASE
EJECT
? ' '
? '========================= SIG/M DISK REQUIREMENTS =================='
? ' '
? ' ' + date() + ' PAGE: ' + str(pageno,3)
? ' '
? 'VOLUME ADJUSTED INCLUDED NORMAL SHOULD'
? 'NUMBER INVENTORY BACKORDERS STOCK ORDER'
? ' '
DO WHILE lineno <55
IF .NOT. EOF
STORE norm:stk-(open:inv-back:ord-wait:ship+recvd) TO need1
IF need1 >0
store need1 + need TO need
ELSE
store 0 TO need1
ENDIF
? ' '+ STR(disk,3,0) + ' ';
+ str(open:inv-back:ord-wait:ship+recvd,3,0) + ' ';
+ STR(back:ord,3,0) + ' ' + STR(norm:stk,3,0);
+ ' ' + STR(need1,3,0)
ELSE
STORE f TO more
ENDIF not .EOF.
STORE lineno + 1 to lineno
skip
ENDDO while lineno > 55
ENDDO more
? ' '
? ' '
? ' TOTAL NUMBER OF DISKS REQUIRED IS ' + str(need,3,0)
EJECT
SET PRINT OFF
RELEASE ALL
STORE t TO more