D2kWutil error at runtime, but not in Forms Developer

Question

Hi,
I need 'Form on top as SDI' (C/S 6.0.8.) and it works on my WNT machine stabil, also at runtime:
W-N-F-I Trigger
OnTop.Window_On_Top('WINDOW1');
On my WXP machine the same code
The runtime start with usesdi=NO is OK, but not with usesdi=YES :
there is a error: 'FRM 06503: PL/SQL Function returned without value.'
Here is a debug-log from the error run:
<00> SetDebug: Logging to File chk-debug-new.log
<99> Win_API(init): Searching For DLL (D2KWUT60.DLL)
<99> Win_API(init): Preload location not set
<99> Win_API(init): DLL loaded from D2KWUTIL60_PATH (d:\orawork\d2kwut60\)
<99> Win_API(init): DLL Found and Loaded
<99> PreLoad: Args: (None)
<99> DLLVersion: Args: <No Arguments>
<99> Register_Function_Call: Ftn="d2kwutil_Version", DLL Count=1, Initial Reg
<99> DLLVersion: Result: Version=D2KWUT60.DLL Version 6.0.6.0 Production
<99> Play_Wav: Args: FileName="SystemStart", Asynchronous=TRUE, RaiseExceptions=FALSE
<99> Register_Function_Call: Ftn="d2kwutil_PlaySound", DLL Count=1, Initial Reg
<99> Play_WAV: Result: RC=1
<99> Get_Parent_Window: Args: Window_Handle =198416, Recursive=TRUE, RaiseExceptions=FALSE
<99> Register_Function_Call: Ftn="d2kwutil_ParentWin", DLL Count=1, Initial Reg
<99> Get_Parent_Window: Result: RC=0
<99> Add_Error: Get_Parent_Window: Unable to obtain parent window handle
<99> Get_Parent_Window: Args: Window_Handle =329460, Recursive=TRUE, RaiseExceptions=FALSE
<99> Get_Parent_Window: Result: RC=0
<99> Add_Error: Get_Parent_Window: Unable to obtain parent window handle
<99> Get_Parent_Window: Args: Window_Handle =329460, Recursive=TRUE, RaiseExceptions=FALSE
<99> Get_Parent_Window: Result: RC=0
<99> Add_Error: Get_Parent_Window: Unable to obtain parent window handle
The ok debug:
<00> SetDebug: Logging to File chk-debug-new.log
<99> Win_API(init): Searching For DLL (D2KWUT60.DLL)
<99> Win_API(init): Preload location not set
<99> Win_API(init): DLL loaded from D2KWUTIL60_PATH (d:\orawork\d2kwut60\)
<99> Win_API(init): DLL Found and Loaded
<99> PreLoad: Args: (None)
<99> DLLVersion: Args: <No Arguments>
<99> Register_Function_Call: Ftn="d2kwutil_Version", DLL Count=1, Initial Reg
<99> DLLVersion: Result: Version=D2KWUT60.DLL Version 6.0.6.0 Production
<99> Play_Wav: Args: FileName="SystemStart", Asynchronous=TRUE, RaiseExceptions=FALSE
<99> Register_Function_Call: Ftn="d2kwutil_PlaySound", DLL Count=1, Initial Reg
<99> Play_WAV: Result: RC=1
<99> Get_Parent_Window: Args: Window_Handle =526002, Recursive=TRUE, RaiseExceptions=FALSE
<99> Register_Function_Call: Ftn="d2kwutil_ParentWin", DLL Count=1, Initial Reg
<99> Get_Parent_Window: Result: RC=198372
What is wrong?
Best Regards
Friedhold

Answer 1

Hi Duncan,
thank you for the tip:
I've modified the OnTop Package and it works fine
in SDI-mode (the Form is permanent on top!):
PROCEDURE Window_On_Top (Window_Name IN WINDOW) is
hWnd PLS_INTEGER;
hParent PLS_INTEGER;
iRC PLS_INTEGER;
BEGIN
hWnd := to_number(get_window_property(Window_Name,WINDOW_HANDLE));
------- hParent := win_api_utility.get_parent_window(hWnd,TRUE,FALSE);
------- if hParent <> 0 then
------- hWnd := hParent;
------- end if;
iRC := i_SetwindowPos(fh_SetWindowPos,hwnd,-1,0,0,0,0,19);
END;
Best Regards
Friedhold