admin/Customer
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

FSN#23131 fac_v_rap_groeprechten2 toont verwijderde groepen

Browse Source 
svn path=/Customer/trunk/; revision=15271
This commit is contained in:
Erik Groener
2012-05-08 07:47:48 +00:00
parent d34d9f2d83
commit 8301a4a815
8 changed files with 155 additions and 166 deletions
Download Patch File Download Diff File Expand all files Collapse all files

69
SUTF/sutf.sql
View File

@@ -1,7 +1,7 @@
-- Script containing customer specific configuration sql statements for SUTF
-- (c) 2010 SG|facilitor bv
-- $Revision: 7 $
-- $Modtime: 2-03-12 17:45 $
-- $Revision: 8 $
-- $Modtime: 8-05-12 9:47 $
--
-- Support: +31 53 4800700
@@ -74,7 +74,7 @@ BEGIN
v_errorhint := 'Fout bij opvragen te importeren rij';
v_ongeldig := 0;
-- Lees alle veldwaarden
-- 01
fac.imp_getfield (v_newline, c_fielddelimitor, v_alg_locatie_code);
-- 02
@@ -99,9 +99,9 @@ BEGIN
fac.imp_getfield (v_newline, c_fielddelimitor, v_prs_perslid_nr);
-- 12
fac.imp_getfield (v_newline, c_fielddelimitor, v_prs_perslid_oslogin);
--
v_aanduiding :=
'['
@@ -316,7 +316,7 @@ BEGIN
--
v_errorhint := 'Ongeldige plaats/locatiecode';
v_alg_locatie_code := TRIM(v_alg_locatie_code);
v_alg_locatie_code := TRIM(v_alg_locatie_code);
IF LENGTH (v_alg_locatie_code) > 5
THEN
@@ -383,7 +383,7 @@ BEGIN
COMMIT;
END IF;
--
v_errorhint := 'Ongeldig loginnaam';
v_prs_perslid_oslogin := TRIM (v_prs_perslid_oslogin);
@@ -401,8 +401,8 @@ BEGIN
COMMIT;
END IF;
-- Insert geformatteerde import record
IF v_ongeldig = 0
THEN
@@ -559,7 +559,7 @@ IS
FROM sutf_imp_prs
GROUP BY UPPER (prs_srtperslid_omschrijving);
CURSOR cperslid
IS
SELECT *
@@ -595,9 +595,9 @@ IS
AND NOT EXISTS (SELECT 1
FROM fac_gebruikersgroep g
WHERE g.prs_perslid_key = p.prs_perslid_key);
BEGIN
SELECT DECODE (COUNT (*), 0, 1, COUNT (*))
INTO v_count_prs_actual
@@ -1193,8 +1193,7 @@ BEGIN
SELECT fac_groep_upper
INTO v_groep_defaultnaam
FROM fac_groep
WHERE fac_groep_key = c_key_default_rol
AND fac_groep_verwijder IS NULL;
WHERE fac_groep_key = c_key_default_rol;
v_errorhint :=
@@ -1225,8 +1224,8 @@ BEGIN
COMMIT;
END;
END LOOP;
ELSE
fac.imp_writelog
(p_import_key,
@@ -1271,8 +1270,8 @@ AS
prs_perslid_naam_full
FROM prs_v_aanwezigperslid p, prs_afdeling a
WHERE a.prs_afdeling_key = p.prs_afdeling_key;
-- SUTF#22335 view tbv selector bij personen. Bevat de afdelingstelefoon uit objecten.
-- SUTF#22335 view tbv selector bij personen. Bevat de afdelingstelefoon uit objecten.
CREATE OR REPLACE VIEW sutf_v_afdelingtelefoon
(
ins_deel_key,
@@ -1286,7 +1285,7 @@ SELECT obj.ins_deel_key, ins_kenmerkdeel_waarde
AND srt.ins_srtgroep_key = 21
AND ins_alg_ruimte_type = 'A'
and k.ins_deel_key = obj.ins_deel_key
and ins_kenmerk_key = 81;
and ins_kenmerk_key = 81;
@@ -1300,7 +1299,7 @@ CREATE OR REPLACE PROCEDURE sutf_export_afdelingstelefoon (
AS
v_prs_kenmerklink_key NUMBER (10);
-- In cursor c_afdtel_bij_persoon alle telefoon-objecten (telefoonnummers) van de afdelingen
-- In cursor c_afdtel_bij_persoon alle telefoon-objecten (telefoonnummers) van de afdelingen
-- aan de medewerkers van de afdeling gekoppeld...
-- Dus kenmerk van object van afdeling aan persoon van afdeling koppelen
CURSOR c_afdtel_bij_persoon
@@ -1320,14 +1319,14 @@ AS
AND kenmerk.ins_alg_ruimte_key = p.prs_afdeling_key
AND prs_link_key(+) = prs_perslid_key
ORDER BY prs_perslid_key,ins_deel_key;
BEGIN
FOR rec IN c_afdtel_bij_persoon
LOOP
LOOP
BEGIN
-- prs_kenmerk-key = 1000: afdelingstelefoonnummer bij persoon (refkenmerk naar view sutf_v_afdelingtelefoon)
SELECT prs_kenmerklink_key
INTO v_prs_kenmerklink_key
@@ -1336,30 +1335,30 @@ BEGIN
AND kl.prs_kenmerklink_niveau = 'P'
AND kl.prs_kenmerk_key = 1000
AND kl.prs_kenmerklink_verwijder IS NULL;
-- Bij de persoon is al een afdelingstelefoonnummer geregisteerd, nu nog updaten (doen we onvoorwaardelijk), want persoon kan:
-- van afdeling zijn verhuisd, of afdeling kan ander telefoonobject hebben gekregen, ...
UPDATE prs_kenmerklink
SET prs_kenmerklink_waarde = rec.ins_deel_key
WHERE prs_kenmerklink_key = v_prs_kenmerklink_key;
COMMIT;
EXCEPTION
WHEN OTHERS
THEN
-- Record afdelingstelefoon-kenmerk bij persoon bestaat nog niet, dus toevoegen (insert)
-- prs_kenmerk-key = 1000: afdelingstelefoonnummer bij persoon
-- prs_kenmerk-key = 1000: afdelingstelefoonnummer bij persoon
INSERT INTO prs_kenmerklink (prs_link_key, prs_kenmerk_key, prs_kenmerklink_waarde, prs_kenmerklink_niveau)
VALUES(rec.prs_perslid_key, 1000, rec.ins_deel_key, 'P');
COMMIT;
END;
END LOOP;
-- Hieronder alle personen die een telefoon-objecten (telefoonnummers) van de afdelingen
-- Hieronder alle personen die een telefoon-objecten (telefoonnummers) van de afdelingen
-- heeft gekoppeld, maar waarvan de afdeling geen telefoonobject (meer) heeft
-- Dus de andere kant op, want die moeten verwijderd worden.
DELETE FROM prs_kenmerklink
DELETE FROM prs_kenmerklink
WHERE prs_kenmerklink_key IN
(SELECT KL.PRS_KENMERKLINK_KEY
FROM prs_kenmerklink kl, prs_perslid p
@@ -1374,7 +1373,7 @@ BEGIN
AND k.ins_deel_key = obj.ins_deel_key
AND srt.ins_srtgroep_key = 21
AND ins_alg_ruimte_type = 'A'
AND ins_kenmerk_key = 81
AND ins_kenmerk_key = 81
AND ins_alg_ruimte_key = p.prs_afdeling_key )) ;
END;
@@ -1382,7 +1381,7 @@ END;
BEGIN adm.systrackscript('$Workfile: sutf.sql $', '$Revision: 7 $', 0); END;
BEGIN adm.systrackscript('$Workfile: sutf.sql $', '$Revision: 8 $', 0); END;
/
BEGIN fac.registercustversion('SUTF', 3); END;