54 lines
1.5 KiB
Plaintext
54 lines
1.5 KiB
Plaintext
|
SUBROUTINE SYSTEM.SETUP
|
||
|
|
* PGM THAT INITIALIZES SYSTEM.SETUP FOR THE OPTIONS THAT CUSTOMER
|
||
|
|
* HAS INSTALLED
|
||
|
|
*
|
||
|
|
* M.A.H. - 7.21.86 - MASTER SOFTWARE DESIGN
|
||
|
|
*------------------------------------------------------------------------*
|
||
|
|
*
|
||
|
|
* STANDARD 'GEN-UTILITY' MENU COMMON STATEMENTS
|
||
|
|
*
|
||
|
|
COMMON CUR.MENU,LAST.MENU
|
||
|
|
COMMON GEN.REC(75),GEN.SCREEN,MODKEY,GENKEY,GEN.DETAIL,GEN.KEYS,GEN.DOC
|
||
|
|
COMMON RTCOD,SYSTEM.SETUP
|
||
|
|
*
|
||
|
|
COMPANY.NAME='CLOCK MASTER'
|
||
|
|
MAX.PORT=9999
|
||
|
|
EXP.DATE=9999
|
||
|
|
*
|
||
|
|
SYSTEM.SETUP=''
|
||
|
|
SYSTEM.SETUP<1>='AT' ;* SYSTEM-XT/AT/MINI/MAIN
|
||
|
|
SYSTEM.SETUP<2>='CH' ;* CH-CHURCH/MN-MINISTRY
|
||
|
|
SYSTEM.SETUP<3>='Y' ;* FAMILY YES/NO
|
||
|
|
SYSTEM.SETUP<4>='Y' ;* INVENTORY
|
||
|
|
SYSTEM.SETUP<5>='Y' ;* SUBSCRIPTIONS
|
||
|
|
SYSTEM.SETUP<6>='Y' ;* PLEDGES
|
||
|
|
SYSTEM.SETUP<7>='Y' ;* ORDER ENTRY/INVOICING
|
||
|
|
SYSTEM.SETUP<8>='N' ;* MISSIONS
|
||
|
|
SYSTEM.SETUP<9>='N' ;* CALENDAR
|
||
|
|
SYSTEM.SETUP<11>='Y' ;* ACCOUNTS PAYABLE
|
||
|
|
SYSTEM.SETUP<12>='Y' ;* ACCOUNTS RECEIVABLE
|
||
|
|
SYSTEM.SETUP<13>='Y' ;* GENERAL LEDGER
|
||
|
|
SYSTEM.SETUP<21>='T' ;* PF1 FOR THIS SYSTEM
|
||
|
|
SYSTEM.SETUP<22>='P' ;* PF2
|
||
|
|
SYSTEM.SETUP<23>='/' ;* PF3
|
||
|
|
OPEN 'MD' TO MD ELSE ABORT 201,'MD'
|
||
|
|
READ CO1 FROM MD,'CO1' ELSE CO1=''
|
||
|
|
IF CO1 # COMPANY.NAME THEN GO 9999
|
||
|
|
*EXECUTE "WHERE" CAPTURING HOLD
|
||
|
|
EXECUTE "WHO", //OUT. > HOLD
|
||
|
|
DC=DCOUNT(HOLD,CHAR(254))-1
|
||
|
|
HOLD<DC>=TRIM(HOLD<DC>)
|
||
|
|
LAST=FIELD(HOLD<DC>,' ',1)*1
|
||
|
|
IF LAST > MAX.PORT THEN GO 9999
|
||
|
|
IF EXP.DATE # 9999 THEN
|
||
|
|
IF DATE() > ICONV(EXP.DATE,'D') THEN GO 9999
|
||
|
|
END
|
||
|
|
RETURN
|
||
|
|
*
|
||
|
|
9999 * ABORT - SECURITY FAILED
|
||
|
|
BREAK OFF
|
||
|
|
PRINT CHAR(7)
|
||
|
|
PRINT @(-1):@(10,10):'SECURITY FAILED - PLEASE CONTACT MASTER SOFTWARE DESIGN'
|
||
|
|
RQM ; PRINT CHAR(7) ; RQM
|
||
|
|
CHAIN 'OFF'
|