Added missing events to TW Tracking form

This commit is contained in:
Infineon\Ouellette
2024-12-05 11:54:40 -07:00
parent 0483d54928
commit 432db10957
2 changed files with 64 additions and 3 deletions

View File

@ -2667,8 +2667,36 @@
},
"<14,16>": "",
"<14,17>": "",
"<14,18>": "",
"<14,19>": "",
"<14,18>": {
"<14,18,1>": {
"<14,18,1,1>": "X",
"<14,18,1,2>": "EXECUTE",
"<14,18,1,3>": "@WINDOW_EVENTS",
"<14,18,1,4>": {
"<14,18,1,4,1>": "@SELF",
"<14,18,1,4,2>": "@EVENT",
"<14,18,1,4,3>": "@PARAM1",
"<14,18,1,4,4>": "@PARAM2",
"<14,18,1,4,5>": "@PARAM3",
"<14,18,1,4,6>": "@PARAM4",
"<14,18,1,4,7>": "@PARAM5",
"<14,18,1,4,8>": "@PARAM6"
},
"<14,18,1,5>": "",
"<14,18,1,6>": "",
"<14,18,1,7>": "",
"<14,18,1,8>": "",
"<14,18,1,9>": "",
"<14,18,1,10>": "",
"<14,18,1,11>": "",
"<14,18,1,12>": "",
"<14,18,1,13>": "",
"<14,18,1,14>": "",
"<14,18,1,15>": "COMMEVT",
"<14,18,1,16>": "0"
}
},
"<14,19>": "LOSTFOCUS",
"<14,20>": "",
"<14,21>": "",
"<14,22>": "",
@ -2768,7 +2796,7 @@
"<15,3>": "PUSHBUTTON",
"<15,4>": "NDW_LOG_TEST_WAFER_USAGE",
"<15,5>": "324",
"<15,6>": "4",
"<15,6>": "7",
"<15,7>": "84",
"<15,8>": "32",
"<15,9>": "Add Lot",

View File

@ -94,6 +94,33 @@ Event EDL_LOT_ID.LOSTFOCUS(Flag, FocusID)
end
end event
Event EDL_RDS.LOSTFOCUS(Flag, FocusID)
RDSNo = Get_Property(@Window : '.EDL_RDS', 'TEXT')
If Len(RDSNo) GE 6 then
If RowExists('RDS', RDSNo) then
RDSRec = Database_Services('ReadDataRow', 'RDS', RDSNo)
PSN = RDSRec<RDS_PROD_SPEC_ID$>
ReactorNo = RDSRec<RDS_REACTOR$>
If PSN NE '' then
Set_Property(@Window : '.EDL_PSN', 'TEXT', PSN)
Set_Property(@Window : '.EDL_PSN', 'ENABLED', -1)
end
If ReactorNo NE '' then
Set_Property(@Window : '.CMB_EQUIP_TYPE', 'VALUE', 'Reactor')
Set_Property(@Window : '.CMB_EQUIP_TYPE', 'ENABLED', -1)
Set_Property(@Window : '.CMB_EQUIPMENT_ID', 'TEXT', ReactorNo)
Set_Property(@Window : '.CMB_EQUIPMENT_ID', 'ENABLED', -1)
end
end
end else
Set_Property(@Window : '.EDL_PSN', 'TEXT', '')
Set_Property(@Window : '.EDL_PSN', 'ENABLED', True$)
Set_Property(@Window : '.CMB_EQUIPMENT_ID', 'TEXT', '')
Set_Property(@Window : '.CMB_EQUIPMENT_ID', 'ENABLED', True$)
Set_Property(@Window : '.CMB_EQUIP_TYPE', 'ENABLED', True$)
end
end event
Event PUB_ADD_LOT.CLICK()
TWLotUseArray = Get_Property(@Window: '.EDT_TW_USAGE', 'LIST')
LotId = Get_Property(@Window : '.EDL_LOT_ID', 'TEXT')
@ -277,8 +304,13 @@ Return
ClearFormData:
Set_Property(@Window : '.EDL_LOT_ID', 'TEXT', '')
Set_Property(@Window : '.EDL_RDS', 'TEXT', '')
Set_Property(@Window : '.EDL_PSN', 'TEXT', '')
Set_Property(@Window : '.EDL_PSN', 'ENABLED', True$)
Set_Property(@Window : '.CMB_EQUIP_TYPE', 'TEXT', '')
Set_Property(@Window : '.CMB_EQUIP_TYPE', 'ENABLED', True$)
Set_Property(@Window : '.CMB_EQUIPMENT_ID', 'TEXT', '')
Set_Property(@Window : '.CMB_EQUIPMENT_ID', 'ENABLED', True$)
Set_Property(@Window : 'CMB_TEST_TYPE', 'TEXT', '')
Set_Property(@Window : '.EDT_TW_USAGE', 'LIST', '')
return
@ -286,3 +318,4 @@ return