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

Fixed erro handling bug in Test_Run_Servics -> CreateTestRunRecord routine

Browse Source
This commit is contained in:
Infineon\Ouellette 2024-11-22 17:10:56 -07:00 committed by Ouellette Jonathan (CSC FI SPS MESLEO)
parent 953129af6e
commit a8a88f83cc
3 changed files with 1744 additions and 1572 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3312
LSL2/OIWIN/NDW_MAIN.json
View File

File diff suppressed because it is too large Load Diff

2
LSL2/STPROC/NDW_ADJUST_LOT_QTY_EVENTS.txt
View File

@ -18,7 +18,6 @@ Return EventFlow or 1
//----------------------------------------------------------------------------- //-----------------------------------------------------------------------------
Event WINDOW.CREATE(CreateParam) Event WINDOW.CREATE(CreateParam)
debug
PermissionAllowed = False$ PermissionAllowed = False$
Begin Case Begin Case
Case MemberOf(@User4, 'ENGINEERING') Case MemberOf(@User4, 'ENGINEERING')
@ -90,7 +89,6 @@ Event PUB_SEARCH_LOT.CLICK()
end event end event
Event PUB_SUBMIT.CLICK() Event PUB_SUBMIT.CLICK()
debug
LotId = Get_Property(@Window : '.EDL_LOT_NO', 'TEXT') LotId = Get_Property(@Window : '.EDL_LOT_NO', 'TEXT')
NewWfrQty = Get_Property(@Window : '.EDL_NEW_LOT_WFR_QTY', 'TEXT') NewWfrQty = Get_Property(@Window : '.EDL_NEW_LOT_WFR_QTY', 'TEXT')
LotType = Database_Services('ReadDataColumn', 'LOT', LotId, LOT_TYPE$, True$, 0, False$) LotType = Database_Services('ReadDataColumn', 'LOT', LotId, LOT_TYPE$, True$, 0, False$)

2
LSL2/STPROC/TEST_RUN_SERVICES.txt
View File

@ -465,6 +465,7 @@ Service CreateTestRunRecord(RunTypeID, EqpType, EqpID, PSNo, RDSNo, UserID, TWLo
LogData<1, 2> = @User4 LogData<1, 2> = @User4
LogData<1, 3> = 'Error writing TEST_RUN Record ' : TWRunKey : ': ' : ErrorMessage LogData<1, 3> = 'Error writing TEST_RUN Record ' : TWRunKey : ': ' : ErrorMessage
Logging_Services('AppendLog', objLogTR, LogData, @FM, @VM) Logging_Services('AppendLog', objLogTR, LogData, @FM, @VM)
Error_Services('Add', ErrorMessage)
Response = '' Response = ''
end end
end service end service
@ -745,3 +746,4 @@ end service