ENVX/oper
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Primer Commit

Browse Source
This commit is contained in:
luquitas
2023-06-08 11:55:59 -03:00
commit a269361962
432 changed files with 203156 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

135
DB/PROCEDURES/P_MANAGE_USERS.sql Normal file
View File

@@ -0,0 +1,135 @@
--------------------------------------------------------
-- DDL for Procedure P_MANAGE_USERS
--------------------------------------------------------
set define off;
CREATE OR REPLACE EDITIONABLE PROCEDURE "ENVX_OPER"."P_MANAGE_USERS" (
pi_internal_profile IN OUT CLOB
) AS
v_json_aux json;
v_id_user NUMBER := JSON_VALUE(pi_internal_profile, '$.userId');
v_user_name VARCHAR2(500) := JSON_VALUE(pi_internal_profile, '$.user');
v_user_mail VARCHAR2(500) := JSON_VALUE(pi_internal_profile, '$.email');
v_user_status NUMBER := 0;
BEGIN
--- Verificación de Roles Revocados ---
DELETE user_roles ur
WHERE ur.id_user = v_id_user
AND (
SELECT 1
FROM JSON_TABLE (
JSON(pi_internal_profile), '$.idm[*]'
COLUMNS (
"domain" VARCHAR2 (100) PATH '$.domain',
"group" VARCHAR2 (100) PATH '$.group'
)
)
j,
system_role sr
WHERE j."domain" = nvl(sr.idm_domain, 'others')
AND lower(j."group") = lower(sr.idm_group)
AND sr.id_role = ur.id_role
) IS NULL;
--- Verificación de Roles Revocados ---
--- Verificación de Perfiles Revocados ---
DELETE user_roles ur
WHERE ur.id_user = v_id_user
AND (
SELECT 1
FROM JSON_TABLE (
JSON(pi_internal_profile), '$.idm[*]'
COLUMNS (
"domain" VARCHAR2 (100) PATH '$.domain',
"group" VARCHAR2 (100) PATH '$.group'
)
)
j,
system_role sr,
system_profile sp
WHERE j."domain" = nvl(sr.idm_domain, 'others')
AND lower(j."group") = lower(sp.idm_group)
AND lower(sr.id_role) = lower(sp.id_role)
AND sr.id_role = ur.id_role
AND sp.id_sys_profile = ur.id_sys_profile
) IS NULL;
--- Verificación de Perfiles Revocados ---
--- Incorporación de Nuevos Perfiles ---
FOR prf IN (
SELECT v_id_user AS id_user,
v_user_name AS user_name,
v_user_mail AS user_mail,
sr.id_role,
sp.id_sys_profile,
1
FROM JSON_TABLE (
JSON(pi_internal_profile), '$.idm[*]'
COLUMNS (
"domain" VARCHAR2 (100) PATH '$.domain',
"group" VARCHAR2 (100) PATH '$.group'
)
)
j,
system_role sr,
system_profile sp
WHERE j."domain" = nvl(sr.idm_domain, 'others')
AND lower(j."group") = lower(sp.idm_group)
AND lower(sr.id_role) = lower(sp.id_role)
)
LOOP
BEGIN
INSERT INTO user_roles ur
VALUES prf;
EXCEPTION
WHEN OTHERS THEN
NULL;
END;
END LOOP;
--- Incorporación de Nuevos Perfiles ---
--- Extraccion de roles ENVX correspondientes ---
SELECT JSON_ARRAYAGG(JSON_OBJECT('roleId' VALUE r1.id_role, 'roleName' VALUE r1.role_name)) AS roles_array
INTO v_json_aux
FROM (
SELECT UNIQUE ur.id_role,
sr.role_name
FROM user_roles ur,
system_role sr
WHERE ur.id_role = sr.id_role
AND id_user = v_id_user
) r1;
SELECT JSON_TRANSFORM(pi_internal_profile, INSERT '$.roles' = v_json_aux)
INTO pi_internal_profile
FROM dual;
--- Extraccion de roles ENVX correspondientes ---
--- Extraccion de perfiles ENVX correspondientes ---
SELECT JSON_ARRAYAGG(
JSON_OBJECT('roleId' VALUE r1.id_role, 'sysProfileId' VALUE r1.id_sys_profile, 'sysProfileName' VALUE r1.sys_profile_name)
) AS json_profiles
INTO v_json_aux
FROM (
SELECT UNIQUE ur.id_role,
sp.id_sys_profile,
sp.sys_profile_name
FROM user_roles ur,
system_profile sp
WHERE ur.id_role = sp.id_role
AND ur.id_sys_profile = sp.id_sys_profile
AND id_user = v_id_user
) r1;
SELECT JSON_TRANSFORM(pi_internal_profile, INSERT '$.profiles' = v_json_aux)
INTO pi_internal_profile
FROM dual;
--- Extraccion de perfiles ENVX correspondientes ---
END;
/