|
|

楼主 |
发表于 2012/5/17 15:57:16
|
显示全部楼层
marusu 发表于 2012/5/17 14:04 
呵呵,这种情况还真没有遇到过。如果就是一个request应该提交完事就在后台里面运行了,我们可以操作其他画面 ...
ln_req_id := FND_REQUEST.SUBMIT_REQUEST(
application => 'AR',
program => V_PROGRAM,--并发程序的名称
description => '',
start_time => '',
sub_request => FALSE,
argument1 => to_char(:CTRL.RECEIPT_DATE_FR, 'yyyy-mm-dd'),
argument2 => to_char(:CTRL.RECEIPT_DATE_TO, 'yyyy-mm-dd'),
argument3 => :CTRL.CUSTOMER_NO,
argument4 => CHR(0),
argument5 => null,
argument6 => null,
argument7 => null,
argument8 => null,
argument9 => null,
argument10 => null,
argument11 => null,
argument12 => null,
argument13 => null,
argument14 =>null,
argument15 => null,
argument16 => null,
argument17 => null,
argument18 => null,
argument19 => null,
argument20 => null,
argument21 => null,
argument22 => null,
argument23 => null,
argument24 => null,
argument25 => null,
argument26 => null,
argument27 => null,
argument28 => null,
argument29 => null,
argument30 => null,
argument31 => null,
argument32 => null,
argument33 => null,
argument34 => null,
argument35 => null,
argument36 => null,
argument37 => null,
argument38 => null,
argument39 => null,
argument40 => null,
argument41 => null,
argument42 => null,
argument43 => null,
argument44 => null,
argument45 => null,
argument46 => null,
argument47 => null,
argument48 => null,
argument49 => null,
argument50 => null,
argument51 => null,
argument52 => null,
argument53 => null,
argument54 => null,
argument55 => null,
argument56 => null,
argument57 => null,
argument58 => null,
argument59 => null,
argument60 => null,
argument61 => null,
argument62 => null,
argument63 => null,
argument64 => null,
argument65 => null,
argument66 => null,
argument67 => null,
argument68 => null,
argument69 => null,
argument70 => null,
argument71 => null,
argument72 => null,
argument73 => null,
argument74 => null,
argument75 => null,
argument76 => null,
argument77 => null,
argument78 => null,
argument79 => null,
argument80 => null,
argument81 => null,
argument82 => null,
argument83 => null,
argument84 => null,
argument85 => null,
argument86 => null,
argument87 => null,
argument88 => null,
argument89 => null,
argument90 => null,
argument91 => null,
argument92 => null,
argument93 => null,
argument94 => null,
argument95 => null,
argument96 => null,
argument97 => null,
argument98 => null,
argument99 => null,
argument100 => null
);
synchronize;
if ( ln_req_id = 0 ) then
fnd_message.retrieve;
fnd_message.error;
else
commit;
end if;
v_request_result := fnd_concurrent.wait_for_request( request_id => ln_req_id,
interval=> 5,
max_wait => 300,
phase => v_phase,
status => v_status,
dev_phase => v_dev_phase,
dev_status => v_dev_status,
message => v_message );
synchronize;
IF v_request_result THEN
if ( UPPER(v_dev_status) = 'NORMAL') then
editor_pkg.report(ln_req_id,'Y');
else
fnd_message.debug('打印单据出错,请查看请求中的详细信息.');
RETURN;
end if;
ELSE
Fnd_Message.Debug('请求未完成,无法查看报表内容!');
RETURN;
END IF;
我明白你的意思, 我意思是提交的时候 画面上有短暂的时间 鼠标什么都点不了
|
|