phares3757/open-insight
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

pre cutover push

Browse Source
This commit is contained in:
Infineon\StieberD
2024-09-04 20:33:41 -07:00
parent 6ea6969f4b
commit 7762b129af
2072 changed files with 130000 additions and 95295 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
LSL2/STPROC/PM.txt
View File

@ -11,7 +11,7 @@ DECLARE SUBROUTINE ErrMsg, Send_Message, Set_Property, Send_Event, Btree.Extract
DECLARE SUBROUTINE obj_Notes, Security_Err_Msg, End_Window, Forward_Event, Start_Window, Create_Note, Post_Event
DECLARE FUNCTION Get_Property, Get_Status, Dialog_Box, Utility, obj_Popup, Popup, Error_Services
DECLARE FUNCTION Send_Message, Msg, NextKey
DECLARE FUNCTION Send_Message, Msg, NextKey, Popup_Month
$INSERT LOGICAL
$INSERT MSG_EQUATES
@ -163,14 +163,13 @@ RETURN
Refresh:
* * * * * * *
Units = Get_Property(@WINDOW:'.UNITS','DEFPROP')
DateVals = 0:@RM:0:@RM:0 ; DateProps = 'ENABLED':@RM:'ENABLED':@RM:'ENABLED'
TimeVals = 0:@RM:0 ; TimeProps = 'ENABLED':@RM:'ENABLED'
QtyVals = 0:@RM:0 ; QtyProps = 'ENABLED':@RM:'ENABLED'
IF Units = 'D' OR Units = 'T' THEN DateVals = 1:@RM:1:@RM:1
IF Units = 'D' OR Units = 'T' OR Units EQ 'M' THEN DateVals = 1:@RM:1:@RM:1
IF Units = 'T' THEN TimeVals = 1:@RM:1
IF Units = 'Q' THEN QtyVals = 1:@RM:1
@ -263,21 +262,11 @@ Read:
RETURN
* * * * * * *
LUDate:
* * * * * * *
ReturnCtrl = @WINDOW:'.SCHED_DT'
ReturnVal = OCONV(Dialog_Box("POPUP_MONTH",@WINDOW),'D4/')
obj_Appwindow('LUValReturn',ReturnVal:@RM:ReturnCtrl:@RM:'')
Set_Property(@Window, 'FOCUS', ReturnCtrl)
ReturnVal = Popup_Month()
RETURN
* * * * * * *
StartPM:
* * * * * * *
@ -341,3 +330,4 @@ RETURN