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.的更多相关文章

  1. Oracle EBS Standard Package Function Add User & Resp

    Oracle EBS Standard Package Function Add User & Resp. fnd_user_pkg.CreateUser; fnd_user_pkg.AddR ...

  2. Oracle EBS R12经验谈（二）

    作者: jianping.ni    时间: 2009-2-13 12:52     标题: Oracle EBS R12经验谈(二) OAF页面:银行帐户开户人LOV值列表无值    在输入 应付超 ...

  3. Oracle EBS应用笔记整理 (转自IT++ flyingkite）

    ***************************************************** Author: Flyingkite Blog:   http://space.itpub. ...

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

  5. [转]oracle EBS 基础100问

    from:http://www.cnblogs.com/xiaoL/p/3593691.html  http://f.dataguru.cn/thread-51057-1-1.html 1001 OR ...

  6. Oracle EBS Concurrent Request:Gather Schema Statistics[Z]

    Oracle EBS 的Concurrent Request"Gather Schema Statistics"是一个和性能相关的Concurrent Program,它会对表,列 ...

  7. Oracle EBS R12多组织（多OU）访问架构

    Oracle EBS R12多组织访问架构 多组织架构实现了经营单位(OU)的数据安全性,在底层数据表中有一列ORG_ID来记录数据所属的经营单一,所有多OU的基表都是以"_ALL" ...

  8. Using Integrated SOA Gateway in Oracle EBS

    FROM:http://blog.csdn.net/pan_tian/article/details/10159935 Oracle EBS如何与第三方系统相集成?比如这样的需求,X系统知道物料编码, ...

  9. Oracle EBS 12.2.6 on VirtualBox

    Back in May, Oracle announced the general availability of Oracle VM Virtual Appliance for E-Business ...

随机推荐

  1. bzoj4591 [Shoi2015]超能粒子炮·改

    Description 曾经发明了脑洞治疗仪&超能粒子炮的发明家SHTSC又公开了他的新发明:超能粒子炮·改--一种可以发射威力更加 强大的粒子流的神秘装置.超能粒子炮·改相比超能粒子炮,在威 ...

  2. jsp---猜数字游戏，深有感触

    猜数字游戏注意两点.1.随机数和猜的数字不能放在同一个页面,不然随机数不停出现,猜的数字不可能相等的. 2.数据类型的相互转换.包装类Integer和int的用法,前者是类,后者是基本数据类型 cai ...

  3. 20181205_C#窗体监听键盘事件

    1. 需要设置窗体的   KeyPreview = true; 2. 如果窗体上有获取的了焦点的button按钮, 则监听不到 Enter事件, 需要取消按钮的焦点

  4. 好久不见(致win7)

    7月8号,电脑上装了pgp,然后说让重启,重启之后蓝屏,自此,就一直蓝屏了 电脑装了双系统,工作时用centos,我不愿重装系统,怕centos受影响 网上说安装模式下可以卸载软件,可我在安全模式下, ...

  5. Linux安装Python虚拟环境virtualenv

    1.安装virtulenv.virtulenvwrapper包 pip install virtualenv virtualenvwrapper 2.virtualenvwrapper是virtual ...

  6. 深入浅出 Java Concurrency (6): 锁机制 part 1 Lock与ReentrantLock

      前面的章节主要谈谈原子操作,至于与原子操作一些相关的问题或者说陷阱就放到最后的总结篇来整体说明.从这一章开始花少量的篇幅谈谈锁机制. 上一个章节中谈到了锁机制,并且针对于原子操作谈了一些相关的概念 ...

  7. 温故而知新-XML和WEB服务器

    1 xml除了空元素外都是有开始标记和结束标记的 2 XML可以设置自己的标记

  8. go run helper

    # go run helper -a :强制编译相关代码,不论编译代码是否最新 -n :打印编译过程需要用到的命令,但不真正执行他们 -p n :并行编译,n为并行的数量 -v :列出被编译的代码包的 ...

  9. three3D地图

    终于闲下来了,前段时间做了个项目,高精度精准定位系统,用到了three3D地图 听起来是不是很炫酷?其实并不难.先把部分代码附上(文件比较多,只粘贴部分的) $(function () {     i ...

  10. Node.js 项目打包

    Node项目基于Electron打包 Electron打包打包后项目.exe程序包含在文件夹中,基于Electron打包的基础上直接打包成exe程序 参考一 参考二 需求的软件环境: NSIS 2.4 ...