ready for UAT
final commit added PSN to reactor maintenance report query dialog
This commit is contained in:
Infineon\StieberD
committed by
Stieber Daniel (CSC FI SPS MESLEO)
Stieber Daniel (CSC FI SPS MESLEO)
parent
8b0eb3e468
commit
333cf0b8e2
@ -6,17 +6,19 @@ COMPILE SUBROUTINE Print_Reactor_Maint1(Dummy)
|
||||
*/
|
||||
|
||||
|
||||
DECLARE SUBROUTINE Utility, ErrMsg, Set_Status, Set_Printer, RList
|
||||
DECLARE FUNCTION Set_Printer, Get_Printer, Msg, Get_Status, Printer_Select, obj_Install, Dialog_Box
|
||||
DECLARE SUBROUTINE Utility, ErrMsg, Set_Status, Set_Printer, RList, Push.Select, Pop.Select, Run_Report
|
||||
DECLARE FUNCTION Set_Printer, Get_Printer, Msg, Get_Status, Printer_Select, obj_Install, Dialog_Box
|
||||
DECLARE FUNCTION Reactor_Services
|
||||
|
||||
$INSERT OIPRINT_EQUATES
|
||||
$INSERT INVOICE_EQU
|
||||
$INSERT APPCOLORS
|
||||
$INSERT MSG_EQUATES
|
||||
|
||||
|
||||
EQU TAB$ TO \09\
|
||||
EQU TARGET_ACTIVELIST$ TO 5
|
||||
Equ BASE_NUM_COLS$ to 9
|
||||
Equ REPORT_WIDTH$ to 14670
|
||||
EQU TAB$ TO \09\
|
||||
EQU TARGET_ACTIVELIST$ TO 5
|
||||
|
||||
ErrorTitle = 'Error in stored procedure Print_Reactor_Maint'
|
||||
|
||||
@ -32,23 +34,24 @@ OPEN 'DICT.REACTOR_LOG' TO @DICT ELSE
|
||||
RETURN
|
||||
END
|
||||
|
||||
|
||||
Params = Dialog_Box( 'REACTOR_LOG_SRPT1', @WINDOW, '*CENTER' )
|
||||
|
||||
IF Params = 'CANCEL' OR Params = '' THEN
|
||||
RETURN
|
||||
END
|
||||
|
||||
|
||||
CONVERT '*' TO @FM IN Params
|
||||
|
||||
StartDateFrom = Params<1>
|
||||
StartDateThru = Params<2>
|
||||
Reactors = Params<3>
|
||||
ProblemCats = Params<4>
|
||||
ServiceIDs = Params<5>
|
||||
|
||||
WithStmt = ''
|
||||
StartDateFrom = Params<1>
|
||||
StartDateThru = Params<2>
|
||||
Reactors = Params<3>
|
||||
ProblemCats = Params<4>
|
||||
ServiceIDs = Params<5>
|
||||
PSNs = Params<6>
|
||||
IncludeReactItemIds = Params<7>
|
||||
IncludeInjSettings = Params<8>
|
||||
IncludeReactRatios = Params<9>
|
||||
WithStmt = ''
|
||||
|
||||
IF StartDateFrom AND StartDateThru THEN
|
||||
WithStmt:= 'WITH START_DATE FROM "':StartDateFrom:'" TO "':StartDateThru:'"'
|
||||
@ -79,6 +82,12 @@ IF ServiceIDs <> '' THEN
|
||||
WithStmt :=' AND WITH REACT_SERV_ID = ':ServiceIDs
|
||||
END
|
||||
|
||||
IF PSNs <> '' THEN
|
||||
SWAP @VM WITH "' '" IN PSNs
|
||||
PSNs = "'":PSNs:"'"
|
||||
WithStmt :=' AND WITH PROD_SPEC_NO = ':PSNs
|
||||
END
|
||||
|
||||
IF Reactors <> '' THEN
|
||||
SWAP "'" WITH '' IN Reactors
|
||||
SWAP " " WITH ", " IN Reactors
|
||||
@ -120,9 +129,9 @@ PageInfo<7> = LETTER ;* Pagesize
|
||||
|
||||
PageSetup = '1' ;* Landscape = 1
|
||||
PrintSetup = '2' ;* Preview Normal
|
||||
PrintPath = Printer_Select()
|
||||
PrintSetup<1, 2> = 0
|
||||
|
||||
If PrintPath EQ '' then return
|
||||
PrintPath = ''
|
||||
|
||||
stat = Set_Printer('INIT',FileName,Title,PageInfo,PageSetup,PrintSetup,PrintPath)
|
||||
IF stat < 0 THEN GOTO OIPrintErr
|
||||
@ -151,18 +160,41 @@ FirstPass = 1
|
||||
LastRecord = 0
|
||||
FirstLine = 1
|
||||
|
||||
* Make Column Heading
|
||||
NumCols = BASE_NUM_COLS$
|
||||
// 14670 width to work with
|
||||
|
||||
colHead = '' ; colFmt = ''
|
||||
colHead<1,1> = 'R' ; colFmt<1,1> = '^360'
|
||||
colHead<1,2> = 'Problem Cat Desc' ; colFmt<1,2> = '<1800'
|
||||
colHead<1,3> = 'Serv':CRLF$:'ID' ; colFmt<1,3> = '^540'
|
||||
colHead<1,4> = 'Reactor Svc Desc' ; colFmt<1,4> = '<3600'
|
||||
colHead<1,5> = 'Tech' ; colFmt<1,5> = '^1080'
|
||||
colHead<1,6> = 'Reactor Item ID' ; colFmt<1,6> = '<2160'
|
||||
colHead<1,7> = 'Notes' ; colFmt<1,7> = '<3600'
|
||||
colHead<1,8> = 'Start' ; colFmt<1,8> = '^810'
|
||||
colHead<1,9> = 'Hrs' ; colFmt<1,9> = '>720'
|
||||
* Make Column Heading
|
||||
If IncludeReactItemIds then
|
||||
NumCols += 1
|
||||
end
|
||||
|
||||
If IncludeInjSettings then
|
||||
NumCols += 1
|
||||
end
|
||||
|
||||
If IncludeReactRatios then
|
||||
NumCols += 1
|
||||
end
|
||||
|
||||
colHead = '' ; colFmt = ''
|
||||
colHead<1,-1> = 'R' ; colFmt<1,-1> = '^':(REPORT_WIDTH$ * (.050 * (BASE_NUM_COLS$ / NumCols) ) )
|
||||
colHead<1,-1> = 'PSN' ; colFmt<1,-1> = '^':(REPORT_WIDTH$ * (.049 * (BASE_NUM_COLS$ / NumCols) ) )
|
||||
colHead<1,-1> = 'Problem Cat Desc' ; colFmt<1,-1> = '<':(REPORT_WIDTH$ * (.117 * (BASE_NUM_COLS$ / NumCols) ) )
|
||||
colHead<1,-1> = 'Serv':CRLF$:'ID' ; colFmt<1,-1> = '^':(REPORT_WIDTH$ * (.073 * (BASE_NUM_COLS$ / NumCols) ) )
|
||||
colHead<1,-1> = 'Reactor Svc Desc' ; colFmt<1,-1> = '<':(REPORT_WIDTH$ * (.258 * (BASE_NUM_COLS$ / NumCols) ) )
|
||||
colHead<1,-1> = 'Tech' ; colFmt<1,-1> = '^':(REPORT_WIDTH$ * (.068 * (BASE_NUM_COLS$ / NumCols) ) )
|
||||
If IncludeReactItemIds then
|
||||
colHead<1,-1> = 'Reactor Item ID' ; colFmt<1,-1> = '<':(REPORT_WIDTH$ * ( 1 / NumCols) )
|
||||
end
|
||||
If IncludeInjSettings then
|
||||
colHead<1,-1> = 'Inj Settings' ; colFmt<1,-1> = '<':(REPORT_WIDTH$ * ( 1 / NumCols) - 50 )
|
||||
end
|
||||
If IncludeReactRatios then
|
||||
colHead<1,-1> = 'Ratios' ; colFmt<1,-1> = '<':(REPORT_WIDTH$ * ( 1 / NumCols) + 150 )
|
||||
end
|
||||
colHead<1,-1> = 'Notes' ; colFmt<1,-1> = '<':(REPORT_WIDTH$ * (.248 * (BASE_NUM_COLS$ / NumCols) ) )
|
||||
colHead<1,-1> = 'Start' ; colFmt<1,-1> = '^':(REPORT_WIDTH$ * (.079 * (BASE_NUM_COLS$ / NumCols) ) )
|
||||
colHead<1,-1> = 'Hrs' ; colFmt<1,-1> = '>':(REPORT_WIDTH$ * (.043 * (BASE_NUM_COLS$ / NumCols) ) )
|
||||
|
||||
* Zero Accumulators For Each Break
|
||||
|
||||
@ -207,26 +239,45 @@ END
|
||||
@RECCOUNT += 1
|
||||
|
||||
* CALCULATE VALUE(S) FOR COLUMN(S)
|
||||
|
||||
S.ATID = {@ID}
|
||||
|
||||
S.Reactor={REACTOR}
|
||||
|
||||
S.React_Prob_Cat_Desc = {REACT_PROB_CAT_DESC}
|
||||
S.React_Serv_ID = {REACT_SERV_ID}
|
||||
S.React_Serv_Desc = {REACT_SERV_DESC}
|
||||
S.Tech = {TECH_SIG}
|
||||
S.Notes = {NOTES}
|
||||
S.StartDTM = OCONV({START_DATE},'D2/'):' ':OCONV({START_TIME},'MTS')
|
||||
S.Elapsed_Hours = {ELAPSED_HOURS}
|
||||
S.React_Item_IDS = {REACT_ITEM_IDS}
|
||||
|
||||
S.Reactor = {REACTOR}
|
||||
S.PSN = {PROD_SPEC_NO}
|
||||
S.React_Prob_Cat_Desc = {REACT_PROB_CAT_DESC}
|
||||
S.React_Serv_ID = {REACT_SERV_ID}
|
||||
S.React_Serv_Desc = {REACT_SERV_DESC}
|
||||
S.Tech = {TECH_SIG}
|
||||
S.Notes = {NOTES}
|
||||
S.StartDTM = OCONV({START_DATE},'D2/'):' ':OCONV({START_TIME},'MTS')
|
||||
S.Elapsed_Hours = {ELAPSED_HOURS}
|
||||
S.React_Item_IDS = {REACT_ITEM_IDS}
|
||||
Push.Select(f1, f2, f3, f4)
|
||||
S.InjSettings = ''
|
||||
InjSettings = OConv(Reactor_Services('GetInjectorSettingsByReactorLog', @ID), 'MD3,')
|
||||
NumSettings = DCount(InjSettings, @VM)
|
||||
If NumSettings GT 0 then
|
||||
For SettingIndex = 1 to NumSettings
|
||||
S.InjSettings<0, SettingIndex> = 'Inj ':SettingIndex:': ':InjSettings<0, SettingIndex>
|
||||
Next SettingIndex
|
||||
end
|
||||
Pop.Select(f1, f2, f3, f4)
|
||||
Push.Select(f1, f2, f3, f4)
|
||||
S.ReactorRatios = ''
|
||||
ReactorRatios = OConv(Reactor_Services('GetRatiosByReactorLog', @ID), 'MD3,')
|
||||
NumRatios = DCount(ReactorRatios, @VM)
|
||||
If NumRatios GT 0 then
|
||||
For RatioIndex = 1 to NumRatios
|
||||
S.ReactorRatios<0, RatioIndex> = 'Ratio ':RatioIndex:': ':ReactorRatios<0, RatioIndex>
|
||||
Next RatioIndex
|
||||
end
|
||||
Pop.Select(f1, f2, f3, f4)
|
||||
SWAP @VM WITH CRLF$ IN S.React_Prob_Cat_Desc
|
||||
SWAP @VM WITH CRLF$ IN S.React_Serv_ID
|
||||
SWAP @VM WITH CRLF$ IN S.React_Serv_Desc
|
||||
SWAP @VM WITH CRLF$ IN S.Notes
|
||||
SWAP @VM WITH CRLF$ IN S.React_Item_IDS
|
||||
|
||||
SWAP @VM WITH CRLF$ IN S.InjSettings
|
||||
SWAP @VM WITH CRLF$ IN S.ReactorRatios
|
||||
|
||||
* TEST FOR CONTROL BREAK(S)
|
||||
|
||||
@ -277,10 +328,6 @@ IF LastRecord THEN
|
||||
|
||||
GOSUB PrintTable
|
||||
|
||||
*status = Set_Printer('TEXT','')
|
||||
*status = Set_Printer('TEXT',@RECCOUNT:' Records Processed')
|
||||
|
||||
|
||||
GOTO Bail
|
||||
|
||||
END
|
||||
@ -301,16 +348,25 @@ END
|
||||
|
||||
* Print Detail Line
|
||||
|
||||
colData = ""
|
||||
colData<1,1> = S.Reactor
|
||||
colData<1,2> = S.React_Prob_Cat_Desc
|
||||
colData<1,3> = S.React_Serv_ID
|
||||
colData<1,4> = S.React_Serv_Desc
|
||||
colData<1,5> = S.Tech
|
||||
colData<1,6> = S.React_Item_IDS
|
||||
colData<1,7> = S.Notes
|
||||
colData<1,8> = S.StartDTM
|
||||
colData<1,9> = OCONV(S.Elapsed_Hours,'MD2')
|
||||
colData = ""
|
||||
colData<1,-1> = S.Reactor
|
||||
colData<1,-1> = S.PSN
|
||||
colData<1,-1> = S.React_Prob_Cat_Desc
|
||||
colData<1,-1> = S.React_Serv_ID
|
||||
colData<1,-1> = S.React_Serv_Desc
|
||||
colData<1,-1> = S.Tech
|
||||
If IncludeReactItemIds then
|
||||
colData<1,-1> = S.React_Item_IDS
|
||||
end
|
||||
If IncludeInjSettings then
|
||||
colData<1,-1> = S.InjSettings
|
||||
end
|
||||
If IncludeReactRatios then
|
||||
colData<1,-1> = S.ReactorRatios
|
||||
end
|
||||
colData<1,-1> = S.Notes
|
||||
colData<1,-1> = S.StartDTM
|
||||
colData<1,-1> = OCONV(S.Elapsed_Hours,'MD2')
|
||||
|
||||
GOSUB PrintTable
|
||||
|
||||
@ -342,7 +398,6 @@ RETURN
|
||||
PrintTable:
|
||||
* * * * * *
|
||||
|
||||
|
||||
stat = Set_Printer('CALCTABLE',colFmt:@FM:colData)
|
||||
TableSize = Get_Printer('CALCTABLE')
|
||||
TableHeight = TableSize<2>
|
||||
@ -375,278 +430,3 @@ END
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
/*
|
||||
|
||||
* ZERO ACCUMULATORS FOR EACH BREAK
|
||||
|
||||
Elapsed_Hours.Reactor.Total=0
|
||||
Elapsed_Hours.Reactor.Count=0
|
||||
Elapsed_Hours.Grand.Total=0
|
||||
Elapsed_Hours.Grand.Count=0
|
||||
|
||||
* NULL PREVIOUS BREAK BUCKETS
|
||||
|
||||
Prev.Reactor=''
|
||||
Last.Reactor.Break = 1
|
||||
|
||||
* * * * * * *
|
||||
READRECORD:
|
||||
* * * * * * *
|
||||
|
||||
IF @RECCOUNT GE 10 THEN
|
||||
Last.Record=1
|
||||
Reactor.Break=1
|
||||
REACTOR=Prev.Reactor
|
||||
REACTOR=Prev.Reactor
|
||||
GOTO BREAKS
|
||||
END
|
||||
*
|
||||
*
|
||||
* ZERO BREAK FLAGS TO FALSE
|
||||
*
|
||||
Reactor.Break=0
|
||||
*
|
||||
*
|
||||
READNEXT @ID, WHICH.VALUE ELSE
|
||||
IF STATUS() GT 0 THEN
|
||||
STATX = SET_FSERROR()
|
||||
RETURN
|
||||
END
|
||||
IF @FILE.ERROR<1> EQ 421 THEN
|
||||
STATX = SET_FSERROR()
|
||||
GOTO READRECORD
|
||||
END
|
||||
IF @FILE.ERROR<1> NE 111 THEN
|
||||
@ANS = @FILE.ERROR<1>
|
||||
STATX = SEND_DYN( {RLIST_TEXT_4} )
|
||||
READERR += 1
|
||||
GOTO READRECORD
|
||||
END
|
||||
Last.Record=1
|
||||
Reactor.Break=1
|
||||
REACTOR=Prev.Reactor
|
||||
END
|
||||
@FILE.ERROR.MODE=0
|
||||
|
||||
S.ATID = @ID
|
||||
|
||||
IF FirstPass AND Last.Record THEN
|
||||
STATX = SEND_DYN( {RLIST_TEXT_2} )
|
||||
RETURN
|
||||
END
|
||||
|
||||
IF Last.Record THEN GOTO BREAKS
|
||||
|
||||
IF @REDUCTION.DONE THEN
|
||||
READO @RECORD FROM FILE.IN, @ID ELSE
|
||||
@FILE.ERROR.MODE = 0
|
||||
IF STATUS() GT 0 THEN
|
||||
STATX = SET_FSERROR()
|
||||
RETURN
|
||||
END
|
||||
IF @FILE.ERROR<1> NE 100 THEN
|
||||
READERR += 1
|
||||
END
|
||||
GOTO READRECORD
|
||||
END
|
||||
END
|
||||
|
||||
@RECCOUNT += 1
|
||||
|
||||
|
||||
* CALCULATE VALUE(S) FOR COLUMN(S)
|
||||
|
||||
S.ATID={@ID}
|
||||
I.ATID=S.ATID
|
||||
S.Reactor={REACTOR}
|
||||
I.Reactor=S.Reactor
|
||||
S.Reactor1={REACTOR}
|
||||
I.Reactor1=S.Reactor1
|
||||
M.REACT_PROB_CAT_DESC={REACT_PROB_CAT_DESC}<1,WHICH.VALUE> ; P.REACT_PROB_CAT_DESC=1 ; C.REACT_PROB_CAT_DESC=7
|
||||
|
||||
* INITIALIZE MULTIVALUE BREAK CHECK VARIABLE
|
||||
|
||||
S.REACT_PROB_CAT_DESC = M.REACT_PROB_CAT_DESC
|
||||
M.REACT_SERV_ID={REACT_SERV_ID}<1,WHICH.VALUE> ; P.REACT_SERV_ID=1 ; C.REACT_SERV_ID=7
|
||||
|
||||
* INITIALIZE MULTIVALUE BREAK CHECK VARIABLE
|
||||
|
||||
S.REACT_SERV_ID = M.REACT_SERV_ID
|
||||
M.REACT_SERV_DESC={REACT_SERV_DESC}<1,WHICH.VALUE> ; P.REACT_SERV_DESC=1 ; C.REACT_SERV_DESC=7
|
||||
|
||||
* INITIALIZE MULTIVALUE BREAK CHECK VARIABLE
|
||||
|
||||
S.REACT_SERV_DESC = M.REACT_SERV_DESC
|
||||
S.TECH_SIG={TECH_SIG}
|
||||
I.TECH_SIG=S.TECH_SIG
|
||||
M.NOTES=FMT({NOTES},"T#20") ; P.NOTES=1 ; C.NOTES=7
|
||||
|
||||
* INITIALIZE TEXT BREAK CHECK VARIABLE(S)
|
||||
|
||||
S.NOTES = M.NOTES
|
||||
S.START_DATE={START_DATE}
|
||||
I.START_DATE=S.START_DATE
|
||||
S.Elapsed_Hours={Elapsed_Hours}
|
||||
I.Elapsed_Hours=S.Elapsed_Hours
|
||||
|
||||
PREVIOUS.MARK.LEVEL=0
|
||||
|
||||
* TEST FOR CONTROL BREAK(S)
|
||||
|
||||
IF (S.Reactor NE Prev.Reactor) OR Reactor.Break THEN
|
||||
REACTOR=Prev.Reactor
|
||||
Prev.Reactor=S.Reactor
|
||||
Reactor.Break+=1
|
||||
END
|
||||
|
||||
|
||||
IF FirstPass THEN
|
||||
FirstPass=0
|
||||
GOTO DETAIL
|
||||
END
|
||||
|
||||
* * * * * *
|
||||
BREAKS:
|
||||
* * * * * *
|
||||
|
||||
* PRINT BREAK TOTAL(S) AND ACCUMULATE TOTAL(S)
|
||||
|
||||
IF Reactor.Break THEN
|
||||
STATX = SEND_DYN("")
|
||||
PRINTLINE = ""
|
||||
PRINTLINE := FMT("***" : "", "R#14") : TAB$
|
||||
|
||||
PRINTLINE := SPACE(14) : TAB$
|
||||
|
||||
PRINTLINE := SPACE(24) : TAB$
|
||||
|
||||
PRINTLINE := SPACE(14) : TAB$
|
||||
|
||||
PRINTLINE := SPACE(20) : TAB$
|
||||
|
||||
PRINTLINE := SPACE(20) : TAB$
|
||||
|
||||
PRINTLINE := SPACE(20) : TAB$
|
||||
|
||||
PRINTLINE := SPACE(11) : TAB$
|
||||
|
||||
PRINTLINE := FMT(OCONV(Elapsed_Hours.Reactor.Total ,"MD2") , "R#16")
|
||||
STATX = SEND_DYN( PRINTLINE )
|
||||
STATX = SEND_DYN("")
|
||||
|
||||
Elapsed_Hours.Grand.Total+=Elapsed_Hours.Reactor.Total
|
||||
Elapsed_Hours.Reactor.Total=0
|
||||
Elapsed_Hours.Grand.Count+=Elapsed_Hours.Reactor.Count
|
||||
Elapsed_Hours.Reactor.Count=0
|
||||
END
|
||||
|
||||
* PERFORM LAST RECORD OUTPUT IF DONE
|
||||
|
||||
IF Last.Record THEN
|
||||
STATX = SEND_DYN("")
|
||||
PRINTLINE = ""
|
||||
PRINTLINE := FMT("***" : "", "R#14") : TAB$
|
||||
PRINTLINE := SPACE(14) : TAB$
|
||||
PRINTLINE := SPACE(24) : TAB$
|
||||
PRINTLINE := SPACE(14) : TAB$
|
||||
PRINTLINE := SPACE(20) : TAB$
|
||||
PRINTLINE := SPACE(20) : TAB$
|
||||
PRINTLINE := SPACE(20) : TAB$
|
||||
PRINTLINE := SPACE(11) : TAB$
|
||||
PRINTLINE := FMT(OCONV(Elapsed_Hours.Grand.Total ,"MD2") , "R#16")
|
||||
STATX = SEND_DYN( PRINTLINE )
|
||||
STATX = SEND_DYN("")
|
||||
@ANS=@RECCOUNT
|
||||
STATX = SEND_DYN( {RLIST_TEXT_1} )
|
||||
IF READERR THEN
|
||||
@ANS=READERR
|
||||
STATX = SEND_DYN( {RLIST_TEXT_3} )
|
||||
END
|
||||
RETURN
|
||||
END
|
||||
|
||||
* * * * * * *
|
||||
DETAIL:
|
||||
* * * * * * *
|
||||
|
||||
* REMOVE APPROPRIATE VALUE FROM MULTI-VALUED COLUMN(S)
|
||||
|
||||
NEW.MARK.LEVEL=0
|
||||
|
||||
IF C.REACT_PROB_CAT_DESC GE PREVIOUS.MARK.LEVEL THEN
|
||||
REMOVE I.REACT_PROB_CAT_DESC FROM M.REACT_PROB_CAT_DESC AT P.REACT_PROB_CAT_DESC SETTING C.REACT_PROB_CAT_DESC
|
||||
S.REACT_PROB_CAT_DESC=I.REACT_PROB_CAT_DESC
|
||||
END
|
||||
IF C.REACT_PROB_CAT_DESC GT NEW.MARK.LEVEL THEN NEW.MARK.LEVEL=C.REACT_PROB_CAT_DESC
|
||||
|
||||
IF C.REACT_SERV_ID GE PREVIOUS.MARK.LEVEL THEN
|
||||
REMOVE I.REACT_SERV_ID FROM M.REACT_SERV_ID AT P.REACT_SERV_ID SETTING C.REACT_SERV_ID
|
||||
S.REACT_SERV_ID=I.REACT_SERV_ID
|
||||
END
|
||||
IF C.REACT_SERV_ID GT NEW.MARK.LEVEL THEN NEW.MARK.LEVEL=C.REACT_SERV_ID
|
||||
|
||||
IF C.REACT_SERV_DESC GE PREVIOUS.MARK.LEVEL THEN
|
||||
REMOVE I.REACT_SERV_DESC FROM M.REACT_SERV_DESC AT P.REACT_SERV_DESC SETTING C.REACT_SERV_DESC
|
||||
S.REACT_SERV_DESC=I.REACT_SERV_DESC
|
||||
END
|
||||
IF C.REACT_SERV_DESC GT NEW.MARK.LEVEL THEN NEW.MARK.LEVEL=C.REACT_SERV_DESC
|
||||
|
||||
IF C.NOTES GE PREVIOUS.MARK.LEVEL THEN
|
||||
REMOVE I.NOTES FROM M.NOTES AT P.NOTES SETTING C.NOTES
|
||||
S.NOTES=I.NOTES
|
||||
END
|
||||
IF C.NOTES GT NEW.MARK.LEVEL THEN NEW.MARK.LEVEL=C.NOTES
|
||||
|
||||
|
||||
* DO CONVERSIONS IF ANY
|
||||
|
||||
IF S.Reactor NE "" THEN S.Reactor=OCONV(S.Reactor,"MD0")
|
||||
IF S.Reactor1 NE "" THEN S.Reactor1=OCONV(S.Reactor1,"MD0")
|
||||
IF S.REACT_SERV_ID NE "" THEN S.REACT_SERV_ID=OCONV(S.REACT_SERV_ID,"MD0")
|
||||
IF S.START_DATE NE "" THEN S.START_DATE=OCONV(S.START_DATE,"D2/")
|
||||
IF S.Elapsed_Hours NE "" THEN S.Elapsed_Hours=OCONV(S.Elapsed_Hours,"MD2")
|
||||
|
||||
* ACCUMULATE TOTAL(S)
|
||||
|
||||
IF NUM(I.Elapsed_Hours) AND I.Elapsed_Hours NE "" THEN
|
||||
Elapsed_Hours.Reactor.Total+=I.Elapsed_Hours
|
||||
Elapsed_Hours.Reactor.Count+=1
|
||||
I.Elapsed_Hours=''
|
||||
END
|
||||
|
||||
* PRINT DETAIL LINE
|
||||
|
||||
PRINTLINE = ""
|
||||
PRINTLINE := FMT( S.Reactor, "R#14") : TAB$
|
||||
PRINTLINE := FMT( S.Reactor1, "R#14") : TAB$
|
||||
PRINTLINE := FMT( S.REACT_PROB_CAT_DESC, "L#24") : TAB$
|
||||
PRINTLINE := FMT( S.REACT_SERV_ID, "R#14") : TAB$
|
||||
PRINTLINE := FMT( S.REACT_SERV_DESC, "L#20") : TAB$
|
||||
PRINTLINE := FMT( S.TECH_SIG, "L#20") : TAB$
|
||||
PRINTLINE := FMT( S.NOTES, "L#20") : TAB$
|
||||
PRINTLINE := FMT( S.START_DATE, "R#11") : TAB$
|
||||
PRINTLINE := FMT( S.Elapsed_Hours, "R#16")
|
||||
STATX = SEND_DYN( PRINTLINE )
|
||||
|
||||
IF NEW.MARK.LEVEL THEN
|
||||
S.Reactor=''
|
||||
S.Reactor1=''
|
||||
S.REACT_PROB_CAT_DESC=''
|
||||
S.REACT_SERV_ID=''
|
||||
S.REACT_SERV_DESC=''
|
||||
S.TECH_SIG=''
|
||||
S.NOTES=''
|
||||
S.START_DATE=''
|
||||
S.Elapsed_Hours=''
|
||||
PREVIOUS.MARK.LEVEL=NEW.MARK.LEVEL
|
||||
GOTO DETAIL
|
||||
END
|
||||
|
||||
GOTO READRECORD
|
||||
|
||||
END
|
||||
|
||||
*/
|
||||
|
||||
|
||||
|
||||
Reference in New Issue
Block a user