EBS报表中使用安全性层次结构控制

在ebs的有关采购的报表中，经常需要进行数据安全控制，实现的方法有多种。

不同的控制需求有不同的方式，如下文是通过职位层次结构中定义的安全性层次结构进行控制的方式。

采购超级用户-->设置-->人员-->职位层次结构，可查看已定义层次结构。

4000



通过表可以看见所有的层次结构，如下：



与层次结构相关的表、视图主要有：

per_all_people_f  职工姓名表（基本信息表）

per_all_positions  职位表

per_all_assignments_f

per_pos_structure_elements

hr_all_positions_f         

在报表的主SQL中，加上如下的控制代码便可实现目的：

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

 --按照‘***_安全性层次结构’控制权限，条件

       AND pha.agent_id  IN  (

SELECT DISTINCT paa.person_id     --查看下层采购员数据

  FROM per_all_assignments_f paa,

            (SELECT *

            FROM fnd_user

            WHERE SYSDATE BETWEEN start_date AND NVL(end_date, SYSDATE)) FU

WHERE 1=1 

      AND SYSDATE BETWEEN paa.effective_start_date AND paa.effective_end_date

      AND paa.person_id = fu.employee_id(+)

      AND paa.position_id  IN  (SELECT pp1.subordinate_position_id

                                                          FROM (SELECT ppse.subordinate_position_id,

                                                                                        ppse.parent_position_id

                                                                         FROM per_pos_structure_elements ppse,

                                                                                       per_position_structures    pps

                                                                       WHERE 1=1

                                                                             AND ppse.pos_structure_version_id = pps.position_structure_id

                                                                            AND pps.name = '*****_安全性层次结构') PP1

                                                                          START WITH pp1.parent_position_id = get_user_position(fnd_global.user_id)   --获取用户职位信息

                                                                   CONNECT BY pp1.parent_position_id = PRIOR

                                                                                              pp1.subordinate_position_id)

 UNION  

   SELECT employee_id   --可查看同组采购组数据

      FROM fnd_user fu

WHERE fu.user_id = fnd_global.user_id)

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

上述代码中的et_user_position(fnd_global.user_id)   --获取用户职位信息，如下：

/******************************************************************************************************************************************************************

 * get_user_position(p_user_id IN NUMBER)

 * created by 二楼 on 2015-11-16

 * 参数：

 *     p_user_id 用户 user_id

 * 功能：

 *    获取当前用户在‘***_安全性层次结构’下的职位信息，用于报表权限控制

 * 使用参考：

 *    报表：******************

 * 

 *************************************************************************/

  FUNCTION get_user_position(p_user_id IN NUMBER) RETURN NUMBER IS

    l_position_id NUMBER;

    g_structure_name CONSTANT VARCHAR2(100) := '****_安全性层次结构';

    l_position_name    VARCHAR2(100);

  BEGIN 

    BEGIN

      --上层(顶层)

      SELECT  DISTINCT ppse.parent_position_id, hap.name

            INTO   l_position_id, l_position_name

          FROM   per_pos_structure_elements ppse,

                        per_position_structures    pps,

                        hr_all_positions_f         hap

       WHERE 1=1

              AND ppse.pos_structure_version_id = pps.position_structure_id

              AND ppse.business_group_id = pps.business_group_id

              AND pps.name = g_structure_name

              AND hap.position_id = ppse.parent_position_id  --上层

              AND EXISTS(SELECT 1

                                           FROM per_all_assignments_f paaf, fnd_user fu

                                       WHERE 1=1

                                              AND paaf.person_id = fu.employee_id

                                              AND SYSDATE BETWEEN paaf.effective_start_date AND paaf.effective_end_date

                                              AND fu.user_id = p_user_id

                                              AND ppse.parent_position_id = paaf.position_id);

       

    EXCEPTION

      WHEN OTHERS THEN

        -- 是否下层

        BEGIN

          SELECT   ppse.subordinate_position_id, hap.name

                 INTO  l_position_id, l_position_name

               FROM  per_pos_structure_elements ppse,

                            per_position_structures    pps,

                            hr_all_positions_f         hap

           WHERE 1=1

                  AND ppse.pos_structure_version_id = pps.position_structure_id

                  AND ppse.business_group_id = pps.business_group_id

                  AND pps.name        = g_structure_name

                  AND hap.position_id = ppse.subordinate_position_id   --下层

                  AND EXISTS(SELECT 1

                                               FROM per_all_assignments_f paaf, 

                                                            fnd_user              fu

                                           WHERE 1=1

                                                  AND paaf.person_id = fu.employee_id

                                                  AND SYSDATE BETWEEN paaf.effective_start_date AND paaf.effective_end_date

                                                  AND fu.user_id = p_user_id

                                                  AND ppse.subordinate_position_id = paaf.position_id);

            EXCEPTION

                      WHEN OTHERS THEN

                            l_position_id   := NULL;

                            l_position_name := NULL;

        END;

    END;

    

    RETURN l_position_id;

    

  END get_user_position;

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

以上是实现EBS报表中使用安全性层次结构控制的方式，贴上供路人参考。