DECLARE
l_num_user_id NUMBER;
l_num_appl_id NUMBER;
l_num_resp_id NUMBER;
cust_account_rec_type hz_cust_account_v2pub.cust_account_rec_type;
l_num_obj_ver_num NUMBER;
l_chr_return_status VARCHAR2(2000);
l_num_msg_count NUMBER;
l_chr_msg_data VARCHAR2(500);
l_num_profile_id NUMBER;
l_organization_rec hz_party_v2pub.organization_rec_type;
l_customer_profile_rec hz_customer_profile_v2pub.customer_profile_rec_type;
l_num_cust_id NUMBER;
l_chr_acct_num VARCHAR2(500);
l_num_party_id NUMBER;
l_chr_party_number VARCHAR2(500);
l_cust_acct_site_use_rec hz_cust_account_site_v2pub.cust_site_use_rec_type;
l_cust_acct_site_rec hz_cust_account_site_v2pub.cust_acct_site_rec_type;
l_chr_sit_return_status VARCHAR2(500);
l_num_sit_msg_count NUMBER;
l_chr_sit_msg_data VARCHAR2(500);
l_chr_situ_return_status VARCHAR2(500);
l_num_situ_msg_count NUMBER;
l_chr_situ_msg_data VARCHAR2(500);
l_num_site_use_id NUMBER;
CURSOR update_base_tables_cur IS
SELECT DISTINCT a.party_number,
ps.party_site_number,
a.party_id,
'CUST-' || a.party_id || '-' || ass.org_id AS customer_ref,
'ADD-' || ps.party_site_id || '-' || ass.org_id AS address_ref,
ps.party_site_id,
ass.address_line1,
ass.city,
ass.state,
ass.zip,
ass.country,
'N' primary_site_use_flag,
a.orig_system_reference AS party_ref,
a.party_name AS customer_name,
ass.org_id
FROM apps.ap_suppliers ap,
apps.ap_supplier_sites_all ass,
apps.hz_parties a,
apps.hz_party_sites ps
WHERE ap.vendor_id = ass.vendor_id
AND a.party_id = ap.party_id
AND ps.party_id = ap.party_id
AND ass.party_site_id = ps.party_site_id
AND a.party_name = ap.vendor_name
AND a.party_id = 12465 -- modify this part/query
--and ass.org_id = 204
AND NOT EXISTS
(SELECT 1 FROM hz_cust_accounts a WHERE a.party_id = a.party_id);
BEGIN
fnd_global.apps_initialize(&user_id, &responsibility_id, 222); -- input from 1st sql
dbms_output.put_line('***************************');
FOR update_base_tables_rec IN update_base_tables_cur LOOP
NULL;
cust_account_rec_type.cust_account_id := fnd_api.g_miss_num;
cust_account_rec_type.account_name := update_base_tables_rec.customer_name;
l_organization_rec.party_rec.party_id := update_base_tables_rec.party_id;
l_organization_rec.party_rec.party_number := update_base_tables_rec.party_number;
l_organization_rec.organization_name := update_base_tables_rec.customer_name;
cust_account_rec_type.orig_system_reference := update_base_tables_rec.customer_ref;
l_customer_profile_rec.party_id := update_base_tables_rec.party_id;
l_customer_profile_rec.profile_class_id := 0; -- use DEFAULT profile with id=0
l_customer_profile_rec.created_by_module := 'HZ_CPUI';
cust_account_rec_type.created_by_module := 'HZ_CPUI';
hz_cust_account_v2pub.create_cust_account(p_init_msg_list => fnd_api.g_false,
p_cust_account_rec => cust_account_rec_type,
p_organization_rec => l_organization_rec,
p_customer_profile_rec => l_customer_profile_rec,
p_create_profile_amt => fnd_api.g_true,
x_cust_account_id => l_num_cust_id,
x_account_number => l_chr_acct_num,
x_party_id => l_num_party_id,
x_party_number => l_chr_party_number,
x_profile_id => l_num_profile_id,
x_return_status => l_chr_return_status,
x_msg_count => l_num_msg_count,
x_msg_data => l_chr_msg_data);
dbms_output.put_line('x_return_status: ' || l_chr_return_status);
dbms_output.put_line('x_cust_account_id: ' || l_num_cust_id);
dbms_output.put_line('x_account_number: ' || l_chr_acct_num);
dbms_output.put_line('x_party_id: ' || l_num_party_id);
IF l_chr_return_status != 'S' THEN
--Display all the error messages
FOR j IN 1 .. fnd_msg_pub.count_msg LOOP
dbms_output.put_line(j);
l_chr_msg_data := fnd_msg_pub.get(p_msg_index => j,
p_encoded => 'F');
dbms_output.put_line('Message(' || j || '):= ' ||
l_chr_msg_data);
END LOOP;
END IF;
BEGIN
SELECT cust_account_id
INTO l_cust_acct_site_rec.cust_account_id
FROM hz_cust_accounts
WHERE orig_system_reference = update_base_tables_rec.customer_ref;
EXCEPTION
WHEN OTHERS THEN
l_cust_acct_site_rec.cust_account_id := fnd_api.g_miss_num;
END;
l_cust_acct_site_rec.party_site_id := update_base_tables_rec.party_site_id;
l_cust_acct_site_rec.created_by_module := 'HZ_CPUI';
l_cust_acct_site_rec.orig_system_reference := update_base_tables_rec.address_ref;
l_cust_acct_site_rec.status := 'A';
l_cust_acct_site_rec.org_id := update_base_tables_rec.org_id;
mo_global.init('ONT');
mo_global.set_policy_context(p_access_mode => 'S',
p_org_id => update_base_tables_rec.org_id);
hz_cust_account_site_v2pub.create_cust_acct_site(p_init_msg_list => 'T',
p_cust_acct_site_rec => l_cust_acct_site_rec,
x_cust_acct_site_id => l_num_obj_ver_num,
x_return_status => l_chr_sit_return_status,
x_msg_count => l_num_sit_msg_count,
x_msg_data => l_chr_sit_msg_data);
dbms_output.put_line('x_cust_acct_site_id: ' || l_num_obj_ver_num);
dbms_output.put_line('x_return_status: ' || l_chr_sit_return_status);
IF l_chr_sit_return_status != 'S' THEN
--Display all the error messages
FOR j IN 1 .. fnd_msg_pub.count_msg LOOP
dbms_output.put_line(j);
l_chr_sit_msg_data := fnd_msg_pub.get(p_msg_index => j,
p_encoded => 'F');
dbms_output.put_line('Site Message(' || j || '):= ' ||
l_chr_sit_msg_data);
END LOOP;
END IF;
BEGIN
SELECT cust_acct_site_id
INTO l_cust_acct_site_use_rec.cust_acct_site_id
FROM hz_cust_acct_sites_all
WHERE orig_system_reference = update_base_tables_rec.address_ref;
EXCEPTION
WHEN OTHERS THEN
l_cust_acct_site_use_rec.cust_acct_site_id := fnd_api.g_miss_num;
END;
l_cust_acct_site_use_rec.org_id := update_base_tables_rec.org_id;
l_cust_acct_site_use_rec.site_use_code := 'BILL_TO';
l_cust_acct_site_use_rec.status := 'A';
l_cust_acct_site_use_rec.primary_flag := 'Y';
l_cust_acct_site_use_rec.orig_system_reference := update_base_tables_rec.address_ref;
l_cust_acct_site_use_rec.created_by_module := 'HZ_CPUI';
mo_global.set_policy_context(p_access_mode => 'S',
p_org_id => update_base_tables_rec.org_id);
hz_cust_account_site_v2pub.create_cust_site_use(p_init_msg_list => 'T',
p_cust_site_use_rec => l_cust_acct_site_use_rec,
p_customer_profile_rec => l_customer_profile_rec,
p_create_profile => fnd_api.g_true,
p_create_profile_amt => fnd_api.g_true,
x_site_use_id => l_num_site_use_id,
x_return_status => l_chr_situ_return_status,
x_msg_count => l_num_situ_msg_count,
x_msg_data => l_chr_situ_msg_data);
dbms_output.put_line('x_site_use_id: ' || l_num_site_use_id);
dbms_output.put_line('x_return_status: ' || l_chr_situ_return_status);
IF l_chr_situ_return_status != 'S' THEN
--Display all the error messages
FOR j IN 1 .. fnd_msg_pub.count_msg LOOP
dbms_output.put_line(j);
l_chr_situ_msg_data := fnd_msg_pub.get(p_msg_index => j,
p_encoded => 'F');
dbms_output.put_line('Site Use Message(' || j || '):= ' ||
l_chr_situ_msg_data);
END LOOP;
END IF;
END LOOP;
END;
/

