922 lines
46 KiB
SQL
922 lines
46 KiB
SQL
--
|
|
-- $Id$
|
|
--
|
|
-- Script containing customer specific db-configuration for VVGR.
|
|
DEFINE thisfile = 'VVGR.SQL'
|
|
DEFINE dbuser = '^VVGR'
|
|
|
|
SET ECHO ON
|
|
SET DEFINE ON
|
|
COLUMN fcltlogfile NEW_VALUE fcltlogfile NOPRINT;
|
|
COLUMN fcltcusttxt NEW_VALUE fcltcusttxt NOPRINT;
|
|
WHENEVER SQLERROR CONTINUE;
|
|
SELECT adm.getscriptspoolfile('&thisfile') AS fcltlogfile FROM DUAL;
|
|
SPOOL &fcltlogfile
|
|
WHENEVER SQLERROR EXIT;
|
|
SELECT adm.checkscriptcust('&dbuser') AS fcltcusttxt FROM DUAL;
|
|
WHENEVER SQLERROR CONTINUE;
|
|
---------------------------------------
|
|
PROMPT &fcltcusttxt
|
|
---------------------------------------
|
|
SET DEFINE OFF
|
|
|
|
------ payload begin ------
|
|
|
|
CREATE OR REPLACE VIEW vvgr_v_rap_import_log
|
|
(
|
|
fclt_f_applicatie,
|
|
datum,
|
|
fclt_f_status,
|
|
omschrijving,
|
|
hint
|
|
)
|
|
AS
|
|
SELECT COALESCE (fac_import_app_code, imp_log_applicatie),
|
|
TO_CHAR (imp_log_datum, 'dd-mm-yyyy hh24:mi'),
|
|
imp_log_status,
|
|
imp_log_omschrijving,
|
|
imp_log_hint
|
|
FROM imp_log il1, fac_import fi1, fac_import_app fia1
|
|
WHERE il1.fac_import_key = fi1.fac_import_key(+)
|
|
AND fi1.fac_import_app_key = fia1.fac_import_app_key(+)
|
|
AND NOT EXISTS
|
|
(SELECT 1
|
|
FROM imp_log il2, fac_import fi2
|
|
WHERE il2.fac_import_key = fi2.fac_import_key
|
|
AND fi2.fac_import_app_key = fi1.fac_import_app_key
|
|
AND il2.fac_import_key > il1.fac_import_key);
|
|
|
|
CREATE OR REPLACE PROCEDURE vvgr_import_prs (p_import_key IN NUMBER)
|
|
AS
|
|
v_errormsg VARCHAR2 (1000) := '-';
|
|
oracle_err_num NUMBER;
|
|
oracle_err_mes VARCHAR2 (200);
|
|
BEGIN
|
|
-- Funtie-kolom kopieren naar extra kolom 18 (= kenmerk6)!
|
|
UPDATE fac_imp_file i
|
|
SET i.fac_imp_file_line =
|
|
i.fac_imp_file_line
|
|
|| ';'
|
|
|| SUBSTR (fac_imp_file_line, INSTR (fac_imp_file_line, ';', 1, 9)
|
|
+ 1, INSTR (fac_imp_file_line, ';', 1, 10)
|
|
- INSTR (fac_imp_file_line, ';', 1, 9)
|
|
- 1)
|
|
WHERE fac_import_key = p_import_key AND fac_imp_file_index > 1;
|
|
|
|
-- Functie-kolom=10 resetten (op 'XXX' want verplicht)!
|
|
UPDATE fac_imp_file i
|
|
SET i.fac_imp_file_line =
|
|
SUBSTR (fac_imp_file_line, 1, INSTR (fac_imp_file_line, ';', 1, 9))
|
|
|| '"XXX"'
|
|
|| SUBSTR (fac_imp_file_line, INSTR (fac_imp_file_line, ';', 1, 10))
|
|
WHERE fac_import_key = p_import_key AND fac_imp_file_index > 1;
|
|
COMMIT;
|
|
/*
|
|
-- Afdelingscode-kolom kopieren naar extra kolom 19 (= kenmerk7)!
|
|
UPDATE fac_imp_file i
|
|
SET i.fac_imp_file_line =
|
|
i.fac_imp_file_line
|
|
|| ';'
|
|
|| SUBSTR (fac_imp_file_line, INSTR (fac_imp_file_line, ';', 1, 14)
|
|
+ 1, INSTR (fac_imp_file_line, ';', 1, 15)
|
|
- INSTR (fac_imp_file_line, ';', 1, 14)
|
|
- 1)
|
|
WHERE fac_import_key = p_import_key AND fac_imp_file_index > 1;
|
|
|
|
-- Afdelingscode-kolom=15 resetten (op 'XXX' want verplicht)!
|
|
UPDATE fac_imp_file i
|
|
SET i.fac_imp_file_line =
|
|
SUBSTR (fac_imp_file_line, 1, INSTR (fac_imp_file_line, ';', 1, 14))
|
|
|| '"XXX"'
|
|
|| SUBSTR (fac_imp_file_line, INSTR (fac_imp_file_line, ';', 1, 15))
|
|
WHERE fac_import_key = p_import_key AND fac_imp_file_index > 1;
|
|
COMMIT;
|
|
*/
|
|
-- Generieke import.
|
|
-- De sequence array staat beschreven in PRS_PAC.SRC bij de import_perslid-PROCEDURE.
|
|
-- Met Stamplaats wordt nog niets gedaan!
|
|
--'%ID;Kantoornummer;Achternaam;AchternaamVoorvoegsel;Voorletters;Voornaam;Emailadres;MobielZakelijk;Geboortedatum;Functie;InternTelefoonnummer;;Geslacht;Naam;Afdeling;Functie;Uren%');
|
|
prs.import_perslid (
|
|
p_import_key,
|
|
'0;0;0;0;0;0;2;3;4;6;'
|
|
|| '5;0;0;0;13;11;8;7;0;1;'
|
|
|| '10;0;0;0;0;0;9;14;15;16;'
|
|
|| '17;18;0;0;0;0;0;0;0;0;'
|
|
|| '0;0;0;0;0;0',
|
|
'%ID;Kantoornummer;Achternaam;AchternaamVoorvoegsel;Voorletters;Voornaam;Emailadres;MobielZakelijk;Geboortedatum;Functie;InternTelefoonnummer;;Geslacht;Naam;Afdeling;Functie;Uren%');
|
|
|
|
-- Klantspecifieke aanpassingen.
|
|
/*
|
|
-- Afdeling-kolom altijd op 'VVGR' (en kenmerk7 negeren)!
|
|
UPDATE fac_imp_perslid i
|
|
SET i.prs_afdeling_naam = 'VVGR';
|
|
*/
|
|
-- Functie-kolom volgens kenmerk6 of anders op Onbekend!
|
|
UPDATE fac_imp_perslid i
|
|
SET i.prs_srtperslid_omschrijving = COALESCE (SUBSTR (i.prs_kenmerk6, 1, 60), 'Onbekend')
|
|
WHERE i.prs_perslid_naam IS NOT NULL;
|
|
/*
|
|
-- Login-kolom volgens e-mail (en eventueel niet gevuld)!
|
|
UPDATE fac_imp_perslid i
|
|
SET i.prs_perslid_oslogin = SUBSTR (i.prs_perslid_email, 1, 30)
|
|
WHERE i.prs_perslid_naam IS NOT NULL;
|
|
|
|
-- Als geen Voornaam aangeleverd, dan handmatig toegekende niet wissen.
|
|
UPDATE fac_imp_perslid i
|
|
SET i.prs_perslid_voornaam =
|
|
(SELECT MAX (prs_perslid_voornaam)
|
|
FROM prs_v_aanwezigperslid
|
|
WHERE prs_perslid_nr = i.prs_perslid_nr)
|
|
WHERE i.prs_perslid_voornaam IS NULL -- Aangeleverde Voornaam wint!
|
|
AND EXISTS
|
|
(SELECT 1
|
|
FROM prs_v_aanwezigperslid
|
|
WHERE prs_perslid_voornaam IS NOT NULL
|
|
AND prs_perslid_nr = i.prs_perslid_nr);
|
|
|
|
-- Als geen Email aangeleverd, dan handmatig toegekende niet wissen.
|
|
UPDATE fac_imp_perslid i
|
|
SET i.prs_perslid_email =
|
|
(SELECT MAX (prs_perslid_email)
|
|
FROM prs_v_aanwezigperslid
|
|
WHERE prs_perslid_nr = i.prs_perslid_nr)
|
|
WHERE i.prs_perslid_email IS NULL -- Aangeleverde Email wint!
|
|
AND EXISTS
|
|
(SELECT 1
|
|
FROM prs_v_aanwezigperslid
|
|
WHERE prs_perslid_email IS NOT NULL
|
|
AND prs_perslid_nr = i.prs_perslid_nr);
|
|
|
|
-- Als geen Telefoonnr aangeleverd, dan handmatig toegekende niet wissen.
|
|
UPDATE fac_imp_perslid i
|
|
SET i.prs_perslid_telefoonnr =
|
|
(SELECT MAX (prs_perslid_telefoonnr)
|
|
FROM prs_v_aanwezigperslid
|
|
WHERE prs_perslid_nr = i.prs_perslid_nr)
|
|
WHERE i.prs_perslid_telefoonnr IS NULL -- Aangeleverde Telefoonnr wint!
|
|
AND EXISTS
|
|
(SELECT 1
|
|
FROM prs_v_aanwezigperslid
|
|
WHERE prs_perslid_telefoonnr IS NOT NULL
|
|
AND prs_perslid_nr = i.prs_perslid_nr);
|
|
|
|
-- Als geen Mobiel aangeleverd, dan handmatig toegekende niet wissen.
|
|
UPDATE fac_imp_perslid i
|
|
SET i.prs_perslid_mobiel =
|
|
(SELECT MAX (prs_perslid_mobiel)
|
|
FROM prs_v_aanwezigperslid
|
|
WHERE prs_perslid_nr = i.prs_perslid_nr)
|
|
WHERE i.prs_perslid_mobiel IS NULL -- Aangeleverde Mobiel wint!
|
|
AND EXISTS
|
|
(SELECT 1
|
|
FROM prs_v_aanwezigperslid
|
|
WHERE prs_perslid_mobiel IS NOT NULL
|
|
AND prs_perslid_nr = i.prs_perslid_nr);
|
|
|
|
-- Klantspecifieke aanpassingen.
|
|
-- Locatie/Gebouw/Verdieping/Ruimte bepalen via Kenmerk1-kolom -> Eigen tabel (key = 1) ->
|
|
-- Gebouw en daaronder Ruimte '_' op de verdieping met het laagste volgnummer!
|
|
-- Als persoon al een WP heeft op import-locatie, dan is dat de juiste en blijft deze
|
|
-- (handmatig gecorrigeerde WP) ongewijzigd. In alle andere gevallen verhuist persoon naar
|
|
-- '_' op de meegegeven locatie.
|
|
-- Eventuele WPs onder andere locaties dan import-locatie blijven ook ongewijzigd!
|
|
UPDATE fac_imp_perslid i
|
|
SET i.alg_locatie_code =
|
|
(SELECT il.alg_locatie_code
|
|
FROM fac_v_aanwezigusrdata ud, -- Mapping Kenmerk1-code -> Gebouwcode
|
|
alg_v_aanweziggebouw ig,
|
|
alg_locatie il
|
|
WHERE ud.fac_usrtab_key = -1
|
|
AND UPPER (ud.fac_usrdata_code) = UPPER (i.prs_kenmerk1)
|
|
AND UPPER (ud.fac_usrdata_omschr) = UPPER (ig.alg_gebouw_code)
|
|
AND ig.alg_locatie_key = il.alg_locatie_key
|
|
AND NOT EXISTS
|
|
(SELECT 1
|
|
FROM alg_v_aanweziggebouw
|
|
WHERE UPPER (alg_gebouw_code) = UPPER (ud.fac_usrdata_omschr)
|
|
AND alg_locatie_key < il.alg_locatie_key)),
|
|
i.alg_gebouw_code =
|
|
(SELECT ig.alg_gebouw_code
|
|
FROM fac_v_aanwezigusrdata ud, -- Mapping Kenmerk1-code -> Gebouwcode
|
|
alg_v_aanweziggebouw ig,
|
|
alg_locatie il
|
|
WHERE ud.fac_usrtab_key = -1
|
|
AND UPPER (ud.fac_usrdata_code) = UPPER (i.prs_kenmerk1)
|
|
AND UPPER (ud.fac_usrdata_omschr) = UPPER (ig.alg_gebouw_code)
|
|
AND ig.alg_locatie_key = il.alg_locatie_key
|
|
AND NOT EXISTS
|
|
(SELECT 1
|
|
FROM alg_v_aanweziggebouw
|
|
WHERE UPPER (alg_gebouw_code) = UPPER (ud.fac_usrdata_omschr)
|
|
AND alg_locatie_key < il.alg_locatie_key)),
|
|
i.alg_verdieping_volgnr =
|
|
(SELECT iv.alg_verdieping_volgnr
|
|
FROM fac_v_aanwezigusrdata ud, -- Mapping Kenmerk1-code -> Gebouwcode
|
|
alg_v_aanweziggebouw ig,
|
|
alg_locatie il,
|
|
alg_verdieping iv,
|
|
alg_ruimte ir
|
|
WHERE ud.fac_usrtab_key = -1
|
|
AND UPPER (ud.fac_usrdata_code) = UPPER (i.prs_kenmerk1)
|
|
AND UPPER (ud.fac_usrdata_omschr) = UPPER (ig.alg_gebouw_code)
|
|
AND ig.alg_locatie_key = il.alg_locatie_key
|
|
AND NOT EXISTS
|
|
(SELECT 1
|
|
FROM alg_v_aanweziggebouw
|
|
WHERE UPPER (alg_gebouw_code) = UPPER (ud.fac_usrdata_omschr)
|
|
AND alg_locatie_key < il.alg_locatie_key)
|
|
AND ig.alg_gebouw_key = iv.alg_gebouw_key
|
|
AND iv.alg_verdieping_key = ir.alg_verdieping_key
|
|
AND ir.alg_ruimte_nr = '_000'
|
|
AND NOT EXISTS
|
|
(SELECT 1
|
|
FROM alg_v_aanwezigruimte r, alg_verdieping v
|
|
WHERE r.alg_ruimte_nr = '_000'
|
|
AND r.alg_verdieping_key = v.alg_verdieping_key
|
|
AND v.alg_verdieping_volgnr < iv.alg_verdieping_volgnr)),
|
|
i.alg_ruimte_nr =
|
|
(SELECT '_000'
|
|
FROM fac_v_aanwezigusrdata ud, -- Mapping Kenmerk1-code -> Gebouwcode
|
|
alg_v_aanweziggebouw ig,
|
|
alg_locatie il
|
|
WHERE ud.fac_usrtab_key = -1
|
|
AND UPPER (ud.fac_usrdata_code) = UPPER (i.prs_kenmerk1)
|
|
AND UPPER (ud.fac_usrdata_omschr) = UPPER (ig.alg_gebouw_code)
|
|
AND ig.alg_locatie_key = il.alg_locatie_key
|
|
AND NOT EXISTS
|
|
(SELECT 1
|
|
FROM alg_v_aanweziggebouw
|
|
WHERE UPPER (alg_gebouw_code) = UPPER (ud.fac_usrdata_omschr)
|
|
AND alg_locatie_key < il.alg_locatie_key))
|
|
WHERE NOT EXISTS -- Nog geen werkplek op Locatie!
|
|
(SELECT 1
|
|
FROM fac_v_aanwezigusrdata ud, -- Mapping Kenmerk1-code -> Gebouwcode
|
|
alg_v_aanweziggebouw ig,
|
|
alg_locatie il,
|
|
prs_v_aanwezigperslid p,
|
|
prs_perslidwerkplek pw,
|
|
prs_werkplek cw,
|
|
alg_v_aanwezigruimte cr,
|
|
alg_verdieping cv,
|
|
alg_gebouw cg
|
|
WHERE ud.fac_usrtab_key = -1
|
|
AND UPPER (ud.fac_usrdata_code) = UPPER (i.prs_kenmerk1)
|
|
AND UPPER (ud.fac_usrdata_omschr) = UPPER (ig.alg_gebouw_code)
|
|
AND ig.alg_locatie_key = il.alg_locatie_key
|
|
AND NOT EXISTS
|
|
(SELECT 1
|
|
FROM alg_v_aanweziggebouw
|
|
WHERE UPPER (alg_gebouw_code) = UPPER (ud.fac_usrdata_omschr)
|
|
AND alg_locatie_key < il.alg_locatie_key)
|
|
AND p.prs_perslid_nr = i.prs_perslid_nr
|
|
AND p.prs_perslid_key = pw.prs_perslid_key
|
|
AND pw.prs_werkplek_key = cw.prs_werkplek_key
|
|
AND cw.prs_alg_ruimte_key = cr.alg_ruimte_key
|
|
AND cr.alg_verdieping_key = cv.alg_verdieping_key
|
|
AND cv.alg_gebouw_key = cg.alg_gebouw_key
|
|
AND cg.alg_locatie_key = il.alg_locatie_key);
|
|
|
|
-- Resulteert in nette foutmelding als ruimte niet kan worden bepaald.
|
|
UPDATE fac_imp_perslid
|
|
SET alg_verdieping_volgnr = 0
|
|
WHERE alg_gebouw_code IS NOT NULL
|
|
AND alg_verdieping_volgnr IS NULL;
|
|
*/
|
|
EXCEPTION
|
|
WHEN OTHERS
|
|
THEN
|
|
oracle_err_num := SQLCODE;
|
|
oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
|
|
v_errormsg := 'ORACLE (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
|
|
fac.imp_writelog (p_import_key, 'E', v_errormsg, 'Inleesproces personen afgebroken!');
|
|
END vvgr_import_prs;
|
|
/
|
|
|
|
CREATE OR REPLACE PROCEDURE vvgr_update_prs (p_import_key IN NUMBER)
|
|
AS
|
|
-- Toevoegen afdelingen die nog niet voorkomen in Facilitor en verwijderen
|
|
-- voorlopig handmatig (ipv. automatisch).
|
|
CURSOR c_afd
|
|
IS
|
|
SELECT i.prs_afdeling_naam,
|
|
MAX (COALESCE (SUBSTR (i.prs_kenmerk3, 1, 60), i.prs_afdeling_naam)) prs_afdeling_omschrijving,
|
|
COUNT (*) aant
|
|
FROM fac_imp_perslid i
|
|
WHERE LENGTH (i.prs_afdeling_naam) BETWEEN 1 AND 15 -- Gevuld en niet te lang!
|
|
AND EXISTS (SELECT 1 FROM prs_v_aanwezigbedrijf WHERE prs_bedrijf_key = 2) -- VVGR!
|
|
AND NOT EXISTS
|
|
(SELECT 1
|
|
FROM prs_afdeling
|
|
WHERE prs_afdeling_verwijder IS NULL
|
|
AND prs_bedrijf_key = 2 -- VVGR!
|
|
AND prs_afdeling_parentkey IS NULL -- Afdeling-1!
|
|
AND UPPER (TRIM (prs_afdeling_naam)) = UPPER (TRIM (i.prs_afdeling_naam)))
|
|
GROUP BY i.prs_afdeling_naam
|
|
ORDER BY 1;
|
|
|
|
-- Verwijderen personen die niet meer in importbestand voorkomen.
|
|
-- Dubbele nummers? Dan wordt iemand mogelijk niet verwijderd/INACTIEF!
|
|
CURSOR c_del
|
|
IS
|
|
SELECT p.prs_perslid_key
|
|
FROM prs_v_aanwezigperslid p
|
|
WHERE p.prs_perslid_key > 10 -- Voor de zekerheid!
|
|
AND p.prs_perslid_apikey IS NULL
|
|
--AND prs_perslid_oslogin2 IS NULL -- Zonder alternatieve login!
|
|
AND prs_perslid_nr IS NOT NULL -- Met personeelsnummer!
|
|
--AND NOT EXISTS
|
|
-- (SELECT 1
|
|
-- FROM fac_imp_perslid
|
|
-- WHERE LOWER (prs_perslid_email) = LOWER (p.prs_perslid_email))
|
|
AND NOT EXISTS
|
|
(SELECT 1
|
|
FROM fac_imp_perslid
|
|
WHERE UPPER (prs_perslid_nr) = UPPER (p.prs_perslid_nr))
|
|
ORDER BY 1;
|
|
|
|
v_errormsg VARCHAR2 (1000);
|
|
oracle_err_num NUMBER;
|
|
oracle_err_mes VARCHAR2 (200);
|
|
v_count NUMBER;
|
|
BEGIN
|
|
-- Toevoegen niet bestaande afdelingen.
|
|
FOR rec IN c_afd
|
|
LOOP
|
|
BEGIN
|
|
INSERT INTO prs_afdeling (prs_bedrijf_key, prs_afdeling_naam, prs_afdeling_omschrijving)
|
|
VALUES (2, rec.prs_afdeling_naam, rec.prs_afdeling_omschrijving);
|
|
END;
|
|
END LOOP;
|
|
COMMIT;
|
|
|
|
-- Generic update.
|
|
SELECT COUNT(*) INTO v_count FROM fac_imp_perslid;
|
|
|
|
IF v_count < 100
|
|
THEN
|
|
fac.imp_writelog (p_import_key, 'E',
|
|
'Het aantal te importeren personen is te klein (' || TO_CHAR (v_count) || ')',
|
|
'Zie specificatie');
|
|
RETURN;
|
|
END IF;
|
|
|
|
-- Generieke update (op e-mail adres).
|
|
prs.update_perslid (p_import_key, 'NR', 'L');
|
|
|
|
-- Verwijderen personen *binnen VVGR* niet meer in importbestand.
|
|
FOR rec IN c_del
|
|
LOOP
|
|
BEGIN
|
|
prs.delete_perslid (p_import_key, rec.prs_perslid_key);
|
|
END;
|
|
END LOOP;
|
|
/*
|
|
-- Verwijder ongebruikte functies; deze import bepaalt de functies!
|
|
v_errormsg := 'Fout verwijderen functies';
|
|
DELETE FROM prs_srtperslid sp
|
|
WHERE NOT EXISTS
|
|
(SELECT 1
|
|
FROM prs_perslid
|
|
WHERE prs_srtperslid_key = sp.prs_srtperslid_key);
|
|
COMMIT;
|
|
*/
|
|
-- Toekennen _Default aan alle personen in import-scope!
|
|
v_errormsg := 'Fout toekennen _Default';
|
|
INSERT INTO fac_gebruikersgroep (prs_perslid_key, fac_groep_key)
|
|
SELECT prs_perslid_key, 1
|
|
FROM prs_v_aanwezigperslid p
|
|
WHERE p.prs_perslid_key > 10 -- Voor de zekerheid!
|
|
AND p.prs_perslid_apikey IS NULL
|
|
--AND prs_perslid_oslogin2 IS NULL -- Zonder alternatieve login!
|
|
AND prs_perslid_nr IS NOT NULL -- Met personeelsnummer!
|
|
AND NOT EXISTS -- Nog niet toegekend aan _Default!
|
|
(SELECT 1
|
|
FROM fac_gebruikersgroep
|
|
WHERE fac_groep_key = 1 -- _Default
|
|
AND prs_perslid_key = p.prs_perslid_key);
|
|
COMMIT;
|
|
EXCEPTION
|
|
WHEN OTHERS
|
|
THEN
|
|
oracle_err_num := SQLCODE;
|
|
oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
|
|
v_errormsg := v_errormsg || ' ORACLE (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
|
|
fac.imp_writelog (p_import_key, 'E', v_errormsg, 'Importproces PRS afgebroken!');
|
|
END vvgr_update_prs;
|
|
/
|
|
|
|
-- Mail2Melding. Twee stromen:
|
|
-- - HELPDESK -: Registreren melding van Soortmelding=161 (Mailmelding ICT)!
|
|
-- - SERVICE -: Registreren melding van Soortmelding=162 (Mailmelding FAC)!
|
|
CREATE OR REPLACE PROCEDURE VVGR_processemail (
|
|
pfrom IN VARCHAR2,
|
|
pto IN VARCHAR2,
|
|
psubject IN VARCHAR2,
|
|
pbody IN VARCHAR2,
|
|
psessionid IN VARCHAR2,
|
|
pemailkey IN NUMBER)
|
|
AS
|
|
c_onbekend_key NUMBER (10) := 4; -- TODO:API-user tbv. hMail-koppeling?
|
|
v_errormsg VARCHAR2 (1000);
|
|
oracle_err_num NUMBER;
|
|
oracle_err_mes VARCHAR2 (200);
|
|
v_van_regel VARCHAR2 (255) := '';
|
|
--v_van_email VARCHAR2 (255) := '';
|
|
v_perslid_key NUMBER (10);
|
|
v_kostenplaats_key NUMBER (10);
|
|
v_locatie_key NUMBER (10);
|
|
v_discipline_key NUMBER (10);
|
|
v_stdmelding_key NUMBER (10);
|
|
v_body VARCHAR2 (4000);
|
|
v_melding_key NUMBER (10);
|
|
v_folder_kkey NUMBER (10);
|
|
v_count NUMBER (10);
|
|
BEGIN
|
|
CASE
|
|
--WHEN INSTR (UPPER (pfrom), '???') > 0 AND UPPER (pto) LIKE 'HELPDESK@%'
|
|
WHEN UPPER (pto) LIKE 'HELPDESK@%'
|
|
THEN
|
|
/*
|
|
-- Probeer melder te bepalen op basis van e-mail adres tussen '<>' na eerste voorkomen 'Van:' of 'From: '!
|
|
v_errormsg := 'Fout bepalen melder';
|
|
IF INSTR (UPPER (pbody), 'VAN:') > 0
|
|
THEN
|
|
v_van_regel := TRIM (SUBSTR (pbody,
|
|
INSTR (UPPER (pbody), 'VAN:') + 4,
|
|
INSTR (SUBSTR (REPLACE (REPLACE (pbody, CHR (13), '#'), CHR (10), '#') || '#', INSTR (pbody, 'VAN:') + 4), '#') - 1));
|
|
|
|
IF INSTR (v_van_regel, '<') > 0 AND INSTR (v_van_regel, '<') < INSTR (v_van_regel, '>')
|
|
THEN
|
|
v_van_email := SUBSTR (v_van_regel, INSTR (v_van_regel, '<') + 1, INSTR (v_van_regel, '>') - INSTR (v_van_regel, '<') - 1);
|
|
END IF;
|
|
ELSIF INSTR (UPPER (pbody), 'FROM: ') > 0
|
|
THEN
|
|
v_van_regel := TRIM (SUBSTR (pbody,
|
|
INSTR (UPPER (pbody), 'FROM: ') + 6,
|
|
INSTR (SUBSTR (REPLACE (REPLACE (pbody, CHR (13), '#'), CHR (10), '#') || '#', INSTR (pbody, 'FROM:') + 6), '#') - 1));
|
|
|
|
IF INSTR (v_van_regel, '<') > 0 AND INSTR (v_van_regel, '<') < INSTR (v_van_regel, '>')
|
|
THEN
|
|
v_van_email := SUBSTR (v_van_regel, INSTR (v_van_regel, '<') + 1, INSTR (v_van_regel, '>') - INSTR (v_van_regel, '<') - 1);
|
|
END IF;
|
|
END IF;
|
|
|
|
SELECT COUNT (*)
|
|
INTO v_count
|
|
FROM prs_v_aanwezigperslid
|
|
WHERE UPPER (prs_perslid_email) LIKE UPPER (v_van_email) || '%';
|
|
*/
|
|
-- Bepaal de melder op basis van e-mail adres zoals in pfrom?
|
|
v_errormsg := 'Fout bepalen melder';
|
|
SELECT COUNT (*)
|
|
INTO v_count
|
|
FROM prs_v_aanwezigperslid
|
|
WHERE UPPER (prs_perslid_email) LIKE UPPER (pfrom) || '%';
|
|
|
|
IF v_count = 1
|
|
THEN
|
|
SELECT p.prs_perslid_key, a.prs_kostenplaats_key, MIN (wpg.alg_locatie_key)
|
|
INTO v_perslid_key, v_kostenplaats_key, v_locatie_key
|
|
FROM prs_v_aanwezigperslid p, prs_afdeling a,
|
|
(SELECT pw.prs_perslid_key, pw.prs_werkplek_key
|
|
FROM prs_perslidwerkplek pw
|
|
WHERE NOT EXISTS
|
|
(SELECT 1
|
|
FROM prs_perslidwerkplek
|
|
WHERE prs_perslid_key = pw.prs_perslid_key
|
|
AND prs_perslidwerkplek_key > pw.prs_perslidwerkplek_key)) pw,
|
|
prs_v_werkplekperslid_gegevens wpg
|
|
WHERE p.prs_afdeling_key = a.prs_afdeling_key
|
|
AND UPPER (p.prs_perslid_email) LIKE UPPER (pfrom) || '%'
|
|
AND p.prs_perslid_key = pw.prs_perslid_key(+)
|
|
AND pw.prs_werkplek_key = wpg.prs_werkplek_key(+)
|
|
GROUP BY p.prs_perslid_key, a.prs_kostenplaats_key;
|
|
ELSE -- Melder kan niet 1-duidig worden bepaald, dus Onbekend en 15=1441RG-44/Purmerend Gorslaan 44-45 Hoofdkantoor
|
|
SELECT p.prs_perslid_key, a.prs_kostenplaats_key, 15
|
|
INTO v_perslid_key, v_kostenplaats_key, v_locatie_key
|
|
FROM prs_v_aanwezigperslid p, prs_afdeling a
|
|
WHERE p.prs_afdeling_key = a.prs_afdeling_key
|
|
AND p.prs_perslid_key = c_onbekend_key;
|
|
END IF;
|
|
|
|
-- Bepaal de afgesproken soortmelding met key=161=Mailmelding ICT!
|
|
v_errormsg := 'Fout bepalen soortmelding';
|
|
SELECT mld_ins_discipline_key, mld_stdmelding_key
|
|
INTO v_discipline_key, v_stdmelding_key
|
|
FROM mld_stdmelding
|
|
WHERE mld_stdmelding_key = 181;
|
|
|
|
-- Body overnemen tot 1e voorkomen van hard afgesproken start DISCLAIMER!
|
|
--v_errormsg := 'Fout strippen disclaimer';
|
|
--IF INSTR (UPPER (pbody), 'DISCLAIMER') > 0 --AND INSTR (UPPER (pbody), 'DE INFORMATIE IN DIT BERICHT') > 0
|
|
--THEN
|
|
--v_body := TRIM (SUBSTR (pbody, 1, INSTR (UPPER (pbody), 'DE INFORMATIE IN DIT BERICHT') - 12));
|
|
-- v_body := TRIM (SUBSTR (pbody, 1, INSTR (UPPER (pbody), 'DISCLAIMER') - 1));
|
|
--ELSE
|
|
-- v_body := pbody;
|
|
--END IF;
|
|
v_body := pbody;
|
|
|
|
-- Suggested extensions:
|
|
-- - Check for MLDUSE-write autorisations
|
|
-- - Parse the subject to find the appropriate stdmelding, if uniquely possible
|
|
-- - Append (as a note?) to an existing melding if #key is found in the subject
|
|
v_errormsg := 'Fout toevoegen melding';
|
|
INSERT INTO mld_melding (mld_melding_module,
|
|
mld_meldbron_key,
|
|
mld_alg_locatie_key,
|
|
mld_alg_onroerendgoed_keys,
|
|
mld_melding_datum,
|
|
mld_melding_omschrijving,
|
|
mld_stdmelding_key,
|
|
mld_melding_t_uitvoertijd,
|
|
prs_kostenplaats_key,
|
|
prs_perslid_key,
|
|
prs_perslid_key_voor,
|
|
mld_melding_status,
|
|
mld_melding_spoed,
|
|
mld_melding_onderwerp,
|
|
mld_melding_behandelaar2_key,
|
|
mld_ins_discipline_key)
|
|
VALUES ('MLD',
|
|
4, -- Email
|
|
COALESCE (v_locatie_key, 15), -- Fallback op 15=1441RG-44/Purmerend Gorslaan 44-45 Hoofdkantoor
|
|
NULL, --v_onrgoed_keys,
|
|
SYSDATE,
|
|
SUBSTR (v_body, 1, 2000),
|
|
v_stdmelding_key,
|
|
NULL,
|
|
v_kostenplaats_key,
|
|
v_perslid_key,
|
|
v_perslid_key,
|
|
NULL,
|
|
3, -- Prio normaal
|
|
SUBSTR (psubject, 1, 80),
|
|
NULL,
|
|
NULL) -- BT?
|
|
RETURNING mld_melding_key
|
|
INTO v_melding_key;
|
|
|
|
mld.setmeldingstatus (v_melding_key, 2, v_perslid_key);
|
|
|
|
INSERT INTO fac_result (fac_result_sessionid, fac_result_naam, fac_result_waarde)
|
|
VALUES (psessionid, 'maillog', 'Geregistreerd onder melding ' || v_melding_key);
|
|
|
|
-- Find the lowest volgnummer of the Folder-flexfield.
|
|
-- PAS OP: 'Alle vakgroeptypen'-kenmerken hier niet beschouwd en dat bijt
|
|
-- dus nooit met kenmerk hieronder tbv. Originele mail!
|
|
v_errormsg := 'Fout toevoegen melding-bijlage';
|
|
SELECT MIN (k1.mld_kenmerk_key)
|
|
INTO v_folder_kkey
|
|
FROM mld_stdmelding sm1, ins_tab_discipline td1, mld_kenmerk k1, mld_srtkenmerk sk1
|
|
WHERE sm1.mld_stdmelding_key = v_stdmelding_key
|
|
AND sm1.mld_ins_discipline_key = td1.ins_discipline_key
|
|
AND k1.mld_kenmerk_verwijder IS NULL
|
|
AND k1.mld_srtkenmerk_key = sk1.mld_srtkenmerk_key
|
|
AND sk1.mld_srtkenmerk_kenmerktype = 'M'
|
|
AND ((k1.mld_stdmelding_key = sm1.mld_stdmelding_key AND k1.mld_kenmerk_niveau = 'S')
|
|
OR (k1.mld_stdmelding_key = td1.ins_discipline_key AND k1.mld_kenmerk_niveau = 'D')
|
|
OR (k1.mld_stdmelding_key = td1.ins_srtdiscipline_key AND k1.mld_kenmerk_niveau = 'T'))
|
|
AND NOT EXISTS
|
|
(SELECT 1
|
|
FROM mld_stdmelding sm2, ins_tab_discipline td2, mld_kenmerk k2, mld_srtkenmerk sk2
|
|
WHERE sm2.mld_stdmelding_key = v_stdmelding_key
|
|
AND sm2.mld_ins_discipline_key = td2.ins_discipline_key
|
|
AND k2.mld_kenmerk_verwijder IS NULL
|
|
AND k2.mld_srtkenmerk_key = sk2.mld_srtkenmerk_key
|
|
AND sk2.mld_srtkenmerk_kenmerktype = 'M'
|
|
AND ((k2.mld_stdmelding_key = sm2.mld_stdmelding_key AND k2.mld_kenmerk_niveau = 'S')
|
|
OR (k2.mld_stdmelding_key = td2.ins_discipline_key AND k2.mld_kenmerk_niveau = 'D')
|
|
OR (k2.mld_stdmelding_key = td2.ins_srtdiscipline_key AND k2.mld_kenmerk_niveau = 'T'))
|
|
AND k2.mld_kenmerk_volgnummer < k1.mld_kenmerk_volgnummer);
|
|
|
|
IF v_folder_kkey IS NOT NULL
|
|
THEN
|
|
INSERT INTO fac_result (fac_result_sessionid, fac_result_naam, fac_result_waarde)
|
|
VALUES (psessionid, 'kenmerkpath', 'MLD\M' || TO_CHAR (TRUNC (v_melding_key / 1000), 'FM0000') || '___\M' || v_melding_key || '\' || v_folder_kkey || '\');
|
|
END IF;
|
|
|
|
-- Per 2021.1 mogelijk dat originele mail ook wordt opgeslagen!
|
|
-- PAS OP: Voorkennis dat dit een 'Alle vakgroeptypen'-kenmerk is en
|
|
-- dus nooit bijt met Bijlage(n)-kenmerk hierboven!
|
|
v_errormsg := 'Fout toevoegen originele mail';
|
|
INSERT INTO fac_result (fac_result_sessionid, fac_result_naam, fac_result_waarde)
|
|
VALUES (psessionid, 'kenmerkorgmailpath', 'MLD\M' || TO_CHAR (TRUNC (v_melding_key / 1000), 'FM0000') || '___\M' || v_melding_key || '\' || 1021 || '\');
|
|
/*
|
|
-- Handle workflow actions for completion (in case of new melding).
|
|
MLD.mld_nextworkflowstep (v_melding_key, -1); -- -1=Initial
|
|
*/
|
|
fac.writelog ('PROCESSEMAIL', 'I', 'Helpdesk-pfrom: ' || pfrom, 'Testje');
|
|
WHEN UPPER (pto) LIKE 'SERVICE@%'
|
|
THEN
|
|
/*
|
|
-- Probeer melder te bepalen op basis van e-mail adres tussen '<>' na eerste voorkomen 'Van:' of 'From: '!
|
|
v_errormsg := 'Fout bepalen melder';
|
|
IF INSTR (UPPER (pbody), 'VAN:') > 0
|
|
THEN
|
|
v_van_regel := TRIM (SUBSTR (pbody,
|
|
INSTR (UPPER (pbody), 'VAN:') + 4,
|
|
INSTR (SUBSTR (REPLACE (REPLACE (pbody, CHR (13), '#'), CHR (10), '#') || '#', INSTR (pbody, 'VAN:') + 4), '#') - 1));
|
|
|
|
IF INSTR (v_van_regel, '<') > 0 AND INSTR (v_van_regel, '<') < INSTR (v_van_regel, '>')
|
|
THEN
|
|
v_van_email := SUBSTR (v_van_regel, INSTR (v_van_regel, '<') + 1, INSTR (v_van_regel, '>') - INSTR (v_van_regel, '<') - 1);
|
|
END IF;
|
|
ELSIF INSTR (UPPER (pbody), 'FROM: ') > 0
|
|
THEN
|
|
v_van_regel := TRIM (SUBSTR (pbody,
|
|
INSTR (UPPER (pbody), 'FROM: ') + 6,
|
|
INSTR (SUBSTR (REPLACE (REPLACE (pbody, CHR (13), '#'), CHR (10), '#') || '#', INSTR (pbody, 'FROM:') + 6), '#') - 1));
|
|
|
|
IF INSTR (v_van_regel, '<') > 0 AND INSTR (v_van_regel, '<') < INSTR (v_van_regel, '>')
|
|
THEN
|
|
v_van_email := SUBSTR (v_van_regel, INSTR (v_van_regel, '<') + 1, INSTR (v_van_regel, '>') - INSTR (v_van_regel, '<') - 1);
|
|
END IF;
|
|
END IF;
|
|
|
|
SELECT COUNT (*)
|
|
INTO v_count
|
|
FROM prs_v_aanwezigperslid
|
|
WHERE UPPER (prs_perslid_email) LIKE UPPER (v_van_email) || '%';
|
|
*/
|
|
-- Bepaal de melder op basis van e-mail adres zoals in pfrom?
|
|
v_errormsg := 'Fout bepalen melder';
|
|
SELECT COUNT (*)
|
|
INTO v_count
|
|
FROM prs_v_aanwezigperslid
|
|
WHERE UPPER (prs_perslid_email) LIKE UPPER (pfrom) || '%';
|
|
|
|
IF v_count = 1
|
|
THEN
|
|
SELECT p.prs_perslid_key, a.prs_kostenplaats_key, MIN (wpg.alg_locatie_key)
|
|
INTO v_perslid_key, v_kostenplaats_key, v_locatie_key
|
|
FROM prs_v_aanwezigperslid p, prs_afdeling a,
|
|
(SELECT pw.prs_perslid_key, pw.prs_werkplek_key
|
|
FROM prs_perslidwerkplek pw
|
|
WHERE NOT EXISTS
|
|
(SELECT 1
|
|
FROM prs_perslidwerkplek
|
|
WHERE prs_perslid_key = pw.prs_perslid_key
|
|
AND prs_perslidwerkplek_key > pw.prs_perslidwerkplek_key)) pw,
|
|
prs_v_werkplekperslid_gegevens wpg
|
|
WHERE p.prs_afdeling_key = a.prs_afdeling_key
|
|
AND UPPER (p.prs_perslid_email) LIKE UPPER (pfrom) || '%'
|
|
AND p.prs_perslid_key = pw.prs_perslid_key(+)
|
|
AND pw.prs_werkplek_key = wpg.prs_werkplek_key(+)
|
|
GROUP BY p.prs_perslid_key, a.prs_kostenplaats_key;
|
|
ELSE -- Melder kan niet 1-duidig worden bepaald, dus Onbekend en 15=1441RG-44/Purmerend Gorslaan 44-45 Hoofdkantoor
|
|
SELECT p.prs_perslid_key, a.prs_kostenplaats_key, 15
|
|
INTO v_perslid_key, v_kostenplaats_key, v_locatie_key
|
|
FROM prs_v_aanwezigperslid p, prs_afdeling a
|
|
WHERE p.prs_afdeling_key = a.prs_afdeling_key
|
|
AND p.prs_perslid_key = c_onbekend_key;
|
|
END IF;
|
|
|
|
-- Bepaal de afgesproken soortmelding met key=161=Mailmelding FAC!
|
|
v_errormsg := 'Fout bepalen soortmelding';
|
|
SELECT mld_ins_discipline_key, mld_stdmelding_key
|
|
INTO v_discipline_key, v_stdmelding_key
|
|
FROM mld_stdmelding
|
|
WHERE mld_stdmelding_key = 182;
|
|
|
|
-- Body overnemen tot 1e voorkomen van hard afgesproken start DISCLAIMER!
|
|
--v_errormsg := 'Fout strippen disclaimer';
|
|
--IF INSTR (UPPER (pbody), 'DISCLAIMER') > 0 --AND INSTR (UPPER (pbody), 'DE INFORMATIE IN DIT BERICHT') > 0
|
|
--THEN
|
|
--v_body := TRIM (SUBSTR (pbody, 1, INSTR (UPPER (pbody), 'DE INFORMATIE IN DIT BERICHT') - 12));
|
|
-- v_body := TRIM (SUBSTR (pbody, 1, INSTR (UPPER (pbody), 'DISCLAIMER') - 1));
|
|
--ELSE
|
|
-- v_body := pbody;
|
|
--END IF;
|
|
v_body := pbody;
|
|
|
|
-- Suggested extensions:
|
|
-- - Check for MLDUSE-write autorisations
|
|
-- - Parse the subject to find the appropriate stdmelding, if uniquely possible
|
|
-- - Append (as a note?) to an existing melding if #key is found in the subject
|
|
v_errormsg := 'Fout toevoegen melding';
|
|
INSERT INTO mld_melding (mld_melding_module,
|
|
mld_meldbron_key,
|
|
mld_alg_locatie_key,
|
|
mld_alg_onroerendgoed_keys,
|
|
mld_melding_datum,
|
|
mld_melding_omschrijving,
|
|
mld_stdmelding_key,
|
|
mld_melding_t_uitvoertijd,
|
|
prs_kostenplaats_key,
|
|
prs_perslid_key,
|
|
prs_perslid_key_voor,
|
|
mld_melding_status,
|
|
mld_melding_spoed,
|
|
mld_melding_onderwerp,
|
|
mld_melding_behandelaar2_key,
|
|
mld_ins_discipline_key)
|
|
VALUES ('MLD',
|
|
4, -- Email
|
|
COALESCE (v_locatie_key, 15), -- Fallback op 15=1441RG-44/Purmerend Gorslaan 44-45 Hoofdkantoor
|
|
NULL, --v_onrgoed_keys,
|
|
SYSDATE,
|
|
SUBSTR (v_body, 1, 2000),
|
|
v_stdmelding_key,
|
|
NULL,
|
|
v_kostenplaats_key,
|
|
v_perslid_key,
|
|
v_perslid_key,
|
|
NULL,
|
|
3, -- Prio normaal
|
|
SUBSTR (psubject, 1, 80),
|
|
NULL,
|
|
NULL) -- BT?
|
|
RETURNING mld_melding_key
|
|
INTO v_melding_key;
|
|
|
|
mld.setmeldingstatus (v_melding_key, 2, v_perslid_key);
|
|
|
|
INSERT INTO fac_result (fac_result_sessionid, fac_result_naam, fac_result_waarde)
|
|
VALUES (psessionid, 'maillog', 'Geregistreerd onder melding ' || v_melding_key);
|
|
|
|
-- Find the lowest volgnummer of the Folder-flexfield.
|
|
-- PAS OP: 'Alle vakgroeptypen'-kenmerken hier niet beschouwd en dat bijt
|
|
-- dus nooit met kenmerk hieronder tbv. Originele mail!
|
|
v_errormsg := 'Fout toevoegen melding-bijlage';
|
|
SELECT MIN (k1.mld_kenmerk_key)
|
|
INTO v_folder_kkey
|
|
FROM mld_stdmelding sm1, ins_tab_discipline td1, mld_kenmerk k1, mld_srtkenmerk sk1
|
|
WHERE sm1.mld_stdmelding_key = v_stdmelding_key
|
|
AND sm1.mld_ins_discipline_key = td1.ins_discipline_key
|
|
AND k1.mld_kenmerk_verwijder IS NULL
|
|
AND k1.mld_srtkenmerk_key = sk1.mld_srtkenmerk_key
|
|
AND sk1.mld_srtkenmerk_kenmerktype = 'M'
|
|
AND ((k1.mld_stdmelding_key = sm1.mld_stdmelding_key AND k1.mld_kenmerk_niveau = 'S')
|
|
OR (k1.mld_stdmelding_key = td1.ins_discipline_key AND k1.mld_kenmerk_niveau = 'D')
|
|
OR (k1.mld_stdmelding_key = td1.ins_srtdiscipline_key AND k1.mld_kenmerk_niveau = 'T'))
|
|
AND NOT EXISTS
|
|
(SELECT 1
|
|
FROM mld_stdmelding sm2, ins_tab_discipline td2, mld_kenmerk k2, mld_srtkenmerk sk2
|
|
WHERE sm2.mld_stdmelding_key = v_stdmelding_key
|
|
AND sm2.mld_ins_discipline_key = td2.ins_discipline_key
|
|
AND k2.mld_kenmerk_verwijder IS NULL
|
|
AND k2.mld_srtkenmerk_key = sk2.mld_srtkenmerk_key
|
|
AND sk2.mld_srtkenmerk_kenmerktype = 'M'
|
|
AND ((k2.mld_stdmelding_key = sm2.mld_stdmelding_key AND k2.mld_kenmerk_niveau = 'S')
|
|
OR (k2.mld_stdmelding_key = td2.ins_discipline_key AND k2.mld_kenmerk_niveau = 'D')
|
|
OR (k2.mld_stdmelding_key = td2.ins_srtdiscipline_key AND k2.mld_kenmerk_niveau = 'T'))
|
|
AND k2.mld_kenmerk_volgnummer < k1.mld_kenmerk_volgnummer);
|
|
|
|
IF v_folder_kkey IS NOT NULL
|
|
THEN
|
|
INSERT INTO fac_result (fac_result_sessionid, fac_result_naam, fac_result_waarde)
|
|
VALUES (psessionid, 'kenmerkpath', 'MLD\M' || TO_CHAR (TRUNC (v_melding_key / 1000), 'FM0000') || '___\M' || v_melding_key || '\' || v_folder_kkey || '\');
|
|
END IF;
|
|
|
|
-- Per 2021.1 mogelijk dat originele mail ook wordt opgeslagen!
|
|
-- PAS OP: Voorkennis dat dit een 'Alle vakgroeptypen'-kenmerk is en
|
|
-- dus nooit bijt met Bijlage(n)-kenmerk hierboven!
|
|
v_errormsg := 'Fout toevoegen originele mail';
|
|
INSERT INTO fac_result (fac_result_sessionid, fac_result_naam, fac_result_waarde)
|
|
VALUES (psessionid, 'kenmerkorgmailpath', 'MLD\M' || TO_CHAR (TRUNC (v_melding_key / 1000), 'FM0000') || '___\M' || v_melding_key || '\' || 1021 || '\');
|
|
/*
|
|
-- Handle workflow actions for completion (in case of new melding).
|
|
MLD.mld_nextworkflowstep (v_melding_key, -1); -- -1=Initial
|
|
*/
|
|
fac.writelog ('PROCESSEMAIL', 'I', 'Service-pfrom: ' || pfrom, 'Testje');
|
|
ELSE
|
|
INSERT INTO fac_result (fac_result_sessionid, fac_result_naam, fac_result_waarde)
|
|
VALUES (psessionid, 'errormsg', 'Ontvanger ongeldig - Neem contact op met uw systeembeheerder ');
|
|
END CASE;
|
|
EXCEPTION
|
|
WHEN OTHERS
|
|
THEN
|
|
oracle_err_num := SQLCODE;
|
|
oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
|
|
v_errormsg := v_errormsg || ' ORACLE (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
|
|
fac.writelog ('PROCESSEMAIL', 'E', 'VVGR_processemail afgebroken!', '[' || pfrom || '] ' || v_errormsg);
|
|
INSERT INTO fac_result (fac_result_sessionid, fac_result_naam, fac_result_waarde)
|
|
VALUES (psessionid, 'errormsg', 'Database fout - Neem contact op met uw systeembeheerder ');
|
|
COMMIT;
|
|
END;
|
|
/
|
|
|
|
CREATE OR REPLACE VIEW VVGR_V_RAP_QRC
|
|
AS
|
|
SELECT d.ins_deel_omschrijving hide_f_sort,
|
|
dd.ins_discipline_omschrijving || ' / ' || sm.mld_stdmelding_omschrijving
|
|
fclt_f_melding,
|
|
'Plaats' gekoppeld_aan,
|
|
l.alg_locatie_code || ' ' || l.alg_locatie_omschrijving
|
|
fclt_f_locatie,
|
|
--o.alg_gebouw_omschrijving fclt_f_gebouw,
|
|
o.alg_plaatsaanduiding fclt_f_plaats,
|
|
NULL fclt_f_persoon,
|
|
dd.ins_discipline_omschrijving fclt_f_discipline,
|
|
sg.ins_srtgroep_omschrijving fclt_f_objectgroep,
|
|
sd.ins_srtdeel_omschrijving fclt_f_objectsoort,
|
|
d.ins_deel_omschrijving fclt_f_identificatie,
|
|
--b.fac_bookmark_naam fclt_f_bookmark,
|
|
dd.ins_discipline_key fclt_3d_discipline_key,
|
|
sd.ins_srtdeel_key,
|
|
d.ins_deel_key,
|
|
d.ins_alg_locatie_key fclt_3d_locatie_key,
|
|
d.ins_alg_ruimte_type,
|
|
d.ins_alg_ruimte_key,
|
|
--o.alg_gebouw_code,
|
|
--o.alg_verdieping_code,
|
|
b.fac_bookmark_id hide_f_bookmark_id
|
|
FROM --fac_bookmark b,
|
|
(SELECT SUBSTR (SUBSTR (UPPER (fac_bookmark_query), INSTR (UPPER (fac_bookmark_query), 'STDMKINA=') + 9), 1, INSTR (SUBSTR (UPPER (fac_bookmark_query), INSTR (UPPER (fac_bookmark_query), 'STDMKINA=') + 9) || '&', '&') - 1)
|
|
stdmkina,
|
|
--fac_bookmark_naam,
|
|
fac_bookmark_id
|
|
FROM fac_bookmark
|
|
WHERE (fac_bookmark_expire IS NULL OR fac_bookmark_expire > SYSDATE)
|
|
AND UPPER (TRIM (fac_bookmark_path)) = 'APPL/PDA/INS_DEEL.ASP'
|
|
AND INSTR (UPPER (fac_bookmark_query), 'STDMKINA=') > 0) b, -- STDMKINA-bookmarks
|
|
ins_v_aanwezigdeel d,
|
|
ins_srtdeel sd,
|
|
ins_srtgroep sg,
|
|
ins_discipline dd,
|
|
alg_locatie l,
|
|
ins_v_alg_overzicht o,
|
|
mld_stdmelding sm,
|
|
mld_stdmelding_srtinst smsd
|
|
WHERE --(b.fac_bookmark_expire IS NULL OR b.fac_bookmark_expire > SYSDATE)
|
|
--AND b.fac_bookmark_naam = 'QRC_MELDING'
|
|
--AND d.ins_deel_module = 'INS'
|
|
d.ins_srtdeel_key = sd.ins_srtdeel_key
|
|
AND sd.ins_srtgroep_key = sg.ins_srtgroep_key
|
|
AND sg.ins_discipline_key = dd.ins_discipline_key
|
|
AND d.ins_deel_parent_key IS NULL
|
|
AND d.ins_alg_ruimte_type IN ('T', 'R', 'W')
|
|
AND d.ins_alg_locatie_key = l.alg_locatie_key
|
|
--AND d.ins_alg_locatie_key = o.alg_locatie_key
|
|
AND d.ins_alg_ruimte_type = o.alg_onroerendgoed_type
|
|
AND d.ins_alg_ruimte_key = o.alg_onroerendgoed_keys
|
|
AND fac.safe_to_number (b.stdmkina) = sm.mld_stdmelding_key
|
|
AND sm.mld_stdmelding_key = smsd.mld_stdmelding_key
|
|
AND smsd.ins_srtinstallatie_key = DECODE (smsd.ins_srtinstallatie_niveau, 'S', sd.ins_srtdeel_key, 'G', sg.ins_srtgroep_key, 'D', dd.ins_discipline_key)
|
|
UNION ALL
|
|
SELECT d.ins_deel_omschrijving hide_f_sort,
|
|
dd.ins_discipline_omschrijving || ' / ' || sm.mld_stdmelding_omschrijving
|
|
fclt_f_melding,
|
|
'Persoon' gekoppeld_aan,
|
|
NULL fclt_f_locatie,
|
|
--NULL fclt_f_gebouw,
|
|
NULL fclt_f_plaats,
|
|
pf.prs_perslid_naam_full fclt_f_persoon,
|
|
dd.ins_discipline_omschrijving fclt_f_discipline,
|
|
sg.ins_srtgroep_omschrijving fclt_f_objectgroep,
|
|
sd.ins_srtdeel_omschrijving fclt_f_objectsoort,
|
|
d.ins_deel_omschrijving fclt_f_identificatie,
|
|
--b.fac_bookmark_naam fclt_f_bookmark,
|
|
dd.ins_discipline_key fclt_3d_discipline_key,
|
|
sd.ins_srtdeel_key,
|
|
d.ins_deel_key,
|
|
d.ins_alg_locatie_key fclt_3d_locatie_key,
|
|
d.ins_alg_ruimte_type,
|
|
d.ins_alg_ruimte_key,
|
|
--NULL alg_gebouw_code,
|
|
--NULL alg_verdieping_code,
|
|
b.fac_bookmark_id hide_f_bookmark_id
|
|
FROM --fac_bookmark b,
|
|
(SELECT SUBSTR (SUBSTR (UPPER (fac_bookmark_query), INSTR (UPPER (fac_bookmark_query), 'STDMKINA=') + 9), 1, INSTR (SUBSTR (UPPER (fac_bookmark_query), INSTR (UPPER (fac_bookmark_query), 'STDMKINA=') + 9) || '&', '&') - 1)
|
|
stdmkina,
|
|
--fac_bookmark_naam,
|
|
fac_bookmark_id
|
|
FROM fac_bookmark
|
|
WHERE (fac_bookmark_expire IS NULL OR fac_bookmark_expire > SYSDATE)
|
|
AND UPPER (TRIM (fac_bookmark_path)) = 'APPL/PDA/INS_DEEL.ASP'
|
|
AND INSTR (UPPER (fac_bookmark_query), 'STDMKINA=') > 0) b, -- STDMKINA-bookmarks
|
|
ins_v_aanwezigdeel d,
|
|
ins_srtdeel sd,
|
|
ins_srtgroep sg,
|
|
ins_discipline dd,
|
|
prs_v_perslid_fullnames pf,
|
|
mld_stdmelding sm,
|
|
mld_stdmelding_srtinst smsd
|
|
WHERE --(b.fac_bookmark_expire IS NULL OR b.fac_bookmark_expire > SYSDATE)
|
|
--AND b.fac_bookmark_naam = 'QRC_MELDING'
|
|
--AND d.ins_deel_module = 'INS'
|
|
d.ins_srtdeel_key = sd.ins_srtdeel_key
|
|
AND d.ins_srtdeel_key = sd.ins_srtdeel_key
|
|
AND sd.ins_srtgroep_key = sg.ins_srtgroep_key
|
|
AND sg.ins_discipline_key = dd.ins_discipline_key
|
|
AND d.ins_deel_parent_key IS NULL
|
|
AND d.ins_alg_ruimte_type IN ('P')
|
|
AND d.ins_alg_ruimte_key = pf.prs_perslid_key
|
|
AND fac.safe_to_number (b.stdmkina) = sm.mld_stdmelding_key
|
|
AND sm.mld_stdmelding_key = smsd.mld_stdmelding_key
|
|
AND smsd.ins_srtinstallatie_key = DECODE (smsd.ins_srtinstallatie_niveau, 'S', sd.ins_srtdeel_key, 'G', sg.ins_srtgroep_key, 'D', dd.ins_discipline_key)
|
|
;
|
|
|
|
------ payload end ------
|
|
|
|
SET DEFINE OFF
|
|
BEGIN adm.systrackscriptId ('$Id$', 0); END;
|
|
/
|
|
|
|
COMMIT;
|
|
SET ECHO OFF
|
|
SPOOL OFF
|
|
SET DEFINE ON
|
|
PROMPT Logfile of this upgrade is: &fcltlogfile
|