84 lines
1.5 KiB
Plaintext
84 lines
1.5 KiB
Plaintext
COMPILE ROUTINE FIX_SLIST(Dummy)
|
|
ROWDEF(CHARSTR)
|
|
|
|
DECLARE SUBROUTINE obj_Schedule,Send_Dyn,Send_Info
|
|
DECLARE FUNCTION Get_Status, Set_Printer
|
|
|
|
$INSERT OIPRINT_EQUATES
|
|
|
|
EQU PI$LEFT TO 1
|
|
EQU PI$TOP TO 2
|
|
EQU PI$RIGHT TO 3
|
|
EQU PI$BOTTOM TO 4
|
|
EQU PI$WIDTH TO 5
|
|
EQU PI$HEIGHT TO 6
|
|
EQU PI$SIZE TO 7
|
|
|
|
DEBUG
|
|
|
|
$INSERT rpt_cfg_equ
|
|
|
|
|
|
ConfigKeys = "INVOICE001_SRPTCFG":@FM
|
|
ConfigKeys := "INVOICE002_SRPTCFG":@FM
|
|
|
|
ConfigKeys := "INVOICE004_SRPTCFG":@FM
|
|
ConfigKeys := "INVOICE005_SRPTCFG":@FM
|
|
|
|
ConfigKeys := "AC001_SRPTCFG":@FM
|
|
|
|
ConfigKeys := "ORDER001_SRPTCFG":@FM
|
|
ConfigKeys := "ORDER002_SRPTCFG":@FM
|
|
|
|
ConfigKeys := "WO_LOG001_SRPTCFG":@FM
|
|
|
|
ConfigKeys := "COC001_SRPTCFG":@FM
|
|
|
|
ConfigKeys := "REACTOR_LOG002_SRPTCFG":@FM
|
|
ConfigKeys := "CAR001_SRPTCFG":@FM
|
|
|
|
ConfigKeys := "SCHED001_SRPTCFG":@FM
|
|
ConfigKeys := "SCHED002_SRPTCFG":@FM
|
|
ConfigKeys := "SCHED003_SRPTCFG"
|
|
|
|
|
|
OPEN 'CONFIG' TO ConfigTable ELSE
|
|
Send_Dyn('Unable to Open CONFIG Table for updates')
|
|
GOTO BAIL
|
|
END
|
|
|
|
OPEN 'IDIOT' TO FileIn ELSE
|
|
Send_Dyn('Unable to Open IDIOT Table for updates')
|
|
GOTO Bail
|
|
END
|
|
|
|
SELECT FileIn
|
|
debug
|
|
Done = 0
|
|
LOOP
|
|
READNEXT ConfigKey ELSE Done = 1
|
|
UNTIL Done
|
|
|
|
READ GoodConfigRec FROM FileIn,ConfigKey THEN
|
|
|
|
WRITE GoodConfigRec ON ConfigTable,ConfigKey THEN
|
|
Send_Dyn(ConfigKey:' Restored')
|
|
END
|
|
END
|
|
|
|
REPEAT
|
|
|
|
|
|
|
|
IF Get_Status(errCode) THEN DEBUG
|
|
|
|
|
|
* * * * * * *
|
|
Bail:
|
|
* * * * * * *
|
|
|
|
|
|
*stat = Set_Printer("TERM",1)
|
|
|
|
RETURN
|