這篇文章的內(nèi)容主要圍繞在PL/SQL中調(diào)用Oracle ERP提交請(qǐng)求集的示例分析進(jìn)行講述,文章內(nèi)容清晰易懂,條理清晰,非常適合新手學(xué)習(xí),值得大家去閱讀。感興趣的朋友可以跟隨小編一起閱讀吧。希望大家通過這篇文章有所收獲!

PROCEDURE prc_do_import_set(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;
--初始化設(shè)置
fnd_global.apps_initialize(user_id => global_user_id,
resp_id => global_resp_id,
resp_appl_id => global_resp_appl_id);
--設(shè)置請(qǐng)求集
success := fnd_submit.set_request_set('INV', 'PLM_ERP_IMPORT');
IF NOT success THEN
RAISE custom_exception;
END IF;
--設(shè)置單請(qǐng)求參數(shù)
success := fnd_submit.submit_program('INV',
'INCOIN',
'STAGE10',
prm_org,
'1',
'1',
'1',
'1',
'1',
'1',
chr(0));
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_submit.submit_set(v_start_time, FALSE);
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,
INTERVAL => 5,
max_wait => 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 := '錯(cuò)誤提示:導(dǎo)入ERP正式表出錯(cuò)!' || SQLERRM;
WHEN OTHERS THEN
prm_appcode := -1;
prm_appmsg := '錯(cuò)誤提示:導(dǎo)入ERP正式表出錯(cuò)!' || SQLERRM;
END prc_do_import_set;
感謝你的閱讀,相信你對(duì)“在PL/SQL中調(diào)用Oracle ERP提交請(qǐng)求集的示例分析”這一問題有一定的了解,快去動(dòng)手實(shí)踐吧,如果想了解更多相關(guān)知識(shí)點(diǎn),可以關(guān)注創(chuàng)新互聯(lián)-成都網(wǎng)站建設(shè)公司網(wǎng)站!小編會(huì)繼續(xù)為大家?guī)砀玫奈恼拢?/p>
文章標(biāo)題:在PL/SQL中調(diào)用OracleERP提交請(qǐng)求集的示例分析-創(chuàng)新互聯(lián)
當(dāng)前鏈接:http://www.chinadenli.net/article14/iggde.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供建站公司、網(wǎng)站導(dǎo)航、品牌網(wǎng)站設(shè)計(jì)、微信小程序、搜索引擎優(yōu)化、面包屑導(dǎo)航
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請(qǐng)盡快告知,我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng),如需處理請(qǐng)聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時(shí)需注明來源: 創(chuàng)新互聯(lián)
猜你還喜歡下面的內(nèi)容