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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
LSL2/STPROC/PRINT_REACTOR_MAINT.txt
View File

@ -88,29 +88,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'
@ -127,7 +119,7 @@ PageInfo<7> = LETTER ;* Pagesize
PageSetup = '1' ;* Landscape = 1
PrintSetup = '2' ;* Preview Normal
PrintSetup<1, 2> = 0
* PrintPath = Printer_Select()
PrintPath = ''
stat = Set_Printer('INIT',FileName,Title,PageInfo,PageSetup,PrintSetup,PrintPath)
IF stat < 0 THEN GOTO OIPrintErr

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
*/