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

Merged PR 13910: Implemented an auto enter for test wafer usage form. Implemented a keep open...

Browse Source 
1. Implemented an auto enter for test wafer usage form.
2. Implemented a keep open flag for test wafer usage.
3. Changed mapping for Log A Test Run Button on NDW_MAIN form to new test wafer form.
4. Implemented a cast for Lot ID string in Log Test Wafer Usage form to ensure all data is upper case.

Related work items: #247309, #247310, #247870, #248319
This commit is contained in:
Ouellette Jonathan (CSC FI SPS MESLEO) 2025-03-27 21:44:04 +01:00
parent b76db6bc72
commit 9766e38a93
2 changed files with 26 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
LSL2/STPROC/NDW_LOG_TEST_WAFER_USAGE_EVENTS.txt
View File

@ -3,7 +3,8 @@ Compile function NDW_LOG_TEST_WAFER_USAGE_EVENTS(CtrlEntId, Event, @PARAMS)
#window NDW_LOG_TEST_WAFER_USAGE #window NDW_LOG_TEST_WAFER_USAGE
Declare function Get_Property, Error_Services, Test_Run_Services, Reactor_Services, Tool_Services, Database_Services, Lot_Services Declare function Get_Property, Error_Services, Test_Run_Services, Reactor_Services, Tool_Services, Database_Services, Lot_Services
Declare subroutine Set_Property, Error_Services, Msg, End_Dialog, Lot_Services, PlaceDialog declare function UCASE
Declare subroutine Set_Property, Error_Services, Msg, End_Dialog, Lot_Services, PlaceDialog, NDW_LOG_TEST_WAFER_USAGE_EVENTS
$Insert APP_INSERTS $Insert APP_INSERTS
$Insert TEST_RUN_EQUATES $Insert TEST_RUN_EQUATES
@ -41,7 +42,9 @@ Event WINDOW.CREATE(CreateParam)
RDSNo = CreateParam<1, 1> RDSNo = CreateParam<1, 1>
PresetTestType = CreateParam<1, 2> PresetTestType = CreateParam<1, 2>
PresetEquipmentType = CreateParam<1, 3> PresetEquipmentType = CreateParam<1, 3>
PresetEquipmentId = CreateParam<1, 4> PresetEquipmentId = CreateParam<1, 4>
end else
Set_Property(@Window, '@KeepWindowOpen', True$)
end end
If RDSNo NE '' AND RowExists('RDS', RDSNo) then If RDSNo NE '' AND RowExists('RDS', RDSNo) then
PSN = XLATE('RDS', RDSNo, RDS_PROD_SPEC_ID$, 'X') PSN = XLATE('RDS', RDSNo, RDS_PROD_SPEC_ID$, 'X')
@ -87,10 +90,16 @@ Event Window.CLOSE(CancelFlag, CloseFlags)
end event end event
Event EDL_LOT_ID.LOSTFOCUS(Flag, FocusID) Event EDL_LOT_ID.LOSTFOCUS(Flag, FocusID)
LotIdString = Get_Property(@Window : '.EDL_LOT_ID', 'TEXT') LotIdString = UCASE(Get_Property(@Window : '.EDL_LOT_ID', 'TEXT'))
If LotIdString[1, 4] EQ '1TTW' then If LotIdString NE '' then
Set_Property(@Window : '.EDL_LOT_ID', 'TEXT', LotIdString[3, 999]) If LotIdString[1, 4] EQ '1TTW' then
LotIdString = LotIdString[3, 999]
Set_Property(@Window : '.EDL_LOT_ID', 'TEXT', LotIdString)
end
NDW_LOG_TEST_WAFER_USAGE_EVENTS(@Window : '.PUB_ADD_LOT', 'CLICK')
Set_Property(@Window : '.EDL_LOT_ID', 'FOCUS', True$)
end end
end event end event
Event EDL_RDS.LOSTFOCUS(Flag, FocusID) Event EDL_RDS.LOSTFOCUS(Flag, FocusID)
@ -176,8 +185,9 @@ Event PUB_ADD_LOT.CLICK()
end else end else
Msg(@Window, 'Error: Lot ':LotId:' already exists in the list.') Msg(@Window, 'Error: Lot ':LotId:' already exists in the list.')
Set_Property(@Window : '.EDL_LOT_ID', 'TEXT', '') Set_Property(@Window : '.EDL_LOT_ID', 'TEXT', '')
end end
end end
end event end event
Event EDT_TW_USAGE.ROWSELCHANGED(SelRow, SelState) Event EDT_TW_USAGE.ROWSELCHANGED(SelRow, SelState)
@ -259,7 +269,13 @@ Event PUB_SUBMIT.CLICK()
Msg(@Window, 'Test Run Created Successfully!') Msg(@Window, 'Test Run Created Successfully!')
Result = '' Result = ''
Result<1> = True$ Result<1> = True$
End_Dialog(@Window, Result) KeepWindowOpen = Get_Property(@Window, '@KeepWindowOpen')
If KeepWindowOpen then
GoSub ClearFormData
end else
End_Dialog(@Window, Result)
end
end else end else
ErrorMessage = Error_Services('GetMessage') ErrorMessage = Error_Services('GetMessage')
Msg(@Window, 'Error! - ' : ErrorMessage) Msg(@Window, 'Error! - ' : ErrorMessage)
@ -319,3 +335,4 @@ return

3
LSL2/STPROC/NDW_MAIN_EVENTS.txt
View File

@ -674,7 +674,7 @@ end event
Event OLE_LOG_TEST_RUN.OnClick(Point, Button, Shift, Ctrl) Event OLE_LOG_TEST_RUN.OnClick(Point, Button, Shift, Ctrl)
rv = Start_Window('NDW_TEST_RUN', '') rv = Start_Window('NDW_LOG_TEST_WAFER_USAGE', '')
end event end event
@ -849,3 +849,4 @@ FixFont:
return return