Form_通过Zoom客制化跳转页面功能（案例）

2012-09-08 Created By BaoXinjian

一、摘要

---

Oracle Form Builder提供了提供了客制化custom.pll中zoom的功能，跳转页面的功能

编写Zoom

Zoom允许用户调用在每一个块中调用逻辑，例如，你可能希望在输入采购订单form时打开供应商form，你可以在这一个块上使用Zoom并且当用户调用它，你可以打开供应商form

11i版本Zoom的行为：

1. Oracle 应用程序提供一个菜单项和工具栏中的一个按钮，用户可以调用Zoom，只有当这个块在CUSTOM库Zoom逻辑定义后，菜单项和按钮才可用。

2. 当光标在form中改变到不同的块中，form调用CUSTOM库中的ZOOM_AVALIABLE 方法。如果这个方法返回TRUE，ZOOM条目和按钮可用，如果返回FALSE不可用。

3. 如果Zoom条目是可用的，这是当用户调用Zoom时调用CUSTOM中的ZOOM方法。你基于当前form和块编写这个事件的方法。

4. Zoom启动后，会在工具中通过Zoom按钮进行页面跳转

 

二、解析

---

1. Form Trigger Template Script

  function zoom_available return boolean is 

  -- 

  -- This function allows you to specify if zooms exist for the current 

  -- context. If zooms are available for this block, then return TRUE; 

  -- else return FALSE. 

  -- 

  -- This routine is called on a per-block basis within every Applications 

  -- form from the WHEN-NEW-BLOCK-INSTANCE trigger. Therefore, any code 

  -- that will enable Zoom must test the current form and block from 

  -- which the call is being made. 

  -- 

  -- By default this routine must return FALSE. 

  -- 

  /* Sample code: form_name varchar2(30) := name_in('system.current_form'); block_name varchar2(30) := name_in('system.cursor_block'); begin if (form_name = 'DEMXXEOR' and block_name = 'ORDERS') then return TRUE; else return FALSE; end if; end zoom_available; */ 

  -- 

  -- Real code starts here 

  -- 

  begin 

    return FALSE; end zoom_available; 

 

2. 实际例子

function zoom_available return boolean is form_name varchar2(30) := name_in('system.current_form'); block_name varchar2(30) := name_in('system.cursor_block'); begin
  if (form_name = 'WIPDJMDF') then

    return TRUE; elsif (form_name = 'POXSCASL' and block_name = 'ASL_SUPPLIERS') then

    return TRUE; else

    return FALSE; end if; end; --zoom_available;上段代码表示我们在form_name为：“WIPDJMDF”，“POXSCASL”的时候ZOOM按钮可用; --然后在自己定义的pll文件中响应ZOOM按钮： 
procedure event(event_name varchar2) is form_name varchar2(30) := name_in('system.current_form'); block_name varchar2(30) := name_in('system.current_block'); item_name varchar2(30) := name_in('system.current_item'); form_status varchar2(30) := name_in('system.form_status'); l_record_status varchar2(30) := name_in('system.record_status'); v_stage varchar2(1000); v_item_id number; v_vendor_name varchar2(300); begin/*when form instance*/ DEFAULT_VALUE(null,'GLOBAL.XXUTS_MFG_REVISION_MPN'); /*全局参数*/

  if (event_name = 'ZOOM' and form_name = 'POXSCASL') then v_item_id:=Name_In('ASL_ITEMS.ITEM_ID'); FND_FUNCTION.EXECUTE(/*调用另一Form*/ function_name=>'XXUTS_MFG_ITEM_REVISION', other_params =>'INVENTORY_ITEM_ID ='||v_item_id); end if; if (form_name = 'POXSCASL') and (event_name = 'WHEN-NEW-ITEM-INSTANCE') then
    if NAME_IN('GLOBAL.XXUTS_MFG_REVISION_MPN') is not null then copy(name_in('global.XXUTS_MFG_REVISION_MPN'),'ASL_SUPPLIERS.PRIMARY_VENDOR_ITEM'); copy(null, 'global.XXUTS_MFG_REVISION_MPN'); end if; end if; end event; 

 

3. 跳转Form Zoom按钮

 

Thanks and Regards