Oracle EBS Add Responsibility to User by the Responsibility reference of Other User.
Oracle EBS 11i Add Responsibility to User by the Responsibility reference of Other User.
Warning: R12 version must be fixed columns sort to insert successfully.
DECLARE
--input parameters
l_reference_user_name VARCHAR2 (50) := 'HKIT_KPWONG';
l_add_resp_user_name VARCHAR2 (50) := 'SZIT_QWR';
l_resp_name VARCHAR2 (300) := 'Application Developer';
-----------------------------------------------------------
l_user_orig_system_id NUMBER := -999999;
l_role_name VARCHAR2 (300) := NULL;
l_add_resp_user_exists NUMBER := 0;
l_insert_role_record NUMBER := 0;
l_insert_role_assign_record NUMBER := 0;
BEGIN
--get responsibility role name
SELECT COUNT (1)
INTO l_add_resp_user_exists
FROM (SELECT u.user_id user_id
, (SELECT responsibility_name
FROM fnd_responsibility_tl
WHERE responsibility_id = wur.role_orig_system_id
AND application_id = fa.application_id
AND language = 'US')
app_responsibility_name
, wur.role_name
, wur.user_orig_system_id
, wur.role_orig_system_id responsibility_id
, fa.application_id responsibility_application_id
, fsg.security_group_id security_group_id
, fnd_date.canonical_to_date ('1000/01/01') start_date
, TO_DATE (NULL) end_date
, TO_CHAR (NULL) description
, TO_NUMBER (NULL) created_by
, TO_DATE (NULL) creation_date
, TO_NUMBER (NULL) last_updated_by
, TO_DATE (NULL) last_update_date
, TO_NUMBER (NULL) last_update_login
FROM fnd_user u
, wf_user_role_assignments_v wura
, wf_user_roles wur
, fnd_application fa
, fnd_security_groups fsg
WHERE wura.user_name = u.user_name
AND wur.role_orig_system = 'FND_RESP'
AND wur.partition_id = 2
AND wura.role_name = wur.role_name
AND wura.user_name = wur.user_name
AND fa.application_short_name = /* Val between 1 st and 2 nd separator */
REPLACE (SUBSTR (wura.role_name
, INSTR (wura.role_name
, '|'
, 1
, 1)
+ 1
, ( INSTR (wura.role_name
, '|'
, 1
, 2)
- INSTR (wura.role_name
, '|'
, 1
, 1)
- 1))
, '%col'
, ':')
AND fsg.security_group_key = /* Val after 3 rd separator */
REPLACE (SUBSTR (wura.role_name
, INSTR (wura.role_name
, '|'
, 1
, 3)
+ 1)
, '%col'
, ':')
AND u.user_name = l_add_resp_user_name) resp
WHERE 1 = 1 AND resp.app_responsibility_name = l_resp_name;
IF (l_add_resp_user_exists > 0)
THEN
DBMS_OUTPUT.put_line (
'Failed !!! Add Responsebility Name: '
|| l_resp_name
|| ' to User: '
|| l_add_resp_user_name
|| ' by reference User: '
|| l_reference_user_name);
DBMS_OUTPUT.put_line (
'The Responsibility exists at Added User: ' || l_add_resp_user_name);
RETURN;
END IF;
--get responsibility role name
SELECT resp.role_name
INTO l_role_name
FROM (SELECT u.user_id user_id
, (SELECT responsibility_name
FROM fnd_responsibility_tl
WHERE responsibility_id = wur.role_orig_system_id
AND application_id = fa.application_id
AND language = 'US')
app_responsibility_name
, wur.role_name
, wur.user_orig_system_id
, wur.role_orig_system_id responsibility_id
, fa.application_id responsibility_application_id
, fsg.security_group_id security_group_id
, fnd_date.canonical_to_date ('1000/01/01') start_date
, TO_DATE (NULL) end_date
, TO_CHAR (NULL) description
, TO_NUMBER (NULL) created_by
, TO_DATE (NULL) creation_date
, TO_NUMBER (NULL) last_updated_by
, TO_DATE (NULL) last_update_date
, TO_NUMBER (NULL) last_update_login
FROM fnd_user u
, wf_user_role_assignments_v wura
, wf_user_roles wur
, fnd_application fa
, fnd_security_groups fsg
WHERE wura.user_name = u.user_name
AND wur.role_orig_system = 'FND_RESP'
AND wur.partition_id = 2
AND wura.role_name = wur.role_name
AND wura.user_name = wur.user_name
AND fa.application_short_name = /* Val between 1 st and 2 nd separator */
REPLACE (SUBSTR (wura.role_name
, INSTR (wura.role_name
, '|'
, 1
, 1)
+ 1
, ( INSTR (wura.role_name
, '|'
, 1
, 2)
- INSTR (wura.role_name
, '|'
, 1
, 1)
- 1))
, '%col'
, ':')
AND fsg.security_group_key = /* Val after 3 rd separator */
REPLACE (SUBSTR (wura.role_name
, INSTR (wura.role_name
, '|'
, 1
, 3)
+ 1)
, '%col'
, ':')
AND u.user_name = l_reference_user_name) resp
WHERE 1 = 1 AND resp.app_responsibility_name = l_resp_name;
IF (l_role_name IS NULL)
THEN
DBMS_OUTPUT.put_line (
'Failed !!! Add Responsebility Name: '
|| l_resp_name
|| ' to User: '
|| l_add_resp_user_name
|| ' by reference User: '
|| l_reference_user_name);
DBMS_OUTPUT.put_line (
'The reference User have not the Responsibility: '
|| l_resp_name
|| '. Please input correct data!');
RETURN;
END IF;
--get user orig system id
SELECT DISTINCT wur.user_orig_system_id
INTO l_user_orig_system_id
FROM wf_user_roles wur
WHERE 1 = 1 AND wur.user_name = l_add_resp_user_name;
IF (l_user_orig_system_id = -999999)
THEN
DBMS_OUTPUT.put_line (
'Failed !!! Add Responsebility Name: '
|| l_resp_name
|| ' to User: '
|| l_add_resp_user_name
|| ' by reference User: '
|| l_reference_user_name);
DBMS_OUTPUT.put_line ('No found User Orig System ID.');
RETURN;
END IF;
INSERT INTO wf_local_user_roles
SELECT l_add_resp_user_name
, wur.role_name
, wur.user_orig_system
, l_user_orig_system_id
, wur.role_orig_system
, wur.role_orig_system_id
, wur.start_date
, wur.expiration_date
, wur.security_group_id
, wur.partition_id
, wur.owner_tag
, wur.created_by
, wur.creation_date
, wur.last_updated_by
, wur.last_update_date
, wur.last_update_login
, wur.assignment_type
, wur.parent_orig_system
, wur.parent_orig_system_id
, wur.user_start_date
, wur.role_start_date
, wur.user_end_date
, wur.role_end_date
, wur.effective_start_date
, wur.effective_end_date
, wur.assignment_reason
FROM wf_local_user_roles wur
WHERE 1 = 1
AND wur.user_name = l_reference_user_name
AND wur.role_name = l_role_name;
l_insert_role_record := SQL%ROWCOUNT;
IF (l_insert_role_record = 0)
THEN
DBMS_OUTPUT.put_line (
'Failed !!! Add Responsebility Name: '
|| l_resp_name
|| ' to User: '
|| l_add_resp_user_name
|| ' by reference User: '
|| l_reference_user_name);
DBMS_OUTPUT.put_line ('No data into Role table.');
RETURN;
END IF;
INSERT INTO wf_user_role_assignments
SELECT l_add_resp_user_name
, wura.role_name
, wura.relationship_id
, wura.assigning_role
, wura.start_date
, wura.end_date
, wura.created_by
, wura.creation_date
, wura.last_updated_by
, wura.last_update_date
, wura.last_update_login
, wura.user_start_date
, wura.role_start_date
, wura.assigning_role_start_date
, wura.user_end_date
, wura.role_end_date
, wura.assigning_role_end_date
, wura.partition_id
, wura.effective_start_date
, wura.effective_end_date
, wura.user_orig_system
, l_user_orig_system_id
, wura.role_orig_system
, wura.role_orig_system_id
, wura.parent_orig_system
, wura.parent_orig_system_id
, wura.owner_tag
, wura.assignment_reason
FROM wf_user_role_assignments wura
WHERE 1 = 1
AND wura.user_name = l_reference_user_name
AND wura.role_name = l_role_name;
l_insert_role_assign_record := SQL%ROWCOUNT;
IF (l_insert_role_record <> l_insert_role_assign_record)
THEN
DBMS_OUTPUT.put_line (
'Failed !!! Add Responsebility Name: '
|| l_resp_name
|| ' to User: '
|| l_add_resp_user_name
|| ' by reference User: '
|| l_reference_user_name);
ROLLBACK;
COMMIT;
END IF;
DBMS_OUTPUT.put_line (
'Successfully !!! Add Responsebility Name: '
|| l_resp_name
|| ' to User: '
|| l_add_resp_user_name
|| ' by reference User: '
|| l_reference_user_name);
COMMIT;
END;
http://www.cnblogs.com/quanweiru/archive/2013/05/21/3090818.html
Oracle EBS Add Responsibility to User by the Responsibility reference of Other User.的更多相关文章
- Oracle EBS Standard Package Function Add User & Resp
Oracle EBS Standard Package Function Add User & Resp. fnd_user_pkg.CreateUser; fnd_user_pkg.AddR ...
- Oracle EBS R12经验谈(二)
作者: jianping.ni 时间: 2009-2-13 12:52 标题: Oracle EBS R12经验谈(二) OAF页面:银行帐户开户人LOV值列表无值 在输入 应付超 ...
- Oracle EBS应用笔记整理 (转自IT++ flyingkite)
***************************************************** Author: Flyingkite Blog: http://space.itpub. ...
- Oracle EBS R12 (12.1.3) Installation Linux(64 bit)
Oracle EBS R12 (12.1.3) Installation Linux(64 bit) Contents Objective. 3 1 Download & Unzip. 3 D ...
- [转]oracle EBS 基础100问
from:http://www.cnblogs.com/xiaoL/p/3593691.html http://f.dataguru.cn/thread-51057-1-1.html 1001 OR ...
- Oracle EBS Concurrent Request:Gather Schema Statistics[Z]
Oracle EBS 的Concurrent Request"Gather Schema Statistics"是一个和性能相关的Concurrent Program,它会对表,列 ...
- Oracle EBS R12多组织(多OU)访问架构
Oracle EBS R12多组织访问架构 多组织架构实现了经营单位(OU)的数据安全性,在底层数据表中有一列ORG_ID来记录数据所属的经营单一,所有多OU的基表都是以"_ALL" ...
- Using Integrated SOA Gateway in Oracle EBS
FROM:http://blog.csdn.net/pan_tian/article/details/10159935 Oracle EBS如何与第三方系统相集成?比如这样的需求,X系统知道物料编码, ...
- Oracle EBS 12.2.6 on VirtualBox
Back in May, Oracle announced the general availability of Oracle VM Virtual Appliance for E-Business ...
随机推荐
- java的文件上传和下载 抄袭别人的.在底部有说明.
=======后续 这里采用的是输出流的方式,我电脑装的是windows系统,测试没有问题,但是当把项目放到Linux系统上跑时,就会出现保存位置错误的情况, 指定的路径就会被当做文件名的一部分保存了 ...
- 七.jQuery源码解析之.toArray()
toArray()是将jQuery对象转换成数组 从源码中可以看到,这些常见的方法,都是直接从原生的 javascript中"借鉴"过来的.为什么这么说呢? 225行中,在运行时, ...
- Autofac log4net Integration Module
log4net Integration Module While there is no specific assembly for log4net support, you can easily i ...
- python 简单爬虫获取气象数据发送气象定时报-预报预警信息及时推送及阿里云短信群发接口
!/usr/bin/python #encoding=utf-8 #Author:Ruiy #//////////////////////////////////////////////////// ...
- leetcode561
public class Solution { public int ArrayPairSum(int[] nums) { var list = nums.OrderBy(x => x).ToL ...
- IOS上架(九) AppStore编译生成ipa文件并上传
IOS上架上传ipa文件 AppStore https://itunesconnect.apple.com delphi project>option里的CFBundleVersion 上传的版 ...
- 用MyEclipse JPA创建项目
http://www.myeclipsecn.com/learningcenter/persistence-development/myeclipse-jpa/ 用MyEclipse JPA创建项目 ...
- 用Msxml2.XMLHTTP 与 Msxml2.ServerXMLHTTP 发生网页请求
发送 HTTP 请求时,首先想到的一般是 Msxml2.XMLHTTP(Microsoft.XMLHTTP 已经不提倡使用了). ServerXMLHTTP 为不同 Web 服务器之间的服务器安全 H ...
- Tutorial: Getting Started with Spring Security
This tutorial will cover a basic scenario where it integrates Spring Security, using database-backe ...
- asp.net 初级程序员面试题【待续】
C# 常见的排序方式 冒泡排序(Bubble sort) 堆排序(Heap sort) 插入排序(Insertion sort) 归并排序(Merge sort) 快速排序(Quick sort) ...