转自:
/tupian/20230522/zhaisx-803274 />
PROCEDURE prc_do_import_request(prm_org IN NUMBER,
prm_appcode OUT NUMBER,
prm_appmsg OUT VARCHAR2) IS
custom_exception EXCEPTION;
success BOOLEAN;
v_request_id NUMBER;
v_phase VARCHAR2(30);
v_status VARCHAR2(30);
v_dev_phase VARCHAR2(30);
v_dev_status VARCHAR2(30);
v_message VARCHAR2(1000);
v_request_flag BOOLEAN;
v_start_time VARCHAR2(30);
BEGIN
prm_appcode := 0;
--初始化设置
fnd_global.apps_initialize(user_id => global_user_id,--用户ID
resp_id => global_resp_id, --责任ID
resp_appl_id => global_resp_appl_id); --应用ID
--设置打印参数
success := fnd_request.set_print_options(printer => global_printer,
style => global_style,
copies => global_copies);
IF NOT success THEN
RAISE custom_exception;
END IF;
v_start_time := to_char(SYSDATE, 'DD-MON-YYYY HH24:MI:SS');
--调用请求
v_request_id := fnd_request.submit_request('INV', --应用
'INCOIN', --程序
'', --程序说明
v_start_time, --开始时间
FALSE, --是否作为子请求提交,该请求如果是被其它请求调用设为TRUE,否则为FALSE
prm_org, --自定义参数1:组织机构
'1', --自定义参数2 :
'1', --自定义参数3:
'1', --自定义参数4:
'1', --自定义参数5:
'1', --自定义参数6:
'1', --自定义参数7:
chr(0)); --结束标识
IF v_request_id = 0 THEN
RAISE custom_exception;
ELSE
COMMIT;
END IF;
--等待
v_request_flag := fnd_concurrent.wait_for_request(request_id => v_request_id,--返回的请求ID
INTERVAL => 5, --重复检测时间差
max_wait => 0, --最长等待时间,0为一直等待
phase => v_phase,
status => v_status,
dev_phase => v_dev_phase,
dev_status => v_dev_status,
message => v_message);
IF v_request_flag THEN
IF v_dev_status = 'NORMAL' THEN
NULL;
ELSE
RAISE custom_exception;
END IF;
ELSE
RAISE custom_exception;
END IF;
EXCEPTION
WHEN custom_exception THEN
prm_appcode := -1;
prm_appmsg := '错误提示:导入ERP正式表出错!' || SQLERRM;
WHEN OTHERS THEN
prm_appcode := -1;
prm_appmsg := '错误提示:导入ERP正式表出错!' || SQLERRM;
END prc_do_import_request;
名称栏目:在PL/SQL中调用OracleERP请求(一)-提交单个请求-创新互联
文章源于:
http://njwzjz.com/article/eeijc.html