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 / setparms.prg < prev    next >
Text File  |  1995-05-28  |  4KB  |  133 lines
  1. * Program   : SETPARMS.PRG 
  2. * Version   : V4.2
  3. * Author(s) : Joe Tomas 
  4. * Date      : 08/18/86
  5. * Notice    : 
  6. * Called by : SYSMGR1.PRG 
  7. * Call(s)   :   
  8. * Notes     : ESTABLISHES SYSTEM PARAMETERS FOR TRANSACTION #,SALES TAX 
  9. *           : PASSWORD AND VALID DECUS DATE RANGE 
  10. RESTORE FROM TRANSNUM ADDITIVE
  11. RESTORE FROM TAXPCT   ADDITIVE
  12. RESTORE FROM PSWD     ADDITIVE
  13. RESTORE FROM DATES    ADDITIVE
  14. RESTORE FROM MESSAGES ADDITIVE
  15.  
  16. DO WHILE .T.
  17.    CLEAR
  18.    call paint with "setparms.img"
  19.    STORE '  ' TO MENU
  20.    SET COLOR TO
  21.    @ 19,40 GET MENU PICTURE "!!"
  22.    READ
  23.    CLEAR GETS
  24.  
  25.    DO CASE
  26.  
  27.       CASE MENU = '1'
  28.          CLEAR
  29.          CALL PAINT WITH "SETPARM1.IMG"
  30.          SET COLOR TO +
  31.          @ 10,52 SAY STR(TRANSNUM,4)
  32.          SET COLOR TO
  33.          @ 12,25 SAY 'ENTER NEW TRANSACTION #  :' GET TRANSNUM PICTURE '9999'
  34.          READ
  35.          SAVE TO TRANSNUM ALL LIKE TRANSNUM
  36.  
  37.       CASE MENU = '2'
  38.          CLEAR
  39.          CALL PAINT WITH "SETPARM2.IMG"
  40.          SET COLOR TO +
  41.          @ 10,51 SAY STR(TAXPCT,6,3)
  42.          SET COLOR TO
  43.          @ 12,25 SAY 'ENTER NEW SALES TAX %  : ' GET TAXPCT PICTURE '99.999'
  44.          READ
  45.          SAVE TO TAXPCT ALL LIKE TAXPCT
  46.  
  47.       CASE MENU = '3'
  48.          CLEAR
  49.          CALL PAINT WITH "SETPARM3.IMG"
  50.          STORE '        ' TO NEWPSWD
  51.          SET COLOR TO
  52.          IF PSWD = ' '
  53.             STORE '<NOT ASSIGNED>' TO PSWD
  54.          ENDIF
  55.          SET COLOR TO +
  56.          @ 10,50 SAY PSWD
  57.          SET COLOR TO
  58.          @ 12,21 SAY 'ENTER NEW SYSTEM PASSWORD  : ' GET NEWPSWD
  59.          READ
  60.          STORE TRIM(UPPER(NEWPSWD)) TO PSWD
  61.          SAVE TO PSWD ALL LIKE PSWD
  62.  
  63.       CASE MENU = '4'
  64.          CLEAR
  65.          CALL PAINT WITH "SETPARM4.IMG"
  66.          SET COLOR TO +
  67.          @ 10,52 SAY SDATE
  68.          @ 11,52 SAY EDATE
  69.          SET COLOR TO
  70.          @ 14,25 SAY 'ENTER NEW STARTING DATE  :' GET SDATE PICTURE '99/99/99'
  71.          @ 16,25 SAY 'ENTER NEW ENDING DATE    :' GET EDATE PICTURE '99/99/99'
  72.          READ
  73.          SAVE TO DATES ALL LIKE ?DATE
  74.  
  75.       CASE MENU = '5'
  76.          CLEAR
  77.          CALL PAINT WITH "SETPARM5.IMG"
  78.          SET COLOR TO
  79.          STORE SPACE(40) TO NMSG1
  80.          STORE SPACE(40) TO NMSG2
  81.          STORE SPACE(40) TO NMSG3
  82.          STORE ' ' TO ANS
  83.          @ 10,05 SAY 'CURRENT MESSAGE LINE # 1..... ' +MSG1
  84.          @ 11,05 SAY 'CURRENT MESSAGE LINE # 2..... ' +MSG2
  85.          @ 12,05 SAY 'CURRENT MESSAGE LINE # 3..... ' +MSG3
  86.          SET COLO TO +
  87.          @ 15,30 SAY 'EDIT MESSAGES (Y/N) '
  88.          SET COLOR TO
  89.          @ 15,52 GET ANS PICTURE '!'
  90.          READ
  91.  
  92.          IF ANS = 'Y'
  93.             @ 18,05 SAY 'ENTER NEW MESSAGE LINE # 1... ' GET NMSG1
  94.             @ 19,05 SAY 'ENTER NEW MESSAGE LINE # 2... ' GET NMSG2
  95.             @ 20,05 SAY 'ENTER NEW MESSAGE LINE # 3... ' GET NMSG3
  96.             READ
  97.             STORE NMSG1 TO MSG1
  98.             STORE NMSG2 TO MSG2
  99.             STORE NMSG3 TO MSG3
  100.             SAVE TO MESSAGES ALL LIKE MSG?
  101.          ENDIF
  102.  
  103.       CASE MENU = 'E'
  104.          CLEAR
  105.          SET INTENSITY ON
  106.          RETURN
  107.  
  108.       CASE MENU = '?1'
  109.          STORE '41' TO KEY
  110.          DO HELP WITH KEY
  111.       CASE MENU = '?2'
  112.          STORE '42' TO KEY
  113.          DO HELP WITH KEY
  114.       CASE MENU = '?3'
  115.          STORE '43' TO KEY
  116.          DO HELP WITH KEY
  117.       CASE MENU = '?4'
  118.          STORE '44' TO KEY
  119.          DO HELP WITH KEY
  120.       CASE MENU = '?5'
  121.          STORE '45' TO KEY
  122.          DO HELP WITH KEY
  123.  
  124.    OTHERWISE
  125.       @ 23,00
  126.       ?? VBELL3
  127.       STORE '01' TO KEY
  128.       DO HELP WITH KEY
  129.    ENDCASE
  130.  
  131.    STORE '  ' TO MENU
  132. ENDDO
  133.