Oracle EBS AR 客户API

------------------------------------

1. Set Environment

------------------------------------

-- 1a. Setup the Org_id

------------------------------------

exec dbms_application_info.set_client_info('204');

------------------------------------

-- 1b. Show the output variables

------------------------------------

set serveroutput on

------------------------------------

2. Create a party and an account

------------------------------------

DECLARE

 p_cust_account_rec HZ_CUST_ACCOUNT_V2PUB.CUST_ACCOUNT_REC_TYPE;

 p_organization_rec HZ_PARTY_V2PUB.ORGANIZATION_REC_TYPE;

 p_customer_profile_rec

 HZ_CUSTOMER_PROFILE_V2PUB.CUSTOMER_PROFILE_REC_TYPE;

 x_cust_account_id NUMBER;

 x_account_number VARCHAR2(2000);

 x_party_id NUMBER;

 x_party_number VARCHAR2(2000);

 x_profile_id NUMBER;

 x_return_status VARCHAR2(2000);

 x_msg_count NUMBER;

 x_msg_data VARCHAR2(2000);

BEGIN

 p_cust_account_rec.account_name := 'CUSEXAPIFIG02';

 p_cust_account_rec.created_by_module := 'TCAPI_EXAMPLE';

 p_organization_rec.organization_name := 'CUSEXAPIFIG02';

 p_organization_rec.created_by_module := 'TCAPI_EXAMPLE';

 hz_cust_account_v2pub.create_cust_account(

 'T',

 p_cust_account_rec,

 p_organization_rec,

 p_customer_profile_rec,

 'F',

 x_cust_account_id,

 x_account_number,

 x_party_id,

 x_party_number,

 x_profile_id,

 x_return_status,

 x_msg_count,

 x_msg_data);

 dbms_output.put_line('***************************');

 dbms_output.put_line('Output information ....');

 dbms_output.put_line('***************************');

 dbms_output.put_line('x_cust_account_id: '||x_cust_account_id);

 dbms_output.put_line('x_account_number: '||x_account_number);

 dbms_output.put_line('x_party_id: '||x_party_id);

 dbms_output.put_line('x_party_number: '||x_party_number);

 dbms_output.put_line('x_profile_id: '||x_profile_id);

 dbms_output.put_line('x_return_status: '||x_return_status);

 dbms_output.put_line('x_msg_count: '||x_msg_count);

 dbms_output.put_line('x_msg_data: '||x_msg_data);

 dbms_output.put_line('***************************');

 IF x_msg_count >1 THEN

  FOR I IN 1..x_msg_count

   LOOP

    dbms_output.put_line(I||'. '||SubStr(FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE ), 1, 255));

  END LOOP;

 END IF;

END;

/

***************************

Output information ....

***************************

x_cust_account_id: 6075

x_account_number: 3040

x_party_id: 17092

x_party_number: 14444

x_profile_id: 5290

x_return_status: S

x_msg_count: 0

x_msg_data:

***************************

/* BEGIN address  */

------------------------------------

3. Create a physical location

------------------------------------

DECLARE

 p_location_rec HZ_LOCATION_V2PUB.LOCATION_REC_TYPE;

 x_location_id NUMBER;

 x_return_status VARCHAR2(2000);

 x_msg_count NUMBER;

 x_msg_data VARCHAR2(2000);

BEGIN

 p_location_rec.country := 'US';

 p_location_rec.address1 := 'Address4';

 p_location_rec.city := 'San Mateo';

 p_location_rec.postal_code := '94401';

 p_location_rec.state := 'CA';

 p_location_rec.created_by_module := 'TCAPI_EXAMPLE';

 hz_location_v2pub.create_location(

 'T',

 p_location_rec,

 x_location_id,

 x_return_status,

 x_msg_count,

 x_msg_data);

 dbms_output.put_line('***************************');

 dbms_output.put_line('Output information ....');

 dbms_output.put_line('***************************');

 dbms_output.put_line('x_location_id: '||x_location_id);

 dbms_output.put_line('x_return_status: '||x_return_status);

 dbms_output.put_line('x_msg_count: '||x_msg_count);

 dbms_output.put_line('x_msg_data: '||x_msg_data);

 dbms_output.put_line('***************************');

 IF x_msg_count >1 THEN

  FOR I IN 1..x_msg_count

   LOOP

    dbms_output.put_line(I||'. '||SubStr(FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE ), 1, 255));

  END LOOP;

 END IF;

