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

Merged PR 31131: Rename PM/PM_SPEC tables

Browse Source
This commit is contained in:
Mitchem Dakota (CSC FI SSM MAI MESLEO External)
2025-11-18 17:27:55 +00:00
parent 9749af69cf
commit 2ab25e05a3
35 changed files with 26064 additions and 1563 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
LSL2/STPROC/PM_SCHED.txt
View File

@ -23,7 +23,7 @@ DECLARE FUNCTION Send_Message, Msg, NextKey
$INSERT MSG_EQUATES
$INSERT APPCOLORS
$INSERT PM_EQUATES
$INSERT RECURRING_TASK_EQUATES
EQU CRLF$ TO \0D0A\
@ -170,7 +170,7 @@ Read:
PMId = Get_Property(@WINDOW:'.PM_ID','DEFPROP')
IF RowExists('PM',PMId) ELSE
IF RowExists('RECURRING_TASK',PMId) ELSE
IF Get_Property(@WINDOW:'.ENTER_DTM','DEFPROP') = '' THEN
CurrDTM = OCONV(Date(),'D4/'):' ':OCONV(Time(),'MTH')
Set_Property(@WINDOW:'.ENTER_DTM','DEFPROP',CurrDTM)
@ -249,17 +249,16 @@ NewPM:
PMSId = Get_Property(@WINDOW:'.PMS_ID','DEFPROP')
IF @USER4 = '' THEN @USER4 = 'BRYCE_BARB'
Send_Event(@WINDOW,'WRITE') ;* Write current PM_SCHED record
PMNo = NextKey('PM_SCHED') ;* Next PMKey
PMRec = ''
PMRec<PM_PMS_ID$> = PMSId ;* New PMRec
PMRec = ''
PMRec<RECURRING_TASK_PMS_ID$> = PMSId ;* New PMRec
otParms = 'PM':@RM:PMNo:@RM:@RM:PMRec
otParms = 'RECURRING_TASK':@RM:PMNo:@RM:@RM:PMRec
obj_Tables('WriteRec',otParms) ;* Write new PM record
IF Get_Status(errCode) THEN
@ -267,9 +266,9 @@ IF Get_Status(errCode) THEN
RETURN
END
obj_Appwindow('ViewRelated','PM':@RM:PMNo:@RM:@RM) ;* View new related PM record
obj_Appwindow('ViewRelated','RECURRING_TASK':@RM:PMNo:@RM:@RM) ;* View new related PM record
Set_Property('PM','@RETURN_KEY',PMSId)
Set_Property('RECURRING_TASK','@RETURN_KEY',PMSId)
@ -291,7 +290,7 @@ PMKeyList = Get_Property(CtrlEntID,'LIST')
IF PMKeyList<CurrRow,COL$PM_KEY> NE '' THEN
PMKey = PMKeyList<CurrRow,COL$PM_KEY>
obj_Appwindow('ViewRelated','PM':@RM:PMKey:@RM:@RM)
obj_Appwindow('ViewRelated','RECURRING_TASK':@RM:PMKey:@RM:@RM)
END
@ -304,3 +303,5 @@ RETURN