PL/SQL调用系统标准的请求实例

来源：互联网发布：淘宝店铺不在了能退吗编辑：程序博客网时间：2024/05/23 23:48

需求：实现供应商的接口导入：

导入供应商、供应商地址和供应商联系人的信息。

定义变量：

--提交标准并发请求时的参数
    l_request_id1 NUMBER;
    l_request_id2 NUMBER;
    l_request_id3 NUMBER;
    l_request_id4 NUMBER;
    l_bl_result1 BOOLEAN;
    l_bl_result2 BOOLEAN;
    l_bl_result3 BOOLEAN;

调用标准的请求，将三个接口表中的数据导入到系统中。

实现sql如下：

IF v_supplier_error_flag = 'N' AND v_supplier_site_error_flag = 'N' AND v_supplier_contact_error_flag = 'N' THEN --分ou的导入,并且初始化OU FOR l_cur_submit IN cur_submit LOOP v_org_id := NULL; --初始化ou v_org_id := get_org_id(l_cur_submit.org_name); --初始化环境变量 set_policy_context(v_org_id); --调用标准的并发请求 --调用供应商的并发请求 l_request_id1 := fnd_request.submit_request('SQLAP', --应用简称 'APXSUIMP', --并发程序 '', '', FALSE, 'NEW', 1000, 'N', 'N', 'N', chr(0)); COMMIT; IF l_request_id1 IS NULL OR l_request_id1 = 0 THEN retcode := 2; errbuf := '供应商接口导入标准表出错!'; RETURN; END IF; l_bl_result1 := fnd_concurrent.wait_for_request(l_request_id1, --等待的请求 1, --间隔时间 0, --等待时间 v_phase, v_status, v_dev_phase, v_dev_status, v_message); IF v_dev_phase = 'COMPLETE' AND v_dev_status = 'NORMAL' THEN --调用供应商地点的并发请求 l_request_id2 := fnd_request.submit_request('SQLAP', --应用简称 'APXSSIMP', --并发程序 '', '', FALSE, 'NEW', 1000, 'N', 'N', 'N', chr(0)); COMMIT; IF l_request_id2 IS NULL OR l_request_id2 = 0 THEN retcode := 2; errbuf := '供应商地点接口导入标准表出错!'; RETURN; END IF; l_bl_result2 := fnd_concurrent.wait_for_request(l_request_id2, --等待的请求 1, --间隔时间 0, --等待时间 v_phase, v_status, v_dev_phase, v_dev_status, v_message); IF v_dev_phase = 'COMPLETE' AND v_dev_status = 'NORMAL' THEN --调用供应商地点联系人的并发请求 l_request_id3 := fnd_request.submit_request('SQLAP', --应用简称 'APXSCIMP', --并发程序 '', '', FALSE, 'NEW', 1000, 'N', 'N', 'N', chr(0)); COMMIT; IF l_request_id3 IS NULL OR l_request_id3 = 0 THEN retcode := 2; errbuf := '供应商地点联系人接口导入标准表出错!'; RETURN; END IF; l_bl_result3 := fnd_concurrent.wait_for_request(l_request_id3, --等待的请求 1, --间隔时间 0, --等待时间 v_phase, v_status, v_dev_phase, v_dev_status, v_message); IF v_dev_phase <> 'COMPLETE' AND v_dev_status <> 'NORMAL' THEN retcode := 2; errbuf := '供应商地点联系人接口导入标准表出错!'; RETURN; END IF; END IF; END IF; COMMIT; END LOOP; --结束loop循环END IF;