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 ...
随机推荐
- PHP多进程系列笔记(一)
本系列文章将向大家讲解pcntl_*系列函数,从而更深入的理解进程相关知识. PCNTL在PHP中进程控制支持默认是关闭的.您需要使用 --enable-pcntl 配置选项重新编译PHP的 CGI或 ...
- ThreadPoolExecutor参数讲解
1. 线程池可以节省创建多个线程带来的开销问题. 2. 线程池的参数如下: public ThreadPoolExecutor(int corePoolSize, int maximumPoolSiz ...
- 安装Windows 8.1过程中出现的各种问题(无损从MBR转GPT磁盘、不能定位已有分区)
这个周末就安装了个系统,本以为一个小时就能搞定,没想到花费了将近一天. 我的机子是6G内存.500G硬盘,原装系统是Windows 7,现在想换成Windows 8.1,于是下载了64位的Window ...
- 32-hadoop-hbase调优
1, 数据膨胀后, 才对region进行分区, 效率比较低, 所以需要预创建region, 进行负载均衡写入 package com.wenbronk.hbase; import org.apache ...
- php的 $_REQUEST取值为空
默认的 $_REQUEST 会获取 $_POST, $_GET, $_COOKIE的数据,这些可以通过查看 php.ini来确认: 由上图可以看出,获取的内容是通过 variables_order 和 ...
- 强势解析eBay BASE模式、去哪儿及蘑菇街分布式架构
互联网行业是大势所趋,从招聘工资水平即可看出,那么如何提升自我技能,满足互联网行业技能要求?需要以目标为导向,进行技能提升,本文主要针对高并发分布式系统设计.架构(数据一致性)做了分析,祝各位早日走上 ...
- git命令小记
1.git之tag git标签分为轻量级(lightweight)标签和含标注(annotated)标签.轻量级标签一般用于不会改变的分支,含标注的标签包含详细的信息. 轻量级标签: git tag ...
- Java源码阅读(不断补充)
java.util.LinkedList LinkedList是实现了List接口的双链表实现,拥有list的所有方法并且允许所有元素(包括null). 双向链表也叫双链表,是链表的一种,它的每个数据 ...
- [转]EasyUI 日期格式
本文转自:http://www.jeasyui.net/demo/512.html Different date formats are applied to different DateBox co ...
- oracle上机实验内容
这是oracle实验的部分代码,我花了一中午做的. 第一次上机内容 实验目的:熟悉ORACLE11G的环境 实验内容: 第二次上机内容 实验目标:掌握oracle体系结构,掌握sqlplus的运行环境 ...