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

mitigated RList query issue

Browse Source
This commit is contained in:
Infineon\StieberD
2024-09-18 17:01:21 -07:00
parent 1c69c61d16
commit 1bd10cffad
2 changed files with 5 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
LSL2/STPROC/PRINT_REACTOR_MAINT1.txt
View File

@ -90,29 +90,21 @@ END
DateRange = "Dates: ":StartDateFrom:" Through ": StartDateThru
Utility( 'CURSOR', 'H' )
WithStmt = 'SELECT REACTOR_LOG ':WithStmt
WithStmt := ' AND WITH CATEGORY = "M" BY REACTOR BY START_DATE'
RLIST( WithStmt, TARGET_ACTIVELIST$, '', '', '' )
IF Get_Status(errCode) THEN CALL ErrMsg(errCode)
WithStmt ="SELECT REACTOR_LOG BY REACTOR BY START_DATE WITH CATEGORY = 'M'"
RLIST(WithStmt,TARGET_ACTIVELIST$,'','','')
IF Get_Status(errCode) THEN CALL ErrMsg(errCode)
IF @Reccount = 0 THEN
ErrMsg('No records selected with that criteria...')
RETURN
END
* Start of printing process
FileName = 'Print Reactor Maintenance Report'
@ -657,3 +649,4 @@ END
*/