Oracle EBS AR 更新客户组织层
内容导读
互联网集市收集整理的这篇技术教程文章主要介绍了Oracle EBS AR 更新客户组织层,小编现在分享给大家,供广大互联网技能从业者学习和参考。文章包含2634字,纯文字阅读大概需要4分钟。
内容图文
-- Local variables here i integer; g_module varchar2(30) := ‘TCA_V2_API‘; lrec_org hz_party_v2pub.organization_rec_type; lrec_party hz_party_v2pub.party_rec_type; l_return_status varchar2(1); l_msg_count number; l_msg_data varchar2(2000); l_party_id number; l_party_number hz_parties.party_number%type; l_profile_id number; v_error_msg varchar2(2000); v_version_number number; cursor cur_DT is SELECT loc.location_id, loc.object_version_number, addr.PARTY_SITE_ID, hc.ACCOUNT_NUMBER, hc.CUST_ACCOUNT_ID, party_site.PARTY_SITE_NAME, hcp.CUST_ACCOUNT_PROFILE_ID, hcp.CREDIT_HOLD, hc.CREATION_DATE, hc.CREATED_BY, hc.ORIG_SYSTEM_REFERENCE, hc.PARTY_ID, hc.STATUS STATUS1, hz.STATUS STATUS2 FROM hz_cust_acct_sites_all addr, hz_party_sites party_site, hz_locations loc, HZ_CUSTOMER_PROFILES hcp, HZ_CUST_ACCOUNTS hc, hz_parties hz WHERE 1 = 1 AND addr.party_site_id = party_site.party_site_id AND loc.location_id = party_site.location_id and hc.PARTY_ID = party_site.PARTY_ID and hc.CUST_ACCOUNT_ID = hcp.CUST_ACCOUNT_ID and hz.PARTY_ID = party_site.PARTY_ID and hz.PARTY_NUMBER = ‘10984‘; begin -- Test statements here fnd_global.apps_initialize(0, 50738, 20003); mo_global.init(‘AR‘); FOR rec IN CUR_DT LOOP begin select h.OBJECT_VERSION_NUMBER into v_version_number from hz_parties h where h.PARTY_ID = rec.PARTY_ID; end; lrec_party.party_id := rec.party_id; lrec_party.status := ‘I‘; lrec_org.party_rec := lrec_party; hz_party_v2pub.update_organization(p_init_msg_list => fnd_api.G_TRUE ,p_organization_rec => lrec_org ,p_party_object_version_number => v_version_number ,x_profile_id => l_profile_id ,x_return_status => l_return_status ,x_msg_count => l_msg_count ,x_msg_data => l_msg_data); IF l_return_status = fnd_api.g_ret_sts_error THEN l_msg_count := fnd_msg_pub.count_msg; l_msg_data := substr(fnd_msg_pub.get(fnd_msg_pub.g_first, fnd_api.g_false), 1, 512); dbms_output.put_line(l_msg_data); fnd_msg_pub.delete_msg(); RAISE fnd_api.g_exc_error; ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN l_msg_count := fnd_msg_pub.count_msg; l_msg_data := substr(fnd_msg_pub.get(fnd_msg_pub.g_first, fnd_api.g_false), 1, 512); dbms_output.put_line(l_msg_data); fnd_msg_pub.delete_msg(); RAISE fnd_api.g_exc_unexpected_error; END IF; IF l_return_status = fnd_api.g_ret_sts_success THEN dbms_output.put_line(‘------------------Update Success-------------------‘); END IF; end loop; end;
Oracle EBS AR 更新客户组织层
标签:str file for org exp put output hold local
本文系统来源:https://www.cnblogs.com/jenrry/p/10006831.html
内容总结
以上是互联网集市为您收集整理的Oracle EBS AR 更新客户组织层全部内容,希望文章能够帮你解决Oracle EBS AR 更新客户组织层所遇到的程序开发问题。 如果觉得互联网集市技术教程内容还不错,欢迎将互联网集市网站推荐给程序员好友。
内容备注
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 gblab@vip.qq.com 举报,一经查实,本站将立刻删除。
内容手机端
扫描二维码推送至手机访问。