Oracle EBS AR 更新客户账户层
declare
x_return_status VARCHAR2(150);
x_msg_count NUMBER;
x_msg_data VARCHAR2(2000);
x_profile_id NUMBER;
l_location_id NUMBER;
l_object_version_number NUMBER;
l_party_rec hz_cust_account_v2pub.cust_account_rec_type;
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
FROM hz_cust_acct_sites_all addr,
hz_party_sites party_site,
hz_locations loc,
HZ_CUSTOMER_PROFILES hcp,
HZ_CUST_ACCOUNTS hc
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 party_site.PARTY_ID =
(select hz.PARTY_ID
from hz_parties hz
where hz.PARTY_ID = party_site.PARTY_ID
and hz.PARTY_NUMBER = ''); begin
fnd_global.apps_initialize(0, 50738, 20003);
mo_global.init('AR');
FOR rec IN CUR_DT LOOP
begin
select hc.OBJECT_VERSION_NUMBER
into l_object_version_number
from HZ_CUST_ACCOUNTS hc
where hc.CUST_ACCOUNT_ID = rec.CUST_ACCOUNT_ID;
end;
l_party_rec.CUST_ACCOUNT_ID := rec.CUST_ACCOUNT_ID;
l_party_rec.ACCOUNT_NUMBER := rec.ACCOUNT_NUMBER;
l_party_rec.status := 'I';
l_party_rec.orig_system_reference := rec.orig_system_reference; hz_cust_account_v2pub.update_cust_account(p_init_msg_list => fnd_api.g_false,
p_cust_account_rec => l_party_rec,
p_object_version_number => l_object_version_number,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data); IF x_return_status = fnd_api.g_ret_sts_error THEN
x_msg_count := fnd_msg_pub.count_msg;
x_msg_data := substr(fnd_msg_pub.get(fnd_msg_pub.g_first,
fnd_api.g_false),
1,
512);
dbms_output.put_line(x_msg_data);
fnd_msg_pub.delete_msg();
RAISE fnd_api.g_exc_error;
ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
x_msg_count := fnd_msg_pub.count_msg;
x_msg_data := substr(fnd_msg_pub.get(fnd_msg_pub.g_first,
fnd_api.g_false),
1,
512);
dbms_output.put_line(x_msg_data); fnd_msg_pub.delete_msg();
RAISE fnd_api.g_exc_unexpected_error;
END IF;
IF x_return_status = fnd_api.g_ret_sts_success THEN
dbms_output.put_line('------------------Update Success-------------------'); END IF;
END LOOP;
END;
Oracle EBS AR 更新客户账户层的更多相关文章
- Oracle EBS AR 更新客户组织层
declare -- Local variables here i integer; g_module ) := 'TCA_V2_API'; lrec_org hz_party_v2pub.organ ...
- Oracle EBS AR 更新客户配置文件
DECLARE l_rec_profile_t hz_customer_profile_v2pub.customer_profile_rec_type; l_rec_profile hz_custom ...
- Oracle EBS AR 更新客户
DECLARE l_return_status ); l_msg_count NUMBER; l_msg_data ); l_rec_type hz ...
- Oracle EBS AR 客户API
------------------------------------ 1. Set Environment ------------------------------------ -- 1a. ...
- Oracle EBS AR 客户取数SQL
SELECT acct.cust_account_id, acct.party_id, acct.account_number, party.party_name, lkp1.meaning part ...
- Oracle EBS AR 其他API
DECLARE L_CR_ID NUMBER; L_ATTRIBUTE_REC AR_RECEIPT_API_PUB.ATTRIBUTE_REC_TYPE; L_GLOBAL_ATT_REC AR_R ...
- Oracle EBS AR 收款核销行关联到事务处理
select ra.trx_number from ar_cash_receipts_all cr, ar_receivable_applications_all ar,ra_customer_trx ...
- Oracle EBS AR 收款API收款方法标识无效
1.确认是不是没有收款方法 methods那个表的问题2.查看收款方法那个LOV的问题3.界面录入 是否会有问题 碰到的问题是 收款日期比较早时 找不到对应的收款方法 银行账户需要重新设置
- Oracle EBS AR 事务处理到期余额总计API
declare -- Local variables here i integer; x_line_original NUMBER; x_line_remaining NUMBER; ...
随机推荐
- Redis持久化配置-AOF
redis的持久化有rdb和aof两种. rdb是记录一段时间内的操作,一般的配置是一段时间内操作超过多少次就持久化.aof可以实现每次操作都持久化. 这里我们使用aof. 配置方式,打开redis的 ...
- 电信固定ip宽带80与8080端口踩坑
本文只是作为记录,避免后面遇到此类问题耗费时间. 实际情况:公司有个固定电信宽带是固定IP的,想把固定IP映射到测试环境ip,实现可以公网通过固定ip访问,内网通过局域网ip访问. 测试环境服务是占用 ...
- 使用Xshell和Xftfp部署简单的项目
最近本人偶尔接触到该如何部署项目,朋友要求截图,趁此之际,简单总结一下,以供大家分享,更希望各位大神指点,大家相互学习,有问题的勿喷. 1.使用环境:win 7+MyEclipse 2014 + to ...
- ADB故障时的一些命令
开发中经常用到adb重启等操作,简单记录一下. 1.重启 adb kill-server adb start-server 2.显示版本号 adb version 3.显示已连接的设备 adb dev ...
- ANTLR4权威指南 - 第7章 通过特定应用程序代码解耦语法
第7章 通过特定应用程序代码解耦语法 到目前为止,我们已经知道了怎么用ANTLR的语法来定义语言了,接下来我们要给我们的语法注入一些新的元素了.就语法本身而言,其用处并不大,因为它只能告诉我们一个用户 ...
- mysql replace语句
语法 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 REPLACE [LOW_PRIORITY | DELAYED] [INTO] tbl_name [ ...
- 使用 ahk 让普通键盘变为Dvorak键盘
本文告诉大家,如何使用软件做出Dvorak键盘. 在开始说如何做之前,需要告诉大家,什么是Dvorak键盘. Dvorak Simplified Keyboard /ˈdvɔːræk, dəˈvɔː- ...
- jsonp跨域简单应用(一)
转载:http://www.cnblogs.com/cyg17173/p/5865364.html ashx+jsonp+document.referrer -- 一年前学的JSONP 跨域,一年 ...
- [javaSE] 并发编程(线程间通信)
新建一个资源类Resource 定义成员变量String name 定义成员变量int age 新建一个输入类Input,实现Runnable接口 定义一个构造方法Input(),传入参数:Resou ...
- SpringBoot+JPA+cache入门
在pom.xml中加入如下依赖 <dependency> <groupId>org.springframework.boot</groupId> <artif ...