在PL/SQL中调用Oracle ERP请求(一)-提交请求集

续上一篇,将提交请求集的方法也写出来。

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;
    --初始化设置
    fnd_global.apps_initialize(user_id      => global_user_id,
                               resp_id      => global_resp_id,
                               resp_appl_id => global_resp_appl_id);
    --设置请求集
    success := fnd_submit.set_request_set('INV', 'PLM_ERP_IMPORT');
    IF NOT success THEN
      RAISE custom_exception;
    END IF;
    --设置单请求参数
    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  := '错误提示:导入ERP正式表出错!' || SQLERRM;
    WHEN OTHERS THEN
      prm_appcode := -1;
      prm_appmsg  := '错误提示:导入ERP正式表出错!' || SQLERRM;
  END prc_do_import_set;
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值