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 更新客户账户层的更多相关文章

  1. Oracle EBS AR 更新客户组织层

    declare -- Local variables here i integer; g_module ) := 'TCA_V2_API'; lrec_org hz_party_v2pub.organ ...

  2. Oracle EBS AR 更新客户配置文件

    DECLARE l_rec_profile_t hz_customer_profile_v2pub.customer_profile_rec_type; l_rec_profile hz_custom ...

  3. Oracle EBS AR 更新客户

    DECLARE    l_return_status );    l_msg_count     NUMBER;    l_msg_data      );    l_rec_type      hz ...

  4. Oracle EBS AR 客户API

    ------------------------------------ 1. Set Environment ------------------------------------ -- 1a. ...

  5. Oracle EBS AR 客户取数SQL

    SELECT acct.cust_account_id, acct.party_id, acct.account_number, party.party_name, lkp1.meaning part ...

  6. 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 ...

  7. Oracle EBS AR 收款核销行关联到事务处理

    select ra.trx_number from ar_cash_receipts_all cr, ar_receivable_applications_all ar,ra_customer_trx ...

  8. Oracle EBS AR 收款API收款方法标识无效

    1.确认是不是没有收款方法 methods那个表的问题2.查看收款方法那个LOV的问题3.界面录入 是否会有问题  碰到的问题是 收款日期比较早时 找不到对应的收款方法 银行账户需要重新设置

  9. Oracle EBS AR 事务处理到期余额总计API

    declare    -- Local variables here   i integer;   x_line_original NUMBER;   x_line_remaining NUMBER; ...

随机推荐

  1. 【树】Lowest Common Ancestor of a Binary Tree(递归)

    题目: Given a binary tree, find the lowest common ancestor (LCA) of two given nodes in the tree. Accor ...

  2. 原生js动态添加style,添加样式

    原生js动态添加style,添加样式 第一种 var style="[assign-url='"+str+"']{display:initial}"; var ...

  3. Go语言学习笔记十: 结构体

    Go语言学习笔记十: 结构体 Go语言的结构体语法和C语言类似.而结构体这个概念就类似高级语言Java中的类. 结构体定义 结构体有两个关键字type和struct,中间夹着一个结构体名称.大括号里面 ...

  4. LR问题集合

    LR如何解决低维不可分 特征映射:通过特征变换的方式把低维空间转换到高维空间,而在低维空间不可分的数据,到高维空间中线性可分的几率会高一些.具体方法:核函数,如:高斯核,多项式核等等. 从图模型角度看 ...

  5. windows设置多用户模式

    在实际使用我们较多使用的都是windows系统的单用户模式,它意味着当我们登录一个用户的时候如果另外一个用户也在登录,那么就得等待另外一个用户退出后才可以登录我们这个用户,但是实际需求中,我们经常会遇 ...

  6. UIKit 框架之Bar、Controller

    UIKit框架中有各种Bar,UITabBar.UINavigationBar.UIToolbar.Bar对应的就有一些Item,tabBarItem.navigationItem.toolbarIt ...

  7. Mysql汉字乱码的解决

    在安装Mysql时其实可能选择使用GBK来处理汉字,由于以前没使用,所以就按默认的英语处理.不过,也可以C:\Program Files\MySQL\MySQL Server 6.8安装路径下的my文 ...

  8. LeetCode CombinationSum II

    class Solution { public: vector<vector<int> > combinationSum2(vector<int> &num ...

  9. app判断链接参数后缀跳转不同地址

    http://testhf.irongbei.com/DoubleAct/index?from=app <?php $urlp = (isset($_GET['from']) && ...

  10. Git 学习之git 起步(一)

    起步 本章介绍开始使用 Git 前的相关知识.我们会先了解一些版本控制工具的历史背景,然后试着让 Git 在你的系统上跑起来,直到最后配置好,可以正常开始开发工作.读完本章,你就会明白为什么 Git ...