Fixed erro handling bug in Test_Run_Servics -> CreateTestRunRecord routine

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

File diff suppressed because it is too large Load Diff

View File

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

View File

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