41 lines
1.2 KiB
Plaintext
41 lines
1.2 KiB
Plaintext
Subroutine SVC_Embed_Window(Service, Param1, Param2, Param3, Param4, Param5)
|
|
|
|
/********************************************************************************************************
|
|
|
|
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 : SVC Embed Window
|
|
|
|
Description :
|
|
|
|
Tags : [SRP]
|
|
|
|
Parameters :
|
|
|
|
History (Date, Initials, Notes)
|
|
11/10/09 fjt Initial development
|
|
|
|
********************************************************************************************************/
|
|
|
|
$insert SRP_APP_INSERTS
|
|
$insert SERVICE_INSERT
|
|
|
|
Equ ShortCut$ to "WO_MASTER_SCHEDULER.OLE_SHORTCUT"
|
|
|
|
Transfer Param1 to Window
|
|
Transfer Param2 to Group
|
|
|
|
If Group EQ "" then Group = 1
|
|
|
|
If Group and Window then
|
|
rv = Send_Message(ShortCut$, "OLE.InsertGroup", Group, "Find")
|
|
rv = Start_MDIchild(Window, "WO_MASTER_SCHEDULER")
|
|
hWnd = Get_Property(Window, "HANDLE")
|
|
Send_Message(ShortCut$, "OLE.EmbedWindow", Group, hWnd)
|
|
Set_Property(ShortCut$, "OLE.GroupExpanded[4]", Yes$)
|
|
Ans = Success$
|
|
end
|
|
|
|
Return Ans
|