home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / disk_20.zip / NUDBMSX.ZIP / VALUES.PRG < prev   
Text File  |  1987-01-27  |  1KB  |  52 lines
  1. *****  Program:  VALUES.PRG  *****
  2. SET TALK OFF
  3. SET ECHO OFF
  4. DO WHILE .T.
  5.    CLEAR
  6.    ?
  7.    ?SPACE(32)+"VALUE of Stock Items"
  8.    ?
  9.    ?
  10.    ?SPACE(10)+" Stock No.      Model     Quantity   Unit Cost   Total Value"
  11.    ?SPACE(10)+"-----------  -----------  --------   ---------   -----------"
  12.    SELE 1
  13.    USE STOCKS
  14.    SELE 2
  15.    USE COSTS
  16.    TOTALUNITS = 0
  17.    TOTALVALUE = 0
  18.    DO WHILE .NOT. EOF()
  19.       SELE 1
  20.       STOCKNO = STOCK_NO
  21.       SELE 2
  22.       LOCA FOR STOCK_NO = STOCKNO
  23.       COST = OUR_COST
  24.       SELE 1
  25.       VALUE = COST * ON_HAND
  26.       ? space(10)+ stock_no+'  '+model_no+'  '+str(On_hand,5,0)
  27.       ??STR(COST,14,2)+ STR(VALUE,13,2)
  28.       TOTALUNITS = TOTALUNITS + ON_HAND
  29.       TOTALVALUE = TOTALVALUE + VALUE
  30.       SKIP
  31.    ENDDO
  32.    ?space(38)+'---'+space(19)+'--------'
  33.    ?space(21)+'Total'+space(10)+str(totalunits,5,0)+space(14)
  34.    ??STR(TOTALVALUE,13,2)
  35.    ?space(38)+'==='+space(19)+'========'
  36.    ?
  37.    ?
  38.    SET PRINT OFF
  39.    ?"            [P] Print Reports              [Q] Return to main menu"
  40.    WAIT " " to choice
  41.    DO CASE
  42.       CASE upper(choice) = "P"
  43.            SET PRINT ON
  44.            LOOP
  45.       CASE upper(choice) = "Q"
  46.            RETURN
  47.       OTHERWISE
  48.            LOOP
  49.    ENDCASE
  50. ENDDO
  51. RETURN
  52.