* Program   : DISC.PRG
* Version   : V4.2
* Author(s) : Joe Tomas 
* Date      : 08/28/86
* Notice    : 
* Called by : FMAINT.PRG
* Call(s)   :   
* Notes     : ENTERS DISCOUNT PERGENTAGES INTO PRODUCT FILE
*           : FOR SINGLE ITEM OR PRODUCT RANGE
*
CLEAR
SET INTENSITY ON
SET CONFIRM ON
STORE 00.00 TO DISCOUNT  
STORE '   ' TO LOWER
STORE '   ' TO UPPER
SET COLOR TO I
@ 01,00 
?? VWIDE+SPACE(40)
SET COLOR TO I+
@ 02,00 
?? VWIDE+'   *** ENTER DISCOUNT PERCENTAGES ***   '
SET COLOR TO I
@ 03,00 
?? VWIDE+SPACE(40)
SET COLOR TO
 
* CHECK FOR "OE-OK.MEM" FILE ... IF IT EXISTS, THE PRODUC.DBF FILE
* IS THE SAME AS THE MASTER.DBF FILE & ALL IS OK.  THIS FILE IS
* CREATED FROM "MAKEPROD.PRG", CALLED FROM "FMAINT.PRG"

IF .NOT. FILE("OE-OK.MEM")
   @ 08,00 
   ?? VBELL3
   SET COLOR TO +
   @ 08,08 
   ?? VWIDE+' *** ATTENTION *** '
   SET COLOR T0
   @ 10,00
   TEXT
                 THE PRODUC.DBF FILE IS EITHER INVALID
                 OR DIFFERENT THAN THE MASTER FILE.
                 CREATE A NEW PRODUC.DBF FILE FROM THE
                 FILE MAINTENANCE MENU BEFORE PROCEEDING.
   ENDTEXT
  
   ?? VBELL1
   @ 23,30 SAY 'PRESS ANY KEY TO CONTINUE'

   DO WHILE INKEY() = 0
      SET COLOR TO +
      @ 23,36 SAY 'ANY KEY'
      SET COLOR TO
      @ 23,36 SAY 'ANY KEY'
   ENDDO

   CLEAR
   RETURN
ENDIF NO FILE OE-OK.MEM

USE PRODUC INDEX PRODUC
GOTO TOP

DO WHILE LOWER <> 'END' .OR. UPPER <> 'END'

   @ 05,11 SAY 'Enter the LOWER and UPPER range of product codes and the'
   @ 06,11 SAY 'discount percentage to apply to that range.  For a single'
   @ 07,11 SAY 'line item change, use the same product code for BOTH the'
   @ 08,11 SAY 'LOWER and UPPER range.'
   SET COLOR TO I+
   SET INTENSITY ON
   @ 23,27 SAY ' ENTER <END> TO EXIT '
   SET COLOR TO
   @ 10,43 
   @ 12,43 
   @ 14,43 
   @ 10,25 SAY 'ENTER LOWER RANGE.......... ' GET LOWER PICTURE '!!!'
   @ 12,25 SAY 'ENTER UPPER RANGE.......... ' GET UPPER PICTURE '!!!'
   @ 14,25 SAY 'ENTER DISCOUNT % .......... ' GET DISCOUNT PICTURE '999.99'
   READ
   @ 20,24

   IF LOWER = 'END' .OR. UPPER = 'END'
      USE
      CLEAR
      RETURN
   ENDIF

   SEEK LOWER

   IF .NOT. FOUND()
      @ 20,24
      SET COLOR TO +
      ?? VBELL3+'INVALID LOWER RANGE CODE'
      SET COLOR TO
      LOOP
   ENDIF

   SEEK UPPER

   IF .NOT. FOUND()
      @ 20,24
      SET COLOR TO +
      ?? VBELL3+'INVALID UPPER RANGE CODE'
      SET COLOR TO
      LOOP
   ENDIF

   IF LOWER > UPPER
      @ 20,24
      SET COLOR TO +
      ?? VBELL3+'LOWER RANGE GREATER THAN UPPER'
      SET COLOR TO
      LOOP
   ENDIF

   IF DISCOUNT > 100 .OR. DISCOUNT < 0
      @ 20,24
      SET COLOR TO +
      ?? VBELL3+'INVALID DISCOUNT PERCENTAGE'
      SET COLOR TO
      LOOP
   ENDIF

   STORE DISCOUNT/100 TO DISCOUNT

   @ 20,24
   SET COLOR TO I+*
   @ 20,30 SAY ' WORKING....PLEASE WAIT '
   SET COLOR TO

   SEEK LOWER

   DO WHILE PROCOD <= UPPER .AND. (.NOT. EOF())
      REPLACE DISC WITH (1.00-DISCOUNT),PRICE WITH (MLP*(1.00-DISCOUNT))
      SKIP 1
   ENDDO

   STORE PROCOD TO CODE
   @ 12,43 SAY SPACE(27)
   @ 14,43 SAY SPACE(27)
   @ 16,43 SAY SPACE(22)
   @ 20,30 SAY SPACE(41)
   STORE '   ' TO LOWER
   STORE '   ' TO UPPER
   STORE 000.00 TO DISCOUNT
ENDDO