详解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;