END;

/

***************************

Output information ....

***************************

x_location_id: 13326

x_return_status: S

x_msg_count: 0

x_msg_data:

***************************

------------------------------------

4. Create a party site using party_id from step 2 and location_id from step 3

------------------------------------

DECLARE

 p_party_site_rec HZ_PARTY_SITE_V2PUB.PARTY_SITE_REC_TYPE;

 x_party_site_id NUMBER;

 x_party_site_number VARCHAR2(2000);

 x_return_status VARCHAR2(2000);

 x_msg_count NUMBER;

 x_msg_data VARCHAR2(2000);

BEGIN

 p_party_site_rec.party_id := 17092; --value for party_id from step 2>

 p_party_site_rec.location_id := 13326; --value for location_id from step 3>

 p_party_site_rec.identifying_address_flag := 'Y';

 p_party_site_rec.created_by_module := 'TCAPI_EXAMPLE';

 hz_party_site_v2pub.create_party_site(

 'T',

 p_party_site_rec,

 x_party_site_id,

 x_party_site_number,

 x_return_status,

 x_msg_count,

 x_msg_data);

 dbms_output.put_line('***************************');

 dbms_output.put_line('Output information ....');

 dbms_output.put_line('***************************');

 dbms_output.put_line('x_party_site_id: '||x_party_site_id);

 dbms_output.put_line('x_party_site_number: '||x_party_site_number);

 dbms_output.put_line('x_return_status: '||x_return_status);

 dbms_output.put_line('x_msg_count: '||x_msg_count);

 dbms_output.put_line('x_msg_data: '||x_msg_data);

 dbms_output.put_line('***************************');

 IF x_msg_count >1 THEN

  FOR I IN 1..x_msg_count

   LOOP

    dbms_output.put_line(I||'. '||SubStr(FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE ), 1, 255));

  END LOOP;

 END IF;

END;

/

***************************

Output information ....

***************************

x_party_site_id: 8885

x_party_site_number: 6893

x_return_status: S

x_msg_count: 0

x_msg_data:

***************************

------------------------------------

5. Create an account site using cust_account_id from step 2 and party_site_id from step 4.

------------------------------------

DECLARE

 p_cust_acct_site_rec hz_cust_account_site_v2pub.cust_acct_site_rec_type;

 x_return_status VARCHAR2(2000);

 x_msg_count NUMBER;

 x_msg_data VARCHAR2(2000);

 x_cust_acct_site_id NUMBER;

BEGIN

 p_cust_acct_site_rec.cust_account_id := 6075; --value for cust_account_id you get from step 2>

 p_cust_acct_site_rec.party_site_id := 8885; --value for party_site_id from step 4>

 p_cust_acct_site_rec.language := 'US';

 p_cust_acct_site_rec.created_by_module := 'TCAPI_EXAMPLE';

 hz_cust_account_site_v2pub.create_cust_acct_site(

 'T',

 p_cust_acct_site_rec,

 x_cust_acct_site_id,

 x_return_status,

 x_msg_count,

 x_msg_data);

 dbms_output.put_line('***************************');

 dbms_output.put_line('Output information ....');

 dbms_output.put_line('***************************');

 dbms_output.put_line('x_cust_acct_site_id: '||x_cust_acct_site_id);

 dbms_output.put_line('x_return_status: '||x_return_status);

 dbms_output.put_line('x_msg_count: '||x_msg_count);

 dbms_output.put_line('x_msg_data: '||x_msg_data);

 dbms_output.put_line('***************************');

 IF x_msg_count >1 THEN

  FOR I IN 1..x_msg_count

   LOOP

    dbms_output.put_line(I||'. '||SubStr(FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE ), 1, 255));

  END LOOP;

 END IF;

