161 lines
3.2 KiB
Plaintext
161 lines
3.2 KiB
Plaintext
COMPILE FUNCTION Coverage(EntID,Event,Parm1,Parm2,Parm3,Parm4,Parm5)
|
|
|
|
/*
|
|
Commuter module for Coverage (COVERAGE) dialog window
|
|
|
|
10/15/2009 - John C. Henry, J.C. Henry & Co., Inc.
|
|
*/
|
|
|
|
DECLARE SUBROUTINE Set_Property, End_Dialog, Send_Event, Set_Status, Center_Window, Post_Event
|
|
DECLARE SUBROUTINE ErrMsg, Send_Message, Set_Property, Send_Event, Btree.Extract, obj_AppWindow,
|
|
DECLARE SUBROUTINE obj_Notes, Security_Err_Msg, End_Window, Forward_Event, Start_Window, Create_Note
|
|
|
|
DECLARE FUNCTION Get_Property, Get_Status, Dialog_Box, Utility, Popup, Collect.Ixvals
|
|
DECLARE FUNCTION Send_Message, Msg, Security_Check, obj_React_Run_CI, Create_Dialog
|
|
|
|
$INSERT MSG_EQUATES
|
|
$INSERT APPCOLORS
|
|
|
|
|
|
EQU CRLF$ TO \0D0A\
|
|
EQU TAB$ TO \09\
|
|
|
|
EQU SPECIAL_BLUE$ TO 227 + (253*256) + (248*65536)
|
|
|
|
ErrTitle = 'Error in Coverage commuter module.'
|
|
ErrorMsg = ''
|
|
|
|
Result = ''
|
|
|
|
|
|
BEGIN CASE
|
|
CASE EntID = 'COVERAGE'
|
|
BEGIN CASE
|
|
|
|
CASE Event = 'CREATE' ; GOSUB Create
|
|
CASE Event = 'TIMER' ; GOSUB Timer
|
|
|
|
END CASE
|
|
|
|
CASE EntID = @WINDOW:'.CHANGE_BUTTON' ; GOSUB Change
|
|
|
|
CASE 1
|
|
ErrorMsg = 'Unknown Parameters ':EntID:' - ':Event:' passed to commuter'
|
|
ErrMsg(ErrorMsg)
|
|
|
|
END CASE
|
|
|
|
IF ErrorMsg NE '' THEN
|
|
ErrMsg(ErrTitle:@SVM:ErrorMsg)
|
|
END
|
|
|
|
RETURN Result
|
|
|
|
|
|
|
|
* * * * * * *
|
|
Create:
|
|
* * * * * * *
|
|
|
|
ScreenSize = Get_Property('SYSTEM','SIZE')
|
|
DialogSize = Get_Property(@WINDOW,'SIZE')
|
|
|
|
wScreen = ScreenSize<3>
|
|
hScreen = ScreenSize<4>
|
|
|
|
xDialog = DialogSize<1>
|
|
yDialog = DialogSize<2>
|
|
wDialog = DialogSize<3>
|
|
hDialog = DialogSize<4>
|
|
|
|
DialogSize<1> = INT((wScreen - wDialog)/2)
|
|
DialogSize<2> = 50
|
|
|
|
Set_Property(@WINDOW,'SIZE',DialogSize)
|
|
|
|
*obj_Appwindow('Create','COVERAGE')
|
|
|
|
Set_Property('COVERAGE','TIMER',10000:@FM:100) ;* Initialize 10 second timer
|
|
|
|
|
|
RETURN
|
|
|
|
* * * * * *
|
|
Timer:
|
|
* * * * * *
|
|
|
|
|
|
Parms = XLATE('CONFIG','COVERAGE','','X')
|
|
|
|
|
|
Cleans = Parms[1,@FM]
|
|
Surfscan = Parms[COL2()+1,@FM]
|
|
Package = Parms[COL2()+1,@FM]
|
|
TWs = Parms[COL2()+1,@FM]
|
|
Chemicals = Parms[COL2()+1,@FM]
|
|
Product = Parms[COL2()+1,@FM]
|
|
|
|
|
|
WindowBackColor = Get_Property('COVERAGE','BACKCOLOR')
|
|
|
|
IF Cleans = 1 THEN
|
|
Set_Property('COVERAGE':'.CLEANS','BACKCOLOR',YELLOW$)
|
|
END ELSE
|
|
Set_Property('COVERAGE':'.CLEANS','BACKCOLOR',WindowBackColor)
|
|
END
|
|
|
|
IF Surfscan = 1 THEN
|
|
Set_Property('COVERAGE':'.SURFSCAN','BACKCOLOR',YELLOW$)
|
|
END ELSE
|
|
Set_Property('COVERAGE':'.SURFSCAN','BACKCOLOR',WindowBackColor)
|
|
END
|
|
|
|
IF Package = 1 THEN
|
|
Set_Property('COVERAGE':'.PACKAGE','BACKCOLOR',YELLOW$)
|
|
END ELSE
|
|
Set_Property('COVERAGE':'.PACKAGE','BACKCOLOR',WindowBackColor)
|
|
END
|
|
|
|
IF TWs = 1 THEN
|
|
Set_Property('COVERAGE':'.TWS','BACKCOLOR',YELLOW$)
|
|
END ELSE
|
|
Set_Property('COVERAGE':'.TWS','BACKCOLOR',WindowBackColor)
|
|
END
|
|
|
|
IF Chemicals = 1 THEN
|
|
Set_Property('COVERAGE':'.CHEMICALS','BACKCOLOR',YELLOW$)
|
|
END ELSE
|
|
Set_Property('COVERAGE':'.CHEMICALS','BACKCOLOR',WindowBackColor)
|
|
END
|
|
|
|
IF Product = 1 THEN
|
|
Set_Property('COVERAGE':'.PRODUCT','BACKCOLOR',YELLOW$)
|
|
END ELSE
|
|
Set_Property('COVERAGE':'.PRODUCT','BACKCOLOR',WindowBackColor)
|
|
END
|
|
|
|
RETURN
|
|
|
|
|
|
* * * * * * *
|
|
Change:
|
|
* * * * * * *
|
|
|
|
|
|
|
|
void = Create_Dialog('STATUS_BOARD',@WINDOW,1)
|
|
|
|
RETURN
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|