44 lines
1.4 KiB
Plaintext
44 lines
1.4 KiB
Plaintext
Function Sysprog_Events(Instruction, CtrlEntId, CtrlClassId, Param1, Param2, Param3, Param4, Param5, Param6, Param7, Param8, Param9, Param10, Param11, Param12, Param13, Param14)
|
|
/********************************************************************************************************
|
|
|
|
This program is proprietary and is not to be used by or disclosed to others, nor is it to
|
|
be copied without written permission from SRP Computer Solutions, Inc.
|
|
|
|
Name : Sysprog Events
|
|
|
|
Description :
|
|
|
|
Tags : [SRP]
|
|
|
|
Parameters :
|
|
|
|
History (Date, Initials, Notes)
|
|
09/17/08 fjt Initial development
|
|
|
|
********************************************************************************************************/
|
|
|
|
$insert SRP_APP_INSERTS
|
|
|
|
Declare function Function
|
|
|
|
If Assigned(Param1) else Param1 = ""
|
|
If Assigned(Param2) else Param2 = ""
|
|
If Assigned(Param3) else Param3 = ""
|
|
If Assigned(Param4) else Param4 = ""
|
|
If Assigned(Param5) else Param5 = ""
|
|
If Assigned(Param6) else Param6 = ""
|
|
If Assigned(Param7) else Param7 = ""
|
|
If Assigned(Param8) else Param8 = ""
|
|
|
|
Window = Field(CtrlEntId, ".", 1)[1, "F*"]
|
|
Control = Field(CtrlEntId, ".", 2)
|
|
Func = Window:"_EVENTS"
|
|
|
|
Begin Case
|
|
Case Instruction EQ 28
|
|
Ans = Function(@Func(CtrlEntID, "CONTEXTMENU", Param1, Param2))
|
|
End Case
|
|
|
|
If Assigned(Ans) else Ans = 1
|
|
Return Ans
|