|
zoom 应该可以,你试试below codes, 我们是call 一个custom form
最初由 judy007 发布
[B]用户要求在Inventory的处理物料搬运单行分配界面,按下“Update”键后,传入参数单据编号并自动运行二次开发的调拨单report,然后在实物进行签收后,再进行"Transact"。因此,我们的顾问为了达到此目的,又不修改标准form,要求启用zoom功能,或在tool下增加一个“运行调拨单”的菜单,用户在点击此菜单时,先判断数据是否保存,然后自动运行report。 [/B]
package body custom is
function zoom_available return boolean is
lv_form_name varchar2(30) := name_in('system.current_form');
lv_block_name varchar2(30) := name_in('system.cursor_block');
BEGIN
IF (lv_form_name = 'form name' and block_name = 'block name') THEN
--if block_name = 'SITE' then
return TRUE;
ELSE
return FALSE;
--fnd_message.debug('block_name');
--end if;
END IF;
END zoom_available;
procedure event(event_name varchar2) is
form_name varchar2(30) := name_in('system.current_form');
block_name varchar2(30) := name_in('system.cursor_block');
lv_param_to_pass1 varchar2(30);
lv_param_to_pass2 varchar2(30);
lv_param_to_pass3 varchar2(30);
lv_param_to_pass4 varchar2(80);
IF (event_name = 'ZOOM') THEN
IF (form_name = 'form name' AND block_name = 'block name') THEN
lv_param_to_pass1 := name_in('your parameter 1');
lv_param_to_pass2 := name_in('your parameter 2');
lv_param_to_pass3 := name_in('your parameter 3');
lv_param_to_pass4 := name_in('your parameter 4');
lv_param_to_pass5 := name_in('your parameter 5');
fnd_function.execute(FUNCTION_NAME=>'Your function name',
OPEN_FLAG=>'Y',
SESSION_FLAG=>'Y',
OTHER_PARAMS=>'your parameter 1="'||lv_param_to_pass1||
'"your parameter 2="'||lv_param_to_pass2||
'" your parameter 3="'||lv_param_to_pass3||
'" your parameter 4="'||lv_param_to_pass4||
'" ="'||lv_param_to_pass5||'"'
);
);
END IF; |
|