63 lines
1.5 KiB
Plaintext
63 lines
1.5 KiB
Plaintext
Function NDW_Wafers_Removed_Rds_Prompt_Events(CtrlEntId, Event, @PARAMS)
|
|
|
|
#pragma precomp SRP_PreCompiler
|
|
#Window NDW_WAFERS_REMOVED_RDS_PROMPT
|
|
|
|
$insert APP_INSERTS
|
|
$insert EVENT_SETUP
|
|
|
|
$insert Message_Box_Equates
|
|
|
|
Declare subroutine Placedialog, Message_Box
|
|
|
|
SubclassInfo = Form_Services('FindSubclassControl')
|
|
Subclass = SubclassInfo<1>
|
|
|
|
// Update the arguments so that the OpenInsight OLE event will treate the ActiveX event as a native event handler.
|
|
If Event EQ 'OLE' then
|
|
Transfer Event to OIEvent
|
|
Transfer Param1 to Event
|
|
Transfer Param2 to Param1
|
|
Transfer Param3 to Param2
|
|
* Transfer Param4 to Param3
|
|
* Transfer Param5 to Param4
|
|
* Transfer Param6 to Param5
|
|
* Transfer Param7 to Param6
|
|
* Transfer Param8 to Param7
|
|
end
|
|
|
|
GoToEvent Event for CtrlEntID
|
|
|
|
Return EventFlow else EVENT_CONTINUE$
|
|
|
|
Event WINDOW.CREATE(CreateParam)
|
|
Placedialog(-2, -2)
|
|
end event
|
|
|
|
Event PUB_SUBMIT.CLICK()
|
|
SelectedLoadLocks = ''
|
|
|
|
LeftIsChecked = Get_Property(@Window:'.CHB_LEFT', 'CHECK')
|
|
RightIsChecked = Get_Property(@Window:'.CHB_RIGHT', 'CHECK')
|
|
|
|
If LeftIsChecked then SelectedLoadLocks = 'L'
|
|
If RightIsChecked then
|
|
If LeftIsChecked then
|
|
SelectedLoadLocks := @VM
|
|
end
|
|
SelectedLoadLocks := 'R'
|
|
end
|
|
If (LeftIsChecked EQ False$) and (RightIsChecked EQ False$) then
|
|
Message_Box(@Window, "You must select at least one load lock", "Error", MSG_ICON_EXCLAM$)
|
|
return
|
|
end
|
|
|
|
End_Dialog(@Window, SelectedLoadLocks)
|
|
end event
|
|
|
|
|
|
|
|
|
|
|
|
|