pre cutover push
This commit is contained in:
Infineon\StieberD
@ -48,12 +48,12 @@ $insert REACTOR_CHILD_KEY_IDS_EQUATES
|
||||
Equ WIDTH$ to 3
|
||||
Equ HEIGHT$ to 4
|
||||
|
||||
Declare function GetCommandLine, MemberOf, obj_Install, obj_Notes_Sent, FindWindow, ShowWindow, Next_Key
|
||||
Declare function Environment_Services, Reactor_Services, Database_Services, obj_Tool, Messaging_Services, SRP_JSON
|
||||
Declare function Notes_Services
|
||||
Declare subroutine Set_Env, obj_Appwindow, Get_BMP_Info, obj_Login, obj_Calib_List, End_Window, Start_Window, Next_Key
|
||||
Declare subroutine Database_Services, obj_React_Status, Obj_React_Mode, obj_Tool_Log, RList, Messaging_Services, RTP27
|
||||
Declare subroutine Notes_Services, Obj_Note_Ptrs, Comm_Note_Ptrs, SRP_Run_Command
|
||||
Declare function GetCommandLine, MemberOf, obj_Install, obj_Notes_Sent, FindWindow, ShowWindow, Next_Key
|
||||
Declare function Environment_Services, Reactor_Services, Database_Services, obj_Tool, Messaging_Services, SRP_JSON
|
||||
Declare function Notes_Services, RTI_Xlate_Controller
|
||||
Declare subroutine Set_Env, obj_Appwindow, Get_BMP_Info, obj_Login, obj_Calib_List, End_Window, Start_Window, Next_Key
|
||||
Declare subroutine Database_Services, obj_React_Status, Obj_React_Mode, obj_Tool_Log, RList, Messaging_Services, RTP27
|
||||
Declare subroutine Notes_Services, Obj_Note_Ptrs, Comm_Note_Ptrs, SRP_Run_Command, PlaceDialog, GetEngineVersion
|
||||
|
||||
SubclassInfo = Form_Services('FindSubclassControl')
|
||||
Subclass = SubclassInfo<1>
|
||||
@ -64,11 +64,11 @@ If Event EQ 'OLE' then
|
||||
Transfer Param1 to Event
|
||||
Transfer Param2 to Param1
|
||||
Transfer Param3 to Param2
|
||||
* Transfer Param4 to Param3
|
||||
* Transfer Param5 to Param4
|
||||
* Transfer Param6 to Param5
|
||||
* Transfer Param7 to Param6
|
||||
* Transfer Param8 to Param7
|
||||
Transfer Param4 to Param3
|
||||
Transfer Param5 to Param4
|
||||
Transfer Param6 to Param5
|
||||
Transfer Param7 to Param6
|
||||
Transfer Param8 to Param7
|
||||
end
|
||||
|
||||
|
||||
@ -83,8 +83,17 @@ Return EventFlow else EVENT_CONTINUE$
|
||||
|
||||
Event WINDOW.CREATE(CreateParam)
|
||||
|
||||
GoSub Setup_OLE_Controls
|
||||
Version = ''
|
||||
GetEngineVersion(Version)
|
||||
MajorVersion = Version[1, 'F.']
|
||||
If MajorVersion GE 10 then
|
||||
// Stopgap performance fix for OI 10.2.2 RC1. Revelation will re-enable caching by default in 10.2.2 RC2.
|
||||
// Do not invoke this in OI 9 as the function does not exist!
|
||||
rv = RTI_Xlate_Controller('EnableCache')
|
||||
end
|
||||
|
||||
Set_Property(@Window, '@INIT', True$)
|
||||
|
||||
Server = Environment_Services('GetServer')
|
||||
Command = GetCommandLine()
|
||||
Command = Trim(Command)
|
||||
@ -114,7 +123,6 @@ Event WINDOW.CREATE(CreateParam)
|
||||
END
|
||||
|
||||
IF @USER4 = 'ADCSVR' THEN
|
||||
* void = Start_Window( 'ADCSVR', @window, '', '', '' )
|
||||
void = Start_Window( 'SERVICE_MANAGER', '', '', '', '' )
|
||||
Post_Event(@Window, 'CLOSE')
|
||||
RETURN 0
|
||||
@ -132,11 +140,9 @@ Event WINDOW.CREATE(CreateParam)
|
||||
RETURN 0
|
||||
END
|
||||
|
||||
// The messaging port the messaging processor uses isn't open for stealth and slows
|
||||
// down OI on the DB server.
|
||||
If ( (Server NE 'MESSA01EC') and (Server NE 'MESTSA01EC') ) then Start_Window('NDW_MESSAGING_PROCESSOR', @Window)
|
||||
|
||||
@USER4 = @USERNAME
|
||||
// The messaging port the messaging processor uses isn't open for between the app servers and the DB servers.
|
||||
// Don't start the messaging processor on the app server to avoid boot up delays.
|
||||
If ( (Server NE 'MESSA005') and (Server NE 'MESSA012') ) then Start_Window('NDW_MESSAGING_PROCESSOR', @Window)
|
||||
|
||||
AccessLevel = Dialog_Box('LOGON', @Window)
|
||||
|
||||
@ -145,9 +151,10 @@ Event WINDOW.CREATE(CreateParam)
|
||||
// This prevents OI from throwing an error message if the cancel button is pressed on the LOGON form.
|
||||
If (Server EQ 'MESST5201') or (Server EQ 'MESST5202') then Utility("DESTROY", "SYSTEM")
|
||||
end
|
||||
|
||||
If AccessLevel GE 0 then
|
||||
|
||||
IF MemberOf(@USER4, 'OI_ADMIN') OR @USER4 = 'MIS' THEN
|
||||
IF MemberOf(@USER4, 'OI_ADMIN') OR @USER4 = 'MIS' THEN
|
||||
Set_Env(ENV_DEBUGGER_ENABLED$, 1, 1)
|
||||
Set_Env(ENV_DEBUGGER_INTERCEPT_PROC$,'',1)
|
||||
|
||||
@ -198,42 +205,6 @@ Event WINDOW.CREATE(CreateParam)
|
||||
|
||||
END
|
||||
|
||||
GraphicPath = obj_Install('Get_Prop','ColorBMP')
|
||||
IF GraphicPath NE '' THEN
|
||||
Set_Property(@WINDOW:'.BITMAP_2','BITMAP',GraphicPath)
|
||||
BmWidth = ''
|
||||
BmHeight = ''
|
||||
BmSize = ''
|
||||
Get_BMP_Info(GraphicPath,BmSize,BmWidth,BmHeight)
|
||||
|
||||
BMAspectRatio = BmWidth/BmHeight
|
||||
|
||||
MainSize = Get_Property(@WINDOW,'SIZE')
|
||||
|
||||
WinWidth = MainSize<WIDTH$>
|
||||
WinHeight = MainSize<HEIGHT$>
|
||||
|
||||
IF BmHeight > INT(WinHeight * .666) THEN
|
||||
Set_Property(@WINDOW:'.BITMAP_2','IMAGECLIP',0) ;* Allow Resize of bitmap
|
||||
//BmDispHeight = INT(WinHeight * .666)
|
||||
BmDispHeight = INT(WinHeight * .25)
|
||||
BmDispWidth = INT(BmDispHeight*(BmWidth/BmHeight))
|
||||
END ELSE
|
||||
Set_Property(@WINDOW:'.BITMAP_2','IMAGECLIP',0) ;* Allow Resize of bitmap
|
||||
BmDispHeight = INT(WinHeight * .25)
|
||||
BmDispWidth = INT(BmDispHeight * BMAspectRatio)
|
||||
END
|
||||
CurrPos = Get_Property(@WINDOW:'.BITMAP_2','SIZE')
|
||||
//Xorg = INT((WinWidth - BmDispWidth) / 1.05)
|
||||
//Yorg = INT((WinHeight - BmDispHeight) / 3)
|
||||
//Yorg = INT((WinHeight - BmDispHeight) / 1.2)
|
||||
Xorg = CurrPos<1>
|
||||
Yorg = CurrPos<2>
|
||||
|
||||
Set_Property(@WINDOW:'.BITMAP_2','SIZE',Xorg:@FM:Yorg:@FM:BmDispWidth:@FM:BmDispHeight)
|
||||
Set_Property(@WINDOW:'.BITMAP_2','VISIBLE',1)
|
||||
END
|
||||
|
||||
Company = obj_Install('Get_Prop','CompTitle')
|
||||
WinTitle = Get_Property(@WINDOW,'TEXT')
|
||||
Machine = ''
|
||||
@ -278,22 +249,27 @@ Event WINDOW.CREATE(CreateParam)
|
||||
|
||||
Ctrls = @WINDOW:'.MENU.ADMIN.FABTIME_SUPPORT':@RM ; Props = 'ENABLED':@RM
|
||||
Ctrls := @WINDOW:'.MENU.MAINT.REACTOR_MAINTENANCE':@RM ; Props := 'ENABLED':@RM
|
||||
Ctrls := @WINDOW:'.MENU.ADM.SYSTEM_CONFIG':@RM ; Props := 'ENABLED':@RM
|
||||
Ctrls := @WINDOW:'.MENU.ADM.TOOLS':@RM ; Props := 'ENABLED':@RM
|
||||
Ctrls := @WINDOW:'.MENU.ADM.RAS':@RM ; Props := 'ENABLED':@RM
|
||||
Ctrls := @WINDOW:'.MENU.ADM.DEVELOPER':@RM ; Props := 'ENABLED':@RM
|
||||
Ctrls := @WINDOW:'.MENU.ADMIN.DEV.ARCHIVE' ; Props := 'ENABLED'
|
||||
IF Memberof(@user4, 'OI_ADMIN') THEN
|
||||
IF Memberof(@user4, 'OI_ADMIN') OR Memberof(@user4, 'BUSINESS_ADMINS') THEN
|
||||
Vals = 1
|
||||
END ELSE
|
||||
Vals = 0
|
||||
END
|
||||
Set_Property(Ctrls,Props,Vals) ; * Sets the enabled property ON/OFF for the record mark delimited variables Ctrls,Props, and Vals
|
||||
|
||||
If MemberOf(@User4, 'OI_ADMIN') OR MemberOf(@User4, 'BUSINESS_ADMINS') then
|
||||
Set_Property(@Window : '.MENU.ADM.SYSTEM_CONFIG', 'ENABLED', 1)
|
||||
end else
|
||||
Set_Property(@Window : '.MENU.ADM.SYSTEM_CONFIG', 'ENABLED', 0)
|
||||
end
|
||||
|
||||
Ctrls := @WINDOW:'.MENU.ADMIN.SAP_INTERFACE':@RM ; Props := 'ENABLED':@RM
|
||||
Ctrls := @WINDOW:'.MENU.ADM.WAREHOUSE':@RM ; Props := 'ENABLED':@RM
|
||||
Ctrls := @WINDOW:'.MENU.ADMIN.SAP_INTERFACE.SAP_COMM_MONITOR':@RM ; Props := 'VISIBLE':@RM
|
||||
|
||||
|
||||
IF Memberof(@user4, 'OI_ADMIN') OR Memberof(@user4, 'OI_SUPERUSER') THEN
|
||||
Vals = 1
|
||||
END ELSE
|
||||
@ -311,7 +287,6 @@ Event WINDOW.CREATE(CreateParam)
|
||||
Set_Property(Ctrls,Props,Vals) ; * Sets the enabled property ON/OFF for the record mark delimited variables Ctrls,Props, and Vals
|
||||
|
||||
If Not(MemberOf(@USER4, 'LEAD')) AND Not(MemberOf(@USER4, 'SUPERVISOR')) AND Not(MemberOf(@USER4, 'MAINTENANCE')) then
|
||||
//Set_Property(@Window : '.MENU.ADMIN.TOOLS_EVAC', 'VISIBLE', 0)
|
||||
Set_Property(@Window : '.MENU.ADMIN.MASS_TOOL_MODE_CHANGE', 'VISIBLE', 0)
|
||||
Set_Property(@Window : '.MENU.ADMIN.MASS_REACTOR_MODE_CHANGE', 'VISIBLE', 0)
|
||||
end
|
||||
@ -331,28 +306,21 @@ Event WINDOW.CREATE(CreateParam)
|
||||
Set_Property(@Window:'.MENU.MATERIAL.FQA_LABEL_CHECK', 'VISIBLE', 1)
|
||||
end
|
||||
|
||||
stat = Set_Property(@WINDOW,'TIMER',5000:@FM:0) ;* Start the Keep Alive Timer event and run every 20 Minutes * * * * * * * * * * * *
|
||||
//stat = Set_Property(@WINDOW,'STATUSLINE',@WINDOW:'.STATUS_LINE') ;* Setup status line
|
||||
stat = Set_Property(@WINDOW,'TIMER',5000:@FM:1) ;* Start the Keep Alive Timer event and run every 20 Minutes * * * * * * * * * * * *
|
||||
|
||||
Set_Property(@Window:".OLE_SNOOZE", "OLE.Icon", "BMPS\do-not-disturb-mode.png")
|
||||
Set_Property(@Window:".OLE_NOTES", "OLE.Font", @SVM:10)
|
||||
Set_Property(@Window:".OLE_SNOOZE", "OLE.Font", @SVM:10)
|
||||
Gosub SetSnoozeButtonState
|
||||
|
||||
SRP_Show_Window(@Window, '', 'C', 'C', 1, '', False$, False$)
|
||||
PlaceDialog(-2, -2)
|
||||
Set_Property(@Window, 'VISIBLE', 1)
|
||||
Eventflow = 0
|
||||
end else
|
||||
If @User4 EQ 'DANIEL_ST' or 'JONATHAN_O' then
|
||||
Post_Event(@Window, 'CLOSE')
|
||||
end else
|
||||
End_Window(@Window)
|
||||
end
|
||||
|
||||
end Else
|
||||
Set_Property(@Window, 'VISIBLE', 2)
|
||||
Post_Event(@Window, 'CLOSE')
|
||||
end
|
||||
|
||||
end event
|
||||
|
||||
|
||||
Event WINDOW.READ()
|
||||
|
||||
|
||||
end event
|
||||
|
||||
|
||||
@ -364,13 +332,23 @@ Event WINDOW.CLOSE(CancelFlag)
|
||||
end event
|
||||
|
||||
|
||||
Event WINDOW.CLEAR(bSaveKey, bSuppressWarning, bMaintainFocus, CtrlIDFocus)
|
||||
|
||||
end event
|
||||
|
||||
|
||||
Event WINDOW.TIMER()
|
||||
|
||||
OnInit = Get_Property(@Window, '@INIT')
|
||||
If OnInit Then
|
||||
Gosub Setup_OLE_Controls
|
||||
Size = Get_Property(@Window, 'SIZE')
|
||||
ScreenSize = Get_Property('SYSTEM', 'SIZE')
|
||||
TrackingSize = ''
|
||||
TrackingSize<1> = Size<3>
|
||||
TrackingSize<2> = Size<4>
|
||||
TrackingSize<3> = ScreenSize<1>
|
||||
TrackingSize<4> = ScreenSize<2>
|
||||
Set_Property(@Window, 'TRACKINGSIZE', TrackingSize)
|
||||
Set_Property(@Window, '@INIT', False$)
|
||||
Post_Event(@Window, 'OMNIEVENT')
|
||||
End
|
||||
|
||||
Close = Get_Property(@Window, '@CLOSE')
|
||||
CurrDTM = OCONV(Date(),'D4/'):' ':OCONV(Time(),'MTS')
|
||||
|
||||
@ -378,7 +356,7 @@ Event WINDOW.TIMER()
|
||||
Station = @STATION
|
||||
Station = Station[1,'_']
|
||||
ListKey = Station:'*KEEP_ALIVE'
|
||||
ListRec = @USERNAME:@FM:CurrDTM
|
||||
ListRec = @USER4:@FM:CurrDTM
|
||||
WRITE ListRec ON ListsFile,ListKey ELSE NULL
|
||||
END
|
||||
|
||||
@ -407,11 +385,13 @@ Event WINDOW.TIMER()
|
||||
ColorFill<1> = "Vertical(Gradient(RGB(252,212,66), (252,212,66)),Border(RGB(252,212,66)),Rounded(1))"
|
||||
ColorFill<2> = "Vertical(Gradient(RGB(252,212,66) L=70, RGB(252,212,66) L=70), Border(RGB(252,212,66)),Rounded(1))"
|
||||
ColorFill<3> = "Vertical(Gradient(RGB(252,212,66) L=40, RGB(252,212,66) L=40), Border(RGB(252,212,66)),Rounded(1))"
|
||||
ColorFill<5> = "Vertical(Gradient(RGB(252,212,66), (252,212,66)),Border(RGB(252,212,66)),Rounded(1))"
|
||||
end else
|
||||
Set_Property(@Window:".OLE_NOTES", "OLE.Icon", "BMPS\envelope-open-regular.png")
|
||||
ColorFill<1> = "Vertical(Gradient(RGB(155,186,67), (155,186,67)),Border(RGB(155,186,67)),Rounded(1))"
|
||||
ColorFill<2> = "Vertical(Gradient(RGB(155,186,67) L=60, RGB(155,186,67) L=60), Border(RGB(155,186,67)),Rounded(1))"
|
||||
ColorFill<3> = "Vertical(Gradient(RGB(155,186,67) L=40, RGB(155,186,67) L=40), Border(RGB(155,186,67)),Rounded(1))"
|
||||
ColorFill<5> = "Vertical(Gradient(RGB(155,186,67), (155,186,67)),Border(RGB(155,186,67)),Rounded(1))"
|
||||
end
|
||||
Set_Property(@Window : '.OLE_NOTES', "OLE.Background", ColorFill)
|
||||
Set_Property(@Window:".OLE_NOTES", "OLE.Caption", NewMessages)
|
||||
@ -431,11 +411,6 @@ Event WINDOW.TIMER()
|
||||
end event
|
||||
|
||||
|
||||
Event OLE_LAUNCHER.OnLaunchAttempt(Params)
|
||||
|
||||
end event
|
||||
|
||||
|
||||
Event PUB_SHIP_DATA_QUEUE.CLICK()
|
||||
|
||||
Start_Window('DIALOG_FTP_QUEUE', @Window)
|
||||
@ -485,7 +460,6 @@ end event
|
||||
Event MENU.ADMIN.TOOLS_EVAC.MENU()
|
||||
|
||||
// Require the user to acknowledge using their application password.
|
||||
* Valid = Dialog_Box('QUOTE_SIG_PWD_ENTRY', @WINDOW, @USER4 : @VM : XLATE('LSL_USERS', @USER4, LSL_USERS_PASSWORD$, 'X'))
|
||||
MsgOverride = ''
|
||||
MsgOverride<MDEFBTN$> = 2 ; // Default to Cancel button.
|
||||
Valid = Msg(@Window, MsgOverride, 'OK_CANCEL', '', 'Evac Procedures' : @FM : 'Please confirm that you wish to put all tools into Evac mode.')
|
||||
@ -670,6 +644,7 @@ Event OLE_SNOOZE.OnClick(Point, Button, Shift, Ctrl)
|
||||
|
||||
end event
|
||||
|
||||
|
||||
Event OLE_WIP_STATUS.OnClick(Point, Button, Shift, Ctrl)
|
||||
|
||||
Start_Window('REACT_STATUS_EVEN',@WINDOW,'')
|
||||
@ -678,6 +653,7 @@ Event OLE_WIP_STATUS.OnClick(Point, Button, Shift, Ctrl)
|
||||
|
||||
end event
|
||||
|
||||
|
||||
Event OLE_RDS.OnClick(Point, Button, Shift, Ctrl)
|
||||
|
||||
rv = Start_Window('RDS', '')
|
||||
@ -720,12 +696,21 @@ Event MENU.PROD.NDW_RDS_QUERY.MENU()
|
||||
|
||||
end event
|
||||
|
||||
|
||||
Event WINDOW.OMNIEVENT(Message, Param1, Param2, Param3, Param4)
|
||||
|
||||
Gosub FixFont
|
||||
|
||||
End event
|
||||
|
||||
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
|
||||
// Internal GoSubs
|
||||
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
|
||||
|
||||
Setup_OLE_Controls:
|
||||
|
||||
PlaceDialog(-2, -2)
|
||||
|
||||
Qualify = ''
|
||||
Qualify<1> = 1
|
||||
Qualify<4> = 0
|
||||
@ -733,85 +718,98 @@ Setup_OLE_Controls:
|
||||
Ctrl = @Window : '.OLE_LAUNCHER'
|
||||
Send_Message(Ctrl, 'QUALIFY_EVENT', 'OLE.OnLaunchAttempt', Qualify)
|
||||
Send_Message(@Window : '.OLE_NOTES', 'QUALIFY_EVENT', 'OLE.OnClick', Qualify)
|
||||
Set_Property(@Window:".OLE_NOTES", "OLE.Font", @SVM:14)
|
||||
FontArray = Get_Property(@Window:'.OLE_NOTES', 'OLE.Font')
|
||||
FontArray<1, 1, 2> = 14
|
||||
Set_Property(@Window:".OLE_NOTES", "OLE.Font", FontArray)
|
||||
|
||||
Send_Message(@Window : '.OLE_SNOOZE', 'QUALIFY_EVENT', 'OLE.OnClick', Qualify)
|
||||
Set_Property(@Window:".OLE_SNOOZE", "OLE.Font", @SVM:15)
|
||||
FontArray<1, 1, 2> = 10
|
||||
Set_Property(@Window:".OLE_SNOOZE", "OLE.Font", FontArray)
|
||||
|
||||
ColorFill = ''
|
||||
FontArray<1, 1, 2> = 11
|
||||
Send_Message(@Window : '.OLE_WIP_STATUS', 'QUALIFY_EVENT', 'OLE.OnClick', Qualify)
|
||||
Set_Property(@Window:".OLE_WIP_STATUS", "OLE.Font", @SVM:11)
|
||||
Set_Property(@Window:".OLE_WIP_STATUS", "OLE.Font", FontArray)
|
||||
ColorFill<1> = "White"
|
||||
ColorFill<2> = "White"
|
||||
ColorFill<3> = "White"
|
||||
ColorFill<5> = "White"
|
||||
Set_Property(@Window:".OLE_WIP_STATUS", "OLE.ForeColor", ColorFill)
|
||||
ColorFill = ''
|
||||
ColorFill<1> = "Vertical(Gradient(RGB(10, 130, 118), (10, 130, 118)),Border(RGB(10, 130, 118)),Rounded(1))"
|
||||
ColorFill<2> = "Vertical(Gradient(RGB(10, 130, 118) L=40, RGB(10, 130, 118) L=40), Border(RGB(10, 130, 118)),Rounded(1))"
|
||||
ColorFill<3> = "Vertical(Gradient(RGB(10, 130, 118) L=20, RGB(10, 130, 118) L=20), Border(RGB(10, 130, 118)),Rounded(1))"
|
||||
ColorFill<5> = "Vertical(Gradient(RGB(10, 130, 118), (10, 130, 118)),Border(RGB(10, 130, 118)),Rounded(1))"
|
||||
Set_Property(@Window : '.OLE_WIP_STATUS', "OLE.Background", ColorFill)
|
||||
Set_Property(@Window:".OLE_WIP_STATUS", "OLE.Caption", "WIP Status")
|
||||
|
||||
ColorFill = ''
|
||||
Send_Message(@Window : '.OLE_RDS', 'QUALIFY_EVENT', 'OLE.OnClick', Qualify)
|
||||
Set_Property(@Window:".OLE_RDS", "OLE.Font", @SVM:11)
|
||||
Set_Property(@Window:".OLE_RDS", "OLE.Font", FontArray)
|
||||
ColorFill<1> = "White"
|
||||
ColorFill<2> = "White"
|
||||
ColorFill<3> = "White"
|
||||
ColorFill<5> = "White"
|
||||
Set_Property(@Window:".OLE_RDS", "OLE.ForeColor", ColorFill)
|
||||
ColorFill = ''
|
||||
ColorFill<1> = "Vertical(Gradient(RGB(10, 130, 118), (10, 130, 118)),Border(RGB(10, 130, 118)),Rounded(1))"
|
||||
ColorFill<2> = "Vertical(Gradient(RGB(10, 130, 118) L=40, RGB(10, 130, 118) L=40), Border(RGB(10, 130, 118)),Rounded(1))"
|
||||
ColorFill<3> = "Vertical(Gradient(RGB(10, 130, 118) L=20, RGB(10, 130, 118) L=20), Border(RGB(10, 130, 118)),Rounded(1))"
|
||||
ColorFill<5> = "Vertical(Gradient(RGB(10, 130, 118), (10, 130, 118)),Border(RGB(10, 130, 118)),Rounded(1))"
|
||||
Set_Property(@Window : '.OLE_RDS', "OLE.Background", ColorFill)
|
||||
Set_Property(@Window:".OLE_RDS", "OLE.Caption", "RDS")
|
||||
|
||||
ColorFill = ''
|
||||
Send_Message(@Window : '.OLE_WM_OUT', 'QUALIFY_EVENT', 'OLE.OnClick', Qualify)
|
||||
Set_Property(@Window:".OLE_WM_OUT", "OLE.Font", @SVM:11)
|
||||
Set_Property(@Window:".OLE_WM_OUT", "OLE.Font", FontArray)
|
||||
ColorFill<1> = "White"
|
||||
ColorFill<2> = "White"
|
||||
ColorFill<3> = "White"
|
||||
ColorFill<5> = "White"
|
||||
Set_Property(@Window:".OLE_WM_OUT", "OLE.ForeColor", ColorFill)
|
||||
ColorFill = ''
|
||||
ColorFill<1> = "Vertical(Gradient(RGB(10, 130, 118), (10, 130, 118)),Border(RGB(10, 130, 118)),Rounded(1))"
|
||||
ColorFill<2> = "Vertical(Gradient(RGB(10, 130, 118) L=40, RGB(10, 130, 118) L=40), Border(RGB(10, 130, 118)),Rounded(1))"
|
||||
ColorFill<3> = "Vertical(Gradient(RGB(10, 130, 118) L=20, RGB(10, 130, 118) L=20), Border(RGB(10, 130, 118)),Rounded(1))"
|
||||
ColorFill<5> = "Vertical(Gradient(RGB(10, 130, 118), (10, 130, 118)),Border(RGB(10, 130, 118)),Rounded(1))"
|
||||
Set_Property(@Window : '.OLE_WM_OUT', "OLE.Background", ColorFill)
|
||||
Set_Property(@Window:".OLE_WM_OUT", "OLE.Caption", "WM Out")
|
||||
|
||||
ColorFill = ''
|
||||
Send_Message(@Window : '.OLE_WORK_ORDER', 'QUALIFY_EVENT', 'OLE.OnClick', Qualify)
|
||||
Set_Property(@Window:".OLE_WORK_ORDER", "OLE.Font", @SVM:11)
|
||||
Set_Property(@Window:".OLE_WORK_ORDER", "OLE.Font", FontArray)
|
||||
ColorFill<1> = "White"
|
||||
ColorFill<2> = "White"
|
||||
ColorFill<3> = "White"
|
||||
ColorFill<5> = "White"
|
||||
Set_Property(@Window:".OLE_WORK_ORDER", "OLE.ForeColor", ColorFill)
|
||||
ColorFill = ''
|
||||
ColorFill<1> = "Vertical(Gradient(RGB(10, 130, 118), (10, 130, 118)),Border(RGB(10, 130, 118)),Rounded(1))"
|
||||
ColorFill<2> = "Vertical(Gradient(RGB(10, 130, 118) L=40, RGB(10, 130, 118) L=40), Border(RGB(10, 130, 118)),Rounded(1))"
|
||||
ColorFill<3> = "Vertical(Gradient(RGB(10, 130, 118) L=20, RGB(10, 130, 118) L=20), Border(RGB(10, 130, 118)),Rounded(1))"
|
||||
ColorFill<5> = "Vertical(Gradient(RGB(10, 130, 118), (10, 130, 118)),Border(RGB(10, 130, 118)),Rounded(1))"
|
||||
Set_Property(@Window : '.OLE_WORK_ORDER', "OLE.Background", ColorFill)
|
||||
Set_Property(@Window:".OLE_WORK_ORDER", "OLE.Caption", "Work Order")
|
||||
|
||||
ColorFill = ''
|
||||
ColorFill = ''
|
||||
Send_Message(@Window : '.OLE_LOG_TEST_RUN', 'QUALIFY_EVENT', 'OLE.OnClick', Qualify)
|
||||
Set_Property(@Window:".OLE_LOG_TEST_RUN", "OLE.Font", @SVM:11)
|
||||
Set_Property(@Window:".OLE_LOG_TEST_RUN", "OLE.Font", FontArray)
|
||||
ColorFill<1> = "White"
|
||||
ColorFill<2> = "White"
|
||||
ColorFill<3> = "White"
|
||||
ColorFill<5> = "White"
|
||||
Set_Property(@Window:".OLE_LOG_TEST_RUN", "OLE.ForeColor", ColorFill)
|
||||
ColorFill = ''
|
||||
ColorFill = ''
|
||||
ColorFill<1> = "Vertical(Gradient(RGB(10, 130, 118), (10, 130, 118)),Border(RGB(10, 130, 118)),Rounded(1))"
|
||||
ColorFill<2> = "Vertical(Gradient(RGB(10, 130, 118) L=40, RGB(10, 130, 118) L=40), Border(RGB(10, 130, 118)),Rounded(1))"
|
||||
ColorFill<3> = "Vertical(Gradient(RGB(10, 130, 118) L=20, RGB(10, 130, 118) L=20), Border(RGB(10, 130, 118)),Rounded(1))"
|
||||
ColorFill<5> = "Vertical(Gradient(RGB(10, 130, 118), (10, 130, 118)),Border(RGB(10, 130, 118)),Rounded(1))"
|
||||
Set_Property(@Window : '.OLE_LOG_TEST_RUN', "OLE.Background", ColorFill)
|
||||
Set_Property(@Window:".OLE_LOG_TEST_RUN", "OLE.Caption", "Log TW Usage")
|
||||
|
||||
|
||||
|
||||
return
|
||||
|
||||
|
||||
SetSnoozeButtonState:
|
||||
|
||||
Snoozed = Notes_Services('CheckForNotificationSnooze', @USER4)
|
||||
@ -820,11 +818,13 @@ SetSnoozeButtonState:
|
||||
ColorFill<1> = "Vertical(Gradient(RGB(108, 180, 173), (108, 180, 173)),Border(RGB(108, 180, 173)),Rounded(1))"
|
||||
ColorFill<2> = "Vertical(Gradient(RGB(108, 180, 173) L=60, RGB(108, 180, 173) L=60), Border(RGB(108, 180, 173)),Rounded(1))"
|
||||
ColorFill<3> = "Vertical(Gradient(RGB(108, 180, 173) L=40, RGB(108, 180, 173) L=40), Border(RGB(108, 180, 173)),Rounded(1))"
|
||||
ColorFill<5> = "Vertical(Gradient(RGB(108, 180, 173), (108, 180, 173)),Border(RGB(108, 180, 173)),Rounded(1))"
|
||||
Set_Property(@Window:".OLE_SNOOZE", "OLE.Caption", "Do Not Disturb On")
|
||||
end else
|
||||
ColorFill<1> = "Vertical(RGB(141,135,134), Border(RGB(141,135,134)), Rounded(1))"
|
||||
ColorFill<2> = "Vertical(Gradient(RGB(141,135,134) L=60,RGB(141,135,134) L=60, Border(RGB(141,135,134)) Rounded(1))"
|
||||
ColorFill<3> = "Vertical(Gradient(RGB(141,135,134) L=40,RGB(141,135,134) L=40, Border(RGB(141,135,134)) Rounded(1))"
|
||||
ColorFill<5> = "Vertical(RGB(141,135,134), Border(RGB(141,135,134)), Rounded(1))"
|
||||
Set_Property(@Window:".OLE_SNOOZE", "OLE.Caption", "Do Not Disturb Off")
|
||||
end
|
||||
Set_Property(@Window : '.OLE_SNOOZE', "OLE.Background", ColorFill)
|
||||
@ -832,11 +832,22 @@ SetSnoozeButtonState:
|
||||
return
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
FixFont:
|
||||
|
||||
FontArray = Get_Property(@Window:'.OLE_NOTES', 'OLE.Font')
|
||||
FontArray<1, 1, 2> = 14
|
||||
Set_Property(@Window:".OLE_NOTES", "OLE.Font", FontArray)
|
||||
FontArray<1, 1, 2> = 10
|
||||
Set_Property(@Window:".OLE_SNOOZE", "OLE.Font", FontArray)
|
||||
FontArray<1, 1, 2> = 11
|
||||
Set_Property(@Window:".OLE_WIP_STATUS", "OLE.Font", FontArray)
|
||||
Set_Property(@Window:".OLE_RDS", "OLE.Font", FontArray)
|
||||
Set_Property(@Window:".OLE_WM_OUT", "OLE.Font", FontArray)
|
||||
Set_Property(@Window:".OLE_WORK_ORDER", "OLE.Font", FontArray)
|
||||
Set_Property(@Window:".OLE_LOG_TEST_RUN", "OLE.Font", FontArray)
|
||||
Set_Property(@Window:".OLE_PIC_CURRENT_USER", "OLE.Font", FontArray)
|
||||
|
||||
return
|
||||
|
||||
|
||||
|
||||
|
||||
Reference in New Issue
Block a user