|
--submit the request
l_req_id_fee := fnd_request.submit_request('PO',
'REQIMPORT',
'',
'',
FALSE,
'POP_REQUEST',
to_char(SYSDATE, 'YYYYMMDD'),
'ALL',
'',
'N',
'N');
if (l_req_id_fee is null) or (l_req_id_fee = 0) then
raise l_submit_req;
else
--提交请求
COMMIT;
--更新状态(只有请求成功,状态才更改)
UPDATE hek_om_pop_headers_all
SET flow_status = 'reg_purchase'
--select * from hek_om_pop_headers_all
WHERE header_id IN (SELECT h.header_id
FROM hek_om_pop_headers_v h
WHERE h.flow_status = 'wait');
COMMIT;
end if;
1
、关于
fnd_request.submit_request
的用法
fnd_request.submit_request
的用法:
FND_REQUEST.SUBMIT_REQUEST
函数是用来提交一个请求的
,
它返回一个
NUMBER
值
.
具体调用如下
:result := fnd_request.submit_request(application CHAR, --AP
模快
program CHAR, --
应用程序
description CHAR, --
请求说明
(
可选
)
start_time CHAR, --RUN
时间
(
可选
)
sub_request BOOLEAN, --
是否作为子请求提交
argument1 CHAR, --
参数
1
argument2 CHAR, --
参数
2
argument3 CHAR, --
参数
3
argument4 CHAR, --
参数
4
argument5 CHAR, --
参数
5.......
argument100 CHAR);
英文说明
(zt oracle) :
Parameters are as follows:
application - Short name of the application associated with the concurrent
request to be submitted.
program - Short name of the concurrent program (not the executable) for which
the request should be submitted.
description - Description of the request that is displayed in the Concurrent
Requests form (Optional.)
start_time - Time at which the request should start running, formatted as HH24:
MI or HH24:MI:SS (Optional.)
sub_request - Set to TRUE if the request is submitted from another request and
should be treated as a sub-request.
argument1...100 - Arguments for the concurrent request; up to 100
arguments are permitted. If submitted from Oracle Forms, you must specify all
100 arguments.
补充说明:
在用
fnd_request.submit_request
的时候,第五个参数用
false
,不要被参数名称误导;
这个函数有
105
个参数,前面五个定义请求本身,后面
100
个是传递给请求的具体参数,都是
Char
类型,
我们需要转换,默认值是
chr(0)
,代表这个参数不用传递给调用的请求;
在
Package
里面调用只需要传递需要的参数个数,因为它有默认值指示结束;
在
form
里面则不行,要写满
105
个,而且我们参数结束之后要用一个
chr(0)
来表示结束
例
fnd_request.submit_request('AR',
'SVAINEX_P',
'',
'',
FALSE,
:parameter.invoice_store,
chr(0),
'','','',
'','','','','','','','','','','','','','','','','','','','',
'','','','','','','','','','','','','','','','','','','','',
'','','','','','','','','','','','','','','','','','','','',
'','','','','','','','','','','','','','','','','','','','',
'','','','','','','','','','','','','','','');
2
、
Oracle Erp
等待报表运行机制
主要是用到了
Fnd_concurrent.wait_for_ruqest
这个
function.
Fnd_concurrent.wait_for_request
返回
Boolean
值,主要参数如下:
function FND_CONCURRENT.WAIT_FOR_REQUEST
(request_id IN number default NULL, --
请求
ID
interval IN number default 60, --
检查时间间隔
max_wait IN number default 0, --
最大等待时间
phase OUT varchar2,
status OUT varchar2,
dev_phase OUT varchar2, --
请求运行阶段
dev_status OUT varchar2, --
各个阶段状态
message OUT varchar2 --
运行完成后输出信息
)
return boolean;
dev_phase
有
Pending,Running,Complete,Inactive
等几种,每种对应不同的
Dev-Status
,比如
Complete
阶段后就有
Normal,Error,Warning,Cancelled,Terminated
等几种状态。
l_request_status := Fnd_Concurrent.Wait_For_Request(l_request_id,
5,
0,
l_phase,
l_status,
l_dev_phase,
l_dev_status,
l_message);
IF l_request_status THEN
IF l_dev_status = 'NORMAL' THEN
NULL;
ELSE
Fnd_Message.Debug('请求运行不成功:'||l_dev_status);
RETURN;
END IF;
ELSE
Fnd_Message.Debug('请求未完成,无法查看报表内容!');
RETURN;
END IF;
Editor_Pkg.Report(l_request_id,'Y');
总结:
FND_REQUEST.SUBMIT_REQUEST
是一种通过后台方式提交请教的方法,可以在
pkg
和
form
中使用,在
form
中使用要将参数写全。
FND_CONCURRENT.WAIT_FOR_REQUEST
是一个等待当前请求运行完毕的程序,可以利用这个等待当前的请求程序运行完毕再运行下面的程序。
|
|