AP*更新供应商地点
--更新供应商地点
PROCEDURE update_vendor_site(p_init_msg_list IN VARCHAR2 DEFAULT fnd_api.g_false,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_cust_vendor_id IN NUMBER) IS
l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_VENDOR_SITE';
l_savepoint_name CONSTANT VARCHAR2(30) := 'UPDATE_VENDOR_SITE';
l_return_status VARCHAR2(1);
l_msg_count NUMBER;
l_msg_data VARCHAR2(4000);
v_return_mes VARCHAR2(4000);
l_message VARCHAR2(4000); lv_vendor_site_id NUMBER := 0; lv_vendor_site_rec_c ap_vendor_pub_pkg.r_vendor_site_rec_type;
lv_vendor_site_rec ap_vendor_pub_pkg.r_vendor_site_rec_type; l_vendor_site_id NUMBER;
l_party_site_id NUMBER;
l_location_id NUMBER; l_success_count NUMBER := 0;
l_error_count NUMBER := 0; l_party_id NUMBER; BEGIN
x_return_status := hss_api.start_activity(p_pkg_name => g_pkg_name,
p_api_name => l_api_name,
p_init_msg_list => p_init_msg_list);
IF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
RAISE fnd_api.g_exc_unexpected_error;
ELSIF (x_return_status = fnd_api.g_ret_sts_error) THEN
RAISE fnd_api.g_exc_error;
END IF; FOR rec_pt IN (SELECT cva.party_id,
cva.party_name,
cva.attribute15,
cia.org_id
FROM cux_dis_cust_vendor_all cva,
cux_dis_org_info_all cia
WHERE cva.cust_vendor_id = p_cust_vendor_id
AND cva.party_id = cia.party_id
AND cva.attribute15 = cia.attribute15
AND cia.new_discription_flag = 'Y')
LOOP FOR i IN (SELECT *
FROM (SELECT pvs.*
FROM po_vendors pv,
po_vendor_sites_all pvs
WHERE pvs.vendor_id = pv.vendor_id
AND pv.vendor_name = rec_pt.party_name
ORDER BY pvs.last_update_date DESC)
WHERE rownum = 1)
LOOP --log('org_id' || l_line.org_id);
--log('vendor_site_code' || l_line.vendor_site_code);
--log('vendor_id' || l_line.vendor_id); lv_vendor_site_rec := lv_vendor_site_rec_c; fnd_global.apps_initialize(user_id => fnd_global.user_id,
resp_id => fnd_global.resp_id,
resp_appl_id => fnd_global.resp_appl_id); mo_global.set_policy_context('S',
rec_pt.org_id); --========================================================================
lv_vendor_site_id := i.vendor_site_id; -- 供应商地点ID
lv_vendor_site_rec.vendor_site_id := i.vendor_site_id;
lv_vendor_site_rec.vendor_id := i.vendor_id; -- 供应商ID
lv_vendor_site_rec.vendor_site_code := i.vendor_site_code;
lv_vendor_site_rec.vendor_site_code_alt := i.vendor_site_code_alt;
lv_vendor_site_rec.inactive_date := trunc(SYSDATE); -- 失效日期
lv_vendor_site_rec.org_id := rec_pt.org_id;
lv_vendor_site_rec.location_id := i.location_id;
lv_vendor_site_rec.party_site_id := i.party_site_id;
lv_vendor_site_rec.address_style := i.address_style;
lv_vendor_site_rec.address_line1 := i.address_line1;
lv_vendor_site_rec.address_line2 := i.address_line2;
lv_vendor_site_rec.address_line3 := i.address_line3;
lv_vendor_site_rec.address_line4 := i.address_line4;
lv_vendor_site_rec.address_lines_alt := i.address_lines_alt;
lv_vendor_site_rec.province := i.province;
lv_vendor_site_rec.country := i.country;
lv_vendor_site_rec.county := i.county;
lv_vendor_site_rec.city := i.city;
lv_vendor_site_rec.state := i.state;
lv_vendor_site_rec.area_code := i.area_code;
lv_vendor_site_rec.ship_to_location_id := i.ship_to_location_id;
lv_vendor_site_rec.bill_to_location_id := i.bill_to_location_id;
lv_vendor_site_rec.terms_date_basis := i.terms_date_basis;
lv_vendor_site_rec.accts_pay_code_combination_id := i.accts_pay_code_combination_id;
lv_vendor_site_rec.prepay_code_combination_id := i.prepay_code_combination_id;
lv_vendor_site_rec.payment_priority := i.payment_priority;
lv_vendor_site_rec.terms_id := i.terms_id;
lv_vendor_site_rec.pay_date_basis_lookup_code := i.pay_date_basis_lookup_code;
lv_vendor_site_rec.fax := i.fax;
lv_vendor_site_rec.phone := i.phone;
lv_vendor_site_rec.pcard_site_flag := i.pcard_site_flag;
lv_vendor_site_rec.match_option := i.match_option;
lv_vendor_site_rec.country_of_origin_code := i.country_of_origin_code;
lv_vendor_site_rec.future_dated_payment_ccid := i.future_dated_payment_ccid;
lv_vendor_site_rec.email_address := i.email_address;
lv_vendor_site_rec.primary_pay_site_flag := i.primary_pay_site_flag;
lv_vendor_site_rec.ship_via_lookup_code := i.ship_via_lookup_code;
lv_vendor_site_rec.freight_terms_lookup_code := i.freight_terms_lookup_code;
lv_vendor_site_rec.fob_lookup_code := i.fob_lookup_code;
lv_vendor_site_rec.pay_group_lookup_code := i.pay_group_lookup_code;
lv_vendor_site_rec.invoice_currency_code := i.invoice_currency_code;
lv_vendor_site_rec.payment_currency_code := i.payment_currency_code;
lv_vendor_site_rec.vat_code := i.vat_code;
lv_vendor_site_rec.auto_tax_calc_flag := i.auto_tax_calc_flag;
lv_vendor_site_rec.pay_site_flag := 'Y'; --i.pay_site_flag;
lv_vendor_site_rec.purchasing_site_flag := 'Y'; --i.purchasing_site_flag; pos_vendor_pub_pkg.create_vendor_site(x_return_status => l_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data,
p_vendor_site_rec => lv_vendor_site_rec,
x_vendor_site_id => l_vendor_site_id,
x_party_site_id => l_party_site_id,
x_location_id => l_location_id); IF (x_return_status <> fnd_api.g_ret_sts_success) THEN l_msg_data := fnd_message.get || l_msg_data;
v_return_mes := cux_dis_cust_vdr_ipt_pkg.get_return_message(l_msg_count,
l_msg_data);
l_message := l_message || '.' || '新增地点：' || v_return_mes;
l_msg_data := l_message || '创建供应商地点失败!'; -- cux_conc_utl.log_msg('创建供应商地点失败!' || '-' || l_vendor_site_id || '-' || l_party_site_id || '-' || l_location_id || '-' || l_msg_data); log('创建供应商地点失败!' || '-' || l_vendor_site_id || '-' || l_party_site_id || '-' || l_location_id || '-' || l_msg_data);
RAISE fnd_api.g_exc_error;
ELSE
--导入后将party_id回写到客制化表中，并将状态更新为'已导入'
UPDATE cux_dis_cust_vendor_all cva
SET cva.status_code = 'ENABLED',
cva.attribute15 = 'Y'
WHERE cva.cust_vendor_id = p_cust_vendor_id; log('party_id:=' || '-' || rec_pt.party_id || '-' || 'org_id:=-' || '-' || rec_pt.org_id); UPDATE cux_dis_org_info_all cia
SET cia.discription_flag = 'Y',
cia.new_discription_flag = NULL,
cia.attribute15 = 'Y'
WHERE cia.party_id = rec_pt.party_id
AND cia.org_id = rec_pt.org_id
AND cia.new_discription_flag = 'Y';
END IF; END LOOP;
END LOOP;
--============================================================================ l_return_status := hss_api.end_activity(p_pkg_name => g_pkg_name,
p_api_name => l_api_name,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data);
EXCEPTION
WHEN fnd_api.g_exc_error THEN
ROLLBACK;
UPDATE cux_dis_cust_vendor_all cva
SET cva.status_code = 'IMPORT_FAILED'
WHERE cva.cust_vendor_id = p_cust_vendor_id;
x_return_status := hss_api.handle_exceptions(p_pkg_name => g_pkg_name,
p_api_name => l_api_name,
p_savepoint_name => l_savepoint_name,
p_exc_name => hss_api.g_exc_name_error,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data);
x_msg_data := x_msg_data || l_msg_data; WHEN fnd_api.g_exc_unexpected_error THEN
ROLLBACK;
UPDATE cux_dis_cust_vendor_all cva
SET cva.status_code = 'IMPORT_FAILED'
WHERE cva.cust_vendor_id = p_cust_vendor_id;
x_return_status := hss_api.handle_exceptions(p_pkg_name => g_pkg_name,
p_api_name => l_api_name,
p_savepoint_name => l_savepoint_name,
p_exc_name => hss_api.g_exc_name_unexp,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data);
x_msg_data := x_msg_data || l_msg_data;
WHEN OTHERS THEN
ROLLBACK;
UPDATE cux_dis_cust_vendor_all cva
SET cva.status_code = 'IMPORT_FAILED'
WHERE cva.cust_vendor_id = p_cust_vendor_id;
x_return_status := hss_api.handle_exceptions(p_pkg_name => g_pkg_name,
p_api_name => l_api_name,
p_savepoint_name => l_savepoint_name,
p_exc_name => hss_api.g_exc_name_others,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data);
x_msg_data := x_msg_data || l_msg_data;
END update_vendor_site;
AP*更新供应商地点的更多相关文章
- Oracle EBS AP更新供应商地址
SELECT pvs.vendor_site_id, pvs.party_site_id, hps.party_site_name, hps.object_version_number, hps.pa ...
- Oracle AP更新供应商
/*l_return_status:S l_msg_count:0 l_msg_data: l_vendor_id:133003 l_party_id:236055 */ DECLARE l_ ...
- 详解EBS接口开发之更新供应商付款方法
更新供应商地点层的付款方法API DECLARE --API 参数 l_external_payee_rec_type iby_disbursement_setup_pub.external_paye ...
- Oracle EBS AP 供应商地点失效
/* 供应商地点失效 creation: created by jenrry 20161108 1.00 */ DECLARE lv_return_status ) := NULL; ln_msg_c ...
- R12供应商地点层付款方法SQL
--R12供应商地点层付款方法SQL:SELECT ipmv.payment_method_name , ipmv.payment_method_code , 'N' primary_ ...
- EBS标准的查看供应商地点
VO数据源:oracle.apps.pos.supplier.server.SitesVO SELECT pvsa.address_style, hzl.language, pvsa.province ...
- 使用API更新供应商名称及曾用名
原文地址 更新供应商名称 EBS R12 (12.1.3) 更新供应商名称或替代供应商名称不能直接使用 pos_vendor_pub_pkg.update_vendor(p_vendor_rec =& ...
- Oracle EBS 更新客户地点
--更新客户地点 declare x_return_status ); x_msg_count NUMBER; x_msg_data ); x_profile_id NUMBER; l_locatio ...
- 详解EBS接口开发之供应商导入补充-供应商地点增加实例
DECLARE --v_org_id number; v_vendor_interface_id NUMBER; v_vendor_site_interface_id NUMBER; --接口表的id ...
随机推荐
- maven构建jar包
1.执行可执行的class,代码内需要有入口main方法 2.通过mvn package来构建jar包 3.使用java -jar test.jar来执行jar包 https://www.cnblog ...
- Windows7 无法访问共享文件，域访问解决方法。
1.开始——>运行——>gpedit.msc 打开[本地组策略编辑器] 2.计算机配置——>Windows设置——>安全设置——>本地策略——>安全选项——> ...
- [转]web服务器apache架构与原理 &apache 监控
web服务器 在开始了解Apache前,我 ...
- setTimeout递归调用跳转页面
<!DOCTYPE html> <html> <head lang="en"> <meta charset="UTF-8&quo ...
- MC34063组成DC-DC电路
+VO的输出电压峰值可达2倍V_IN,-VO的输出电压可达-V_IN. 需要注意的是,3路的峰值电路不能超过1.5A,同时两路附加电源的输出功率和必须小于V_IN·I·(1-D), 其中I为主输出的电 ...
- 模板方法在Spring事务中的应用
事务对于我们来讲不并陌生,也是在实际应用中一直都在使用.在JDBC中,事务大致的使用结构如下: 开启事务 业务逻辑处理 提交事务 Spring只是对事务进行了扩展和封装使用,现在看看在内部它是如何工作 ...
- Are you sure your NDK_MODULE_PATH variable is properly defined?（2）
Are you sure your NDK_MODULE_PATH variable is properly defined? STEP1: MIND: 明确NDK_MODULE_PATH概念ht ...
- APP H5页面显示优化
在开发移动端APP页面时,对各操作系统各种型号的手机进行适配是必须的.然鹅,上周在开发完一个落地页后,被测试给打了回来,其中列出了一个在我看来很小的问题:单击进入页面的时候,页面还没加载完的时候字体显 ...
- 安装VS组件提示“所选驱动不再有效。继续安装之前，请先检查安装路径的设置。”要怎么办？
电脑里面原来装了VS2010,包括的组件有VB和C++,现在想添加C#,结果安装的时候就提示“所选驱动不再有效.继续安装之前,请先检查安装路径的设置”,安装路径在C盘,还有40个G,不知道该怎么办? ...
- 开始整理iOS职位面试问题及答案
Object-c的类可以多重继承么?可以实现多个接口么?Category是什么?重写一个类的方式用继承好还是分类好?为什么? 答: Object-c的类不可以多重继承;可以实现多个接口,通过实现多个接 ...