客户地点分配多OU的更多相关文章

  1. AR*客户地点分配OU

    DECLARE p_cust_acct_site_rec hz_cust_account_site_v2pub.cust_acct_site_rec_type; p_cust_site_use_rec ...

  2. Oracle EBS 更新客户地点

    --更新客户地点 declare x_return_status ); x_msg_count NUMBER; x_msg_data ); x_profile_id NUMBER; l_locatio ...

  3. Oracel数据库连接时出现:ORA-12518:监听程序无法分发客户机连

    在连接Oracel数据库时,每隔一段时间就会出现:ORA-12518:监听程序无法分发客户机连接,如图 上网查了资料原因和解决方案如下: 一.[问题描述] 最近,在系统高峰期的时候,会提示如上的错误, ...

  4. XShell提示Connection closed by foreign host的问题 和 路由器分配IP的规则

    情况是这样的: VMware中有三个Linux机器分别是crxy99(192.168.1.99),crxy100(192.168.1.100),crxy101(192.168.1.101),crxy1 ...

  5. EBS 客户表结构

     客户表/联系人/PARTY关联 HZ_PARTIES 客户账户表 HZ_CUST_ACCOUNTS SELECT hp.party_number --客户注册标识 , hp.party_name ...

  6. 客户信息全SQL

    SELECT hp.party_name "客户名称", --客户名称 hca.account_number "客户编号", --客户编号 hca.cust_a ...

  7. 使用ML.NET实现基于RFM模型的客户价值分析

    RFM模型 在众多的客户价值分析模型中,RFM模型是被广泛应用的,尤其在零售和企业服务领域堪称经典的分类手段.它的核心定义从基本的交易数据中来,借助恰当的聚类算法,反映出对客户较为直观的分类指示,对于 ...

  8. AEAI CRM V1.6.0 升级说明,开源客户关系管理系统

    1 升级说明 AEAI CRM v1.6.0版是AEAI CRM v1.5.2版客户关系管理系统的升级版本,本次版本是基于AEAI DP v3.8.0_20170228进行打包部署的,升级内容主要是针 ...

  9. oracle:TNS:监听程序无法分发客户机连接

    挂上vpn的时候,PL/SQL连接到oracle的时候,显示ORA-12518:监听程序无法分发客户机连接.如下图: 一.[问题描述] 最近,在系统高峰期的时候,会提示如上的错误,致使无法连接到服务器 ...

