在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; 本文作者:网友 来源:网络
CIO之家 www.ciozj.com 微信公众号:imciow