66 lines
1.6 KiB
Plaintext
66 lines
1.6 KiB
Plaintext
Function PART_EVENTS(CtrlEntID,Event,Param1,Param2,Param3,Param4,Param5,Param6,Param7,Param8)
|
|
*
|
|
* Subroutine Name :PART_EVENTS
|
|
*
|
|
* Description : Commuter Module for PART
|
|
*
|
|
* Date : 07/06/2010
|
|
*
|
|
* Author : BRYCE_BARB
|
|
*
|
|
* OI Version : 9.1.1
|
|
*
|
|
* Comments :
|
|
*
|
|
*** RTI Generated Commuter Module ***
|
|
*
|
|
********************************************************
|
|
*
|
|
*
|
|
Declare Subroutine MSG
|
|
|
|
Declare Function MSG,GET_PROPERTY,SET_STATUS,GET_STATUS,SET_PROPERTY
|
|
Declare Function POPUP,REPOSITORY,SEND_MESSAGE,SEND_EVENT,UNASSIGNED
|
|
Declare Function UTILITY,CONTEXTMENU
|
|
|
|
$INSERT MSG_EQUATES
|
|
$INSERT POPUP_EQUATES
|
|
|
|
If Unassigned(CtrlEntID) Then CtrlEntID = ''
|
|
If Unassigned(Event) Then Event = ''
|
|
If Unassigned(Param1) Then Param1 = ''
|
|
If Unassigned(Param2) Then Param2 = ''
|
|
If Unassigned(Param3) Then Param3 = ''
|
|
If Unassigned(Param4) Then Param4 = ''
|
|
If Unassigned(Param5) Then Param5 = ''
|
|
If Unassigned(Param6) Then Param6 = ''
|
|
If Unassigned(Param7) Then Param7 = ''
|
|
If Unassigned(Param8) Then Param8 = ''
|
|
*
|
|
*
|
|
If index(CtrlEntID,".",1) then
|
|
WinName = Field(CtrlEntID,'.',1)
|
|
Control = Field(CtrlEntID,'.',2)
|
|
End else
|
|
WinName = CtrlEntID
|
|
Control = WinName
|
|
End
|
|
*
|
|
Parent = @window
|
|
Frame = Get_Property(Parent,'MDIFRAME')
|
|
If len(Frame) then Parent = Frame
|
|
*
|
|
Retval = 1
|
|
*
|
|
Begin Case
|
|
Case Control = "LU_PART"
|
|
Begin Case
|
|
Case Event = "CLICK"
|
|
|
|
qeparms = "@SELF,@EVENT,@PARAM1,@PARAM2,@PARAM3,@PARAM4,@PARAM5,@PARAM6"
|
|
valu = Repository("EXECUTE","SYSPROG*STPROCEXE**OBJ_CALL_EVENT",qeparms)
|
|
End Case
|
|
End Case
|
|
*
|
|
return retval
|