END;

/

***************************

Output information ....

***************************

x_cust_acct_site_id: 6155

x_return_status: S

x_msg_count: 0

x_msg_data:

***************************

------------------------------------

6. Create an account site use using cust_acct_site_id from step 5 and site_use_code='BILL_TO'

------------------------------------

DECLARE

 p_cust_site_use_rec HZ_CUST_ACCOUNT_SITE_V2PUB.CUST_SITE_USE_REC_TYPE;

 p_customer_profile_rec HZ_CUSTOMER_PROFILE_V2PUB.CUSTOMER_PROFILE_REC_TYPE;

 x_site_use_id NUMBER;

 x_return_status VARCHAR2(2000);

 x_msg_count NUMBER;

 x_msg_data VARCHAR2(2000);

BEGIN

 p_cust_site_use_rec.cust_acct_site_id := 6155; --value for cust_acct_site_id from step 5>

 p_cust_site_use_rec.site_use_code := 'BILL_TO';

 p_cust_site_use_rec.created_by_module := 'TCAPI_EXAMPLE';

 hz_cust_account_site_v2pub.create_cust_site_use(

 'T',

 p_cust_site_use_rec,

 p_customer_profile_rec,

 '',

 '',

 x_site_use_id,

 x_return_status,

 x_msg_count,

 x_msg_data);

 dbms_output.put_line('***************************');

 dbms_output.put_line('Output information ....');

 dbms_output.put_line('***************************');

 dbms_output.put_line('x_site_use_id: '||x_site_use_id);

 dbms_output.put_line('x_return_status: '||x_return_status);

 dbms_output.put_line('x_msg_count: '||x_msg_count);

 dbms_output.put_line('x_msg_data: '||x_msg_count);

 dbms_output.put_line('***************************');

 IF x_msg_count >1 THEN

  FOR I IN 1..x_msg_count

   LOOP

    dbms_output.put_line(I||'. '||SubStr(FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE ), 1, 255));

  END LOOP;

 END IF;

END;

/

***************************

Output information ....

***************************

x_site_use_id: 7149

x_return_status: S

x_msg_count: 0

x_msg_data: 0

***************************

/* END address  */

commit;

/* BEGIN contact to an organization */

------------------------------------

7. Create a definition contact

------------------------------------

DECLARE

 p_create_person_rec HZ_PARTY_V2PUB.person_rec_type;

 x_party_id NUMBER;

 x_party_number VARCHAR2(2000);

 x_profile_id NUMBER;

 x_return_status VARCHAR2(2000);

 x_msg_count NUMBER;

 x_msg_data VARCHAR2(2000);

BEGIN

 p_create_person_rec.person_pre_name_adjunct := 'MR.';

 p_create_person_rec.person_first_name := 'ExFennerct4';

 p_create_person_rec.person_last_name := 'ExGiraldoct4';

 p_create_person_rec.created_by_module := 'TCAPI_EXAMPLE';

 HZ_PARTY_V2PUB.create_person(

 'T',

 p_create_person_rec,

 x_party_id,

 x_party_number,

 x_profile_id,

 x_return_status,

 x_msg_count,

 x_msg_data);

 dbms_output.put_line('***************************');

 dbms_output.put_line('Output information ....');

 dbms_output.put_line('***************************');

 dbms_output.put_line('x_party_id: '||x_party_id);

 dbms_output.put_line('x_party_number: '||x_party_number);

 dbms_output.put_line('x_profile_id: '||x_profile_id);

 dbms_output.put_line('x_return_status: '||x_return_status);

 dbms_output.put_line('x_msg_count: '||x_msg_count);

 dbms_output.put_line('x_msg_data: '||x_msg_data);

 dbms_output.put_line('***************************');

 IF x_msg_count >1 THEN

  FOR I IN 1..x_msg_count

   LOOP

    dbms_output.put_line(I||'. '||SubStr(FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE ), 1, 255));

  END LOOP;

 END IF;

