home *** CD-ROM | disk | FTP | other *** search
/ ftp.update.uu.se / ftp.update.uu.se.2014.03.zip / ftp.update.uu.se / pub / rainbow / msdos / decus / RB123 / pricelst.prg < prev    next >
Text File  |  1995-05-28  |  4KB  |  178 lines
  1. * Program   : PRICELST.PRG
  2. * Version   : V4.2
  3. * Author(s) : Joe Tomas
  4. * Date      : 07/31/86
  5. * Notice    : 
  6. * Called by : REPORTS.PRG
  7. * Call(s)   :
  8. * Notes     : PRINTS DECUS PRICE LIST
  9. *           :
  10. CLEAR
  11. SET INTENSITY ON
  12. STORE '   ' TO LOWER
  13. STORE '   ' TO UPPER
  14. STORE 1 TO COUNT
  15.  
  16. IF .NOT. FILE("OE-OK.MEM")
  17.    @ 10,20   
  18.    SET COLOR TO +I
  19.    ?? VBELL3+' PRODUC.DBF DATA FILE HAS NOT BEEN CREATED '
  20.    SET COLOR TO
  21.    DO WHILE COUNT < 40
  22.       STORE COUNT + 1 TO COUNT
  23.    ENDDO
  24.    CLEAR
  25.    RETURN
  26. ENDIF
  27.  
  28. CALL PAINT WITH "PRICELST.IMG"
  29. USE PRODUC INDEX PRODUC
  30. GOTO TOP
  31. SET COLOR TO
  32.  
  33. DO WHILE LOWER <> 'END' .OR. UPPER <> 'END'
  34.    @ 10,43 SAY '                                           '
  35.    @ 12,43 SAY '                                           '
  36.  
  37.    @ 10,25 SAY 'ENTER LOWER RANGE ' GET LOWER
  38.    @ 12,25 SAY 'ENTER UPPER RANGE ' GET UPPER
  39.    READ
  40.  
  41.    STORE UPPER(LOWER) TO LOWER
  42.    STORE UPPER(UPPER) TO UPPER
  43.    @ 20,24 SAY '                                               '
  44.  
  45.    IF LOWER = 'END' .OR. UPPER = 'END'
  46.       USE
  47.       CLEAR
  48.       RETURN
  49.    ENDIF
  50.  
  51.    IF LOWER <> 'ALL' .AND. UPPER <> 'ALL'
  52.       SEEK LOWER
  53.  
  54.       IF .NOT. FOUND()
  55.          @ 20,24 
  56.          SET COLOR TO +
  57.          ?? VBELL3+'INVALID LOWER RANGE CODE'
  58.          SET COLOR TO
  59.          LOOP
  60.       ENDIF
  61.  
  62.       SEEK UPPER
  63.  
  64.       IF .NOT. FOUND()
  65.          @ 20,24 
  66.          SET COLOR TO +
  67.          ?? VBELL3+'INVALID UPPER RANGE CODE'
  68.          SET COLOR TO
  69.          LOOP
  70.       ENDIF
  71.    ENDIF
  72.  
  73.    IF LOWER = 'ALL' .OR. UPPER = 'ALL'
  74.       GOTO TOP
  75.       STORE PROCOD TO LOWER
  76.       GOTO BOTTOM
  77.       STORE PROCOD TO UPPER
  78.    ENDIF
  79.  
  80.    SET DEVICE TO PRINT
  81.    * ==== SET PRINTER TO 80 COLUMN/ENHANCED PRINT MODE
  82.    @ 01,00 SAY CHR(27)+CHR(91)+CHR(48)+CHR(119)+;
  83.                CHR(27)+CHR(91)+CHR(50)+CHR(34)+CHR(122)
  84.    SET DEVICE TO SCREEN
  85.  
  86.    RESTORE FROM DATES ADDITIVE
  87.    @ 04,00 CLEAR
  88.    SET COLOR TO +
  89.    @ 10,13 SAY 'PLACE PLAIN PAPER IN PRINTER...PRESS ANY KEY TO START '
  90.    SET COLOR TO
  91.  
  92.    DO WHILE INKEY() = 0
  93.       SET COLOR TO +
  94.       @ 10,50 SAY 'ANY KEY'
  95.       SET COLOR TO
  96.       @ 10,50 SAY 'ANY KEY'
  97.    ENDDO
  98.    @ 10,00
  99.    SET COLOR TO +*I
  100.    @ 10,19 SAY ' PRINTING PRICE LIST...DO NOT INTERRUPT '
  101.    SET COLOR TO
  102.    STORE 10 TO LINE
  103.    STORE .T. TO PAGETOP
  104.  
  105.    GOTO TOP
  106.    SET CONSOLE OFF
  107.    STORE 10 TO LINE
  108.    STORE .T. TO PAGETOP
  109.    SEEK LOWER
  110.  
  111.    DO WHILE .NOT. EOF()
  112.      SET DEVICE TO PRINT
  113.      IF PAGETOP
  114.        @ 02,010 SAY CHR(27)+'[5w'+'             DECUS          '
  115.        @ 04,010 SAY      'SPG BOOKSTORE PRICE LIST'
  116.        @ 05,000 SAY CHR(27)+CHR(91)+CHR(48)+CHR(119)+;
  117.                     CHR(27)+CHR(91)+CHR(50)+CHR(34)+CHR(122)
  118.        @ 06,000 SAY REPLICATE("-",80)
  119.        @ 07,005 SAY 'DECUS'
  120.        @ 07,065 SAY 'SHOW'
  121.        @ 07,074 SAY 'LIST'
  122.        @ 08,005 SAY 'CODE'
  123.        @ 08,012 SAY 'DEC PART #'
  124.        @ 08,035 SAY 'ITEM DESCRIPTION'
  125.        @ 08,065 SAY 'PRICE'
  126.        @ 08,074 SAY 'PRICE'
  127.        @ 09,000 SAY REPLICATE("=",80)
  128.      ENDIF
  129.  
  130.      STORE .F. TO PAGETOP
  131.      IF PROCOD >= LOWER .AND. PROCOD <= UPPER
  132.         IF NEW = 'NEW'
  133.            @ LINE,001 SAY NEW
  134.         ENDIF
  135.         @ LINE,006 SAY PROCOD
  136.         @ LINE,012 SAY PARTNO
  137.         @ LINE,026 SAY DESCRI
  138.         @ LINE,063 SAY PRICE
  139.         @ LINE,072 SAY MLP
  140.         STORE LINE+1 TO LINE
  141.         SKIP 1
  142.  
  143.         DO WHILE EOF() .OR. PROCOD > UPPER
  144.            @ 60,19  SAY CHR(27)+'[2w'+;
  145.                  'BOOKSTORE PRICES ARE VALID ONLY FROM '+SDATE+' TO '+EDATE
  146.            @ 61,01 SAY ' '
  147.            @ 62,36 SAY 'PRICES MAY BE SUBJECT TO CHANGE'
  148.            @ 63,27 SAY 'MAKE YOUR PURCHASES EARLY - QUANTITIES ARE LIMITED'+;
  149.                         CHR(27)+'[1w'
  150.            USE
  151.            SET CONSOLE ON
  152.            * SET PRINTER TO NORMAL 80 COL MODE
  153.            ?? CHR(27)+CHR(91)+CHR(49)+CHR(34)+CHR(122)+CHR(27)+'[1w'
  154.            SET DEVICE TO SCREEN
  155.            CLEAR
  156.            RETURN
  157.         ENDDO
  158.  
  159.         IF LINE > 57
  160.            STORE 10 TO LINE
  161.            @ 60,19  SAY CHR(27)+'[2w'+;
  162.                  'BOOKSTORE PRICES ARE VALID ONLY FROM '+SDATE+' TO '+EDATE
  163.            @ 61,01 SAY ' '
  164.            @ 62,36 SAY 'PRICES MAY BE SUBJECT TO CHANGE'
  165.            @ 64,27 SAY 'MAKE YOUR PURCHASES EARLY - QUANTITIES ARE LIMITED'+;
  166.                         CHR(27)+'[1w'
  167.            STORE .T. TO PAGETOP
  168.         ENDIF
  169.  
  170.      ENDIF
  171.    ENDDO
  172. ENDDO
  173. EJECT
  174. SET DEVICE TO SCREEN
  175. SET CONSOLE ON
  176. CLEAR
  177. RETURN
  178.