Subroutine Master_Schedule_Control_Base_Settings(Window, Param1) /******************************************************************************************************** This program is proprietary and is not to be used by or disclosed to others, nor is it to be copied without written permission from SRP Computer Solutions, Inc. Name : Master Schedule Control Base Settings Description : Tags : [SRP] Parameters : History (Date, Initials, Notes) 09/17/08 fjt Initial development 01/08/10 fjt Changed to 24 hour view 02/06/10 fjt Updated to use scheduler control settings window 05/31/10 fjt Added trail layout ********************************************************************************************************/ $insert SRP_APP_INSERTS $insert SRP_EVENT_SETUP Declare function MemberOf Equ Schedule$ to "WO_MASTER_SCHEDULER.OLE_SCHEDULE" Set_Property(Schedule$, "OLE.Redraw", No$) Gosub Init GoSub Preferences_Definition GoSub Base_Settings GoSub Layout GoSub Dropdowns Set_Property(Schedule$, "OLE.Redraw", Yes$) Return !----- PROCESS ROUTINES --------------------------------------------------------------------------------- Init: If Assigned(Param1) else Param1 = "" Dock = Yes$ Date = Param1<2> Button = Yes$ SchSvr = "" return Preferences_Definition: Config = Xlate("CONFIG", "MSC_CONFIGURATION", "", "X") MultiLine = Yes$ Word_Wrap = No$ return Base_Settings: Set_Property(Schedule$, "OLE.View", "MultiDayHorz") ;// Landscape mode Set_Property(Schedule$, "OLE.ScheduleOnLeft", Yes$) Set_Property(Schedule$, "OLE.DateHeaderFormat", "DDDD - mmm DD, YYYY") Set_Property(Schedule$, "OLE.EntityMinSize", Config<01>) ;// Height of the row for this horiz view mode Set_Property(Schedule$, "OLE.ShowCalendar", No$) Set_Property(Schedule$, "OLE.ShowTree", No$) * Set_Property(Schedule$, "OLE.PreventConflict", No$) Set_Property(Schedule$, "OLE.Interval", 60) ;// Number of minutes per interval Set_Property(Schedule$, "OLE.IntervalSize", 10) ;// Space (width) for each time increment (in pixels) Set_Property(Schedule$, "OLE.ConflictColor", "Crimson") Set_Property(Schedule$, "OLE.TimeRange", 0 :@FM: 24 :@FM: 4) ;// <3> is hour display increment Set_Property(Schedule$, "OLE.RightTimeBar", Yes$) Set_Property(Schedule$, "OLE.AllowLeadTime", No$) Set_Property(Schedule$, "OLE.AllowTrailTime", No$) Set_Property(Schedule$, "OLE.Date", Date()-1) Fonts = "" Fonts<1> = Config<05,1> :@SVM: Config<05,2> Fonts<2> = Config<06,1> :@SVM: Config<06,2> Fonts<3> = "Tahoma" :@SVM: 16 ;// Entity (reactor) Header Name Fonts<4> = "Tahoma" :@SVM: 09 ;// Entity (reactor) description Fonts<5> = Config<09,1> :@SVM: Config<09,2> Set_Property(Schedule$, "OLE.ScheduleFonts", Fonts) return Layout: // Schedule Layout Layout = Get_Property(Schedule$, "OLE.Layout") // Header font Font = Layout<2,5> Font<0,0,1> = "Lucida Console" Font<0,0,2> = 10 Layout<2,5> = Font // Description font Font = Layout<3,5> Font<0,0,1> = "Lucida Console" Font<0,0,2> = 9 Layout<3,5> = Font NewLayout = Layout<2> :@FM: Layout<3> NewLayout<1,02> = 0 :@SVM: 0 :@SVM: -1 :@SVM: 16 NewLayout<1,06> = "Left" NewLayout<1,07> = "Center" NewLayout<2,02> = 0 :@SVM: 17 :@SVM: -1 :@SVM: -1 NewLayout<2,06> = "Left" NewLayout<2,07> = "Center" NewLayout<2,08> = MultiLine NewLayout<2,10> = Word_Wrap Set_Property(Schedule$, "OLE.Layout", NewLayout) // Trail Layout; this is the stoppage time Layout = "" Layout<1,1> = "APPTDATA" ;// We want to show appointment data Layout<1,2> = 0:@SVM:0:@SVM:-1:@SVM:-1 ;// Fill up the entire lead time area Layout<1,3> = "TRAIL" ;// Value: Show the name Layout<1,4> = "'Pace Adjustment'" ;// Settings: Format (show total minutes) Layout<1,5> = "" ;// Default Font: Tahoma, 8 pt. Layout<1,6> = "Center" ;// Center it Layout<1,7> = "Center" ;// Center it vertically too Layout<1,8> = MultiLine ;// Multi-lined always Layout<1,9> = "" ;// No background effect Layout<1,10> = No$ ;// Word wrap off Set_Property(Schedule$, "OLE.TrailLayout", Layout) return Dropdowns: // Filters List = ",by Reactor Type,by Current Dopant,by Group,Escalated Reactors,Events Only" Convert "," to @FM in List Set_Property(@Window:".COB_FILTER", "LIST", List) Set_Property(@Window:".COB_FILTER", "TEXT", List<1>) // Options Begin Case * Case MemberOf(@USER4, 'MASTER_SCHED') ; List = "New,Send Notifs,Preview,Print,Import" Case MemberOf(@USER4, 'OI_ADMIN') ; List = "New,Audit,Preview,Print,Import" Case MemberOf(@USER4, 'TESTING') ; List = "New,Preview,Print,Import" Case MemberOf(@USER4, 'MASTER_SCHED') ; List = "New,Preview,Print" Case Otherwise$ ; List = "Preview,Print" End Case Convert "," to @FM in List Set_Property(@Window:".COB_OPTION", "LIST", List) Set_Property(@Window:".COB_OPTION", "TEXT", List<1>) // Search List = "WO,PSN" Convert "," to @FM in List Set_Property(@Window:".COB_FIELD", "LIST", List) Set_Property(@Window:".COB_FIELD", "TEXT", List<1>) return