END;

/

***************************

Output information ....

***************************

x_party_id: 17093

x_party_number: 14445

x_profile_id: 17187

x_return_status: S

x_msg_count: 0

x_msg_data:

***************************

------------------------------------

8. Create a relation cont-org using party_id from step 7 and party_id from step 2

------------------------------------

DECLARE

p_org_contact_rec HZ_PARTY_CONTACT_V2PUB.ORG_CONTACT_REC_TYPE;

x_org_contact_id NUMBER;

x_party_rel_id NUMBER;

x_party_id NUMBER;

x_party_number VARCHAR2(2000);

x_return_status VARCHAR2(2000);

x_msg_count NUMBER;

x_msg_data VARCHAR2(2000);

BEGIN

p_org_contact_rec.department_code := 'ACCOUNTING';

-- p_org_contact_rec.job_title := 'ACCOUNTS OFFICER';

-- p_org_contact_rec.decision_maker_flag := 'Y';

-- p_org_contact_rec.job_title_code := 'APC';

p_org_contact_rec.created_by_module := 'TCAPI_EXAMPLE';

p_org_contact_rec.party_rel_rec.subject_id := 17093; --value for party_id from step 7>

p_org_contact_rec.party_rel_rec.subject_type := 'PERSON';

p_org_contact_rec.party_rel_rec.subject_table_name := 'HZ_PARTIES';

p_org_contact_rec.party_rel_rec.object_id := 17092; --Value for party_id from step 2>

p_org_contact_rec.party_rel_rec.object_type := 'ORGANIZATION';

p_org_contact_rec.party_rel_rec.object_table_name := 'HZ_PARTIES';

p_org_contact_rec.party_rel_rec.relationship_code := 'CONTACT_OF';

p_org_contact_rec.party_rel_rec.relationship_type := 'CONTACT';

p_org_contact_rec.party_rel_rec.start_date := SYSDATE;

hz_party_contact_v2pub.create_org_contact(

'T',

p_org_contact_rec,

x_org_contact_id,

x_party_rel_id,

x_party_id,

x_party_number,

x_return_status,

x_msg_count,

x_msg_data);

 dbms_output.put_line('***************************');

 dbms_output.put_line('Output information ....');

 dbms_output.put_line('***************************');

 dbms_output.put_line('x_org_contact_id: '||x_org_contact_id);

 dbms_output.put_line('x_party_rel_id: '||x_party_rel_id);

 dbms_output.put_line('x_party_id: '||x_party_id);

 dbms_output.put_line('x_party_number: '||x_party_number);

 dbms_output.put_line('x_return_status: '||x_return_status);

 dbms_output.put_line('x_msg_count: '||x_msg_count);

 dbms_output.put_line('x_msg_data: '||x_msg_data);

 dbms_output.put_line('***************************');

 IF x_msg_count >1 THEN

  FOR I IN 1..x_msg_count

   LOOP

    dbms_output.put_line(I||'. '||SubStr(FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE ), 1, 255));

  END LOOP;

 END IF;

END;

/

***************************

Output information ....

***************************

x_org_contact_id: 7110

x_party_rel_id: 7788

x_party_id: 17094

x_party_number: 14446

x_return_status: S

x_msg_count: 0

x_msg_data:

***************************

------------------------------------

9. Create a contact using party_id you get 8 and cust_account_id from step 2

------------------------------------

DECLARE

p_cr_cust_acc_role_rec HZ_CUST_ACCOUNT_ROLE_V2PUB.cust_account_role_rec_type;

x_cust_account_role_id NUMBER;

x_return_status VARCHAR2(2000);

x_msg_count NUMBER;

x_msg_data VARCHAR2(2000);

BEGIN

-- NOTE:

