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

Modified UpdateQAMet service to support reactor scheduled metrology tests

Browse Source
This commit is contained in:
Infineon\StieberD
2025-09-25 15:33:11 -07:00
committed by Stieber Daniel (CSC FI SPS MESLEO)
parent f07e4476a7
commit 245f832445
4 changed files with 422 additions and 366 deletions
Download Patch File Download Diff File Expand all files Collapse all files

53
LSL2/STPROC/NDW_RDS_QUERY_EVENTS.txt
View File

@ -59,11 +59,11 @@ If Event EQ 'OLE' then
Transfer Param1 to Event
Transfer Param2 to Param1
Transfer Param3 to Param2
* Transfer Param4 to Param3
* Transfer Param5 to Param4
* Transfer Param6 to Param5
* Transfer Param7 to Param6
* Transfer Param8 to Param7
Transfer Param4 to Param3
Transfer Param5 to Param4
Transfer Param6 to Param5
Transfer Param7 to Param6
Transfer Param8 to Param7
end
GoToEvent Event for CtrlEntID
@ -226,14 +226,17 @@ Event PUB_ENG_OPTIONS.CLICK()
End Case
If ServiceModules NE '' then
Def = ""
ErrorMsg = ''
Def = ''
Def<MCAPTION$> = Caption
Def<MTYPE$> = "GC"
Def<MEXTENT$> = NumRows
Def<MTEXTWIDTH$> = 600
MsgUp = Msg(@WINDOW, Def) ;* Start gas guage message
Def<MCOL$> = -2
Def<MROW$> = -2
MsgUp = Msg(@Window, Def) ;* Start gas guage message
For each WOMatKey in WOMatKeys using @VM setting vPos
Running = Msg(@WINDOW, MsgUp, vPos, MSGINSTUPDATE$) ;* Update gas guage
Running = Msg(@Window, MsgUp, vPos, MSGINSTUPDATE$) ;* Update gas guage
For each ServiceModule in ServiceModules using @VM setting sPos
Service = Services<0, sPos>
If Service = 'UpdateRDSLayerSpecs' then
@ -243,21 +246,33 @@ Event PUB_ENG_OPTIONS.CLICK()
Ans = Function(@ServiceModule(Service, WOMatKey))
end
If Error_Services('HasError') then
Error_Services('DisplayError')
ErrorMsg = Error_Services('GetMessage')
end
Until (ErrorMsg NE '')
Next ServiceModule
Until (ErrorMsg NE '')
Next WOMatKey
Msg(@WINDOW,MsgUp) ;* Take gas guage down
Msg(@Window,MsgUp) ;* Take gas guage down
If (ErrorMsg NE '') then
Msg(@Window, '', 'OK', '', 'Operation Aborted':@FM:ErrorMsg)
end
end
If Error_Services('NoError') then
Def = ""
Def = ''
Def<MCOL$> = -2
Def<MROW$> = -2
If (ErrorMsg EQ '') then
Def<MICON$> = '*'
Def<MCAPTION$> = 'Success'
Def<MTEXT$> = "Update complete!"
Def<MTYPE$> = "BO"
MsgUp = Msg(@window, Def)
Def<MTEXT$> = 'Update complete!'
end else
Def<MICON$> = 'H'
Def<MCAPTION$> = 'Update failed!'
Def<MTEXT$> = ErrorMsg
end
Def<MTYPE$> = "BO"
MsgUp = Msg(@Window, Def, 'OK')
end
end event
@ -277,7 +292,7 @@ Event PUB_ON_HOLD.CLICK()
HoldEntity = 'RDS'
HoldType = 'HOLD'
HoldData = ''
HoldData = Dialog_Box('DIALOG_HOLD',@WINDOW,Transition:@FM:@FM:HoldType)
HoldData = Dialog_Box('DIALOG_HOLD',@Window,Transition:@FM:@FM:HoldType)
If HoldData NE 'Cancel' then
GoSub GetView
Hold_Services('EnableMultipleHolds', WOMatKeys, HoldEntity, RDSKeys, 'NDW_RDS_QUERY', '', HoldData)
@ -289,7 +304,7 @@ Event PUB_ON_HOLD.CLICK()
MsgInfo<MTYPE$> = 'BNY'
MsgInfo<MTEXT$> = 'Hold Successful. Would you like to print label(s)?'
MsgInfo<MICON$> = '!'
PrintLabel = Msg(@WINDOW,MsgInfo,'')
PrintLabel = Msg(@Window,MsgInfo,'')
HoldBy = HoldData<1>
Reason = HoldData<2>
Stage = HoldData<4>
@ -333,7 +348,7 @@ Event PUB_OFF_HOLD.CLICK()
Transition = True$
HoldType = 'HOLD'
HoldData = ''
HoldData = Dialog_Box('DIALOG_HOLD',@WINDOW,Transition:@FM:@FM:HoldType)
HoldData = Dialog_Box('DIALOG_HOLD',@Window,Transition:@FM:@FM:HoldType)
If HoldData NE 'Cancel' then
GoSub GetView
Hold_Services('DisableMultipleHolds', WOMatKeys, 'RDS', RDSKeys, 'NDW_RDS_QUERY', '', HoldData)
@ -666,7 +681,7 @@ CheckSelectedForHolds:
Until HoldOnFlag EQ True$ and HoldOffFlag EQ True$
Next K
end
if MemberOf(@USER4, 'ENG_TECH') OR MemberOf(@USER4, 'LEAD') OR MemberOf(@USER4, 'SUPERVISOR') then
if MemberOf(@User4, 'ENG_TECH') OR MemberOf(@User4, 'LEAD') OR MemberOf(@User4, 'SUPERVISOR') then
// IF ANY SELECTED LOTS ARE ON HOLD, ENABLE PUB_OFF_HOLD
Set_Property(@Window:'.PUB_OFF_HOLD', 'ENABLED', HoldOffFlag)
end else