INPUT INVENTORY
PRINTER LP1
TITLE MTI     I N V E N T O R Y   V A L U A T I O N    R E P O R T  $MTIVAL
TITLE =========================================================================_
===================================================================
SELECTING IF VENDOR EQ '1355 '
SORT ON PROD.CLASS;ITEM
REPORT
INDENT 5
SPACES 1
USING INV.TO.INVWHSE;INVWHSE.TO.MAST
DEFINE DOLLAR.DIFF = PRICE.01-AVG.COST;9.2
DEFINE MARKUP = (DOLLAR.DIFF*100)/AVG.COST;9.2;MARK UP %
DEFINE PROFIT = (DOLLAR.DIFF*100)/PRICE.01;9.2;PROFIT^MARGIN %
DEFINE MESSAGE = "LIST VALUE";10
DEFINE LISTVAL = (PRICE.01*ON.HAND)/SALES.QUANTITY;9.2;LIST^VALUE
DEFINE AVGVAL = (AVG.COST*ON.HAND)/SALES.QUANTITY;9.2;COST^VALUE
SELECTING IF ON.HAND NE 0 AND WAREHOUSE GT 'AA'
PRINT ITEM;DESCRIPTION;PRICE.01;UNIT;ON.HAND;ON.ORDER;LISTVAL!!;AVGVAL
BREAK ON PROD.CLASS
TOTAL LISTVAL!!!!;AVGVAL;MESSAGE,P
END