详解EBS接口开发之供应商导入补充-供应商地点增加实例

DECLARE
  --v_org_id number;
  v_vendor_interface_id         NUMBER;
  v_vendor_site_interface_id    NUMBER; --接口表的id
  v_vendor_contact_interface_id NUMBER; --接口表的id
  v_temp_ext_bank_acct_id       NUMBER;
  v_org_id                      NUMBER;

  v_vendor_id      NUMBER;
  l_vendor_site_id NUMBER;
  l_party_site_id  NUMBER;
  l_location_id    NUMBER;

  l_result_rec        iby_fndcpt_common_pub.result_rec_type;
  l_bank_acct_id      NUMBER;
  l_return_status     VARCHAR2(30);
  l_msg_count         NUMBER;
  l_msg_data          VARCHAR2(2000);
  v_party_id          NUMBER;
  v_count_lov         NUMBER;
  v_vendor_num        NUMBER;
  g_vendor_count      NUMBER;
  g_vendor_site       NUMBER;
  g_vendor_contact    NUMBER;
  l_ext_bank_acct_rec iby_ext_bankacct_pub.extbankacct_rec_type;

  l_vendor_site_rec ap_vendor_pub_pkg.r_vendor_site_rec_type;

  --根据批处理id取得多个ou，实现根据ou提交标准请求
  CURSOR cur_ou IS --取得系统中所有OU
    SELECT DISTINCT hr.organization_id org_id
    --INTO l_org_id
      FROM hr_operating_units           hr,
           gl_sets_of_books             gsob,
           financials_system_params_all fsp
     WHERE hr.set_of_books_id = gsob.set_of_books_id
       AND hr.organization_id = fsp.org_id;
BEGIN
  FOR rec_ou IN cur_ou LOOP
    v_org_id := NULL; --初始化ou
    v_org_id := rec_ou.org_id;
    /*IF l_debug = 'Y' THEN
      cux_conc_utl.log_msg('v_org_id:' || v_org_id);
    END IF;*/
    mo_global.set_policy_context(p_access_mode => 'S',
                                 p_org_id      => v_org_id);
    l_vendor_site_rec.org_id           := v_org_id;
    l_vendor_site_rec.vendor_id        := 5414; --V_PHILIPS
    l_vendor_site_rec.vendor_site_code := 'V_PHILIPSDAP';
    --l_vendor_site_rec.terms_name            := rec_vendors.term_name;
    l_vendor_site_rec.pay_site_flag         := 'Y';
    l_vendor_site_rec.purchasing_site_flag  := 'Y';
    l_vendor_site_rec.country               := 'CN'; --必输字段
    l_vendor_site_rec.primary_pay_site_flag := 'N';
    l_vendor_site_rec.address_line1         := '飞利浦(中国)投资有限公司小家电事业部';
    --cux_conc_utl.log_msg('---------@@@@@@@@@@@@--------');
    pos_vendor_pub_pkg.create_vendor_site(p_vendor_site_rec => l_vendor_site_rec,
                                          x_return_status   => l_return_status,
                                          x_msg_count       => l_msg_count,
                                          x_msg_data        => l_msg_data,
                                          x_vendor_site_id  => l_vendor_site_id,
                                          x_party_site_id   => l_party_site_id,
                                          x_location_id     => l_location_id);
    IF l_return_status <> fnd_api.g_ret_sts_success THEN
      FOR i IN 1 .. l_msg_count LOOP
        l_msg_data := fnd_msg_pub.get(p_msg_index => i, p_encoded => 'F');
        dbms_output.put_line('11111111:'||l_msg_data);
      END LOOP;
    END IF;
  END LOOP;
END;