供应商地点信息更新
来源:互联网 发布:cnc数控编程视频教程 编辑:程序博客网 时间:2024/04/29 21:21
例:更新供应商地点可采购flag
DECLARE l_api_version CONSTANT NUMBER := 1; l_msg_data VARCHAR2(2000); l_msg VARCHAR2(4000); l_msg_count NUMBER; l_return_status VARCHAR2(1); l_method_code VARCHAR2(50); l_vendor_site_rec ap_vendor_pub_pkg.r_vendor_site_rec_type; CURSOR cur_vendor IS SELECT vendor.vendor_id, vendor_site.vendor_site_id, vendor_site.org_id FROM ap_suppliers vendor, ap_supplier_sites_all vendor_site WHERE vendor.vendor_id = vendor_site.vendor_id AND vendor.vendor_type_lookup_code = 'EMPLOYEE';BEGIN fnd_global.apps_initialize(user_id => 1170, resp_id => 50717, resp_appl_id => 20005); --mo_global.set_policy_context(p_access_mode => 'S', p_org_id => 83); --fnd_profile.PUT(NAME =>'MFG_ORGANIZATION_ID' ,VAL => 83); FOR rec_vendor IN cur_vendor LOOP mo_global.set_policy_context(p_access_mode => 'S', p_org_id => rec_vendor.org_id); l_vendor_site_rec.purchasing_site_flag := 'N'; l_vendor_site_rec.vendor_id := rec_vendor.vendor_id; l_vendor_site_rec.vendor_site_id := rec_vendor.vendor_site_id; BEGIN ap_vendor_pub_pkg.update_vendor_site(p_api_version => l_api_version, p_init_msg_list => fnd_api.g_false, p_commit => fnd_api.g_false, p_validation_level => fnd_api.g_valid_level_full, x_return_status => l_return_status, x_msg_count => l_msg_count, x_msg_data => l_msg_data, p_vendor_site_rec => l_vendor_site_rec, p_vendor_site_id => rec_vendor.vendor_site_id, p_calling_prog => 'NOT ISETUP'); EXCEPTION WHEN OTHERS THEN dbms_output.put_line('ERROR:' || SQLERRM); END; --COMMIT; --dbms_output.put_line('o_return_status:'||o_return_status); 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('l_msg_data:' || l_msg_data); END LOOP; --FOR i IN 1 .. x_msg_count LOOP dbms_output.put_line('x_return_status:' || l_return_status); dbms_output.put_line('l_msg_data:' || l_msg_data); RAISE fnd_api.g_exc_unexpected_error; -- o_msg_data := l_msg_data; ELSE NULL; --dbms_output.put_line('S'); END IF; END LOOP; -- FOR REC_VENDOR IN cur_vendor LOOPEND;
0 0
- 供应商地点信息更新
- 供应商信息
- 供应商地点导入(API)Demo
- R12供应商地点层付款方法SQL
- 供应商信息导入
- 供应商信息全SQL
- 供应商信息一览
- 更新客户地点用途
- 供应商层和地点层的付款方法
- 供应商,地址,业务实体,地点关联银行账户
- 详解EBS接口开发之供应商导入补充-供应商地点增加实例
- 客户和供应商账户信息
- 供应商
- 供应商管理库存的信息支撑系统
- Oracle EBS供应商信息查询SQL语句
- 地点
- 地点
- 详解EBS接口开发之供应商导入(补充)--供应商银行账户更新
- 紫荆之声代码阅读之userpage
- hdu 2255
- BoomBeach海水效果实现
- 第十一周项目四—特殊的三位数
- mcs51单片机-矩阵式键盘
- 供应商地点信息更新
- HTML中<input>参数,以及文本输入框,文本域的讲解
- Smarty学习笔记
- 创建mysql表分区的方法
- 第11周项目2-求四个数最大公约数
- 第十一周项目五当年有几天
- 十月总结
- ECNA 2013 Stampede! (最大流)
- POJ 2718 Smallest Difference (穷竭搜索)