Fixed erro handling bug in Test_Run_Servics -> CreateTestRunRecord routine
This commit is contained in:
parent
953129af6e
commit
a8a88f83cc
File diff suppressed because it is too large
Load Diff
@ -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$)
|
||||
|
@ -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
|
||||
|
||||
|
||||
|
||||
|
||||
|
Loading…
x
Reference in New Issue
Block a user