* Program   : SETPARMS.PRG 
* Version   : V4.2
* Author(s) : Joe Tomas 
* Date      : 08/18/86
* Notice    : 
* Called by : SYSMGR1.PRG 
* Call(s)   :   
* Notes     : ESTABLISHES SYSTEM PARAMETERS FOR TRANSACTION #,SALES TAX 
*           : PASSWORD AND VALID DECUS DATE RANGE 
RESTORE FROM TRANSNUM ADDITIVE
RESTORE FROM TAXPCT   ADDITIVE
RESTORE FROM PSWD     ADDITIVE
RESTORE FROM DATES    ADDITIVE
RESTORE FROM MESSAGES ADDITIVE

DO WHILE .T.
   CLEAR
   call paint with "setparms.img"
   STORE '  ' TO MENU
   SET COLOR TO
   @ 19,40 GET MENU PICTURE "!!"
   READ
   CLEAR GETS

   DO CASE

      CASE MENU = '1'
         CLEAR
         CALL PAINT WITH "SETPARM1.IMG"
         SET COLOR TO +
         @ 10,52 SAY STR(TRANSNUM,4)
         SET COLOR TO
         @ 12,25 SAY 'ENTER NEW TRANSACTION #  :' GET TRANSNUM PICTURE '9999'
         READ
         SAVE TO TRANSNUM ALL LIKE TRANSNUM

      CASE MENU = '2'
         CLEAR
         CALL PAINT WITH "SETPARM2.IMG"
         SET COLOR TO +
         @ 10,51 SAY STR(TAXPCT,6,3)
         SET COLOR TO
         @ 12,25 SAY 'ENTER NEW SALES TAX %  : ' GET TAXPCT PICTURE '99.999'
         READ
         SAVE TO TAXPCT ALL LIKE TAXPCT

      CASE MENU = '3'
         CLEAR
         CALL PAINT WITH "SETPARM3.IMG"
         STORE '        ' TO NEWPSWD
         SET COLOR TO
         IF PSWD = ' '
            STORE '<NOT ASSIGNED>' TO PSWD
         ENDIF
         SET COLOR TO +
         @ 10,50 SAY PSWD
         SET COLOR TO
         @ 12,21 SAY 'ENTER NEW SYSTEM PASSWORD  : ' GET NEWPSWD
         READ
         STORE TRIM(UPPER(NEWPSWD)) TO PSWD
         SAVE TO PSWD ALL LIKE PSWD

      CASE MENU = '4'
         CLEAR
         CALL PAINT WITH "SETPARM4.IMG"
         SET COLOR TO +
         @ 10,52 SAY SDATE
         @ 11,52 SAY EDATE
         SET COLOR TO
         @ 14,25 SAY 'ENTER NEW STARTING DATE  :' GET SDATE PICTURE '99/99/99'
         @ 16,25 SAY 'ENTER NEW ENDING DATE    :' GET EDATE PICTURE '99/99/99'
         READ
         SAVE TO DATES ALL LIKE ?DATE

      CASE MENU = '5'
         CLEAR
         CALL PAINT WITH "SETPARM5.IMG"
         SET COLOR TO
         STORE SPACE(40) TO NMSG1
         STORE SPACE(40) TO NMSG2
         STORE SPACE(40) TO NMSG3
         STORE ' ' TO ANS
         @ 10,05 SAY 'CURRENT MESSAGE LINE # 1..... ' +MSG1
         @ 11,05 SAY 'CURRENT MESSAGE LINE # 2..... ' +MSG2
         @ 12,05 SAY 'CURRENT MESSAGE LINE # 3..... ' +MSG3
         SET COLO TO +
         @ 15,30 SAY 'EDIT MESSAGES (Y/N) '
         SET COLOR TO
         @ 15,52 GET ANS PICTURE '!'
         READ

         IF ANS = 'Y'
            @ 18,05 SAY 'ENTER NEW MESSAGE LINE # 1... ' GET NMSG1
            @ 19,05 SAY 'ENTER NEW MESSAGE LINE # 2... ' GET NMSG2
            @ 20,05 SAY 'ENTER NEW MESSAGE LINE # 3... ' GET NMSG3
            READ
            STORE NMSG1 TO MSG1
            STORE NMSG2 TO MSG2
            STORE NMSG3 TO MSG3
            SAVE TO MESSAGES ALL LIKE MSG?
         ENDIF

      CASE MENU = 'E'
         CLEAR
         SET INTENSITY ON
         RETURN

      CASE MENU = '?1'
         STORE '41' TO KEY
         DO HELP WITH KEY
      CASE MENU = '?2'
         STORE '42' TO KEY
         DO HELP WITH KEY
      CASE MENU = '?3'
         STORE '43' TO KEY
         DO HELP WITH KEY
      CASE MENU = '?4'
         STORE '44' TO KEY
         DO HELP WITH KEY
      CASE MENU = '?5'
         STORE '45' TO KEY
         DO HELP WITH KEY

   OTHERWISE
      @ 23,00
      ?? VBELL3
      STORE '01' TO KEY
      DO HELP WITH KEY
   ENDCASE

   STORE '  ' TO MENU
ENDDO