added LSL2 stored procedures
This commit is contained in:
71
LSL2/STPROC/COMM_WO_DAILY_SCHED_ALL.txt
Normal file
71
LSL2/STPROC/COMM_WO_DAILY_SCHED_ALL.txt
Normal file
@ -0,0 +1,71 @@
|
||||
COMPILE FUNCTION Comm_WO_Daily_Sched_All(Instruction, Parm1, Parm2)
|
||||
|
||||
/*
|
||||
Commuter module for WO_DAILY_SCHED_ALL window(s)
|
||||
|
||||
10/18/2007 - John C. Henry, J.C. Henry & Co., Inc.
|
||||
*/
|
||||
|
||||
DECLARE SUBROUTINE Set_Property, End_Dialog, Send_Event, Set_Status, Center_Window
|
||||
DECLARE SUBROUTINE ErrMsg, Send_Message, Set_Property, Send_Event, Btree.Extract, obj_AppWindow
|
||||
DECLARE FUNCTION Get_Property, Get_Status, Dialog_Box, Utility, Center_Window, Popup, Collect.Ixvals
|
||||
DECLARE FUNCTION Send_Message
|
||||
|
||||
$INSERT POPUP_EQUATES
|
||||
$INSERT APPCOLORS
|
||||
|
||||
EQU CRLF$ TO \0D0A\
|
||||
|
||||
ErrTitle = 'Error in Comm_WO_DailySched_All'
|
||||
ErrorMsg = ''
|
||||
|
||||
Result = ''
|
||||
|
||||
BEGIN CASE
|
||||
|
||||
CASE Instruction = 'Create' ; GOSUB Create
|
||||
CASE Instruction = 'Refresh' ; GOSUB Refresh
|
||||
CASE Instruction = 'TBClick' ; GOSUB TBClick
|
||||
CASE 1
|
||||
ErrorMsg = 'Unknown Instruction passed to routine.'
|
||||
ErrMsg(ErrorMsg)
|
||||
END CASE
|
||||
|
||||
RETURN Result
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Create:
|
||||
* * * * * * *
|
||||
|
||||
RETURN
|
||||
|
||||
Center_Window(@WINDOW)
|
||||
|
||||
IF Parm1 NE '' THEN
|
||||
obj_AppWindow('LoadFormKeys',@WINDOW:@RM:Parm1)
|
||||
END
|
||||
|
||||
GOSUB Refresh
|
||||
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Refresh:
|
||||
* * * * * * *
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
TBClick:
|
||||
* * * * * * *
|
||||
|
||||
CtrlEntID = Get_Property(@WINDOW,'FOCUS')
|
||||
|
||||
ErrMsg('If you get this message, notify FI, and tell us which button you pushed!')
|
||||
|
||||
RETURN
|
Reference in New Issue
Block a user