-- must be unique CUST_ACCOUNT_ID, PARTY_ID,ROLE_TYPE

-- must be unique CUST_ACCT_SITE_ID, PARTY_ID,ROLE_TYPE

p_cr_cust_acc_role_rec.party_id := 17094; --value for party_id from step 8>

p_cr_cust_acc_role_rec.cust_account_id := 6075; --value for cust_account_id from step 2>

p_cr_cust_acc_role_rec.primary_flag := 'Y';

p_cr_cust_acc_role_rec.role_type := 'CONTACT';

p_cr_cust_acc_role_rec.created_by_module := 'TCAPI_EXAMPLE';

HZ_CUST_ACCOUNT_ROLE_V2PUB.create_cust_account_role(

'T',

p_cr_cust_acc_role_rec,

x_cust_account_role_id,

x_return_status,

x_msg_count,

x_msg_data);

 dbms_output.put_line('***************************');

 dbms_output.put_line('Output information ....');

 dbms_output.put_line('***************************');

 dbms_output.put_line('x_cust_account_role_id: '||x_cust_account_role_id);

 dbms_output.put_line('x_return_status: '||x_return_status);

 dbms_output.put_line('x_msg_count: '||x_msg_count);

 dbms_output.put_line('x_msg_data: '||x_msg_data);

 dbms_output.put_line('***************************');

 IF x_msg_count >1 THEN

  FOR I IN 1..x_msg_count

   LOOP

    dbms_output.put_line(I||'. '||SubStr(FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE ), 1, 255));

  END LOOP;

 END IF;

END;

/

***************************

Output information ....

***************************

x_cust_account_role_id: 5857

x_return_status: S

x_msg_count: 0

x_msg_data:

***************************

/* END contact */

/* Create the contact ROLE for the Org Contact - (Contact Roles zone on Customers Form)*/

------------------------------------

10. Create the org contact role using x_cust_account_role_id from step 9

------------------------------------

DECLARE

p_role_responsibility_rec HZ_CUST_ACCOUNT_ROLE_V2PUB.ROLE_RESPONSIBILITY_REC_TYPE;

x_responsibility_id NUMBER;

x_return_status VARCHAR2(2000);

x_msg_count NUMBER;

x_msg_data VARCHAR2(2000);

BEGIN

p_role_responsibility_rec.cust_account_role_id := 5857; --value for x_cust_account_role_id from step 9>

p_role_responsibility_rec.responsibility_type := 'SOLD_TO';

p_role_responsibility_rec.created_by_module := 'TCAPI_EXAMPLE';

HZ_CUST_ACCOUNT_ROLE_V2PUB.create_role_responsibility (

'T',

p_role_responsibility_rec,

x_responsibility_id,

x_return_status,

x_msg_count,

x_msg_data

);

 dbms_output.put_line('***************************');

 dbms_output.put_line('Output information ....');

 dbms_output.put_line('***************************');

 dbms_output.put_line('x_responsibility_id: '||x_responsibility_id);

 dbms_output.put_line('x_return_status: '||x_return_status);

 dbms_output.put_line('x_msg_count: '||x_msg_count);

 dbms_output.put_line('x_msg_data: '||x_msg_data);

 dbms_output.put_line('***************************');

 IF x_msg_count >1 THEN

  FOR I IN 1..x_msg_count

   LOOP

    dbms_output.put_line(I||'. '||SubStr(FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE ), 1, 255));

  END LOOP;

 END IF;

END;

/

***************************

Output information ....

***************************

x_responsibility_id: 3162

x_return_status: S

x_msg_count: 0

x_msg_data:

***************************

/* End contact ROLE */

commit;