随机推荐

  1. ELK学习记录二 :elasticsearch、logstash及kibana的安装与配置

    注意事项: 1.ELK版本要求5.X以上,本人使用版本:elasticsearch-6.0.0.kibana-6.0.0-linux-x86_64.logstash-6.0.0.tar 2.Elast ...

  2. JAVA生成数字0~9字母A~Z混合编码0000、0001...0009、000A...000Z、0010......

    分别是求下一个编码 和 输出所有编码 /** * 用1--9加A--Z混合编码 使用ASCII码判断 * LYL * 传一个值 求下一个编码 */ public String getABCDCode( ...

  3. Canvas实现3D效果-可旋转的立方体

    摘要:Canvas画布是一个二维平面,如何展示出3D效果?通过将三维空间中的Z轴抽取出来,将图像的点投影到与Z轴垂直的平面上,在通过旋转等变换效果,我们就能实现3D效果. 一.建立坐标系 1)立方体坐 ...

  4. 一些有用的Java参考资料

    Better Java,一些好的Java实践 Google Java Style Guide 30个Java编程技巧 JDK8新增语法特性简介,对Java8中新增的函数接口.Lambda表达式.方法引 ...

  5. Bootstrap3 排版-改变大小写

    通过这几个类可以改变文本的大小写. <p class="text-lowercase">Lowercased text.</p> <p class=& ...

  6. 关于Java,那些我心存疑惑的事(不断更新中...)

    本文主要列出一些Java常用到确又让大家不怎么注意的问题. 将会不断更新,欢迎关注-- 如有觉得不合理之处,欢迎评论交流,没有火花怎么印象深刻? (1)Java到底是值传递?还是引用传递? 揪出这个问 ...

  7. SOAP Binding: Difference between Document and RPC Style Web Services

    SOAP Binding: Difference between Document and RPC Style Web Services 20FLARES Twitter 1Facebook 9Goo ...

  8. 计算机网络之域名系统DNS

    域名系统DNS 域名系统DNS(Domai NameSystem)是因特网使用的命名系统,用于把便于人们使用的机器名字转换为IP地址. 许多应用层软件经常直接使用域名系统,但计算机的用户只是间接而不是 ...

  9. android 自定义view之侧滑效果

    效果图: 看网上的都是两个view拼接,默认右侧的不显示,水平移动的时候把右侧的view显示出来.但是看最新版QQ上的效果不是这样的,但给人的感觉却很好,所以献丑来一发比较高仿的. 知识点: 1.Vi ...

  10. Oracle常用语句语法汇总

    第一篇  基本操作 --解锁用户   alter user 用户 account unlock; --锁定用户   alter user 用户 account lock; alter user sco ...