Oracle ERP系统工具栏上ZOOM按钮的开发

在ERP标准custom.pll文件中，填写下面类似代码：

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;

当系统不自动激活菜单上的图标时，可以在数据块的 block-level 的 when-new-block-instance trigger中
    添加如下代码：
     以zoom为例子：set_menu_item_property('VIEW.ZOOM'，ENABLED，PROPERTY_TURE)
    在form-level 的相应的trigger（比如zoom trigger）中改写下列代码：
      custom.event（'ZOOM'）

 

custom.pll是EBS标准的一个library,当系统启动的时候会加载这个library。

很多时候，我们会需要写一些pll文件，比如控制Form上某些item的属性，如果是控制标准Form的某些属性，那么我们就可以通过Library来实现，而不用去动标准的Form（一般我们建议不去修改标准的Form）。再比如在工具条上增加一些菜单，等等。

当然，所有这些我们都可以通过直接修改custom.pll来实现，但是，我们不建议这么做，我们可以copy custom.pll重命名为:xx_cn_custom.pll (名字自己取)，然后把xx_cn_custom.pll加载到custom.pll下 (在custom.pll的event里，加上这段代码即可：xx_cn_custom.event;)，这样，系统启动的时候就会通过custom.pll也把xx_cn_custom.pll启动起来，那么，以后有什么客户化的library都可以在xx_cn_custom.pll里面修改了。比如，我客户化了一个叫xx_wip_custom.pll的library，那么我只要在xx_cn_custom.pll的event的procedure里加上：xx_wip_custom.event;就可以了。

这样做的好处就是降低了风险，因为custom.pll是标准的library，不管是调试还是其它的，都会影响到全局，当我们加载xx_cn_custom.pll之后，就会避免这些问题

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/25103190/viewspace-722007/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/25103190/viewspace-722007/