erp 弹不出oracle,form弹出窗口问题

贴了app_custom上来

PROCEDURE Close_Window(Wnd IN VARCHAR2) IS

l_num                 NUMBER;

BEGIN

-- prevents windows from closing while in enter-query mode.

IF (name_in('system.mode') = 'ENTER-QUERY') THEN

APP_exception.disabled;

RETURN;

END IF;

IF (Wnd = 'TOLINES_WIN') THEN

--  Tolines_query.clr_blk ('CLOSE-WINDOW');

app_window.close_first_window;

elsif wnd = 'MTL_TRX_LINE' then

if( wnd = get_view_property(get_item_property(:system.cursor_item, item_canvas), window_name)) then

go_block('tolines_blk');

end if;

end if;

IF (wnd = get_view_property(get_item_property(:SYSTEM.CURSOR_ITEM,

ITEM_CANVAS), WINDOW_NAME)) THEN

Do_key('PREVIOUS_BLOCK');

END IF;

Hide_window(wnd);

END close_window;

--------------------------------------------------------------------------------

PROCEDURE open_window(wnd in varchar2) IS

--  This procedure should be called from any code that could result

--  in a non-modal window being opened.

BEGIN

IF (wnd = 'TOLINES_WIN') THEN

APP_WINDOW.SET_WINDOW_POSITION('TOLINES_WIN','FIRST_WINDOW');

--    Go_Block('TOLINES_CONTROL');

-- Go_Block('TOLINES_PROMPT');

Go_block('TOLINES_BLK');

--

*****如何添加？？**

--

END IF;

END Open_Window;