diff --git a/LSL2/STPROC/PRINT_REACTOR_MAINT.txt b/LSL2/STPROC/PRINT_REACTOR_MAINT.txt index c647bdb..5efa2ee 100644 --- a/LSL2/STPROC/PRINT_REACTOR_MAINT.txt +++ b/LSL2/STPROC/PRINT_REACTOR_MAINT.txt @@ -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 diff --git a/LSL2/STPROC/PRINT_REACTOR_MAINT1.txt b/LSL2/STPROC/PRINT_REACTOR_MAINT1.txt index 4e9a87b..907416e 100644 --- a/LSL2/STPROC/PRINT_REACTOR_MAINT1.txt +++ b/LSL2/STPROC/PRINT_REACTOR_MAINT1.txt @@ -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 */ +