Oracle EBS AR 客户API的更多相关文章

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 收款API收款方法标识无效
1.确认是不是没有收款方法 methods那个表的问题2.查看收款方法那个LOV的问题3.界面录入是否会有问题碰到的问题是收款日期比较早时找不到对应的收款方法银行账户需要重新设置
Oracle EBS AR 客户取数SQL
SELECT acct.cust_account_id, acct.party_id, acct.account_number, party.party_name, lkp1.meaning part ...
Oracle EBS R12 客户表结构
参考链接: Oracle EBS R12 客户表结构 Oracle EBS中的“客户”."客户地点".‘订单’之间的关系 Oracle EBS中的“客户”."客户地点&q ...
Oracle EBS AR 更新客户配置文件
DECLARE l_rec_profile_t hz_customer_profile_v2pub.customer_profile_rec_type; l_rec_profile hz_custom ...
Oracle EBS AR 事务处理到期余额总计API
declare -- Local variables here i integer; x_line_original NUMBER; x_line_remaining NUMBER; ...
Oracle EBS AR 更新客户组织层
declare -- Local variables here i integer; g_module ) := 'TCA_V2_API'; lrec_org hz_party_v2pub.organ ...
Oracle EBS AR 更新客户账户层
declare x_return_status ); x_msg_count NUMBER; x_msg_data ); x_profile_id NUMBER; l_location_id NUMB ...
Oracle EBS AR 更新客户
DECLARE l_return_status ); l_msg_count NUMBER; l_msg_data ); l_rec_type hz ...

随机推荐

使用Java客户端对Redis进行操作
一.背景上篇文章我们介绍了如何在centos7下面进行安装单机版redis以及redis集群.这篇文章,我们来聊一聊如何使用java客户端来进行操作redis.我们知道redis的java客户端有很 ...
【JAVA】异常笔记
自定义异常需要注意: 所有异常都必须是 Throwable 的子类. 如果希望写一个检查性异常类,则需要继承 Exception 类. 如果你想写一个运行时异常类,那么需要继承 RuntimeExce ...
docker with redis
docker run --name myredis -d -v /home/rudy/pro/database/redis:/data -p : --privileged=true redis
Redis注意事项
1.Redis3.0没有虚拟内存概念,已从2.4就移除: 2.redis挂掉并重启时,如果有主从备份的,主机挂掉重启时先关掉主从备份,不然从机的数据会被冲洗掉数据恢复时如果有 AOF(原理是将Rei ...
Selenium3自动化问题一：selenium3在火狐浏览器执行driver.quit()报错2052解决方案
一:问题说明最近用到selenium3在火狐浏览器中执行自动化脚本,每次执行到driver.quit()方法总是报错,报错日志如下: 二:解决方案搜了一圈网上的资料,都说是火狐的问题,于是去到se ...
（转）Java多线程学习（吐血超详细总结）
本文转自:http://blog.csdn.net/evankaka 写在前面的话:此文只能说是java多线程的一个入门,其实Java里头线程完全可以写一本书了,但是如果最基本的你都学掌握好,又怎么能 ...
线程池ThreadPoolExecutor的一种扩展办法
概述在JAVA的世界里,如果想并行的执行一些任务,可以使用ThreadPoolExecutor. 大部分情况下直接使用ThreadPoolExecutor就可以满足要求了,但是在某些场景下,比如瞬时 ...
Spark2.1.0模型设计与基本架构（上）
随着近十年互联网的迅猛发展,越来越多的人融入了互联网——利用搜索引擎查询词条或问题:社交圈子从现实搬到了Facebook.Twitter.微信等社交平台上:女孩子们现在少了逛街,多了在各大电商平台上的 ...
[转]小程序web-view组件
本文转自:https://www.cnblogs.com/-nothing-/p/7910355.html 1,web-view这个组件是什么鬼? 官网的介绍:web-view 组件是一个可以用来承载 ...
2018 Google SEO 需要注意的点
1.RankBrain 是一种机器学习系统 - 会根据用户的行为进行,对网站排名. 用户在你的网页上停留多久(用户停留时长) 多大比例的用户点击了你的网页(点击率) Note: 之前Google 开发 ...

Oracle EBS AR 客户API

Oracle EBS AR 客户API的更多相关文章

随机推荐

热门专题