4252 lines
197 KiB
MySQL
4252 lines
197 KiB
MySQL
--
|
||
-- $Id$
|
||
--
|
||
-- Script containing customer specific db-configuration for SVRZ.
|
||
DEFINE thisfile = 'SVRZ.SQL'
|
||
DEFINE dbuser = '^SVRZ'
|
||
|
||
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 svrz_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 svrz_import_perslid (p_import_key IN NUMBER)
|
||
AS
|
||
v_errormsg VARCHAR2 (1000) := '-';
|
||
v_errorhint VARCHAR2 (1000) := '-';
|
||
oracle_err_num NUMBER;
|
||
oracle_err_mes VARCHAR2 (200);
|
||
BEGIN
|
||
v_errorhint := 'Generieke import';
|
||
|
||
-- De sequence array staat beschreven in PRS_PAC.SRC bij de import_perslid-PROCEDURE.
|
||
prs.import_perslid (
|
||
p_import_key,
|
||
'0;0;0;0;0;0;7;2;3;5;'
|
||
|| '4;0;0;0;0;15;16;17;0;1;'
|
||
|| '8;18;19;6;0;0;20;21;0;0;'
|
||
|| '0;0;0;0;0;0;0;0;0;0;'
|
||
|| '0;0;0;0;0;0',
|
||
'personeelsnummer;achternaam;tussenvoegsel;voorletters;voornaam;titel_aanhef;afdelingscode;functie;locatiecode;gebouwcode;bouwlaagvolgnummer;ruimtenummer;werkplekvolgnummer;omschrijving;telefoonnummer;mobiel;email;loginnaam;password;indienstdatum;uitdienstdatum%');
|
||
COMMIT;
|
||
|
||
v_errorhint := 'Fout bepalen stamplaats';
|
||
|
||
-- Klantspecifieke aanpassingen.
|
||
-- Locatie/Gebouw/Verdieping/Ruimte bepalen via Afd.code-kolom -> Eigen tabel (key=101) ->
|
||
-- Locatiecode en daaronder de alfabetisch eerste Fictieve ruimte!
|
||
-- 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
|
||
-- naar de bepaalde Ruimte op import-locatie!
|
||
-- Eventuele WPs onder andere vestigingen dan import-vestiging blijven ook ongewijzigd!
|
||
UPDATE fac_imp_perslid i
|
||
SET i.alg_locatie_code =
|
||
(SELECT il.alg_locatie_code
|
||
FROM fac_v_aanwezigusrdata ud, -- Mapping BO4-Afdelingscode -> Locatiecode
|
||
alg_v_aanweziglocatie il
|
||
WHERE ud.fac_usrtab_key = 101 -- MappingOrg2Loc-tabel
|
||
AND ud.fac_usrdata_upper = UPPER (i.prs_afdeling_naam)
|
||
AND UPPER (ud.fac_usrdata_omschr) = UPPER (il.alg_locatie_code)),
|
||
i.alg_gebouw_code =
|
||
(SELECT g1.alg_gebouw_code
|
||
FROM fac_v_aanwezigusrdata ud, -- Mapping BO4-Afdelingscode -> Locatiecode
|
||
alg_v_aanweziglocatie l1,
|
||
alg_v_aanweziggebouw g1,
|
||
alg_v_aanwezigverdieping v1,
|
||
alg_v_aanwezigruimte r1
|
||
WHERE ud.fac_usrtab_key = 101 -- MappingOrg2Loc-tabel
|
||
AND ud.fac_usrdata_upper = UPPER (i.prs_afdeling_naam)
|
||
AND UPPER (ud.fac_usrdata_omschr) = UPPER (l1.alg_locatie_code)
|
||
AND l1.alg_locatie_key = g1.alg_locatie_key
|
||
AND g1.alg_gebouw_key = v1.alg_gebouw_key
|
||
AND v1.alg_verdieping_key = r1.alg_verdieping_key
|
||
AND r1.alg_srtruimte_key = 101 -- Fictieve ruimte
|
||
AND NOT EXISTS
|
||
(SELECT 1
|
||
FROM alg_v_aanwezigruimte r2,
|
||
alg_verdieping v2,
|
||
alg_gebouw g2
|
||
WHERE r2.alg_srtruimte_key = 101 -- Fictieve ruimte
|
||
AND r2.alg_verdieping_key = v2.alg_verdieping_key
|
||
AND v2.alg_gebouw_key = g2.alg_gebouw_key
|
||
AND g2.alg_gebouw_code || v2.alg_verdieping_code || r2.alg_ruimte_nr <
|
||
g1.alg_gebouw_code || v1.alg_verdieping_code || r1.alg_ruimte_nr
|
||
AND g2.alg_locatie_key = g1.alg_locatie_key)),
|
||
i.alg_verdieping_volgnr =
|
||
(SELECT v1.alg_verdieping_volgnr
|
||
FROM fac_v_aanwezigusrdata ud, -- Mapping BO4-Afdelingscode -> Locatiecode
|
||
alg_v_aanweziglocatie l1,
|
||
alg_v_aanweziggebouw g1,
|
||
alg_v_aanwezigverdieping v1,
|
||
alg_v_aanwezigruimte r1
|
||
WHERE ud.fac_usrtab_key = 101 -- MappingOrg2Loc-tabel
|
||
AND ud.fac_usrdata_upper = UPPER (i.prs_afdeling_naam)
|
||
AND UPPER (ud.fac_usrdata_omschr) = UPPER (l1.alg_locatie_code)
|
||
AND l1.alg_locatie_key = g1.alg_locatie_key
|
||
AND g1.alg_gebouw_key = v1.alg_gebouw_key
|
||
AND v1.alg_verdieping_key = r1.alg_verdieping_key
|
||
AND r1.alg_srtruimte_key = 101 -- Fictieve ruimte
|
||
AND NOT EXISTS
|
||
(SELECT 1
|
||
FROM alg_v_aanwezigruimte r2,
|
||
alg_verdieping v2,
|
||
alg_gebouw g2
|
||
WHERE r2.alg_srtruimte_key = 101 -- Fictieve ruimte
|
||
AND r2.alg_verdieping_key = v2.alg_verdieping_key
|
||
AND v2.alg_gebouw_key = g2.alg_gebouw_key
|
||
AND g2.alg_gebouw_code || v2.alg_verdieping_code || r2.alg_ruimte_nr <
|
||
g1.alg_gebouw_code || v1.alg_verdieping_code || r1.alg_ruimte_nr
|
||
AND g2.alg_locatie_key = g1.alg_locatie_key)),
|
||
i.alg_ruimte_nr =
|
||
(SELECT r1.alg_ruimte_nr
|
||
FROM fac_v_aanwezigusrdata ud, -- Mapping BO4-Afdelingscode -> Locatiecode
|
||
alg_v_aanweziglocatie l1,
|
||
alg_v_aanweziggebouw g1,
|
||
alg_v_aanwezigverdieping v1,
|
||
alg_v_aanwezigruimte r1
|
||
WHERE ud.fac_usrtab_key = 101 -- MappingOrg2Loc-tabel
|
||
AND ud.fac_usrdata_upper = UPPER (i.prs_afdeling_naam)
|
||
AND UPPER (ud.fac_usrdata_omschr) = UPPER (l1.alg_locatie_code)
|
||
AND l1.alg_locatie_key = g1.alg_locatie_key
|
||
AND g1.alg_gebouw_key = v1.alg_gebouw_key
|
||
AND v1.alg_verdieping_key = r1.alg_verdieping_key
|
||
AND r1.alg_srtruimte_key = 101 -- Fictieve ruimte
|
||
AND NOT EXISTS
|
||
(SELECT 1
|
||
FROM alg_v_aanwezigruimte r2,
|
||
alg_verdieping v2,
|
||
alg_gebouw g2
|
||
WHERE r2.alg_srtruimte_key = 101 -- Fictieve ruimte
|
||
AND r2.alg_verdieping_key = v2.alg_verdieping_key
|
||
AND v2.alg_gebouw_key = g2.alg_gebouw_key
|
||
AND g2.alg_gebouw_code || v2.alg_verdieping_code || r2.alg_ruimte_nr <
|
||
g1.alg_gebouw_code || v1.alg_verdieping_code || r1.alg_ruimte_nr
|
||
AND g2.alg_locatie_key = g1.alg_locatie_key))
|
||
WHERE NOT EXISTS -- Nog geen WP op Locatie!
|
||
(SELECT 1
|
||
FROM fac_v_aanwezigusrdata ud, -- Mapping BO4-Afdelingscode -> Locatiecode
|
||
alg_v_aanweziglocatie il,
|
||
prs_v_aanwezigperslid p,
|
||
prs_perslidwerkplek pw,
|
||
prs_werkplek cw,
|
||
alg_v_aanwezigruimte cr,
|
||
alg_verdieping cv,
|
||
alg_gebouw cg,
|
||
alg_locatie cl
|
||
WHERE ud.fac_usrtab_key = 101 -- MappingOrg2Loc-tabel
|
||
AND ud.fac_usrdata_upper = UPPER (i.prs_afdeling_naam)
|
||
AND UPPER (ud.fac_usrdata_omschr) = UPPER (il.alg_locatie_code)
|
||
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);
|
||
COMMIT;
|
||
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 || v_errorhint, 'Inleesproces personen afgebroken!');
|
||
END svrz_import_perslid;
|
||
/
|
||
|
||
CREATE OR REPLACE PROCEDURE svrz_update_perslid (p_import_key IN NUMBER)
|
||
IS
|
||
v_errormsg VARCHAR2 (1000) := '-';
|
||
v_errorhint VARCHAR2 (1000) := '-';
|
||
oracle_err_num NUMBER;
|
||
oracle_err_mes VARCHAR2 (200);
|
||
v_count NUMBER;
|
||
|
||
CURSOR c_flex
|
||
IS
|
||
SELECT p.prs_perslid_key, p.prs_perslid_nr, i.prs_kenmerk1, i.prs_kenmerk2
|
||
FROM prs_v_aanwezigperslid p, fac_imp_perslid i
|
||
WHERE p.prs_perslid_nr = i.prs_perslid_nr
|
||
AND i.prs_kenmerk2 IS NOT NULL
|
||
AND fac.safe_to_date (prs_kenmerk2, 'dd-mm-yyyy') > p.prs_perslid_ingangsdatum -- Uitdienstdatum moet v<><76>r indienstdatum liggen!
|
||
ORDER BY 2;
|
||
|
||
-- Let op! Personen die niet meer in dienst zijn -> niet in fac_imp_perslid!
|
||
-- Dubbele perslid_nr? Dan wordt iemand mogelijk niet verwijderd/INACTIEF!
|
||
CURSOR c_del
|
||
IS
|
||
SELECT p.prs_perslid_key, p.prs_perslid_nr
|
||
FROM prs_v_aanwezigperslid p
|
||
WHERE p.prs_perslid_nr IS NOT NULL
|
||
AND NOT EXISTS
|
||
(SELECT 1
|
||
FROM fac_imp_perslid i
|
||
WHERE UPPER (i.prs_perslid_nr) = UPPER (p.prs_perslid_nr))
|
||
ORDER BY 2;
|
||
|
||
-- SVRZ#78202: Toekennen extra WP op TS of TSMAX.
|
||
-- Voor personen volgens import HR-WP op Ter Schorre: Extra WP op Maxima,
|
||
-- namelijk 5488=MAX-BG-A.0001 (tenzij al andere WP ergens op Maxima).
|
||
-- Voor personen volgens import HR-WP op Maxima: Extra WP op Ter Schorre,
|
||
-- namelijk 3041=TS-BG-A.0001 (tenzij al andere WP ergens op Ter Schorre).
|
||
CURSOR c_ts_max
|
||
IS
|
||
SELECT DISTINCT p.prs_perslid_key, p.prs_perslid_nr, DECODE (wpg.alg_locatie_key, 141, 5488, 3041) extra_ruimte_key
|
||
FROM prs_v_aanwezigperslid p, prs_perslidwerkplek pw, prs_v_werkplek_gegevens wpg
|
||
WHERE p.prs_perslid_key = pw.prs_perslid_key
|
||
ANd pw.prs_perslidwerkplek_volgnr = 2 -- Alleen de medewerkers met een HR-WP op TS of TSMAX!
|
||
AND pw.prs_werkplek_key = wpg.prs_werkplek_key
|
||
AND wpg.alg_locatie_key IN (141, 311) -- TS/TSMAX
|
||
AND NOT EXISTS -- Nog geen WP op extra TS-locatie
|
||
(SELECT 1
|
||
FROM prs_v_werkplekperslid_gegevens
|
||
WHERE prs_perslid_key = p.prs_perslid_key
|
||
AND alg_locatie_key = DECODE (wpg.alg_locatie_key, 141, 311, 141))
|
||
ORDER BY 2;
|
||
BEGIN
|
||
-- Generieke update.
|
||
SELECT COUNT ( * ) INTO v_count FROM fac_imp_perslid;
|
||
|
||
IF v_count < 1000
|
||
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, waarbij - alleen vaste en niet virtuele - WP(s) tot op
|
||
-- District-niveau worden verwijderd.
|
||
v_errorhint := 'Fout generieke update';
|
||
prs.update_perslid (p_import_key, 'NR', 'D');
|
||
|
||
-- Update flexvelden.
|
||
-- SVRZ#59828: Registreren uitdienstdatum (tbv. bezittingen-noti).
|
||
v_errorhint := 'Fout bijwerken uitdienstdatum';
|
||
FOR rec IN c_flex
|
||
LOOP
|
||
--PRS.upsertkenmerk (-1, rec.prs_perslid_key, TO_CHAR (fac.safe_to_date (rec.prs_kenmerk1, 'dd-mm-yyyy'), 'dd-mm-yyyy')); -- Indienst
|
||
--PRS.upsertkenmerk (-1, rec.prs_perslid_key, TO_CHAR (fac.safe_to_date (rec.prs_kenmerk2, 'dd-mm-yyyy'), 'dd-mm-yyyy')); -- Uitdienst
|
||
--UPDATE prs_perslid
|
||
-- SET prs_perslid_ingangsdatum = COALESCE (fac.safe_to_date (rec.prs_kenmerk1, 'dd-mm-yyyy'), prs_perslid_ingangsdatum),
|
||
-- prs_perslid_einddatum = COALESCE (fac.safe_to_date (rec.prs_kenmerk2, 'dd-mm-yyyy'), prs_perslid_einddatum)
|
||
-- WHERE prs_perslid_key = rec.prs_perslid_key;
|
||
UPDATE prs_perslid
|
||
SET prs_perslid_einddatum = COALESCE (fac.safe_to_date (rec.prs_kenmerk2, 'dd-mm-yyyy'), prs_perslid_einddatum)
|
||
WHERE prs_perslid_key = rec.prs_perslid_key;
|
||
COMMIT;
|
||
END LOOP;
|
||
|
||
-- Verwijder personen die niet meer in de import voorkomen.
|
||
v_errorhint := 'Fout verwijderen persoon';
|
||
FOR rec IN c_del
|
||
LOOP
|
||
prs.delete_perslid (p_import_key, rec.prs_perslid_key);
|
||
|
||
-- SVRZ#73838: Ook verwijderen e-mail adres bij/vanaf inactivatie, want
|
||
-- dit gebeurt (nog) niet in prs.delete_perslid().
|
||
UPDATE prs_perslid
|
||
SET prs_perslid_email = NULL
|
||
WHERE prs_perslid_key = rec.prs_perslid_key
|
||
AND prs_perslid_email IS NOT NULL;
|
||
|
||
-- SVRZ#76558: Ook verwijderen autorisaties bij/vanaf inactivatie, want
|
||
-- dit gebeurt (nog) niet in prs.delete_perslid().
|
||
DELETE FROM fac_gebruikersgroep
|
||
WHERE prs_perslid_key = rec.prs_perslid_key;
|
||
END LOOP;
|
||
COMMIT;
|
||
|
||
-- Elke PRS-import alle HR-WP opnieuw bepalen (dus eerst alle 2-WP wissen)!
|
||
v_errorhint := 'Fout bijwerken HR-WP';
|
||
UPDATE prs_perslidwerkplek
|
||
SET prs_perslidwerkplek_volgnr = NULL
|
||
WHERE prs_perslidwerkplek_volgnr = 2;
|
||
COMMIT;
|
||
|
||
UPDATE prs_perslidwerkplek pw1
|
||
SET pw1.prs_perslidwerkplek_volgnr = 2
|
||
WHERE EXISTS -- Alleen WP op HR-locatie van import-personen waarvoor afdeling in mapping!
|
||
(SELECT 1
|
||
FROM fac_imp_perslid i,
|
||
prs_v_aanwezigperslid p,
|
||
fac_v_aanwezigusrdata ud, -- Mapping BO4-Afdelingscode -> Locatiecode
|
||
alg_v_aanweziglocatie l,
|
||
alg_v_aanweziggebouw g,
|
||
alg_v_aanwezigverdieping v,
|
||
alg_v_aanwezigruimte r,
|
||
prs_werkplek wp,
|
||
prs_perslidwerkplek pw2
|
||
WHERE i.prs_perslid_nr = p.prs_perslid_nr
|
||
AND UPPER (i.prs_afdeling_naam) = ud.fac_usrdata_upper
|
||
AND ud.fac_usrtab_key = 101 -- MappingOrg2Loc-tabel
|
||
AND UPPER (ud.fac_usrdata_omschr) = UPPER (l.alg_locatie_code)
|
||
AND l.alg_locatie_key = g.alg_locatie_key
|
||
AND g.alg_gebouw_key = v.alg_gebouw_key
|
||
AND v.alg_verdieping_key = r.alg_verdieping_key
|
||
AND r.alg_ruimte_key = wp.prs_alg_ruimte_key
|
||
AND wp.prs_werkplek_virtueel = 0 -- Echte WP!
|
||
AND wp.prs_werkplek_key = pw2.prs_werkplek_key
|
||
AND pw2.prs_perslid_key = p.prs_perslid_key
|
||
AND pw2.prs_perslid_key = pw1.prs_perslid_key
|
||
AND pw2.prs_werkplek_key = pw1.prs_werkplek_key)
|
||
AND NOT EXISTS -- Geen hogere/oudere echte WP op HR-locatie!
|
||
(SELECT 1
|
||
FROM fac_imp_perslid i,
|
||
prs_v_aanwezigperslid p,
|
||
fac_v_aanwezigusrdata ud, -- Mapping BO4-Afdelingscode -> Locatiecode
|
||
alg_v_aanweziglocatie l,
|
||
alg_v_aanweziggebouw g,
|
||
alg_v_aanwezigverdieping v,
|
||
alg_v_aanwezigruimte r,
|
||
prs_werkplek wp,
|
||
prs_perslidwerkplek pw2
|
||
WHERE i.prs_perslid_nr = p.prs_perslid_nr
|
||
AND UPPER (i.prs_afdeling_naam) = ud.fac_usrdata_upper
|
||
AND ud.fac_usrtab_key = 101 -- MappingOrg2Loc-tabel
|
||
AND UPPER (ud.fac_usrdata_omschr) = UPPER (l.alg_locatie_code)
|
||
AND l.alg_locatie_key = g.alg_locatie_key
|
||
AND g.alg_gebouw_key = v.alg_gebouw_key
|
||
AND v.alg_verdieping_key = r.alg_verdieping_key
|
||
AND r.alg_ruimte_key = wp.prs_alg_ruimte_key
|
||
AND wp.prs_werkplek_virtueel = 0 -- Echte WP!
|
||
AND wp.prs_werkplek_key = pw2.prs_werkplek_key
|
||
AND pw2.prs_perslid_key = p.prs_perslid_key
|
||
AND pw2.prs_perslid_key = pw1.prs_perslid_key
|
||
AND COALESCE (pw2.prs_perslidwerkplek_volgnr, pw2.prs_perslidwerkplek_key + 10000) <
|
||
COALESCE (pw1.prs_perslidwerkplek_volgnr, pw1.prs_perslidwerkplek_key + 10000));
|
||
COMMIT;
|
||
|
||
-- Toekennen extra WP op TS of TSMAX.
|
||
-- De bij voorgaande import toegekende extra WPs zijn hierboven met
|
||
-- prs.update_perslid (p_import_key, 'NR', 'D') weer verwijderd, omdat TS
|
||
-- en MAX onder hetzelfde District vallen!
|
||
v_errorhint := 'Fout toekennen extra WP op TS of MAX';
|
||
FOR rec IN c_ts_max
|
||
LOOP
|
||
prs.movetoruimte (rec.prs_perslid_key, rec.extra_ruimte_key, NULL);
|
||
END LOOP;
|
||
COMMIT;
|
||
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 || v_errorhint, 'Importproces personen afgebroken!');
|
||
END svrz_update_perslid;
|
||
/
|
||
|
||
|
||
/* Formatted on 16-6-2014 21:48:12 (QP5 v5.136.908.31019) */
|
||
CREATE OR REPLACE PROCEDURE svrz_import_bedrijf (p_import_key IN NUMBER)
|
||
AS
|
||
v_errormsg VARCHAR2 (1000) := '-';
|
||
oracle_err_num NUMBER;
|
||
oracle_err_mes VARCHAR2 (200);
|
||
BEGIN
|
||
fac_import_ext_bedrijf (p_import_key);
|
||
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 relaties afgebroken!');
|
||
END svrz_import_bedrijf;
|
||
/
|
||
|
||
CREATE OR REPLACE PROCEDURE svrz_update_bedrijf (p_import_key IN NUMBER)
|
||
AS
|
||
v_errormsg VARCHAR2 (1000) := '-';
|
||
v_errorhint VARCHAR2 (1000) := '-';
|
||
oracle_err_num NUMBER;
|
||
oracle_err_mes VARCHAR2 (200);
|
||
v_count NUMBER (10);
|
||
v_count_tot NUMBER (10);
|
||
v_count_new NUMBER (10);
|
||
v_count_upd NUMBER (10);
|
||
v_count_del NUMBER (10);
|
||
v_aanduiding VARCHAR2 (200) := '-';
|
||
|
||
-- SUBPROC
|
||
PROCEDURE add_bedrijf (p_import_key IN NUMBER)
|
||
AS
|
||
CURSOR c1
|
||
IS
|
||
SELECT *
|
||
FROM fac_imp_ext_bedrijf ib
|
||
WHERE NOT EXISTS
|
||
(SELECT 1
|
||
FROM fac_imp_ext_bedrijf
|
||
WHERE UPPER (prs_bedrijf_naam) =
|
||
UPPER (ib.prs_bedrijf_naam)
|
||
AND prs_leverancier_nr < ib.prs_leverancier_nr);
|
||
|
||
v_bedrijf_key NUMBER (10);
|
||
BEGIN
|
||
v_count_tot := 0;
|
||
v_count_new := 0;
|
||
v_count_upd := 0;
|
||
|
||
FOR rec IN c1
|
||
LOOP
|
||
BEGIN
|
||
v_count_tot := v_count_tot + 1;
|
||
v_aanduiding :=
|
||
'['
|
||
|| rec.prs_bedrijf_naam
|
||
|| '|'
|
||
|| rec.prs_leverancier_nr
|
||
|| '] ';
|
||
|
||
v_errorhint := 'Fout bepalen bedrijf';
|
||
|
||
IF rec.prs_leverancier_nr IS NULL
|
||
THEN
|
||
fac.imp_writelog (
|
||
p_import_key,
|
||
'W',
|
||
v_aanduiding || 'Leveranciernummer ongedefinieerd!',
|
||
v_errorhint);
|
||
COMMIT;
|
||
ELSE
|
||
SELECT COUNT ( * )
|
||
INTO v_count
|
||
FROM prs_v_aanwezigbedrijf
|
||
WHERE UPPER (prs_leverancier_nr) =
|
||
UPPER (rec.prs_leverancier_nr);
|
||
|
||
IF v_count = 0
|
||
THEN
|
||
v_errorhint := 'Fout toevoegen bedrijf';
|
||
|
||
INSERT INTO prs_bedrijf (prs_bedrijf_naam,
|
||
prs_leverancier_nr,
|
||
prs_bedrijf_bezoek_adres,
|
||
prs_bedrijf_bezoek_postcode,
|
||
prs_bedrijf_bezoek_plaats,
|
||
prs_bedrijf_bezoek_land,
|
||
prs_bedrijf_post_adres,
|
||
prs_bedrijf_post_postcode,
|
||
prs_bedrijf_post_plaats,
|
||
prs_bedrijf_post_land,
|
||
prs_bedrijf_telefoon,
|
||
prs_bedrijf_fax,
|
||
prs_bedrijf_email,
|
||
prs_bedrijf_contact_persoon,
|
||
prs_bedrijf_contact_telefoon,
|
||
prs_bedrijf_contact_fax,
|
||
prs_bedrijf_leverancier,
|
||
prs_bedrijf_uitvoerende,
|
||
prs_bedrijf_contract,
|
||
prs_bedrijf_huurder,
|
||
prs_bedrijf_ingids,
|
||
prs_bedrijf_uurloon,
|
||
prs_overeenkomst_nr,
|
||
prs_overeenkomst_datum,
|
||
prs_bedrijf_opmerking)
|
||
VALUES (rec.prs_bedrijf_naam,
|
||
rec.prs_leverancier_nr,
|
||
rec.prs_bedrijf_bezoek_adres,
|
||
rec.prs_bedrijf_bezoek_postcode,
|
||
rec.prs_bedrijf_bezoek_plaats,
|
||
rec.prs_bedrijf_bezoek_land,
|
||
rec.prs_bedrijf_post_adres,
|
||
rec.prs_bedrijf_post_postcode,
|
||
rec.prs_bedrijf_post_plaats,
|
||
rec.prs_bedrijf_post_land,
|
||
rec.prs_bedrijf_telefoon,
|
||
rec.prs_bedrijf_fax,
|
||
rec.prs_bedrijf_email,
|
||
rec.prs_bedrijf_contact_persoon,
|
||
rec.prs_bedrijf_contact_telefoon,
|
||
rec.prs_bedrijf_contact_fax,
|
||
DECODE (rec.prs_bedrijf_leverancier,
|
||
1, 1,
|
||
NULL),
|
||
DECODE (rec.prs_bedrijf_uitvoerende,
|
||
1, 1,
|
||
NULL),
|
||
DECODE (rec.prs_bedrijf_contract, 1, 1, NULL),
|
||
DECODE (rec.prs_bedrijf_huurder, 1, 1, NULL),
|
||
DECODE (rec.prs_bedrijf_ingids, 1, 1, NULL),
|
||
rec.prs_bedrijf_uurloon,
|
||
rec.prs_overeenkomst_nr,
|
||
rec.prs_overeenkomst_datum,
|
||
rec.prs_bedrijf_opmerking);
|
||
|
||
v_count_new := v_count_new + 1;
|
||
ELSE -- v_count > 0
|
||
SELECT prs_bedrijf_key
|
||
INTO v_bedrijf_key
|
||
FROM prs_v_aanwezigbedrijf
|
||
WHERE UPPER (prs_leverancier_nr) =
|
||
UPPER (rec.prs_leverancier_nr);
|
||
|
||
v_errorhint := 'Fout bijwerken bedrijf';
|
||
|
||
UPDATE prs_bedrijf
|
||
SET prs_bedrijf_naam =
|
||
COALESCE (rec.prs_bedrijf_naam, prs_bedrijf_naam),
|
||
prs_bedrijf_bezoek_adres =
|
||
COALESCE (rec.prs_bedrijf_bezoek_adres,
|
||
prs_bedrijf_bezoek_adres),
|
||
prs_bedrijf_bezoek_postcode =
|
||
COALESCE (rec.prs_bedrijf_bezoek_postcode,
|
||
prs_bedrijf_bezoek_postcode),
|
||
prs_bedrijf_bezoek_plaats =
|
||
COALESCE (rec.prs_bedrijf_bezoek_plaats,
|
||
prs_bedrijf_bezoek_plaats),
|
||
prs_bedrijf_bezoek_land =
|
||
COALESCE (rec.prs_bedrijf_bezoek_land,
|
||
prs_bedrijf_bezoek_land),
|
||
prs_bedrijf_post_adres =
|
||
COALESCE (rec.prs_bedrijf_post_adres,
|
||
prs_bedrijf_post_adres),
|
||
prs_bedrijf_post_postcode =
|
||
COALESCE (rec.prs_bedrijf_post_postcode,
|
||
prs_bedrijf_post_postcode),
|
||
prs_bedrijf_post_plaats =
|
||
COALESCE (rec.prs_bedrijf_post_plaats,
|
||
prs_bedrijf_post_plaats),
|
||
prs_bedrijf_post_land =
|
||
COALESCE (rec.prs_bedrijf_post_land,
|
||
prs_bedrijf_post_land),
|
||
prs_bedrijf_telefoon =
|
||
COALESCE (rec.prs_bedrijf_telefoon,
|
||
prs_bedrijf_telefoon),
|
||
prs_bedrijf_fax =
|
||
COALESCE (rec.prs_bedrijf_fax, prs_bedrijf_fax),
|
||
prs_bedrijf_email =
|
||
COALESCE (rec.prs_bedrijf_email,
|
||
prs_bedrijf_email),
|
||
prs_bedrijf_contact_persoon =
|
||
COALESCE (rec.prs_bedrijf_contact_persoon,
|
||
prs_bedrijf_contact_persoon),
|
||
prs_bedrijf_contact_telefoon =
|
||
COALESCE (rec.prs_bedrijf_contact_telefoon,
|
||
prs_bedrijf_contact_telefoon),
|
||
prs_bedrijf_contact_fax =
|
||
COALESCE (rec.prs_bedrijf_contact_fax,
|
||
prs_bedrijf_contact_fax),
|
||
prs_bedrijf_leverancier =
|
||
DECODE (rec.prs_bedrijf_leverancier, 1, 1, prs_bedrijf_leverancier),
|
||
prs_bedrijf_uitvoerende =
|
||
DECODE (rec.prs_bedrijf_uitvoerende, 1, 1, NULL),
|
||
prs_bedrijf_contract =
|
||
DECODE (rec.prs_bedrijf_contract, 1, 1, NULL),
|
||
prs_bedrijf_huurder =
|
||
DECODE (rec.prs_bedrijf_huurder, 1, 1, NULL),
|
||
prs_bedrijf_ingids =
|
||
DECODE (rec.prs_bedrijf_ingids, 1, 1, NULL),
|
||
prs_bedrijf_uurloon =
|
||
COALESCE (rec.prs_bedrijf_uurloon,
|
||
prs_bedrijf_uurloon),
|
||
prs_overeenkomst_nr =
|
||
COALESCE (rec.prs_overeenkomst_nr,
|
||
prs_overeenkomst_nr),
|
||
prs_overeenkomst_datum =
|
||
COALESCE (rec.prs_overeenkomst_datum,
|
||
prs_overeenkomst_datum),
|
||
prs_bedrijf_opmerking =
|
||
COALESCE (rec.prs_bedrijf_opmerking,
|
||
prs_bedrijf_opmerking)
|
||
WHERE prs_bedrijf_key = v_bedrijf_key;
|
||
|
||
v_count_upd := v_count_upd + 1;
|
||
END IF;
|
||
--COMMIT;
|
||
END IF;
|
||
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_aanduiding || v_errormsg,
|
||
v_errorhint);
|
||
COMMIT;
|
||
END;
|
||
END LOOP;
|
||
|
||
fac.imp_writelog (p_import_key,
|
||
'S',
|
||
'Bedrijf: #ingelezen: ' || TO_CHAR (v_count_tot),
|
||
'');
|
||
fac.imp_writelog (p_import_key,
|
||
'S',
|
||
'Bedrijf: #toegevoegd: ' || TO_CHAR (v_count_new),
|
||
'');
|
||
fac.imp_writelog (p_import_key,
|
||
'S',
|
||
'Bedrijf: #bijgewerkt: ' || TO_CHAR (v_count_upd),
|
||
'');
|
||
COMMIT;
|
||
END;
|
||
|
||
-- SUBPROC
|
||
PROCEDURE del_bedrijf (p_import_key IN NUMBER)
|
||
AS
|
||
CURSOR c1
|
||
IS
|
||
SELECT *
|
||
FROM prs_v_aanwezigbedrijf b
|
||
WHERE b.prs_bedrijf_intern IS NULL
|
||
AND b.prs_leverancier_nr IS NOT NULL
|
||
AND NOT EXISTS
|
||
(SELECT 1
|
||
FROM fac_imp_ext_bedrijf
|
||
WHERE prs_leverancier_nr = b.prs_leverancier_nr);
|
||
|
||
v_bedrijf_key NUMBER (10);
|
||
BEGIN
|
||
v_count_del := 0;
|
||
|
||
FOR rec IN c1
|
||
LOOP
|
||
BEGIN
|
||
v_aanduiding := '[' || rec.prs_bedrijf_naam || '] ';
|
||
|
||
v_errorhint := 'Fout verwijderen bedrijf';
|
||
|
||
UPDATE prs_bedrijf
|
||
SET prs_bedrijf_verwijder = SYSDATE
|
||
WHERE prs_bedrijf_key = rec.prs_bedrijf_key;
|
||
|
||
v_count_del := v_count_del + 1;
|
||
|
||
COMMIT;
|
||
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_aanduiding || v_errormsg,
|
||
v_errorhint);
|
||
COMMIT;
|
||
END;
|
||
END LOOP;
|
||
|
||
fac.imp_writelog (p_import_key,
|
||
'S',
|
||
'Bedrijf: #verwijderd: ' || TO_CHAR (v_count_del),
|
||
'');
|
||
COMMIT;
|
||
END;
|
||
-- MAIN
|
||
BEGIN
|
||
SELECT COUNT ( * ) INTO v_count FROM fac_imp_ext_bedrijf;
|
||
|
||
IF v_count < 500
|
||
THEN
|
||
fac.imp_writelog (
|
||
p_import_key,
|
||
'E',
|
||
'Het aantal te importeren relaties is te klein ('
|
||
|| TO_CHAR (v_count)
|
||
|| ')',
|
||
'Zie specificatie');
|
||
RETURN;
|
||
END IF;
|
||
|
||
add_bedrijf (p_import_key);
|
||
--del_bedrijf (p_import_key);
|
||
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_aanduiding || v_errormsg,
|
||
'Importproces relaties afgebroken!');
|
||
END svrz_update_bedrijf;
|
||
/
|
||
|
||
|
||
-- Multi variant voor automatische import via gen_import van Quarto POs.
|
||
/* Formatted on 12-11-2014 16:30:30 (QP5 v5.136.908.31019) */
|
||
CREATE OR REPLACE PROCEDURE svrz_import_quarto (p_import_key IN NUMBER)
|
||
AS
|
||
c_delim VARCHAR2 (1) := ';';
|
||
v_newline VARCHAR2 (1000); -- Input line
|
||
v_errormsg VARCHAR2 (1000);
|
||
oracle_err_num NUMBER;
|
||
oracle_err_mes VARCHAR2 (200);
|
||
v_aanduiding VARCHAR2 (200) := '';
|
||
header_is_valid NUMBER := 0;
|
||
v_count_tot NUMBER (10) := 0;
|
||
v_count_import NUMBER (10) := 0;
|
||
v_ongeldig NUMBER (1);
|
||
-- De importvelden
|
||
v_receiver VARCHAR2 (255); -- C25/prs_leverancier_nr
|
||
v_receiverName VARCHAR2 (255); -- C100/ignore
|
||
v_customer VARCHAR2 (255); -- C30/prs_perslid_voornaam?
|
||
v_customerName VARCHAR2 (255); -- C100/ignore
|
||
v_orderdatum VARCHAR2 (255); -- C50/bes_kenmerkbestell_waarde
|
||
v_bestelnr VARCHAR2 (255); -- C50/bes_kenmerkbestell_waarde
|
||
v_nummer VARCHAR2 (255); -- C32/bes_srtdeel_nr
|
||
v_questornummer VARCHAR2 (255); -- C50/ignore (bes_srtdeel_opmerking?)
|
||
v_questoromschrijving VARCHAR2 (255); -- C100/bes_srtdeel_omschrijving
|
||
v_inkoopprijs VARCHAR2 (255); --N8,2/ignore (= prijs_per_verpakking / aantal_per_verpakking)
|
||
v_aantal VARCHAR2 (255); --N5/bes_bestelling(/bestelopdr)_item_aantal
|
||
v_prijs_per_verpakking VARCHAR2 (255); --N8,2/bes_srtdeel_prijs_prijs
|
||
v_aantal_per_verpakking VARCHAR2 (255); --N6/bes_srtdeel_veelvoud
|
||
v_btwperc VARCHAR2 (255); --N3/bes_srtdeel_btw
|
||
v_uom VARCHAR2 (255); -- C30/bes_srtdeel_eenheid
|
||
|
||
-- Overige velden:
|
||
CURSOR c1
|
||
IS
|
||
SELECT *
|
||
FROM fac_imp_file
|
||
WHERE fac_import_key = p_import_key
|
||
ORDER BY fac_imp_file_index;
|
||
BEGIN
|
||
--DELETE FROM svrz_imp_quartomulti q
|
||
-- WHERE q.imp_log_run <> p_import_key
|
||
-- OR EXISTS (SELECT 1
|
||
-- FROM fac_imp_file
|
||
-- WHERE SUBSTR (fac_imp_file_line,
|
||
-- INSTR (fac_imp_file_line, ';', 1, 5)
|
||
-- + 1,
|
||
-- INSTR (fac_imp_file_line, ';', 1, 6)
|
||
-- - INSTR (fac_imp_file_line, ';', 1, 5)
|
||
-- - 1) = q.bestelnr);
|
||
DELETE FROM svrz_imp_quartomulti
|
||
WHERE imp_log_run <> p_import_key;
|
||
COMMIT;
|
||
|
||
FOR rec1 IN c1
|
||
LOOP
|
||
BEGIN
|
||
v_newline := rec1.fac_imp_file_line;
|
||
v_errormsg := 'Fout bij opvragen importregel';
|
||
v_aanduiding := '';
|
||
v_ongeldig := 0;
|
||
|
||
-- Lees alle veldwaarden
|
||
-- receiver;receiverName;customer;customerName;orderdatum;bestelnr;nummer;questornummer;questoromschrijving;inkoopprijs;aantal;prijs_per_verpakking;aantal_per_verpakking;btwperc;uom
|
||
fac.imp_getfield (v_newline, c_delim, v_receiver);
|
||
fac.imp_getfield (v_newline, c_delim, v_receiverName);
|
||
fac.imp_getfield (v_newline, c_delim, v_customer);
|
||
fac.imp_getfield (v_newline, c_delim, v_customerName);
|
||
fac.imp_getfield (v_newline, c_delim, v_orderdatum);
|
||
fac.imp_getfield (v_newline, c_delim, v_bestelnr);
|
||
fac.imp_getfield (v_newline, c_delim, v_nummer);
|
||
fac.imp_getfield (v_newline, c_delim, v_questornummer);
|
||
fac.imp_getfield (v_newline, c_delim, v_questoromschrijving);
|
||
fac.imp_getfield (v_newline, c_delim, v_inkoopprijs);
|
||
fac.imp_getfield (v_newline, c_delim, v_aantal);
|
||
fac.imp_getfield (v_newline, c_delim, v_prijs_per_verpakking);
|
||
fac.imp_getfield (v_newline, c_delim, v_aantal_per_verpakking);
|
||
fac.imp_getfield (v_newline, c_delim, v_btwperc);
|
||
fac.imp_getfield (v_newline, c_delim, v_uom);
|
||
v_aanduiding :=
|
||
'['
|
||
|| v_receiver
|
||
|| '|'
|
||
|| v_customer
|
||
|| '|'
|
||
|| v_orderdatum
|
||
|| '|'
|
||
|| v_bestelnr
|
||
|| '|'
|
||
|| v_nummer
|
||
|| '] ';
|
||
|
||
-- Ik controleer of ik een geldige header heb, dat is: in de juiste kolommen
|
||
-- de juiste kolomkop. Ik controleer daarbij ALLE kolommen!
|
||
-- Ik negeer alles totdat ik een geldige header ben gepasseerd.
|
||
IF header_is_valid = 0
|
||
THEN
|
||
IF UPPER (TRIM (v_receiver)) = 'RECEIVER'
|
||
AND UPPER (TRIM (v_receiverName)) = 'RECEIVERNAME'
|
||
AND UPPER (TRIM (v_customer)) = 'CUSTOMER'
|
||
AND UPPER (TRIM (v_customerName)) = 'CUSTOMERNAME'
|
||
AND UPPER (TRIM (v_orderdatum)) = 'ORDERDATUM'
|
||
AND UPPER (TRIM (v_bestelnr)) = 'BESTELNR'
|
||
AND UPPER (TRIM (v_nummer)) = 'NUMMER'
|
||
AND UPPER (TRIM (v_questornummer)) = 'QUESTORNUMMER'
|
||
AND UPPER (TRIM (v_questoromschrijving)) = 'QUESTOROMSCHRIJVING'
|
||
AND UPPER (TRIM (v_inkoopprijs)) = 'INKOOPPRIJS'
|
||
AND UPPER (TRIM (v_aantal)) = 'AANTAL'
|
||
AND UPPER (TRIM (v_prijs_per_verpakking)) = 'PRIJS_PER_VERPAKKING'
|
||
AND UPPER (TRIM (v_aantal_per_verpakking)) = 'AANTAL_PER_VERPAKKING'
|
||
AND UPPER (TRIM (v_btwperc)) = 'BTWPERC'
|
||
AND UPPER (TRIM (v_uom)) = 'UOM'
|
||
THEN
|
||
header_is_valid := 1;
|
||
END IF;
|
||
ELSE
|
||
v_count_tot := v_count_tot + 1;
|
||
-- Controleer alle veldwaarden
|
||
v_errormsg := 'Receiver ongeldig/ongedefinieerd of te lang';
|
||
v_receiver := TRIM (v_receiver);
|
||
|
||
IF v_receiver IS NULL OR LENGTH (v_receiver) > 25
|
||
THEN
|
||
v_ongeldig := 1;
|
||
fac.imp_writelog (p_import_key,
|
||
'W',
|
||
v_aanduiding || v_errormsg,
|
||
'Regel wordt overgeslagen!');
|
||
END IF;
|
||
|
||
--
|
||
v_errormsg := 'ReceiverName ongeldig/ongedefinieerd of te lang';
|
||
v_receiverName := TRIM (v_receiverName);
|
||
|
||
IF v_receiverName IS NULL OR LENGTH (v_receiverName) > 28
|
||
THEN
|
||
v_ongeldig := 1;
|
||
fac.imp_writelog (p_import_key,
|
||
'W',
|
||
v_aanduiding || v_errormsg,
|
||
'Regel wordt overgeslagen!');
|
||
END IF;
|
||
|
||
--
|
||
v_errormsg := 'Customer ongeldig/ongedefinieerd of te lang';
|
||
v_customer := TRIM (v_customer);
|
||
|
||
IF v_customer IS NULL OR LENGTH (v_customer) > 30
|
||
THEN
|
||
v_ongeldig := 1;
|
||
fac.imp_writelog (p_import_key,
|
||
'W',
|
||
v_aanduiding || v_errormsg,
|
||
'Regel wordt overgeslagen!');
|
||
END IF;
|
||
|
||
-- Don't care
|
||
v_errormsg := 'CustomerName ongeldig';
|
||
v_customerName := TRIM (v_customerName);
|
||
|
||
--
|
||
v_errormsg := 'Orderdatum ongeldig';
|
||
v_orderdatum := TRIM (v_orderdatum);
|
||
|
||
IF fac.safe_to_date (v_orderdatum, 'yyyymmdd hh24:mi:ss') IS NULL
|
||
THEN
|
||
fac.imp_writelog (p_import_key,
|
||
'W',
|
||
v_aanduiding || v_errormsg,
|
||
'Orderdatum wordt genegeerd!');
|
||
END IF;
|
||
|
||
--
|
||
v_errormsg := 'Bestelnr ongeldig/ongedefinieerd of te lang';
|
||
v_bestelnr := TRIM (v_bestelnr);
|
||
|
||
IF v_bestelnr IS NULL OR LENGTH (v_bestelnr) > 50
|
||
THEN
|
||
v_ongeldig := 1;
|
||
fac.imp_writelog (p_import_key,
|
||
'W',
|
||
v_aanduiding || v_errormsg,
|
||
'Regel wordt overgeslagen!');
|
||
END IF;
|
||
|
||
--
|
||
v_errormsg := 'Artikelnummer ongeldig/ongedefinieerd of te lang';
|
||
v_nummer := TRIM (v_nummer);
|
||
|
||
IF v_nummer IS NULL OR LENGTH (v_nummer) > 32
|
||
THEN
|
||
v_ongeldig := 1;
|
||
fac.imp_writelog (p_import_key,
|
||
'W',
|
||
v_aanduiding || v_errormsg,
|
||
'Regel wordt overgeslagen!');
|
||
END IF;
|
||
|
||
-- Don't care
|
||
v_errormsg := 'Questornummer ongeldig';
|
||
v_questornummer := TRIM (v_questornummer);
|
||
|
||
--
|
||
v_errormsg := 'Artikelomschrijving ongeldig/ongedefinieerd';
|
||
v_questoromschrijving := TRIM (v_questoromschrijving);
|
||
|
||
IF v_questoromschrijving IS NULL
|
||
THEN
|
||
v_ongeldig := 1;
|
||
fac.imp_writelog (p_import_key,
|
||
'W',
|
||
v_aanduiding || v_errormsg,
|
||
'Regel wordt overgeslagen!');
|
||
END IF;
|
||
|
||
--
|
||
v_errormsg := 'Inkoopprijs ongeldig';
|
||
v_inkoopprijs := REPLACE (v_inkoopprijs, ',', '.');
|
||
|
||
IF fac.safe_to_number (v_inkoopprijs) IS NULL
|
||
THEN
|
||
fac.imp_writelog (p_import_key,
|
||
'W',
|
||
v_aanduiding || v_errormsg,
|
||
'Inkoopprijs wordt genegeerd!');
|
||
END IF;
|
||
|
||
--
|
||
v_errormsg := 'Aantal ongeldig';
|
||
v_aantal := REPLACE (v_aantal, ',', '.');
|
||
|
||
IF fac.safe_to_number (v_aantal) IS NULL
|
||
THEN
|
||
v_ongeldig := 1;
|
||
fac.imp_writelog (p_import_key,
|
||
'W',
|
||
v_aanduiding || v_errormsg,
|
||
'Regel wordt overgeslagen!');
|
||
END IF;
|
||
|
||
--
|
||
v_errormsg := 'PrijsPerVerpakking ongeldig';
|
||
v_prijs_per_verpakking := REPLACE (v_prijs_per_verpakking, ',', '.');
|
||
|
||
IF fac.safe_to_number (v_prijs_per_verpakking) IS NULL
|
||
THEN
|
||
fac.imp_writelog (p_import_key,
|
||
'W',
|
||
v_aanduiding || v_errormsg,
|
||
'PrijsPerVerpakking wordt genegeerd!');
|
||
END IF;
|
||
|
||
--
|
||
v_errormsg := 'AantalPerVerpakking ongeldig';
|
||
v_aantal_per_verpakking := REPLACE (v_aantal_per_verpakking, ',', '.');
|
||
|
||
IF fac.safe_to_number (v_aantal_per_verpakking) IS NULL
|
||
THEN
|
||
fac.imp_writelog (p_import_key,
|
||
'W',
|
||
v_aanduiding || v_errormsg,
|
||
'AantalPerVerpakking wordt genegeerd!');
|
||
END IF;
|
||
|
||
--
|
||
v_errormsg := 'BTW-percentage ongeldig';
|
||
v_btwperc := REPLACE (v_btwperc, ',', '.');
|
||
|
||
IF fac.safe_to_number (v_btwperc) IS NULL
|
||
THEN
|
||
fac.imp_writelog (p_import_key,
|
||
'W',
|
||
v_aanduiding || v_errormsg,
|
||
'BTW-percentage wordt genegeerd!');
|
||
END IF;
|
||
|
||
|
||
-- Don't care
|
||
v_errormsg := 'Eenheid ongeldig';
|
||
v_uom := TRIM (v_uom);
|
||
|
||
-- Insert geformatteerde import record
|
||
IF v_ongeldig = 0
|
||
THEN
|
||
BEGIN
|
||
v_errormsg := 'Fout wegschrijven importregel';
|
||
|
||
INSERT INTO svrz_imp_quartomulti (imp_log_run,
|
||
receiver,
|
||
receiverName,
|
||
customer,
|
||
customerName,
|
||
orderdatum,
|
||
bestelnr,
|
||
nummer,
|
||
questornummer,
|
||
questoromschrijving,
|
||
inkoopprijs,
|
||
aantal,
|
||
prijs_per_verpakking,
|
||
aantal_per_verpakking,
|
||
btwperc,
|
||
uom)
|
||
VALUES (p_import_key,
|
||
SUBSTR (v_receiver, 1, 25),
|
||
SUBSTR (v_receiverName, 1, 100),
|
||
SUBSTR (v_customer, 1, 30),
|
||
SUBSTR (v_customerName, 1, 100),
|
||
fac.safe_to_date (v_orderdatum,
|
||
'yyyymmdd hh24:mi:ss'),
|
||
SUBSTR (v_bestelnr, 1, 50),
|
||
SUBSTR (v_nummer, 1, 32),
|
||
SUBSTR (v_questornummer, 1, 50),
|
||
SUBSTR (v_questoromschrijving, 1, 100),
|
||
fac.safe_to_number (v_inkoopprijs),
|
||
fac.safe_to_number (v_aantal),
|
||
fac.safe_to_number (v_prijs_per_verpakking),
|
||
fac.safe_to_number (v_aantal_per_verpakking),
|
||
fac.safe_to_number (v_btwperc),
|
||
SUBSTR (v_uom, 1, 30));
|
||
|
||
v_count_import := v_count_import + 1;
|
||
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_aanduiding || v_errormsg,
|
||
'');
|
||
END;
|
||
END IF;
|
||
END IF;
|
||
END;
|
||
END LOOP;
|
||
|
||
IF header_is_valid = 0
|
||
THEN
|
||
fac.imp_writelog (p_import_key,
|
||
'E',
|
||
'Ongeldig importbestand',
|
||
'Geen header of header niet volgens specificatie!');
|
||
ELSE
|
||
fac.imp_writelog (
|
||
p_import_key,
|
||
'S',
|
||
'Inleesproces/#ingelezen importregels: ' || TO_CHAR (v_count_tot),
|
||
'');
|
||
fac.imp_writelog (
|
||
p_import_key,
|
||
'S',
|
||
'Inleesproces/#ongeldige niet ingelezen importregels: '
|
||
|| TO_CHAR (v_count_tot - v_count_import),
|
||
'');
|
||
END IF;
|
||
|
||
DELETE FROM fac_imp_file
|
||
WHERE fac_import_key = p_import_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_aanduiding || v_errormsg,
|
||
'Inleesproces Quarto afgebroken!');
|
||
END;
|
||
/
|
||
|
||
CREATE OR REPLACE PROCEDURE svrz_update_quarto (p_import_key IN NUMBER)
|
||
AS
|
||
-- Cursor loopt - op bestelnr! - over alle nieuw ingelezen Quarto POs.
|
||
CURSOR c1
|
||
IS
|
||
SELECT x.receiver,
|
||
x.receiverName,
|
||
b.lev_key,
|
||
b.aantal lev_aant,
|
||
d.cat_key,
|
||
d.aantal cat_aant,
|
||
x.customer,
|
||
x.customerName,
|
||
p.prs_key,
|
||
p.afl_key,
|
||
p.aantal prs_aant,
|
||
k.bes_kenmerk_key,
|
||
TO_CHAR (x.orderdatum, 'dd-mm-yyyy') orderdatum,
|
||
x.bestelnr
|
||
FROM (SELECT DISTINCT receiver, receiverName, customer, customerName, orderdatum, bestelnr
|
||
FROM svrz_imp_quartomulti
|
||
WHERE imp_log_run = p_import_key) x
|
||
LEFT JOIN ( SELECT TRIM (prs_bedrijf_naam_upper) lev_id_upper,
|
||
MAX (prs_bedrijf_key) lev_key,
|
||
COUNT ( * ) aantal
|
||
FROM prs_v_aanwezigbedrijf
|
||
GROUP BY TRIM (prs_bedrijf_naam_upper)) b
|
||
ON UPPER (x.receiverName) = b.lev_id_upper
|
||
LEFT JOIN ( SELECT UPPER(TRIM(SUBSTR (ins_discipline_omschrijving, 3))) cat_id_upper,
|
||
MAX (ins_discipline_key) cat_key,
|
||
COUNT ( * ) aantal
|
||
FROM bes_discipline
|
||
WHERE ins_discipline_verwijder IS NULL
|
||
GROUP BY UPPER(TRIM(SUBSTR (ins_discipline_omschrijving, 3)))) d
|
||
ON UPPER (SUBSTR (x.receiverName, 1, 28)) = d.cat_id_upper
|
||
LEFT JOIN ( SELECT UPPER (TRIM (prs_perslid_voornaam)) prs_id_upper,
|
||
MAX (prs_perslid_key) prs_key,
|
||
MAX (mld_adres_key) afl_key,
|
||
COUNT ( * ) aantal
|
||
FROM prs_v_aanwezigperslid
|
||
GROUP BY UPPER (TRIM (prs_perslid_voornaam))) p
|
||
ON UPPER (x.customer) = p.prs_id_upper
|
||
LEFT JOIN (SELECT bes_srtinstallatie_key, bes_kenmerk_key
|
||
FROM bes_kenmerk
|
||
WHERE bes_kenmerk_verwijder IS NULL
|
||
AND bes_srtkenmerk_key = 1 -- Opmerking intern
|
||
AND bes_kenmerk_niveau = 'D') k
|
||
ON UPPER (d.cat_key) = k.bes_srtinstallatie_key
|
||
ORDER BY bestelnr;
|
||
|
||
c_grp_oms VARCHAR2 (200) := 'Onbekend';
|
||
v_errormsg VARCHAR2 (1000);
|
||
oracle_err_num NUMBER;
|
||
oracle_err_mes VARCHAR2 (200);
|
||
v_aanduiding VARCHAR2 (200);
|
||
v_count_tot NUMBER (10) := 0;
|
||
v_count_new NUMBER (10) := 0;
|
||
v_count NUMBER;
|
||
v_autoaccept bes_disc_params.bes_disc_params_autoacceptrfo%TYPE;
|
||
v_auto_order bes_disc_params.bes_disc_params_auto_order%TYPE;
|
||
v_leverdagen bes_disc_params.bes_disc_params_leverdagen%TYPE;
|
||
v_kpn_key prs_kostenplaats.prs_kostenplaats_key%TYPE;
|
||
v_bes_key bes_bestelling.bes_bestelling_key%TYPE;
|
||
v_srtdeel_key bes_srtdeel.bes_srtdeel_key%TYPE;
|
||
BEGIN
|
||
-- Loop over alle nieuw ingelezen Quarto POs.
|
||
FOR po IN c1
|
||
LOOP
|
||
BEGIN
|
||
v_aanduiding :=
|
||
'['
|
||
|| po.receiverName
|
||
|| '|'
|
||
|| po.customer
|
||
|| '|'
|
||
|| po.orderdatum
|
||
|| '|'
|
||
|| po.bestelnr
|
||
|| '] ';
|
||
v_count_tot := v_count_tot + 1;
|
||
|
||
-- Valideer dat configuratie 1-duidig is!
|
||
v_errormsg := 'Fout controleren configuratie.';
|
||
|
||
IF po.lev_aant = 1
|
||
AND po.cat_aant = 1
|
||
AND po.prs_aant = 1
|
||
AND po.bes_kenmerk_key IS NOT NULL
|
||
THEN
|
||
v_errormsg := 'Fout bepalen catalogus.';
|
||
|
||
SELECT bes_disc_params_autoacceptrfo,
|
||
bes_disc_params_auto_order,
|
||
bes_disc_params_leverdagen
|
||
INTO v_autoaccept, v_auto_order, v_leverdagen
|
||
FROM bes_disc_params
|
||
WHERE bes_ins_discipline_key = po.cat_key;
|
||
|
||
v_errormsg := 'Fout bepalen kostenplaats.';
|
||
|
||
SELECT a.prs_kostenplaats_key
|
||
INTO v_kpn_key
|
||
FROM prs_perslid p, prs_afdeling a
|
||
WHERE p.prs_perslid_key = po.prs_key
|
||
AND p.prs_afdeling_key = a.prs_afdeling_key;
|
||
|
||
v_errormsg := 'Fout controleren Quarto-bestelnr.';
|
||
|
||
SELECT COUNT ( * )
|
||
INTO v_count
|
||
FROM bes_kenmerkbestell bk, bes_kenmerk k
|
||
WHERE bk.bes_kenmerk_key = k.bes_kenmerk_key
|
||
AND k.bes_srtkenmerk_key = 1 -- Opmerking intern
|
||
AND INSTR (bk.bes_kenmerkbestell_waarde, po.bestelnr) > 0 ;
|
||
|
||
IF v_count = 0
|
||
THEN
|
||
v_errormsg := 'Fout toevoegen bestelling.';
|
||
|
||
INSERT INTO bes_bestelling (prs_perslid_key,
|
||
prs_perslid_key_voor,
|
||
prs_kostenplaats_key,
|
||
bes_bestelling_leverdatum,
|
||
mld_adres_key_lev,
|
||
bes_bestelling_plaats,
|
||
bes_bestelling_module,
|
||
bes_bestelling_levkosten,
|
||
bes_bestelling_korting)
|
||
VALUES (po.prs_key,
|
||
po.prs_key,
|
||
v_kpn_key,
|
||
TRUNC(fac.datumtijdplusuitvoertijd (SYSDATE,
|
||
v_leverdagen,
|
||
'DAGEN')),
|
||
po.afl_key,
|
||
NULL,
|
||
'BES',
|
||
0,
|
||
0)
|
||
RETURNING bes_bestelling_key
|
||
INTO v_bes_key;
|
||
|
||
-- Vul 'Opmerking intern'-kenmerkveld met bestelnr (orderdatum)
|
||
-- uit Quarto!
|
||
v_errormsg := 'Fout toevoegen kenmerk.';
|
||
|
||
INSERT INTO bes_kenmerkbestell (bes_bestelling_key,
|
||
bes_kenmerk_key,
|
||
bes_kenmerkbestell_waarde)
|
||
VALUES (v_bes_key,
|
||
po.bes_kenmerk_key,
|
||
'Quarto-bestelnr: '
|
||
|| po.bestelnr
|
||
|| ' ('
|
||
|| po.orderdatum
|
||
|| ')');
|
||
|
||
-- Loop over alle orderitems per Quarto PO.
|
||
FOR item
|
||
IN ( SELECT nummer,
|
||
questornummer,
|
||
questoromschrijving,
|
||
inkoopprijs,
|
||
aantal,
|
||
prijs_per_verpakking,
|
||
aantal_per_verpakking,
|
||
btwperc,
|
||
uom
|
||
FROM svrz_imp_quartomulti
|
||
WHERE imp_log_run = p_import_key
|
||
AND bestelnr = po.bestelnr
|
||
ORDER BY nummer)
|
||
LOOP
|
||
BEGIN
|
||
v_errormsg := 'Fout toevoegen artikel.';
|
||
|
||
bes.upsert_srtdeel (po.cat_key, -- ins_discipline_key
|
||
c_grp_oms, -- bes_srtgroep_omschrijving
|
||
item.questoromschrijving,
|
||
item.prijs_per_verpakking,
|
||
item.btwperc,
|
||
item.uom,
|
||
item.nummer,
|
||
po.lev_key,
|
||
NULL, -- Vervaldatum
|
||
'', -- Image
|
||
item.aantal_per_verpakking,
|
||
'', -- Opmerking
|
||
'', -- details_loc
|
||
v_srtdeel_key); -- nieuwe bes_srtdeel_key
|
||
|
||
v_errormsg := 'Fout toevoegen bestelling-item.';
|
||
|
||
INSERT INTO bes_bestelling_item (bes_bestelling_key,
|
||
bes_srtdeel_key,
|
||
bes_bestelling_item_aantal,
|
||
bes_bestelling_item_brutoprijs,
|
||
bes_bestelling_item_inkprijs,
|
||
bes_bestelling_item_prijs)
|
||
VALUES ( v_bes_key,
|
||
v_srtdeel_key,
|
||
item.aantal,
|
||
bes.getsrtdeelprijs (v_srtdeel_key, NULL),
|
||
bes.getsrtdeelinkprijs (v_srtdeel_key, NULL),
|
||
item.prijs_per_verpakking
|
||
);
|
||
|
||
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_aanduiding || v_errormsg,
|
||
'ITEM-loop');
|
||
END;
|
||
END LOOP;
|
||
|
||
|
||
fac.trackaction ('BESNEW',
|
||
v_bes_key,
|
||
po.prs_key,
|
||
NULL,
|
||
NULL);
|
||
bes.setbestellingstatus (v_bes_key, po.prs_key, po.prs_key);
|
||
|
||
IF v_auto_order = 1
|
||
THEN
|
||
bes.makeOrders (po.prs_key, v_bes_key);
|
||
END IF;
|
||
|
||
COMMIT;
|
||
v_count_new := v_count_new + 1;
|
||
ELSE
|
||
fac.imp_writelog (p_import_key,
|
||
'E',
|
||
v_aanduiding || v_errormsg,
|
||
'Quarto-bestelnr bestaat al');
|
||
END IF;
|
||
ELSE
|
||
fac.imp_writelog (p_import_key,
|
||
'E',
|
||
v_aanduiding || v_errormsg,
|
||
'Inrichtingsfout');
|
||
END IF;
|
||
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_aanduiding || v_errormsg,
|
||
'PO-loop');
|
||
END;
|
||
END LOOP;
|
||
|
||
fac.imp_writelog (p_import_key,
|
||
'S',
|
||
'POs/#ingelezen: ' || TO_CHAR (v_count_tot),
|
||
'');
|
||
fac.imp_writelog (p_import_key,
|
||
'S',
|
||
'POs/#toegevoegd: ' || TO_CHAR (v_count_new),
|
||
'');
|
||
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 Quarto afgebroken!');
|
||
END;
|
||
/
|
||
|
||
-- SVRZ#60631: Import van gescande ruimte-objecten en input om objecten te
|
||
-- verplaatsen naar de correcte ruimte en per gescande ruimte te
|
||
-- loggen welke objecten daar volgens Facilitor nog meer staan).
|
||
CREATE OR REPLACE PROCEDURE svrz_import_ins_scan (p_import_key IN NUMBER)
|
||
IS
|
||
c_delim VARCHAR2 (1) := ';';
|
||
v_newline VARCHAR2 (1000); -- Input line
|
||
v_errormsg VARCHAR2 (1000);
|
||
oracle_err_num NUMBER;
|
||
oracle_err_mes VARCHAR2 (200);
|
||
header_is_valid NUMBER;
|
||
v_count_tot NUMBER (10);
|
||
v_count_import NUMBER (10);
|
||
v_ongeldig NUMBER (1);
|
||
v_aanduiding VARCHAR2 (200);
|
||
-- De importvelden:
|
||
v_plaatsofobjectid VARCHAR2 (255);
|
||
|
||
CURSOR c1
|
||
IS
|
||
SELECT *
|
||
FROM fac_imp_file
|
||
WHERE fac_import_key = p_import_key
|
||
ORDER BY fac_imp_file_index;
|
||
BEGIN
|
||
DELETE FROM svrz_imp_ins_scan;
|
||
COMMIT;
|
||
|
||
v_count_tot := 0;
|
||
v_count_import := 0;
|
||
header_is_valid := 1; -- Geen header, dus altijd valid!
|
||
|
||
FOR rec1 IN c1
|
||
LOOP
|
||
BEGIN
|
||
v_newline := rec1.fac_imp_file_line;
|
||
v_errormsg := 'Fout opvragen importregel';
|
||
v_aanduiding := '';
|
||
v_ongeldig := 0;
|
||
-- Lees alle veldwaarden
|
||
fac.imp_getfield (v_newline, c_delim, v_plaatsofobjectid);
|
||
|
||
v_aanduiding := '[' || v_plaatsofobjectid || '] ';
|
||
|
||
-- Ik controleer of ik een geldige header heb, dat is: in de juiste kolommen
|
||
-- de juiste kolomkop. Ik controleer daarbij ALLE kolommen!
|
||
-- Ik negeer alles totdat ik een geldige header ben gepasseerd.
|
||
IF (header_is_valid = 0)
|
||
THEN
|
||
IF UPPER (v_plaatsofobjectid) = ''
|
||
THEN
|
||
header_is_valid := 1;
|
||
END IF;
|
||
ELSE
|
||
v_count_tot := v_count_tot + 1;
|
||
-- Controleer alle veldwaarden
|
||
v_errormsg := 'PlaatsOfObjectId ongeldig; ongedefinieerd of te lang';
|
||
v_plaatsofobjectid := TRIM (v_plaatsofobjectid);
|
||
|
||
IF v_plaatsofobjectid IS NULL OR LENGTH (v_plaatsofobjectid) > 60
|
||
THEN
|
||
v_ongeldig := 1;
|
||
fac.imp_writelog (p_import_key, 'W', v_aanduiding || v_errormsg, 'Regel wordt overgeslagen!');
|
||
END IF;
|
||
|
||
-- Insert geformatteerde import record
|
||
IF v_ongeldig = 0
|
||
THEN
|
||
BEGIN
|
||
v_errormsg := 'Fout wegschrijven importregel';
|
||
|
||
INSERT INTO svrz_imp_ins_scan (plaatsofobjectid, volgorde)
|
||
VALUES (v_plaatsofobjectid, v_count_tot);
|
||
COMMIT;
|
||
|
||
v_count_import := v_count_import + 1;
|
||
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, 'W', v_aanduiding || v_errormsg, '');
|
||
COMMIT;
|
||
END;
|
||
END IF;
|
||
END IF;
|
||
END;
|
||
END LOOP;
|
||
|
||
IF (header_is_valid = 0)
|
||
THEN
|
||
fac.imp_writelog (p_import_key, 'E', 'Ongeldig importbestand', 'Geen header of header niet volgens specificatie!');
|
||
ELSE
|
||
fac.imp_writelog (p_import_key, 'S', 'Ruimteobject/#ingelezen importregels: ' || TO_CHAR (v_count_tot), '');
|
||
fac.imp_writelog (p_import_key, 'S', 'Ruimteobject/#ongeldige niet ingelezen importregels: ' || TO_CHAR (v_count_tot - v_count_import), '');
|
||
END IF;
|
||
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_aanduiding || v_errormsg, 'Inleesproces INS-scan afgebroken!');
|
||
END svrz_import_ins_scan;
|
||
/
|
||
|
||
CREATE OR REPLACE PROCEDURE svrz_update_ins_scan (p_import_key IN NUMBER)
|
||
AS
|
||
v_errormsg VARCHAR2 (1000) := '-';
|
||
oracle_err_num NUMBER;
|
||
oracle_err_mes VARCHAR2 (200);
|
||
v_aanduiding VARCHAR2 (200);
|
||
v_importeur_key NUMBER (10);
|
||
v_count_upd NUMBER (10);
|
||
v_count_tmp NUMBER (10);
|
||
v_plaatsofobjectid VARCHAR2 (255);
|
||
v_cur_ruimte_key NUMBER (10) := NULL;
|
||
v_cur_aanduiding VARCHAR2 (255) := '';
|
||
|
||
-- Bijwerken ruimteobjecten!
|
||
CURSOR c1
|
||
IS
|
||
SELECT i.volgorde, i.plaatsofobjectid, pa.alg_onroerendgoed_keys alg_ruimte_key,
|
||
MIN (d.ins_deel_key) ins_deel_key, COUNT ( * ) aantal
|
||
FROM (SELECT volgorde, plaatsofobjectid FROM svrz_imp_ins_scan) i
|
||
LEFT JOIN alg_v_plaatsaanduiding pa
|
||
ON UPPER (i.plaatsofobjectid) = UPPER (pa.alg_plaatsaanduiding)
|
||
AND pa.alg_onroerendgoed_type = 'R'
|
||
LEFT JOIN ins_v_aanwezigdeel d
|
||
ON UPPER (i.plaatsofobjectid) = d.ins_deel_upper
|
||
AND d.ins_alg_ruimte_type = 'R'
|
||
GROUP BY i.volgorde, i.plaatsofobjectid, pa.alg_onroerendgoed_keys
|
||
ORDER BY 1;
|
||
|
||
CURSOR c2
|
||
IS
|
||
SELECT DISTINCT alg_ruimte_key
|
||
FROM svrz_imp_ins_scan
|
||
ORDER BY 1;
|
||
BEGIN
|
||
v_errormsg := 'Fout bepalen importeur';
|
||
|
||
SELECT prs_perslid_key
|
||
INTO v_importeur_key
|
||
FROM fac_import
|
||
WHERE fac_import_key = p_import_key;
|
||
|
||
v_count_upd := 0;
|
||
v_count_tmp := 0;
|
||
|
||
FOR rec IN c1
|
||
LOOP
|
||
BEGIN
|
||
v_aanduiding := '[' || TO_CHAR (rec.volgorde) || '|' || rec.plaatsofobjectid || '] ';
|
||
|
||
IF v_cur_ruimte_key IS NULL -- Op zoek naar ruimte#1
|
||
THEN
|
||
IF rec.alg_ruimte_key IS NOT NULL -- Ruimte#1
|
||
THEN
|
||
v_errormsg := 'Store ruimte#1';
|
||
v_cur_ruimte_key := rec.alg_ruimte_key; -- Store ruimte#1
|
||
v_cur_aanduiding := rec.plaatsofobjectid;
|
||
ELSIF rec.ins_deel_key IS NOT NULL -- Objectregel
|
||
THEN
|
||
v_errormsg := 'Ruimte#1 verwacht, object gevonden';
|
||
fac.imp_writelog (p_import_key, 'W', v_aanduiding || v_errormsg, 'Skip object');
|
||
ELSE -- Geen ruimteregel en ook geen objectregel
|
||
v_errormsg := 'Ruimte#1 verwacht en niet gevonden';
|
||
fac.imp_writelog (p_import_key, 'W', v_aanduiding || v_errormsg, 'Skip ruimte');
|
||
END IF;
|
||
ELSE -- Ruimte#1 gevonden en op zoek naar ruimte#2
|
||
IF rec.alg_ruimte_key IS NOT NULL -- Ruimte#2
|
||
THEN
|
||
IF v_cur_aanduiding = rec.plaatsofobjectid -- Ruimte-match?
|
||
THEN
|
||
v_errormsg := 'Reset ruimte#1';
|
||
v_cur_ruimte_key := NULL; -- Reset ruimte#1
|
||
v_cur_aanduiding := '';
|
||
COMMIT;
|
||
|
||
v_count_upd := v_count_upd + v_count_tmp;
|
||
v_count_tmp := 0;
|
||
ELSE -- Uit sync (ontbrekende ruimteregel?)
|
||
v_errormsg := 'Ruimte#2 verwacht en niet gevonden';
|
||
fac.imp_writelog (p_import_key, 'W', v_aanduiding || v_errormsg, 'Sync ruimte');
|
||
|
||
v_cur_ruimte_key := rec.alg_ruimte_key; -- Store ruimte#1
|
||
v_cur_aanduiding := rec.plaatsofobjectid;
|
||
ROLLBACK;
|
||
|
||
v_count_tmp := 0;
|
||
END IF;
|
||
ELSIF rec.ins_deel_key IS NOT NULL -- Objectregel
|
||
THEN
|
||
IF rec.aantal = 1 -- Object uniek?
|
||
THEN
|
||
v_errormsg := 'Fout bijwerken object';
|
||
UPDATE ins_deel
|
||
SET ins_alg_ruimte_key = v_cur_ruimte_key
|
||
WHERE ins_deel_key = rec.ins_deel_key;
|
||
|
||
fac.trackaction ('INSUPD', rec.ins_deel_key, v_importeur_key, NULL, 'Via scanner-import ruimte bijgewerkt naar: ' || v_cur_aanduiding);
|
||
|
||
v_errormsg := 'Fout bijwerken import';
|
||
UPDATE svrz_imp_ins_scan
|
||
SET alg_ruimte_key = v_cur_ruimte_key,
|
||
ins_deel_key = rec.ins_deel_key
|
||
WHERE volgorde = rec.volgorde;
|
||
|
||
v_count_tmp := v_count_tmp + 1;
|
||
ELSE
|
||
v_errormsg := 'ObjectID niet uniek';
|
||
fac.imp_writelog (p_import_key, 'W', v_aanduiding || v_errormsg, 'Skip object');
|
||
END IF;
|
||
ELSE
|
||
v_errormsg := 'Fout bepalen ruimte- of object';
|
||
fac.imp_writelog (p_import_key, 'W', v_aanduiding || v_errormsg, 'Skip regel');
|
||
END IF;
|
||
END IF;
|
||
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_aanduiding || v_errormsg, 'Scan-loop');
|
||
ROLLBACK;
|
||
|
||
v_count_tmp := 0;
|
||
END;
|
||
END LOOP;
|
||
|
||
-- SVRZ#62674: Tot slot nog controleren dat de laatste regel de correcte
|
||
-- ruimte#2 (heeft) bevat en anders ROLLBACK!
|
||
IF v_cur_ruimte_key IS NOT NULL
|
||
THEN
|
||
v_errormsg := 'Ruimte#2 verwacht en einde bestand';
|
||
fac.imp_writelog (p_import_key, 'W', v_aanduiding || v_errormsg, 'Sync ruimte');
|
||
|
||
ROLLBACK;
|
||
END IF;
|
||
|
||
fac.imp_writelog (p_import_key, 'S', 'Ruimteobject/#bijgewerkt: ' || TO_CHAR (v_count_upd), '');
|
||
COMMIT;
|
||
|
||
v_count_upd := 0;
|
||
|
||
FOR rc1 IN c2
|
||
LOOP
|
||
BEGIN
|
||
v_aanduiding := '[' || TO_CHAR (rc1.alg_ruimte_key) || '] ';
|
||
|
||
FOR rc2
|
||
IN ( SELECT pa.alg_onroerendgoed_keys alg_ruimte_key, pa.alg_plaatsaanduiding,
|
||
d.ins_deel_key, d.ins_deel_upper
|
||
FROM alg_v_plaatsaanduiding pa, ins_v_aanwezigdeel d
|
||
WHERE pa.alg_onroerendgoed_keys = rc1.alg_ruimte_key
|
||
AND pa.alg_onroerendgoed_type = 'R'
|
||
AND pa.alg_onroerendgoed_keys = d.ins_alg_ruimte_key
|
||
AND d.ins_alg_ruimte_type = 'R'
|
||
AND NOT EXISTS (SELECT 1 FROM svrz_imp_ins_scan WHERE ins_deel_key = d.ins_deel_key)
|
||
ORDER BY 1, 2, 3)
|
||
LOOP
|
||
BEGIN
|
||
v_aanduiding := '[' || rc2.alg_plaatsaanduiding || '|' || rc2.ins_deel_upper || '] ';
|
||
|
||
fac.imp_writelog (p_import_key, 'I', 'Niet gescand en volgens CMDB ook in ruimte ' || rc2.alg_plaatsaanduiding || ': ' || rc2.ins_deel_upper, '');
|
||
v_count_upd := v_count_upd + 1;
|
||
END;
|
||
END LOOP;
|
||
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_aanduiding || v_errormsg, 'Rest-loop');
|
||
COMMIT;
|
||
END;
|
||
END LOOP;
|
||
|
||
fac.imp_writelog (p_import_key, 'S', 'Ruimteobject/#misgelopen: ' || TO_CHAR (v_count_upd), '');
|
||
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 INS-scan afgebroken!');
|
||
END svrz_update_ins_scan;
|
||
/
|
||
|
||
/* Formatted on 12-9-2014 17:42:24 (QP5 v5.136.908.31019) */
|
||
CREATE OR REPLACE VIEW svrz_v_imp_bes_artikel_sync
|
||
(
|
||
fclt_f_catalogusnaam,
|
||
leverancier,
|
||
catdatum,
|
||
artikelnr,
|
||
groep,
|
||
omschrijving,
|
||
prijs,
|
||
eenheid,
|
||
picture,
|
||
orderaantal,
|
||
tax,
|
||
duedate,
|
||
inkoopprijs,
|
||
minimum,
|
||
staffeltabel,
|
||
wijzigdagen,
|
||
annuleerdagen,
|
||
opmerking
|
||
)
|
||
AS
|
||
SELECT td.ins_discipline_omschrijving,
|
||
b.prs_bedrijf_naam,
|
||
TO_CHAR (td.ins_discipline_aanmaak, 'yyyymmdd'),
|
||
sd.bes_srtdeel_nr,
|
||
sg.bes_srtgroep_omschrijving,
|
||
sd.bes_srtdeel_omschrijving,
|
||
TO_CHAR (bes.getsrtdeelprijs (sd.bes_srtdeel_key, NULL)),
|
||
sd.bes_srtdeel_eenheid,
|
||
sd.bes_srtdeel_image,
|
||
TO_CHAR (sd.bes_srtdeel_veelvoud),
|
||
TO_CHAR (sd.bes_srtdeel_btw),
|
||
TO_CHAR (sd.bes_srtdeel_vervaldatum, 'yyyymmdd'),
|
||
TO_CHAR (bes.getsrtdeelinkprijs (sd.bes_srtdeel_key, NULL)),
|
||
NULL,
|
||
bs.bes_staffeltabel_naam,
|
||
TO_CHAR (sd.bes_srtdeel_wijzigdagen),
|
||
TO_CHAR (sd.bes_srtdeel_annuleerdagen),
|
||
sd.bes_srtdeel_opmerking
|
||
FROM ins_tab_discipline td,
|
||
bes_srtgroep sg,
|
||
bes_srtdeel sd,
|
||
prs_bedrijf b,
|
||
bes_staffeltabel bs
|
||
WHERE td.ins_discipline_module = 'BES'
|
||
AND td.ins_discipline_verwijder IS NULL
|
||
AND td.ins_discipline_key = sg.ins_discipline_key
|
||
AND sg.bes_srtgroep_verwijder IS NULL
|
||
AND sg.bes_srtgroep_key = sd.bes_srtgroep_key
|
||
AND sd.bes_srtdeel_verwijder IS NULL
|
||
AND sd.prs_bedrijf_key = b.prs_bedrijf_key
|
||
AND bs.bes_staffeltabel_key(+) = sd.bes_staffeltabel_key;
|
||
|
||
/* Formatted on 3-11-2014 16:36:24 (QP5 v5.136.908.31019) */
|
||
CREATE OR REPLACE VIEW svrz_v_afleveradres_lijst
|
||
(
|
||
adres_id,
|
||
adres_naam,
|
||
adres,
|
||
postcode,
|
||
plaats,
|
||
land
|
||
)
|
||
AS
|
||
SELECT COALESCE (a.mld_adres_gebouw_ruimte, l.alg_locatie_code)
|
||
|| SUBSTR (
|
||
a.mld_adres_bezoek_adres,
|
||
DECODE (INSTR (a.mld_adres_bezoek_adres, ' ', -1),
|
||
0, 100,
|
||
INSTR (a.mld_adres_bezoek_adres, ' ', -1) + 1))
|
||
adres_id,
|
||
a.mld_adres_naam adres_naam,
|
||
a.mld_adres_bezoek_adres adres,
|
||
a.mld_adres_bezoek_postcode postcode,
|
||
a.mld_adres_bezoek_plaats plaats,
|
||
a.mld_adres_bezoek_land land
|
||
FROM mld_adres a, alg_locatie l
|
||
WHERE a.mld_adres_verwijder IS NULL
|
||
AND a.mld_adres_afleveradres = 1
|
||
AND a.alg_locatie_key = l.alg_locatie_key;
|
||
|
||
CREATE OR REPLACE VIEW svrz_v_afleveradres_check
|
||
(
|
||
loc_key,
|
||
loc_code,
|
||
loc_oms,
|
||
loc_badres,
|
||
loc_bposcode,
|
||
loc_bplaats,
|
||
loc_bland,
|
||
loc_padres,
|
||
loc_ppostcode,
|
||
loc_pplaats,
|
||
loc_pland,
|
||
geb_key,
|
||
geb_code,
|
||
geb_naam,
|
||
afl_key,
|
||
afl_loc_key,
|
||
afl_naam,
|
||
afl_geb_ruimte,
|
||
afl_badres,
|
||
afl_bpostcode,
|
||
afl_bplaats,
|
||
afl_bland,
|
||
afl_padres,
|
||
afl_ppostcode,
|
||
afl_pplaats,
|
||
afl_pland
|
||
)
|
||
AS
|
||
SELECT TO_CHAR (x.alg_locatie_key) loc_key,
|
||
x.alg_locatie_code loc_code,
|
||
x.alg_locatie_omschrijving loc_oms,
|
||
x.alg_locatie_adres loc_badres,
|
||
x.alg_locatie_postcode loc_bposcode,
|
||
x.alg_locatie_plaats loc_bplaats,
|
||
x.alg_locatie_land loc_bland,
|
||
x.alg_locatie_post_adres loc_padres,
|
||
x.alg_locatie_post_postcode loc_ppostcode,
|
||
x.alg_locatie_post_plaats loc_pplaats,
|
||
x.alg_locatie_post_land loc_pland,
|
||
TO_CHAR (x.alg_gebouw_key) geb_key,
|
||
x.alg_gebouw_upper geb_code,
|
||
x.alg_gebouw_naam geb_naam,
|
||
TO_CHAR (y.mld_adres_key) afl_key,
|
||
TO_CHAR (y.alg_locatie_key) afl_loc_key,
|
||
y.mld_adres_naam afl_naam,
|
||
y.mld_adres_gebouw_ruimte gebouw_ruimte,
|
||
y.mld_adres_bezoek_adres afl_badres,
|
||
y.mld_adres_bezoek_postcode afl_bpostcode,
|
||
y.mld_adres_bezoek_plaats afl_bplaats,
|
||
y.mld_adres_bezoek_land afl_bland,
|
||
y.mld_adres_post_adres afl_padres,
|
||
y.mld_adres_post_postcode afl_ppostcode,
|
||
y.mld_adres_post_plaats afl_pplaats,
|
||
y.mld_adres_post_land afl_pland
|
||
FROM (SELECT l.alg_locatie_key,
|
||
l.alg_locatie_code,
|
||
l.alg_locatie_omschrijving,
|
||
l.alg_locatie_adres,
|
||
l.alg_locatie_postcode,
|
||
l.alg_locatie_plaats,
|
||
l.alg_locatie_land,
|
||
l.alg_locatie_post_adres,
|
||
l.alg_locatie_post_postcode,
|
||
l.alg_locatie_post_plaats,
|
||
l.alg_locatie_post_land,
|
||
g.alg_gebouw_key,
|
||
g.alg_gebouw_upper,
|
||
g.alg_gebouw_naam,
|
||
g.mld_adres_key
|
||
FROM alg_v_aanweziglocatie l, alg_v_aanweziggebouw g
|
||
WHERE l.alg_locatie_key = g.alg_locatie_key) x
|
||
FULL JOIN
|
||
(SELECT ma.mld_adres_key,
|
||
ma.mld_adres_naam,
|
||
ma.mld_adres_gebouw_ruimte,
|
||
ma.mld_adres_bezoek_adres,
|
||
ma.mld_adres_bezoek_postcode,
|
||
ma.mld_adres_bezoek_plaats,
|
||
ma.mld_adres_bezoek_land,
|
||
ma.mld_adres_post_adres,
|
||
ma.mld_adres_post_postcode,
|
||
ma.mld_adres_post_plaats,
|
||
ma.mld_adres_post_land,
|
||
ma.alg_locatie_key
|
||
FROM mld_adres ma
|
||
WHERE ma.mld_adres_afleveradres = 1
|
||
AND ma.mld_adres_verwijder IS NULL) y
|
||
ON x.mld_adres_key = y.mld_adres_key;
|
||
|
||
/* Formatted on 21-4-2015 15:52:25 (QP5 v5.136.908.31019) */
|
||
CREATE OR REPLACE VIEW svrz_v_noti_order_afschrift
|
||
(
|
||
code,
|
||
sender,
|
||
receiver,
|
||
text,
|
||
key,
|
||
par1,
|
||
par2,
|
||
xkey
|
||
)
|
||
AS -- Afschrift C-orders!
|
||
SELECT DISTINCT
|
||
sn.fac_srtnotificatie_code,
|
||
NULL,
|
||
b.prs_perslid_key, -- Besteller
|
||
REPLACE (
|
||
sn.fac_srtnotificatie_oms,
|
||
'##CNR##',
|
||
'PUR-C1'
|
||
|| SUBSTR ('0000000' || bo.bes_bestelopdr_id, INSTR ('0000000' || bo.bes_bestelopdr_id, '/') - 6)),
|
||
bo.bes_bestelopdr_key,
|
||
NULL,
|
||
NULL,
|
||
NULL
|
||
FROM fac_tracking t,
|
||
bes_bestelopdr bo,
|
||
bes_bestelopdr_item boi,
|
||
bes_bestelling_item bi,
|
||
bes_bestelling b,
|
||
fac_srtnotificatie sn,
|
||
fac_notificatie_job nj
|
||
WHERE t.fac_srtnotificatie_key = 142 -- BES2SN
|
||
AND t.fac_tracking_refkey = bo.bes_bestelopdr_key
|
||
AND bo.bes_bestelopdr_key = boi.bes_bestelopdr_key
|
||
AND boi.bes_bestelopdr_item_key = bi.bes_bestelopdr_item_key
|
||
AND bi.bes_bestelling_key = b.bes_bestelling_key
|
||
AND sn.fac_srtnotificatie_code = 'CUST01'
|
||
AND nj.fac_notificatie_job_view = 'SVRZ_V_NOTI_ORDER_AFSCHRIFT'
|
||
AND t.fac_tracking_datum BETWEEN nj.fac_notificatie_job_nextrun - (nj.fac_notificatie_job_interval / 24) AND nj.fac_notificatie_job_nextrun
|
||
UNION ALL -- Afschrift N-orders!
|
||
SELECT sn.fac_srtnotificatie_code,
|
||
NULL,
|
||
m.prs_perslid_key, -- Aanvrager
|
||
REPLACE (
|
||
sn.fac_srtnotificatie_oms,
|
||
'##NNR##',
|
||
'PUR-N1'
|
||
|| SUBSTR ('0000000' || TO_CHAR (o.mld_melding_key), -6)
|
||
|| '/'
|
||
|| TO_CHAR (o.mld_opdr_bedrijfopdr_volgnr)),
|
||
o.mld_opdr_key,
|
||
NULL,
|
||
NULL,
|
||
NULL
|
||
FROM fac_tracking t,
|
||
mld_opdr o,
|
||
mld_melding m,
|
||
mld_stdmelding sm,
|
||
ins_tab_discipline td,
|
||
fac_srtnotificatie sn,
|
||
fac_notificatie_job nj
|
||
WHERE t.fac_srtnotificatie_key = 91 -- ORDSNT
|
||
AND t.fac_tracking_refkey = o.mld_opdr_key
|
||
AND o.mld_melding_key = m.mld_melding_key
|
||
AND m.mld_stdmelding_key = sm.mld_stdmelding_key
|
||
AND sm.mld_ins_discipline_key = td.ins_discipline_key
|
||
AND td.ins_srtdiscipline_key = 1 -- Inkoop
|
||
AND sn.fac_srtnotificatie_code = 'CUST02'
|
||
AND nj.fac_notificatie_job_view = 'SVRZ_V_NOTI_ORDER_AFSCHRIFT'
|
||
AND t.fac_tracking_datum BETWEEN nj.fac_notificatie_job_nextrun - (nj.fac_notificatie_job_interval / 24) AND nj.fac_notificatie_job_nextrun;
|
||
|
||
CREATE OR REPLACE VIEW svrz_v_noti_cntreminder
|
||
(
|
||
code,
|
||
sender,
|
||
receiver,
|
||
text,
|
||
key,
|
||
xkey
|
||
)
|
||
AS
|
||
SELECT '',
|
||
NULL,
|
||
c.prs_perslid_key_beh,
|
||
'Rapp<EFBFBD>l: Contract '
|
||
|| c.cnt_contract_nummer_intern
|
||
|| ' ('
|
||
|| c.cnt_contract_omschrijving
|
||
|| ' '
|
||
|| b.prs_bedrijf_naam
|
||
|| ')'
|
||
|| ' moet uiterlijk per '
|
||
|| TO_CHAR (cnt.cnt_getopzegdatum (c.cnt_contract_key), 'dd-mm-yyyy')
|
||
|| ' worden verlengd of opgezegd',
|
||
c.cnt_contract_key,
|
||
NULL
|
||
FROM cnt_v_aanwezigcontract c, prs_bedrijf b
|
||
WHERE c.ins_discipline_key != 1541 -- Onderhoudscontracten HO niet notificeren!
|
||
AND c.cnt_contract_status = 0 -- Actief
|
||
AND c.cnt_prs_bedrijf_key = b.prs_bedrijf_key
|
||
AND SYSDATE BETWEEN cnt.cnt_getrappeldatum (c.cnt_contract_key) AND cnt.cnt_getopzegdatum (c.cnt_contract_key);
|
||
|
||
CREATE OR REPLACE VIEW svrz_v_rap_contactafdeling
|
||
(
|
||
afdeling,
|
||
bedrijf,
|
||
post_adres,
|
||
post_postcode,
|
||
post_plaats,
|
||
post_land,
|
||
bezoek_adres,
|
||
bezoek_postcode,
|
||
bezoek_plaats,
|
||
bezoek_land,
|
||
telefoon,
|
||
fax,
|
||
telefoon2,
|
||
contactpersoon,
|
||
contactpersoon_telefoon,
|
||
contactpersoon_fax,
|
||
opmerking,
|
||
everancier_nr,
|
||
overeenkomst_nr,
|
||
overeenkomst_datum,
|
||
email,
|
||
fclt_h_afdeling_key
|
||
)
|
||
AS
|
||
SELECT DISTINCT a.prs_afdeling_naam,
|
||
b.prs_bedrijf_naam,
|
||
b.prs_bedrijf_post_adres,
|
||
b.prs_bedrijf_post_postcode,
|
||
b.prs_bedrijf_post_plaats,
|
||
b.prs_bedrijf_post_land,
|
||
b.prs_bedrijf_bezoek_adres,
|
||
b.prs_bedrijf_bezoek_postcode,
|
||
b.prs_bedrijf_bezoek_plaats,
|
||
b.prs_bedrijf_bezoek_land,
|
||
b.prs_bedrijf_telefoon,
|
||
b.prs_bedrijf_fax,
|
||
b.prs_bedrijf_telefoon2,
|
||
b.prs_bedrijf_contact_persoon,
|
||
b.prs_bedrijf_contact_telefoon,
|
||
b.prs_bedrijf_contact_fax,
|
||
b.prs_bedrijf_opmerking,
|
||
b.prs_leverancier_nr,
|
||
b.prs_overeenkomst_nr,
|
||
b.prs_overeenkomst_datum,
|
||
b.prs_bedrijf_email,
|
||
a.prs_afdeling_key
|
||
FROM cnt_contract c, prs_bedrijf b, prs_v_afdeling a
|
||
WHERE cnt_contract_verwijder IS NULL
|
||
AND c.cnt_contract_status = 0
|
||
AND a.prs_afdeling_key = c.prs_afdeling_key_eig
|
||
AND b.prs_bedrijf_key = c.cnt_prs_bedrijf_key;
|
||
|
||
/* Formatted on 19-5-2016 10:42:24 (QP5 v5.136.908.31019) */
|
||
CREATE OR REPLACE VIEW svrz_v_rap_ho_contracten
|
||
(
|
||
hide_f_sortering,
|
||
fclt_x_eindjaar,
|
||
cnt_contract_key,
|
||
contractnr,
|
||
locatie,
|
||
beschrijving,
|
||
contractpartij,
|
||
contractbedrag, -- Toegevoegd met SVRZ#37644
|
||
einddatum
|
||
)
|
||
AS
|
||
SELECT x.prs_bedrijf_naam || x.cnt_contract_nummer_intern || '.' || x.cnt_contract_versie,
|
||
TO_CHAR (x.cnt_contract_looptijd_tot, 'yyyy'),
|
||
x.cnt_contract_key,
|
||
x.cnt_contract_nummer_intern || DECODE (x.cnt_contract_versie, NULL, '', 0, '', '.' || x.cnt_contract_versie),
|
||
cp.scope locatie,
|
||
x.cnt_contract_omschrijving,
|
||
x.prs_bedrijf_naam,
|
||
x.cnt_contract_kosten,
|
||
x.cnt_contract_looptijd_tot
|
||
FROM (SELECT c.cnt_contract_key,
|
||
c.cnt_contract_nummer_intern,
|
||
c.cnt_contract_versie,
|
||
c.cnt_contract_omschrijving,
|
||
b.prs_bedrijf_naam,
|
||
c.cnt_contract_kosten,
|
||
c.cnt_contract_looptijd_tot
|
||
FROM cnt_v_aanwezigcontract c, prs_bedrijf b
|
||
WHERE c.ins_discipline_key = 1541 -- Onderhoudscontracten HO
|
||
AND c.cnt_contract_status = 0 -- Actief
|
||
AND c.cnt_contract_looptijd_tot > TRUNC (SYSDATE, 'yyyy')
|
||
AND c.cnt_prs_bedrijf_key = b.prs_bedrijf_key) x
|
||
LEFT JOIN
|
||
( SELECT cp.cnt_contract_key, LISTAGG (cp.locatie, CHR (13) || CHR (10)) WITHIN GROUP (ORDER BY cp.locatie) scope
|
||
FROM (SELECT cp.cnt_contract_key,
|
||
l.alg_locatie_omschrijving || ' (' || l.alg_locatie_code || ')' locatie
|
||
FROM cnt_contract_plaats cp, alg_locatie l
|
||
WHERE cp.cnt_alg_plaats_code = 'L'
|
||
AND cp.cnt_alg_plaats_key = l.alg_locatie_key
|
||
UNION
|
||
SELECT cp.cnt_contract_key,
|
||
l.alg_locatie_omschrijving || ' (' || l.alg_locatie_code || ')' locatie
|
||
FROM cnt_contract_plaats cp, alg_gebouw g, alg_locatie l
|
||
WHERE cp.cnt_alg_plaats_code = 'G'
|
||
AND cp.cnt_alg_plaats_key = g.alg_gebouw_key
|
||
AND g.alg_locatie_key = l.alg_locatie_key) cp
|
||
GROUP BY cp.cnt_contract_key) cp
|
||
ON x.cnt_contract_key = cp.cnt_contract_key;
|
||
/*
|
||
-- SVRZ#38249
|
||
CREATE OR REPLACE VIEW svrz_v_rap_contractoverzicht
|
||
(
|
||
hide_f_sortering,
|
||
fclt_3d_discipline_key,
|
||
cnt_contract_key,
|
||
fclt_f_contractsoort,
|
||
fclt_x_eindjaar,
|
||
contractnr,
|
||
locatie,
|
||
beschrijving,
|
||
contractpartij,
|
||
contractbedrag,
|
||
einddatum
|
||
)
|
||
AS
|
||
SELECT x.ins_discipline_omschrijving || x.prs_bedrijf_naam || x.cnt_contract_nummer_intern || '.' || x.cnt_contract_versie,
|
||
x.ins_discipline_key,
|
||
x.cnt_contract_key,
|
||
x.ins_discipline_omschrijving,
|
||
TO_CHAR (x.cnt_contract_looptijd_tot, 'yyyy'),
|
||
x.cnt_contract_nummer_intern || DECODE (x.cnt_contract_versie, NULL, '', 0, '', '.' || x.cnt_contract_versie),
|
||
cp.scope locatie,
|
||
x.cnt_contract_omschrijving,
|
||
x.prs_bedrijf_naam,
|
||
x.cnt_contract_kosten,
|
||
x.cnt_contract_looptijd_tot
|
||
FROM (SELECT c.ins_discipline_key,
|
||
c.cnt_contract_key,
|
||
td.ins_discipline_omschrijving,
|
||
c.cnt_contract_nummer_intern,
|
||
c.cnt_contract_versie,
|
||
c.cnt_contract_omschrijving,
|
||
b.prs_bedrijf_naam,
|
||
c.cnt_contract_kosten,
|
||
c.cnt_contract_looptijd_tot
|
||
FROM cnt_v_aanwezigcontract c, ins_tab_discipline td, prs_bedrijf b
|
||
WHERE c.cnt_contract_status = 0 -- Actief
|
||
AND c.cnt_contract_looptijd_tot > TRUNC (SYSDATE, 'yyyy')
|
||
AND c.ins_discipline_key = td.ins_discipline_key
|
||
AND c.cnt_prs_bedrijf_key = b.prs_bedrijf_key) x
|
||
LEFT JOIN
|
||
( SELECT cp.cnt_contract_key, LISTAGG (cp.locatie, CHR (13) || CHR (10)) WITHIN GROUP (ORDER BY cp.locatie) scope
|
||
FROM (SELECT cp.cnt_contract_key,
|
||
l.alg_locatie_omschrijving || ' (' || l.alg_locatie_code || ')' locatie
|
||
FROM cnt_contract_plaats cp, alg_locatie l
|
||
WHERE cp.cnt_alg_plaats_code = 'L'
|
||
AND cp.cnt_alg_plaats_key = l.alg_locatie_key
|
||
UNION
|
||
SELECT cp.cnt_contract_key,
|
||
l.alg_locatie_omschrijving || ' (' || l.alg_locatie_code || ')' locatie
|
||
FROM cnt_contract_plaats cp, alg_gebouw g, alg_locatie l
|
||
WHERE cp.cnt_alg_plaats_code = 'G'
|
||
AND cp.cnt_alg_plaats_key = g.alg_gebouw_key
|
||
AND g.alg_locatie_key = l.alg_locatie_key) cp
|
||
GROUP BY cp.cnt_contract_key) cp
|
||
ON x.cnt_contract_key = cp.cnt_contract_key;
|
||
*/
|
||
/* Formatted on 11-3-2016 9:42:24 (QP5 v5.136.908.31019) */
|
||
/* Tbv. demo Bedrijfskleding in Acceptatie; met SVRZ#36013 binnenkort misschien definitief (en anders weg)!!!
|
||
CREATE OR REPLACE VIEW svrz_v_kleding_artikelen
|
||
(
|
||
bes_srtdeel_key,
|
||
bes_srtdeel_oms,
|
||
bes_srtdeel_vvd
|
||
)
|
||
AS
|
||
SELECT sd.bes_srtdeel_key,
|
||
sd.bes_srtdeel_omschrijving,
|
||
sd.bes_srtdeel_verwijder
|
||
FROM bes_srtgroep sg, bes_srtdeel sd
|
||
WHERE sg.ins_discipline_key = 1721 -- Wessels B.V.
|
||
AND sd.bes_srtgroep_key = sg.bes_srtgroep_key;
|
||
*/
|
||
|
||
|
||
-- SVRZ#51694: Notificatie bij update of verwijdering van objecten die vallen
|
||
-- onder de disciplines 'Uitleen personeel' en 'Werkkleding'.
|
||
-- SVRZ#59377: Of onder de objectsoorten 'Mobiel (svrz)' en 'Tablet (TB0)'.
|
||
CREATE OR REPLACE VIEW svrz_v_rap_bezittingen
|
||
(
|
||
ins_deel_key,
|
||
extra_key, -- Moet zo heten!
|
||
gebruiker,
|
||
identificatie,
|
||
objectsoort,
|
||
beschrijving,
|
||
registratiedatum,
|
||
verwijderdatum,
|
||
tonen,
|
||
inleverdatum
|
||
)
|
||
AS
|
||
SELECT d.ins_deel_key,
|
||
d.ins_alg_ruimte_key, -- Gebruiker
|
||
pf.prs_perslid_naam_friendly,
|
||
d.ins_deel_omschrijving,
|
||
sd.ins_srtdeel_omschrijving,
|
||
d.ins_deel_opmerking,
|
||
d.ins_deel_aanmaak,
|
||
d.ins_deel_verwijder,
|
||
DECODE (d.ins_deel_verwijder, NULL, DECODE (SIGN (ADD_MONTHS (d.ins_deel_vervaldatum, 1) - SYSDATE), -1, 0, 1), 0) tonen,
|
||
DECODE (SIGN (d.ins_deel_vervaldatum - SYSDATE), -1, d.ins_deel_vervaldatum, NULL) inleverdatum
|
||
FROM ins_deel d, -- Inclusief recent verwijderde objecten!
|
||
prs_v_perslid_fullnames_all pf,
|
||
ins_srtdeel sd
|
||
WHERE (d.ins_discipline_key IN (781, 2261) -- Uitleen Personeel/Werkkleding
|
||
OR d.ins_srtdeel_key IN (701, 707)) -- Mobiel (svrz)/Tablet (TB0)
|
||
AND d.ins_alg_ruimte_type = 'P'
|
||
AND d.ins_alg_ruimte_key = pf.prs_perslid_key
|
||
AND COALESCE (d.ins_deel_verwijder, SYSDATE) >= TRUNC (SYSDATE - 1)
|
||
AND d.ins_srtdeel_key = sd.ins_srtdeel_key;
|
||
|
||
CREATE OR REPLACE VIEW svrz_v_noti_bezittingen
|
||
(
|
||
code,
|
||
sender,
|
||
receiver,
|
||
text,
|
||
key,
|
||
xkey
|
||
)
|
||
AS
|
||
SELECT DISTINCT
|
||
sn.fac_srtnotificatie_code,
|
||
NULL,
|
||
v.extra_key,
|
||
REPLACE (sn.fac_srtnotificatie_oms, '##AANT##', (SELECT COUNT ( * ) FROM svrz_v_rap_bezittingen WHERE extra_key = v.extra_key)),
|
||
r.fac_usrrap_key,
|
||
v.extra_key
|
||
FROM svrz_v_rap_bezittingen v, fac_tracking t, fac_usrrap r, fac_srtnotificatie sn
|
||
WHERE v.ins_deel_key = t.fac_tracking_refkey
|
||
AND t.fac_srtnotificatie_key IN (93, 94) -- INSNEW/INSUPD
|
||
AND NOT EXISTS -- Niet tijdens een import gedaan!
|
||
(SELECT 1
|
||
FROM fac_import
|
||
WHERE fac_import_app_key = 42 -- INS
|
||
AND prs_perslid_key = t.prs_perslid_key
|
||
AND t.fac_tracking_datum BETWEEN fac_import_datum_gelezen AND fac_import_datum_verwerkt)
|
||
AND t.fac_tracking_datum >
|
||
DECODE (
|
||
TO_CHAR (SYSDATE + 5 / 1440, 'HH24'),
|
||
'09', TO_DATE (TO_CHAR (SYSDATE - 1, 'dd-mm-yyyy') || ' 18:00', 'dd-mm-yyyy hh24:mi'),
|
||
'12', TO_DATE (TO_CHAR (SYSDATE, 'dd-mm-yyyy') || ' 09:00', 'dd-mm-yyyy hh24:mi'),
|
||
'15', TO_DATE (TO_CHAR (SYSDATE, 'dd-mm-yyyy') || ' 12:00', 'dd-mm-yyyy hh24:mi'),
|
||
'18', TO_DATE (TO_CHAR (SYSDATE, 'dd-mm-yyyy') || ' 15:00', 'dd-mm-yyyy hh24:mi'),
|
||
SYSDATE + 5 / 1440)
|
||
AND UPPER (r.fac_usrrap_view_name) = 'SVRZ_V_RAP_BEZITTINGEN'
|
||
AND sn.fac_srtnotificatie_code = 'CUST03'
|
||
AND BITAND (sn.fac_srtnotificatie_mode, 2) = 2
|
||
UNION -- INSDEL wordt niet getrackt, dus op basis van ins_deel_verwijder!
|
||
SELECT DISTINCT
|
||
sn.fac_srtnotificatie_code,
|
||
NULL,
|
||
v.extra_key,
|
||
REPLACE (sn.fac_srtnotificatie_oms, '##AANT##', (SELECT COUNT ( * ) FROM svrz_v_rap_bezittingen WHERE extra_key = v.extra_key)),
|
||
r.fac_usrrap_key,
|
||
v.extra_key
|
||
FROM svrz_v_rap_bezittingen v,
|
||
( SELECT d1.ins_deel_key, COUNT ( * ) aantal
|
||
FROM ins_deel d1, ins_deel d2
|
||
WHERE d1.ins_discipline_key IN (781, 2261)
|
||
AND d1.ins_deel_verwijder > TRUNC (SYSDATE - 1) -- Sinds gisteren verwijderd tegelijk met andere objecten
|
||
AND d1.ins_deel_verwijder BETWEEN d2.ins_deel_verwijder - 1 / 86400 AND d2.ins_deel_verwijder + 1 / 86400
|
||
GROUP BY d1.ins_deel_key) d,
|
||
fac_usrrap r,
|
||
fac_srtnotificatie sn
|
||
WHERE v.ins_deel_key = d.ins_deel_key
|
||
AND d.aantal < 10
|
||
AND v.verwijderdatum >
|
||
DECODE (
|
||
TO_CHAR (SYSDATE + 5 / 1440, 'HH24'),
|
||
'09', TO_DATE (TO_CHAR (SYSDATE - 1, 'dd-mm-yyyy') || ' 18:00', 'dd-mm-yyyy hh24:mi'),
|
||
'12', TO_DATE (TO_CHAR (SYSDATE, 'dd-mm-yyyy') || ' 09:00', 'dd-mm-yyyy hh24:mi'),
|
||
'15', TO_DATE (TO_CHAR (SYSDATE, 'dd-mm-yyyy') || ' 12:00', 'dd-mm-yyyy hh24:mi'),
|
||
'18', TO_DATE (TO_CHAR (SYSDATE, 'dd-mm-yyyy') || ' 15:00', 'dd-mm-yyyy hh24:mi'),
|
||
SYSDATE + 5 / 1440)
|
||
AND UPPER (r.fac_usrrap_view_name) = 'SVRZ_V_RAP_BEZITTINGEN'
|
||
AND sn.fac_srtnotificatie_code = 'CUST03'
|
||
AND BITAND (sn.fac_srtnotificatie_mode, 2) = 2
|
||
UNION -- SVRZ#59828: Precies 2 weken voor uitdienst de in te leveren bezittingen notificeren!
|
||
SELECT DISTINCT
|
||
sn.fac_srtnotificatie_code,
|
||
NULL,
|
||
v.extra_key,
|
||
REPLACE (sn.fac_srtnotificatie_oms, '##AANT##', (SELECT COUNT ( * ) FROM svrz_v_rap_bezittingen WHERE extra_key = v.extra_key)),
|
||
r.fac_usrrap_key,
|
||
v.extra_key
|
||
FROM svrz_v_rap_bezittingen v,
|
||
prs_v_aanwezigperslid p,
|
||
fac_usrrap r,
|
||
fac_srtnotificatie sn
|
||
WHERE v.extra_key = p.prs_perslid_key
|
||
AND TRUNC (p.prs_perslid_einddatum) = TRUNC (SYSDATE + 14)
|
||
AND TO_CHAR (SYSDATE + 5 / 1440, 'HH24') = '07'
|
||
AND UPPER (r.fac_usrrap_view_name) = 'SVRZ_V_RAP_BEZITTINGEN'
|
||
AND sn.fac_srtnotificatie_code = 'CUST04'
|
||
AND BITAND (sn.fac_srtnotificatie_mode, 2) = 2;
|
||
|
||
CREATE OR REPLACE VIEW svrz_v_perslid_nr_all
|
||
(
|
||
prs_perslid_key,
|
||
prs_perslid_naam_full,
|
||
prs_perslid_naam_friendly,
|
||
prs_perslid_verwijder
|
||
)
|
||
AS
|
||
SELECT pf.prs_perslid_key,
|
||
pf.prs_perslid_naam_full || ' [' || p.prs_perslid_nr || ']',
|
||
pf.prs_perslid_naam_friendly || ' [' || p.prs_perslid_nr || ']',
|
||
p.prs_perslid_verwijder
|
||
FROM prs_perslid p, prs_v_perslid_fullnames_all pf
|
||
WHERE SUBSTR (p.prs_perslid_oslogin, 1, 1) != '_'
|
||
AND p.prs_perslid_key = pf.prs_perslid_key;
|
||
|
||
CREATE OR REPLACE VIEW svrz_v_relaties_u_ict
|
||
(
|
||
prs_bedrijf_key,
|
||
prs_bedrijf_naam,
|
||
prs_bedrijf_verwijder
|
||
)
|
||
AS
|
||
SELECT b.prs_bedrijf_key, b.prs_bedrijf_naam, b.prs_bedrijf_verwijder
|
||
FROM prs_bedrijf b
|
||
WHERE b.prs_bedrijf_uitvoerende = 1;
|
||
|
||
-- SVRZ#55239: Mail2Melding bij migratie Topdesk naar FACILITOR. Twee stromen:
|
||
-- - HELPDESK -: Soortmelding 1691 (Hardware/Computer) onder Vakgroep 3038
|
||
-- (Helpdesk I+A) onder Vakgroeptype 161!
|
||
-- - CLIENTPORTAAL -: Soortmelding 1697 (Clientportaal) onder Vakgroep 3042
|
||
-- (Servicedesk MijnCaress) onder Vakgroeptype 161!
|
||
-- SVRZ#71487: Nieuwe stroom: OWSTAB
|
||
-- SVRZ#72786: Nieuwe stroom: AFAS-BEHEER
|
||
-- SVRZ#75271: Nieuwe stroom: TELECOM-SVRZ
|
||
-- SVRZ#82889: Nieuwe stroom: PRIVACY-SVRZ
|
||
CREATE OR REPLACE PROCEDURE SVRZ_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) := 36281; -- Onbekende gebruiker
|
||
v_errormsg VARCHAR2 (1000);
|
||
oracle_err_num NUMBER;
|
||
oracle_err_mes VARCHAR2 (200);
|
||
v_exist_ticket 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_behandelteam_key NUMBER (10);
|
||
v_melding_key NUMBER (10);
|
||
v_folder_kkey NUMBER (10);
|
||
v_count NUMBER (10);
|
||
BEGIN
|
||
CASE
|
||
WHEN UPPER (pto) LIKE 'HELPDESK@%'
|
||
THEN
|
||
-- Bepaal de melder/noteur op basis van e-mail adres zoals in pfrom?
|
||
v_errormsg := 'Fout bepalen melder ' || COALESCE (pfrom, '???');
|
||
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 61=Servicecentrum!
|
||
SELECT p.prs_perslid_key, a.prs_kostenplaats_key, 61
|
||
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;
|
||
|
||
v_errormsg := 'Fout bepalen bestaande melding';
|
||
v_exist_ticket := psubject;
|
||
IF REGEXP_INSTR (v_exist_ticket, '\d') > 0
|
||
THEN
|
||
v_exist_ticket := SUBSTR (v_exist_ticket, REGEXP_INSTR (v_exist_ticket, '\d')) || 'x'; -- Gedeelte vanaf eerste cijfer in v_exist_ticket plus 'x'!
|
||
v_exist_ticket := SUBSTR (v_exist_ticket, 1, REGEXP_INSTR (v_exist_ticket, '\D') - 1); -- Gedeelte tot eerste niet-cijfer in v_exist_ticket!
|
||
ELSE
|
||
v_exist_ticket := 'x';
|
||
END IF;
|
||
|
||
SELECT COUNT (*)
|
||
INTO v_count
|
||
FROM mld_melding
|
||
WHERE mld_melding_key = fac.safe_to_number (v_exist_ticket);
|
||
|
||
-- Om te voorkomen dat huisnummers in het Onderwerp resulteren in het
|
||
-- toevoegen van Notities, dit alleen doen voor nummers > 16000!
|
||
IF v_count = 1 AND fac.safe_to_number (v_exist_ticket) > 16000
|
||
THEN -- Notitie bij bestaande melding!
|
||
SELECT mld_stdmelding_key, mld_melding_key
|
||
INTO v_stdmelding_key, v_melding_key
|
||
FROM mld_melding
|
||
WHERE mld_melding_key = fac.safe_to_number (v_exist_ticket);
|
||
|
||
v_errormsg := 'Fout toevoegen notitie';
|
||
INSERT INTO mld_melding_note (mld_melding_key,
|
||
prs_perslid_key,
|
||
mld_melding_note_omschrijving,
|
||
mld_melding_note_flag)
|
||
VALUES (v_melding_key,
|
||
v_perslid_key,
|
||
pfrom || CHR (13) || CHR (10) || psubject || CHR (13) || CHR (10) || SUBSTR (pbody, 1, 2000),
|
||
0);
|
||
|
||
INSERT INTO fac_result (fac_result_sessionid, fac_result_naam, fac_result_waarde)
|
||
VALUES (psessionid, 'maillog', 'Notitie onder exist-melding ' || v_melding_key);
|
||
|
||
-- Vlaggetjes zetten zoals mld_edit_note.asp dat doet!
|
||
UPDATE mld_melding
|
||
SET mld_melding_actiecode = 1 + 128 -- BO + Attentie
|
||
WHERE mld_melding_key = v_melding_key;
|
||
ELSE -- Nieuwe melding!
|
||
-- Bepaal de afgesproken soortmelding met key=1691=Harware/Computer!
|
||
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 = 1691;
|
||
|
||
-- 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
|
||
v_locatie_key,
|
||
NULL, --v_onrgoed_keys,
|
||
SYSDATE,
|
||
pfrom || CHR (13) || CHR (10) || SUBSTR (pbody, 1, 2000),
|
||
v_stdmelding_key,
|
||
NULL,
|
||
v_kostenplaats_key,
|
||
v_perslid_key,
|
||
v_perslid_key,
|
||
NULL,
|
||
3, -- prio normaal
|
||
SUBSTR (psubject, 1, 80),
|
||
NULL,
|
||
3141) -- BT Helpdesk I+A
|
||
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);
|
||
END IF;
|
||
|
||
-- Find the lowest volgnummer of the Folder-flexfield.
|
||
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;
|
||
|
||
-- Handle workflow actions for completion (in case of new melding).
|
||
IF v_count = 0
|
||
THEN
|
||
MLD.mld_nextworkflowstep (v_melding_key, -1); -- -1=Initial
|
||
END IF;
|
||
WHEN UPPER (pto) LIKE 'CLIENTPORTAAL@%'
|
||
THEN
|
||
-- Melder/noteur per definitie Onbekend en 61=Servicecentrum!
|
||
v_errormsg := 'Fout bepalen melder ' || COALESCE (pfrom, '???');
|
||
SELECT p.prs_perslid_key, a.prs_kostenplaats_key, 61
|
||
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;
|
||
|
||
v_errormsg := 'Fout bepalen bestaande melding';
|
||
v_exist_ticket := psubject;
|
||
IF REGEXP_INSTR (v_exist_ticket, '\d') > 0
|
||
THEN
|
||
v_exist_ticket := SUBSTR (v_exist_ticket, REGEXP_INSTR (v_exist_ticket, '\d')) || 'x'; -- Gedeelte vanaf eerste cijfer in v_exist_ticket plus 'x'!
|
||
v_exist_ticket := SUBSTR (v_exist_ticket, 1, REGEXP_INSTR (v_exist_ticket, '\D') - 1); -- Gedeelte tot eerste niet-cijfer in v_exist_ticket!
|
||
ELSE
|
||
v_exist_ticket := 'x';
|
||
END IF;
|
||
|
||
SELECT COUNT (*)
|
||
INTO v_count
|
||
FROM mld_melding
|
||
WHERE mld_melding_key = fac.safe_to_number (v_exist_ticket);
|
||
|
||
-- Om te voorkomen dat huisnummers in het Onderwerp resulteren in het
|
||
-- toevoegen van Notities, dit alleen doen voor nummers > 16000!
|
||
IF v_count = 1 AND fac.safe_to_number (v_exist_ticket) > 16000
|
||
THEN -- Notitie bij bestaande melding!
|
||
SELECT mld_stdmelding_key, mld_melding_key
|
||
INTO v_stdmelding_key, v_melding_key
|
||
FROM mld_melding
|
||
WHERE mld_melding_key = fac.safe_to_number (v_exist_ticket);
|
||
|
||
v_errormsg := 'Fout toevoegen notitie';
|
||
INSERT INTO mld_melding_note (mld_melding_key,
|
||
prs_perslid_key,
|
||
mld_melding_note_omschrijving,
|
||
mld_melding_note_flag)
|
||
VALUES (v_melding_key,
|
||
v_perslid_key,
|
||
pfrom || CHR (13) || CHR (10) || psubject || CHR (13) || CHR (10) || SUBSTR (pbody, 1, 2000),
|
||
0);
|
||
|
||
INSERT INTO fac_result (fac_result_sessionid, fac_result_naam, fac_result_waarde)
|
||
VALUES (psessionid, 'maillog', 'Notitie onder exist-melding ' || v_melding_key);
|
||
|
||
-- Vlaggetjes zetten zoals mld_edit_note.asp dat doet!
|
||
UPDATE mld_melding
|
||
SET mld_melding_actiecode = 1 + 128 -- BO + Attentie
|
||
WHERE mld_melding_key = v_melding_key;
|
||
ELSE -- Nieuwe melding!
|
||
-- Bepaal de afgesproken soortmelding met key=1697=Clientportaal!
|
||
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 = 1697;
|
||
|
||
-- 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
|
||
v_locatie_key,
|
||
NULL, --v_onrgoed_keys,
|
||
SYSDATE,
|
||
pfrom || CHR (13) || CHR (10) || SUBSTR (pbody, 1, 2000),
|
||
v_stdmelding_key,
|
||
NULL,
|
||
v_kostenplaats_key,
|
||
v_perslid_key,
|
||
v_perslid_key,
|
||
NULL,
|
||
3, -- prio normaal
|
||
SUBSTR (psubject, 1, 80),
|
||
NULL,
|
||
3061) -- BT Medewerkers Cli<6C>ntportaal
|
||
RETURNING mld_melding_key
|
||
INTO v_melding_key;
|
||
|
||
v_errormsg := 'Fout toevoegen Emailadres';
|
||
INSERT INTO mld_kenmerkmelding (mld_melding_key,
|
||
mld_kenmerk_key,
|
||
mld_kenmerkmelding_waarde)
|
||
VALUES (v_melding_key,
|
||
1101, -- Emailadres
|
||
SUBSTR (pfrom, 1, 50));
|
||
|
||
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);
|
||
END IF;
|
||
|
||
-- Find the lowest volgnummer of the Folder-flexfield.
|
||
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;
|
||
|
||
-- Handle workflow actions for completion (in case of new melding).
|
||
IF v_count = 0
|
||
THEN
|
||
MLD.mld_nextworkflowstep (v_melding_key, -1); -- -1=Initial
|
||
END IF;
|
||
WHEN UPPER (pto) LIKE 'OWSTAB@%'
|
||
THEN
|
||
-- Bepaal de melder/noteur op basis van e-mail adres zoals in pfrom?
|
||
v_errormsg := 'Fout bepalen melder ' || COALESCE (pfrom, '???');
|
||
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 61=Servicecentrum!
|
||
SELECT p.prs_perslid_key, a.prs_kostenplaats_key, 61
|
||
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;
|
||
|
||
v_errormsg := 'Fout bepalen bestaande melding';
|
||
v_exist_ticket := psubject;
|
||
IF REGEXP_INSTR (v_exist_ticket, '\d') > 0
|
||
THEN
|
||
v_exist_ticket := SUBSTR (v_exist_ticket, REGEXP_INSTR (v_exist_ticket, '\d')) || 'x'; -- Gedeelte vanaf eerste cijfer in v_exist_ticket plus 'x'!
|
||
v_exist_ticket := SUBSTR (v_exist_ticket, 1, REGEXP_INSTR (v_exist_ticket, '\D') - 1); -- Gedeelte tot eerste niet-cijfer in v_exist_ticket!
|
||
ELSE
|
||
v_exist_ticket := 'x';
|
||
END IF;
|
||
|
||
SELECT COUNT (*)
|
||
INTO v_count
|
||
FROM mld_melding
|
||
WHERE mld_melding_key = fac.safe_to_number (v_exist_ticket);
|
||
|
||
-- Om te voorkomen dat huisnummers in het Onderwerp resulteren in het
|
||
-- toevoegen van Notities, dit alleen doen voor nummers > 16000!
|
||
IF v_count = 1 AND fac.safe_to_number (v_exist_ticket) > 16000
|
||
THEN -- Notitie bij bestaande melding!
|
||
SELECT mld_stdmelding_key, mld_melding_key
|
||
INTO v_stdmelding_key, v_melding_key
|
||
FROM mld_melding
|
||
WHERE mld_melding_key = fac.safe_to_number (v_exist_ticket);
|
||
|
||
v_errormsg := 'Fout toevoegen notitie';
|
||
INSERT INTO mld_melding_note (mld_melding_key,
|
||
prs_perslid_key,
|
||
mld_melding_note_omschrijving,
|
||
mld_melding_note_flag)
|
||
VALUES (v_melding_key,
|
||
v_perslid_key,
|
||
pfrom || CHR (13) || CHR (10) || psubject || CHR (13) || CHR (10) || SUBSTR (pbody, 1, 2000),
|
||
0);
|
||
|
||
INSERT INTO fac_result (fac_result_sessionid, fac_result_naam, fac_result_waarde)
|
||
VALUES (psessionid, 'maillog', 'Notitie onder exist-melding ' || v_melding_key);
|
||
|
||
-- Vlaggetjes zetten zoals mld_edit_note.asp dat doet!
|
||
UPDATE mld_melding
|
||
SET mld_melding_actiecode = 1 + 128 -- BO + Attentie
|
||
WHERE mld_melding_key = v_melding_key;
|
||
ELSE -- Nieuwe melding!
|
||
-- Bepaal de afgesproken soortmelding met key=2661=OWS / ESS (roosterprogramma)!
|
||
v_errormsg := 'Fout bepalen soortmelding';
|
||
SELECT mld_ins_discipline_key, mld_stdmelding_key, mld_stdmelding_default_disc
|
||
INTO v_discipline_key, v_stdmelding_key, v_behandelteam_key
|
||
FROM mld_stdmelding
|
||
WHERE mld_stdmelding_key = 2661;
|
||
|
||
-- 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
|
||
v_locatie_key,
|
||
NULL, --v_onrgoed_keys,
|
||
SYSDATE,
|
||
pfrom || CHR (13) || CHR (10) || SUBSTR (pbody, 1, 2000),
|
||
v_stdmelding_key,
|
||
NULL,
|
||
v_kostenplaats_key,
|
||
v_perslid_key,
|
||
v_perslid_key,
|
||
NULL,
|
||
3, -- prio normaal
|
||
SUBSTR (psubject, 1, 80),
|
||
NULL,
|
||
v_behandelteam_key) -- BT Logistiek & Planning
|
||
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);
|
||
END IF;
|
||
|
||
-- Find the lowest volgnummer of the Folder-flexfield.
|
||
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;
|
||
|
||
-- Handle workflow actions for completion (in case of new melding).
|
||
IF v_count = 0
|
||
THEN
|
||
MLD.mld_nextworkflowstep (v_melding_key, -1); -- -1=Initial
|
||
END IF;
|
||
WHEN UPPER (pto) LIKE 'AFAS-BEHEER@%'
|
||
THEN
|
||
-- Bepaal de melder/noteur op basis van e-mail adres zoals in pfrom?
|
||
v_errormsg := 'Fout bepalen melder ' || COALESCE (pfrom, '???');
|
||
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 61=Servicecentrum!
|
||
SELECT p.prs_perslid_key, a.prs_kostenplaats_key, 61
|
||
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;
|
||
|
||
v_errormsg := 'Fout bepalen bestaande melding';
|
||
v_exist_ticket := psubject;
|
||
IF REGEXP_INSTR (v_exist_ticket, '\d') > 0
|
||
THEN
|
||
v_exist_ticket := SUBSTR (v_exist_ticket, REGEXP_INSTR (v_exist_ticket, '\d')) || 'x'; -- Gedeelte vanaf eerste cijfer in v_exist_ticket plus 'x'!
|
||
v_exist_ticket := SUBSTR (v_exist_ticket, 1, REGEXP_INSTR (v_exist_ticket, '\D') - 1); -- Gedeelte tot eerste niet-cijfer in v_exist_ticket!
|
||
ELSE
|
||
v_exist_ticket := 'x';
|
||
END IF;
|
||
|
||
SELECT COUNT (*)
|
||
INTO v_count
|
||
FROM mld_melding
|
||
WHERE mld_melding_key = fac.safe_to_number (v_exist_ticket);
|
||
|
||
-- Om te voorkomen dat huisnummers in het Onderwerp resulteren in het
|
||
-- toevoegen van Notities, dit alleen doen voor nummers > 16000!
|
||
IF v_count = 1 AND fac.safe_to_number (v_exist_ticket) > 16000
|
||
THEN -- Notitie bij bestaande melding!
|
||
SELECT mld_stdmelding_key, mld_melding_key
|
||
INTO v_stdmelding_key, v_melding_key
|
||
FROM mld_melding
|
||
WHERE mld_melding_key = fac.safe_to_number (v_exist_ticket);
|
||
|
||
v_errormsg := 'Fout toevoegen notitie';
|
||
INSERT INTO mld_melding_note (mld_melding_key,
|
||
prs_perslid_key,
|
||
mld_melding_note_omschrijving,
|
||
mld_melding_note_flag)
|
||
VALUES (v_melding_key,
|
||
v_perslid_key,
|
||
pfrom || CHR (13) || CHR (10) || psubject || CHR (13) || CHR (10) || SUBSTR (pbody, 1, 2000),
|
||
0);
|
||
|
||
INSERT INTO fac_result (fac_result_sessionid, fac_result_naam, fac_result_waarde)
|
||
VALUES (psessionid, 'maillog', 'Notitie onder exist-melding ' || v_melding_key);
|
||
|
||
-- Vlaggetjes zetten zoals mld_edit_note.asp dat doet!
|
||
UPDATE mld_melding
|
||
SET mld_melding_actiecode = 1 + 128 -- BO + Attentie
|
||
WHERE mld_melding_key = v_melding_key;
|
||
ELSE -- Nieuwe melding!
|
||
-- Bepaal de afgesproken soortmelding met key=3121=Afas beheer!
|
||
v_errormsg := 'Fout bepalen soortmelding';
|
||
SELECT mld_ins_discipline_key, mld_stdmelding_key, mld_stdmelding_default_disc
|
||
INTO v_discipline_key, v_stdmelding_key, v_behandelteam_key
|
||
FROM mld_stdmelding
|
||
WHERE mld_stdmelding_key = 3121;
|
||
|
||
-- 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
|
||
v_locatie_key,
|
||
NULL, --v_onrgoed_keys,
|
||
SYSDATE,
|
||
pfrom || CHR (13) || CHR (10) || SUBSTR (pbody, 1, 2000),
|
||
v_stdmelding_key,
|
||
NULL,
|
||
v_kostenplaats_key,
|
||
v_perslid_key,
|
||
v_perslid_key,
|
||
NULL,
|
||
3, -- prio normaal
|
||
SUBSTR (psubject, 1, 80),
|
||
NULL,
|
||
v_behandelteam_key) -- BT Afas beheer
|
||
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);
|
||
END IF;
|
||
|
||
-- Find the lowest volgnummer of the Folder-flexfield.
|
||
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;
|
||
|
||
-- Handle workflow actions for completion (in case of new melding).
|
||
IF v_count = 0
|
||
THEN
|
||
MLD.mld_nextworkflowstep (v_melding_key, -1); -- -1=Initial
|
||
END IF;
|
||
WHEN UPPER (pto) LIKE 'TELECOM-SVRZ@%'
|
||
THEN
|
||
-- Bepaal de melder/noteur op basis van e-mail adres zoals in pfrom?
|
||
v_errormsg := 'Fout bepalen melder ' || COALESCE (pfrom, '???');
|
||
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 61=Servicecentrum!
|
||
SELECT p.prs_perslid_key, a.prs_kostenplaats_key, 61
|
||
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;
|
||
|
||
v_errormsg := 'Fout bepalen bestaande melding';
|
||
v_exist_ticket := psubject;
|
||
IF REGEXP_INSTR (v_exist_ticket, '\d') > 0
|
||
THEN
|
||
v_exist_ticket := SUBSTR (v_exist_ticket, REGEXP_INSTR (v_exist_ticket, '\d')) || 'x'; -- Gedeelte vanaf eerste cijfer in v_exist_ticket plus 'x'!
|
||
v_exist_ticket := SUBSTR (v_exist_ticket, 1, REGEXP_INSTR (v_exist_ticket, '\D') - 1); -- Gedeelte tot eerste niet-cijfer in v_exist_ticket!
|
||
ELSE
|
||
v_exist_ticket := 'x';
|
||
END IF;
|
||
|
||
SELECT COUNT (*)
|
||
INTO v_count
|
||
FROM mld_melding
|
||
WHERE mld_melding_key = fac.safe_to_number (v_exist_ticket);
|
||
|
||
-- Om te voorkomen dat huisnummers in het Onderwerp resulteren in het
|
||
-- toevoegen van Notities, dit alleen doen voor nummers > 16000!
|
||
IF v_count = 1 AND fac.safe_to_number (v_exist_ticket) > 16000
|
||
THEN -- Notitie bij bestaande melding!
|
||
SELECT mld_stdmelding_key, mld_melding_key
|
||
INTO v_stdmelding_key, v_melding_key
|
||
FROM mld_melding
|
||
WHERE mld_melding_key = fac.safe_to_number (v_exist_ticket);
|
||
|
||
v_errormsg := 'Fout toevoegen notitie';
|
||
INSERT INTO mld_melding_note (mld_melding_key,
|
||
prs_perslid_key,
|
||
mld_melding_note_omschrijving,
|
||
mld_melding_note_flag)
|
||
VALUES (v_melding_key,
|
||
v_perslid_key,
|
||
pfrom || CHR (13) || CHR (10) || psubject || CHR (13) || CHR (10) || SUBSTR (pbody, 1, 2000),
|
||
0);
|
||
|
||
INSERT INTO fac_result (fac_result_sessionid, fac_result_naam, fac_result_waarde)
|
||
VALUES (psessionid, 'maillog', 'Notitie onder exist-melding ' || v_melding_key);
|
||
|
||
-- Vlaggetjes zetten zoals mld_edit_note.asp dat doet!
|
||
UPDATE mld_melding
|
||
SET mld_melding_actiecode = 1 + 128 -- BO + Attentie
|
||
WHERE mld_melding_key = v_melding_key;
|
||
ELSE -- Nieuwe melding!
|
||
-- Bepaal de afgesproken soortmelding met key=1741=Zorgalarmering (deur-, bewegingssensoren, etc.)!
|
||
v_errormsg := 'Fout bepalen soortmelding';
|
||
SELECT mld_ins_discipline_key, mld_stdmelding_key, mld_stdmelding_default_disc
|
||
INTO v_discipline_key, v_stdmelding_key, v_behandelteam_key
|
||
FROM mld_stdmelding
|
||
WHERE mld_stdmelding_key = 1741;
|
||
|
||
-- 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
|
||
v_locatie_key,
|
||
NULL, --v_onrgoed_keys,
|
||
SYSDATE,
|
||
pfrom || CHR (13) || CHR (10) || SUBSTR (pbody, 1, 2000),
|
||
v_stdmelding_key,
|
||
NULL,
|
||
v_kostenplaats_key,
|
||
v_perslid_key,
|
||
v_perslid_key,
|
||
NULL,
|
||
3, -- prio normaal
|
||
SUBSTR (psubject, 1, 80),
|
||
NULL,
|
||
v_behandelteam_key) -- BT Telecom & Zorgalarmering
|
||
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);
|
||
END IF;
|
||
|
||
-- Find the lowest volgnummer of the Folder-flexfield.
|
||
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;
|
||
|
||
-- Handle workflow actions for completion (in case of new melding).
|
||
IF v_count = 0
|
||
THEN
|
||
MLD.mld_nextworkflowstep (v_melding_key, -1); -- -1=Initial
|
||
END IF;
|
||
WHEN UPPER (pto) LIKE 'PRIVACY-SVRZ@%'
|
||
THEN
|
||
-- Bepaal de melder/noteur op basis van e-mail adres zoals in pfrom?
|
||
v_errormsg := 'Fout bepalen melder ' || COALESCE (pfrom, '???');
|
||
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 61=Servicecentrum!
|
||
SELECT p.prs_perslid_key, a.prs_kostenplaats_key, 61
|
||
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;
|
||
|
||
v_errormsg := 'Fout bepalen bestaande melding';
|
||
v_exist_ticket := psubject;
|
||
IF REGEXP_INSTR (v_exist_ticket, '\d') > 0
|
||
THEN
|
||
v_exist_ticket := SUBSTR (v_exist_ticket, REGEXP_INSTR (v_exist_ticket, '\d')) || 'x'; -- Gedeelte vanaf eerste cijfer in v_exist_ticket plus 'x'!
|
||
v_exist_ticket := SUBSTR (v_exist_ticket, 1, REGEXP_INSTR (v_exist_ticket, '\D') - 1); -- Gedeelte tot eerste niet-cijfer in v_exist_ticket!
|
||
ELSE
|
||
v_exist_ticket := 'x';
|
||
END IF;
|
||
|
||
SELECT COUNT (*)
|
||
INTO v_count
|
||
FROM mld_melding
|
||
WHERE mld_melding_key = fac.safe_to_number (v_exist_ticket);
|
||
|
||
-- Om te voorkomen dat huisnummers in het Onderwerp resulteren in het
|
||
-- toevoegen van Notities, dit alleen doen voor nummers > 16000!
|
||
IF v_count = 1 AND fac.safe_to_number (v_exist_ticket) > 16000
|
||
THEN -- Notitie bij bestaande melding!
|
||
SELECT mld_stdmelding_key, mld_melding_key
|
||
INTO v_stdmelding_key, v_melding_key
|
||
FROM mld_melding
|
||
WHERE mld_melding_key = fac.safe_to_number (v_exist_ticket);
|
||
|
||
v_errormsg := 'Fout toevoegen notitie';
|
||
INSERT INTO mld_melding_note (mld_melding_key,
|
||
prs_perslid_key,
|
||
mld_melding_note_omschrijving,
|
||
mld_melding_note_flag)
|
||
VALUES (v_melding_key,
|
||
v_perslid_key,
|
||
pfrom || CHR (13) || CHR (10) || psubject || CHR (13) || CHR (10) || SUBSTR (pbody, 1, 2000),
|
||
0);
|
||
|
||
INSERT INTO fac_result (fac_result_sessionid, fac_result_naam, fac_result_waarde)
|
||
VALUES (psessionid, 'maillog', 'Notitie onder exist-melding ' || v_melding_key);
|
||
|
||
-- Vlaggetjes zetten zoals mld_edit_note.asp dat doet!
|
||
UPDATE mld_melding
|
||
SET mld_melding_actiecode = 1 + 128 -- BO + Attentie
|
||
WHERE mld_melding_key = v_melding_key;
|
||
ELSE -- Nieuwe melding!
|
||
-- Bepaal de afgesproken soortmelding met key=3201=Privacy + Security!
|
||
v_errormsg := 'Fout bepalen soortmelding';
|
||
SELECT mld_ins_discipline_key, mld_stdmelding_key, mld_stdmelding_default_disc
|
||
INTO v_discipline_key, v_stdmelding_key, v_behandelteam_key
|
||
FROM mld_stdmelding
|
||
WHERE mld_stdmelding_key = 3201;
|
||
|
||
-- 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
|
||
v_locatie_key,
|
||
NULL, --v_onrgoed_keys,
|
||
SYSDATE,
|
||
pfrom || CHR (13) || CHR (10) || SUBSTR (pbody, 1, 2000),
|
||
v_stdmelding_key,
|
||
NULL,
|
||
v_kostenplaats_key,
|
||
v_perslid_key,
|
||
v_perslid_key,
|
||
NULL,
|
||
3, -- prio normaal
|
||
SUBSTR (psubject, 1, 80),
|
||
NULL,
|
||
v_behandelteam_key) -- BT Telecom & Zorgalarmering
|
||
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);
|
||
END IF;
|
||
|
||
-- Find the lowest volgnummer of the Folder-flexfield.
|
||
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;
|
||
|
||
-- Handle workflow actions for completion (in case of new melding).
|
||
IF v_count = 0
|
||
THEN
|
||
MLD.mld_nextworkflowstep (v_melding_key, -1); -- -1=Initial
|
||
END IF;
|
||
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', 'Proces 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;
|
||
/
|
||
|
||
-- Notificatie naar externe clientportaal-melders (per e-mail binnengelopen via
|
||
-- SVRZ_processemail()).
|
||
CREATE OR REPLACE VIEW svrz_v_noti_clientportaal
|
||
(
|
||
sender,
|
||
receiver,
|
||
text,
|
||
code,
|
||
key,
|
||
xkey,
|
||
xsender,
|
||
xemail,
|
||
xmobile,
|
||
attachments
|
||
)
|
||
AS
|
||
SELECT NULL,
|
||
NULL,
|
||
REPLACE (
|
||
REPLACE (
|
||
REPLACE (
|
||
lcl.x ('fac_srtnotificatie_oms', sn.fac_srtnotificatie_key, sn.fac_srtnotificatie_oms),
|
||
'##KEY##', TO_CHAR (x.mld_melding_key)),
|
||
'##STDMLD##', TO_CHAR (x.mld_stdmelding_omschrijving)),
|
||
'##DISC##', TO_CHAR (x.ins_discipline_omschrijving)),
|
||
sn.fac_srtnotificatie_code, -- TODO:Of CUSTxx?
|
||
x.mld_melding_key,
|
||
NULL,
|
||
'clientportaal@svrz.nl',
|
||
x.receiver,
|
||
NULL,
|
||
DECODE (
|
||
sn.fac_srtnotificatie_key,
|
||
341, 'MLD/M' || SUBSTR (LPAD (TO_CHAR (x.mld_melding_key), 7, '0'), 1, 4) || '___/M' || TO_CHAR (x.mld_melding_key) || '/' || TO_CHAR (y.mld_kenmerk_key) || '/*', -- Bijlage(n) bij MLDNOT!
|
||
NULL)
|
||
FROM (SELECT m.mld_melding_key,
|
||
sm.mld_stdmelding_key,
|
||
md.ins_discipline_key,
|
||
md.ins_srtdiscipline_key,
|
||
sm.mld_stdmelding_omschrijving,
|
||
md.ins_discipline_omschrijving,
|
||
km.mld_kenmerkmelding_waarde receiver,
|
||
t.fac_srtnotificatie_key
|
||
FROM mld_melding m,
|
||
mld_stdmelding sm,
|
||
mld_discipline md,
|
||
mld_kenmerkmelding km,
|
||
(SELECT t1.fac_tracking_refkey,
|
||
t1.fac_tracking_datum,
|
||
t1.fac_srtnotificatie_key
|
||
FROM fac_tracking t1
|
||
WHERE t1.fac_srtnotificatie_key = 22 -- MLDAFM
|
||
AND NOT EXISTS
|
||
(SELECT 1
|
||
FROM fac_tracking t2
|
||
WHERE t2.fac_srtnotificatie_key = 22
|
||
AND t2.fac_tracking_refkey = t1.fac_tracking_refkey
|
||
AND t2.fac_tracking_key > t1.fac_tracking_key)
|
||
UNION ALL
|
||
SELECT mn1.mld_melding_key fac_tracking_refkey,
|
||
mn1.mld_melding_note_aanmaak fac_tracking_datum,
|
||
341 fac_srtnotificatie_key -- MLDNOT
|
||
FROM mld_melding_note mn1
|
||
WHERE MOD (mn1.mld_melding_note_flag, 2) = 1
|
||
AND NOT EXISTS
|
||
(SELECT 1
|
||
FROM mld_melding_note mn2
|
||
WHERE MOD (mn2.mld_melding_note_flag, 2) = 1
|
||
AND mn2.mld_melding_key = mn1.mld_melding_key
|
||
AND mn2.mld_melding_note_key > mn1.mld_melding_note_key)) t, -- Zichtbaar voor melder
|
||
fac_notificatie_job nj
|
||
WHERE m.mld_stdmelding_key = sm.mld_stdmelding_key
|
||
AND sm.mld_ins_discipline_key = md.ins_discipline_key
|
||
AND m.mld_melding_key = km.mld_melding_key
|
||
AND km.mld_kenmerkmelding_verwijder IS NULL
|
||
AND km.mld_kenmerk_key = 1101 -- Emailadres
|
||
AND m.mld_melding_key = t.fac_tracking_refkey
|
||
AND nj.fac_notificatie_job_view = 'SVRZ_V_NOTI_CLIENTPORTAAL'
|
||
AND t.fac_tracking_datum BETWEEN nj.fac_notificatie_job_nextrun - (nj.fac_notificatie_job_interval / 24) AND nj.fac_notificatie_job_nextrun) x
|
||
LEFT JOIN (SELECT mld_stdmelding_key, mld_kenmerk_niveau, mld_kenmerk_key
|
||
FROM mld_kenmerk
|
||
WHERE mld_kenmerk_verwijder IS NULL
|
||
AND mld_srtkenmerk_key = 521) y -- Naar cli<6C>nt te notificeren bijlagen (bij MLDNOT)
|
||
ON ((x.mld_stdmelding_key = y.mld_stdmelding_key AND y.mld_kenmerk_niveau = 'S')
|
||
OR (x.ins_discipline_key = y.mld_stdmelding_key AND y.mld_kenmerk_niveau = 'D')
|
||
OR (x.ins_srtdiscipline_key = y.mld_stdmelding_key AND y.mld_kenmerk_niveau = 'T'))
|
||
LEFT JOIN fac_srtnotificatie sn
|
||
ON x.fac_srtnotificatie_key = sn.fac_srtnotificatie_key;
|
||
|
||
-- SVRZ#62692: CMDB-objecten per plaats!
|
||
CREATE OR REPLACE VIEW svrz_v_rap_cmdb_plaats
|
||
(
|
||
ins_deel_key,
|
||
discipline,
|
||
groep,
|
||
objectsoort,
|
||
objectsoortcode,
|
||
objectid,
|
||
objectbeschr,
|
||
districtomschr,
|
||
locatiecode,
|
||
locatieomschr,
|
||
merk,
|
||
component
|
||
)
|
||
AS
|
||
SELECT x.ins_deel_key,
|
||
x.ins_discipline_omschrijving,
|
||
x.ins_srtgroep_omschrijving,
|
||
x.ins_srtdeel_omschrijving,
|
||
x.ins_srtdeel_code,
|
||
x.ins_deel_omschrijving,
|
||
x.ins_deel_opmerking,
|
||
x.district,
|
||
x.locatiecode,
|
||
x.locatieomschr,
|
||
COALESCE ((SELECT fac_usrdata_omschr FROM fac_usrdata WHERE fac_usrdata_key = fac.safe_to_number (kd2.ins_kenmerkdeel_waarde)),
|
||
(SELECT fac_usrdata_omschr FROM fac_usrdata WHERE fac_usrdata_key = fac.safe_to_number (kd3.ins_kenmerkdeel_waarde)))
|
||
merk,
|
||
DECODE (x.ins_discipline_key,
|
||
3082, DECODE (x.ins_srtdeel_code,
|
||
'PRT', 'Printer',
|
||
'PC', 'Werkstation - Desktop',
|
||
'LT', 'Werkstation - Laptop',
|
||
'TC', 'Werkstation - Terminal',
|
||
'Anders (Hardware)'),
|
||
DECODE (x.ins_srtdeel_code,
|
||
'TB',
|
||
DECODE (kd3.ins_kenmerkdeel_waarde,
|
||
'1142', 'iPad',
|
||
'1144', 'Dell Latitude',
|
||
'1148', 'Surface',
|
||
'1152', 'Samsung SM-T595',
|
||
'Anders (Telefonie/TB)'),
|
||
DECODE (kd3.ins_kenmerkdeel_waarde,
|
||
'1150', 'Telefoon - GSM',
|
||
'1152', 'Telefoon - Smartphone',
|
||
'Anders (Telefonie)')))
|
||
component
|
||
FROM (SELECT d.ins_deel_key,
|
||
d.ins_deel_omschrijving,
|
||
d.ins_deel_opmerking,
|
||
td.ins_discipline_key,
|
||
td.ins_discipline_omschrijving,
|
||
sg.ins_srtgroep_key,
|
||
sg.ins_srtgroep_omschrijving,
|
||
sd.ins_srtdeel_key,
|
||
sd.ins_srtdeel_omschrijving,
|
||
sd.ins_srtdeel_code,
|
||
'Onbekend' district,
|
||
'ONB' locatiecode,
|
||
'Onbekend' locatieomschr
|
||
FROM ins_v_aanwezigdeel d,
|
||
ins_srtdeel sd,
|
||
ins_srtgroep sg,
|
||
ins_tab_discipline td
|
||
WHERE d.ins_deel_parent_key IS NULL
|
||
AND d.ins_alg_ruimte_type = 'A'
|
||
AND d.ins_srtdeel_key = sd.ins_srtdeel_key
|
||
AND sd.ins_srtgroep_key = sg.ins_srtgroep_key
|
||
AND sg.ins_discipline_key = td.ins_discipline_key
|
||
AND td.ins_discipline_key IN (3082, 3083) -- Hardware/Telefonie
|
||
UNION ALL
|
||
SELECT d.ins_deel_key,
|
||
d.ins_deel_omschrijving,
|
||
d.ins_deel_opmerking,
|
||
td.ins_discipline_key,
|
||
td.ins_discipline_omschrijving,
|
||
sg.ins_srtgroep_key,
|
||
sg.ins_srtgroep_omschrijving,
|
||
sd.ins_srtdeel_key,
|
||
sd.ins_srtdeel_omschrijving,
|
||
sd.ins_srtdeel_code,
|
||
--COALESCE (di.alg_district_omschrijving, 'Onbekend') district,
|
||
--l.alg_locatie_code locatiecode,
|
||
--l.alg_locatie_omschrijving locatieomschr
|
||
'Onbekend' district,
|
||
'ONB' locatiecode,
|
||
'Onbekend' locatieomschr
|
||
FROM ins_v_aanwezigdeel d,
|
||
ins_srtdeel sd,
|
||
ins_srtgroep sg,
|
||
ins_tab_discipline td,
|
||
( SELECT p.prs_perslid_key,
|
||
MAX (pw.prs_werkplek_key) prs_werkplek_key
|
||
FROM prs_v_aanwezigperslid p,
|
||
prs_perslidwerkplek pwp,
|
||
prs_werkplek pw
|
||
WHERE p.prs_perslid_key = pwp.prs_perslid_key
|
||
AND pwp.prs_werkplek_key = pw.prs_werkplek_key
|
||
GROUP BY p.prs_perslid_key) pwp,
|
||
prs_v_werkplek_gegevens wpg,
|
||
alg_locatie l,
|
||
alg_district di
|
||
WHERE d.ins_deel_parent_key IS NULL
|
||
AND d.ins_alg_ruimte_type = 'P'
|
||
AND d.ins_srtdeel_key = sd.ins_srtdeel_key
|
||
AND sd.ins_srtgroep_key = sg.ins_srtgroep_key
|
||
AND sg.ins_discipline_key = td.ins_discipline_key
|
||
AND td.ins_discipline_key IN (3082, 3083) -- Hardware/Telefonie
|
||
AND d.ins_alg_ruimte_key = pwp.prs_perslid_key(+)
|
||
AND pwp.prs_werkplek_key = wpg.prs_werkplek_key(+)
|
||
AND wpg.alg_locatie_key = l.alg_locatie_key(+)
|
||
AND l.alg_district_key = di.alg_district_key(+)
|
||
UNION ALL
|
||
SELECT d.ins_deel_key,
|
||
d.ins_deel_omschrijving,
|
||
d.ins_deel_opmerking,
|
||
td.ins_discipline_key,
|
||
td.ins_discipline_omschrijving,
|
||
sg.ins_srtgroep_key,
|
||
sg.ins_srtgroep_omschrijving,
|
||
sd.ins_srtdeel_key,
|
||
sd.ins_srtdeel_omschrijving,
|
||
sd.ins_srtdeel_code,
|
||
DECODE (d.ins_alg_ruimte_key, 8582, 'Voorraad SC', di.alg_district_omschrijving) district, -- 8582=b1.10 (Opslag I&A)
|
||
DECODE (d.ins_alg_ruimte_key, 8582, 'Voorraad SC', l.alg_locatie_code) locatiecode, -- 8582=b1.10 (Opslag I&A)
|
||
DECODE (d.ins_alg_ruimte_key, 8582, 'Voorraad SC', l.alg_locatie_code) locatieomschr -- 8582=b1.10 (Opslag I&A)
|
||
FROM ins_v_aanwezigdeel d,
|
||
ins_srtdeel sd,
|
||
ins_srtgroep sg,
|
||
ins_tab_discipline td,
|
||
--ins_v_alg_overzicht o,
|
||
alg_locatie l,
|
||
alg_district di
|
||
WHERE d.ins_deel_parent_key IS NULL
|
||
AND d.ins_alg_ruimte_type IN ('T', 'R', 'W')
|
||
AND d.ins_srtdeel_key = sd.ins_srtdeel_key
|
||
AND sd.ins_srtgroep_key = sg.ins_srtgroep_key
|
||
AND sg.ins_discipline_key = td.ins_discipline_key
|
||
AND td.ins_discipline_key IN (3082, 3083) -- Hardware/Telefonie
|
||
--AND d.ins_alg_ruimte_key = o.alg_onroerendgoed_keys
|
||
--AND d.ins_alg_ruimte_type = o.alg_onroerendgoed_type
|
||
AND d.ins_alg_locatie_key = l.alg_locatie_key
|
||
AND l.alg_district_key = di.alg_district_key) x
|
||
LEFT JOIN ins_v_aanwezigkenmerkdeel kd1
|
||
ON x.ins_deel_key = kd1.ins_deel_key
|
||
AND kd1.ins_kenmerk_key IN (69, 82) -- Status (resp. Hardware en Telefonie)
|
||
LEFT JOIN ins_v_aanwezigkenmerkdeel kd2
|
||
ON x.ins_deel_key = kd2.ins_deel_key
|
||
AND kd2.ins_kenmerk_key = 62 -- MerkHardware (igv. Hardware)
|
||
LEFT JOIN ins_v_aanwezigkenmerkdeel kd3
|
||
ON x.ins_deel_key = kd3.ins_deel_key
|
||
AND kd3.ins_kenmerk_key = 75 -- MerkTelefonie (igv. Telefonie)
|
||
WHERE kd1.ins_kenmerkdeel_waarde = '841' -- Actief
|
||
;
|
||
/*
|
||
AND DECODE (x.ins_discipline_key,
|
||
3082, DECODE (x.ins_srtdeel_code,
|
||
'PRT', 'Printer',
|
||
'PC', 'Werkstation - Desktop',
|
||
'LT', 'Werkstation - Laptop',
|
||
'TC', 'Werkstation - Terminal',
|
||
'Anders (Hardware)'),
|
||
DECODE (kd2.ins_kenmerkdeel_waarde,
|
||
'Nokia', 'Telefoon - GSM',
|
||
'Samsung', 'Telefoons - Smartphone',
|
||
'Anders (Telefonie)')) NOT LIKE 'Anders%';
|
||
*/
|
||
-- SVRZ#66464: UDR_V_INS_DEEL inclusief organisatie (en personeelsnummer)!
|
||
CREATE OR REPLACE VIEW SVRZ_V_INS_DEEL
|
||
(
|
||
DEEL_KEY,
|
||
DISCIPLINE,
|
||
GROEP,
|
||
SOORTCODE,
|
||
SOORT,
|
||
OMSCHRIJVING,
|
||
PLAATSEIGENAAR,
|
||
PLAATSEIGENAARTYPE,
|
||
PLAATSAANDUIDING,
|
||
EIGENAAR_KEY,
|
||
EIGENAAR,
|
||
EIGENAAR_NR, -- Extra toegevoegd
|
||
EIGENAAR_AFDCODE, -- Extra toegevoegd
|
||
EIGENAAR_AFDOMS, -- Extra toegevoegd
|
||
OPMERKING,
|
||
REGIO,
|
||
DISTRICT,
|
||
LOCATIE_CODE,
|
||
LOCATIE_OMSCHRIJVING,
|
||
LOCATIE_PLAATS,
|
||
GEBOUWCODE,
|
||
GEBOUW,
|
||
TERREINSECTORCODE,
|
||
TERREINSECTOR,
|
||
VERDIEPINGCODE,
|
||
RUIMTENR,
|
||
WERKPLEKVOLGNR,
|
||
WERKPLEK,
|
||
UITLEENBAAR,
|
||
UITGELEEND,
|
||
RES_OPMERKING,
|
||
BEHEERDER,
|
||
VERVALDATUM,
|
||
ACTIEF,
|
||
AANTAL,
|
||
STATE,
|
||
STATEDATE,
|
||
FCLT_3D_DISCIPLINE_KEY,
|
||
FCLT_3D_AFDELING_KEY,
|
||
FCLT_3D_LOCATIE_KEY
|
||
)
|
||
AS
|
||
SELECT d.deel_key,
|
||
d.discipline,
|
||
d.groep,
|
||
d.soortcode,
|
||
d.soort,
|
||
d.omschrijving,
|
||
d.plaatseigenaar,
|
||
d.plaatseigenaartype,
|
||
d.plaatsaanduiding,
|
||
d.eigenaar_key,
|
||
d.eigenaar,
|
||
p.prs_perslid_nr,
|
||
a.prs_afdeling_naam,
|
||
a.prs_afdeling_omschrijving,
|
||
d.opmerking,
|
||
d.regio,
|
||
d.district,
|
||
d.locatie_code,
|
||
d.locatie_omschrijving,
|
||
d.locatie_plaats,
|
||
d.gebouwcode,
|
||
d.gebouw,
|
||
d.terreinsectorcode,
|
||
d.terreinsector,
|
||
d.verdiepingcode,
|
||
d.ruimtenr,
|
||
d.werkplekvolgnr,
|
||
d.werkplek,
|
||
d.uitleenbaar,
|
||
d.uitgeleend,
|
||
d.res_opmerking,
|
||
d.beheerder,
|
||
d.vervaldatum,
|
||
d.actief,
|
||
d.aantal,
|
||
d.state,
|
||
d.statedate,
|
||
d.fclt_3d_discipline_key,
|
||
d.fclt_3d_afdeling_key,
|
||
d.fclt_3d_locatie_key
|
||
FROM ins_v_udr_deel d, prs_perslid p, prs_afdeling a
|
||
WHERE d.eigenaar_key = p.prs_perslid_key(+)
|
||
AND p.prs_afdeling_key = a.prs_afdeling_key(+);
|
||
|
||
CREATE OR REPLACE VIEW SVRZ_V_RAP_PRS_GEG
|
||
(
|
||
medewerker1,
|
||
medewerker2,
|
||
personeelsnummer,
|
||
functie,
|
||
profiel,
|
||
adres_naam,
|
||
adres_gebouw_ruimte,
|
||
bezoek_adres,
|
||
bezoek_postcode,
|
||
bezoek_plaats,
|
||
post_adres,
|
||
post_postcode,
|
||
post_plaats
|
||
)
|
||
AS
|
||
SELECT pf.prs_perslid_naam_full,
|
||
pf.prs_perslid_naam_friendly,
|
||
p.prs_perslid_nr,
|
||
sp.prs_srtperslid_omschrijving,
|
||
pr.fac_profiel_omschrijving,
|
||
a.mld_adres_naam,
|
||
a.mld_adres_gebouw_ruimte,
|
||
a.mld_adres_bezoek_adres,
|
||
a.mld_adres_bezoek_postcode,
|
||
a.mld_adres_bezoek_plaats,
|
||
a.mld_adres_post_adres,
|
||
a.mld_adres_post_postcode,
|
||
a.mld_adres_post_plaats
|
||
FROM prs_v_aanwezigperslid p,
|
||
prs_v_perslid_fullnames pf,
|
||
prs_srtperslid sp,
|
||
fac_profiel pr,
|
||
mld_adres a
|
||
WHERE p.prs_perslid_key = pf.prs_perslid_key
|
||
AND p.prs_srtperslid_key = sp.prs_srtperslid_key(+)
|
||
AND p.fac_profiel_key = pr.fac_profiel_key(+)
|
||
AND p.mld_adres_key = a.mld_adres_key(+);
|
||
|
||
-- SVRZ#76093: Rapportage Bedrijf!
|
||
CREATE OR REPLACE VIEW SVRZ_V_RAP_REL_GEG
|
||
(
|
||
bedrijf,
|
||
leveranciersnummer,
|
||
bezoek_adres,
|
||
bezoek_postcode,
|
||
bezoek_plaats,
|
||
bezoek_land,
|
||
post_adres,
|
||
post_postcode,
|
||
post_plaats,
|
||
post_land,
|
||
telefoon,
|
||
email,
|
||
l,
|
||
u,
|
||
c,
|
||
h,
|
||
kanaal_type,
|
||
kanaal_opdrachttype,
|
||
kanaal_url,
|
||
kanaal_xsl
|
||
)
|
||
AS
|
||
SELECT b.prs_bedrijf_naam,
|
||
b.prs_leverancier_nr,
|
||
b.prs_bedrijf_bezoek_adres,
|
||
b.prs_bedrijf_bezoek_postcode,
|
||
b.prs_bedrijf_bezoek_plaats,
|
||
b.prs_bedrijf_bezoek_land,
|
||
b.prs_bedrijf_post_adres,
|
||
b.prs_bedrijf_post_postcode,
|
||
b.prs_bedrijf_post_plaats,
|
||
b.prs_bedrijf_post_land,
|
||
b.prs_bedrijf_telefoon,
|
||
b.prs_bedrijf_email,
|
||
b.prs_bedrijf_leverancier l,
|
||
b.prs_bedrijf_uitvoerende u,
|
||
b.prs_bedrijf_contract c,
|
||
b.prs_bedrijf_huurder h,
|
||
ba.prs_bedrijfadres_type kanaal_type,
|
||
DECODE (ba.prs_bedrijfadres_type, 'O', DECODE (ot.mld_typeopdr_key, NULL, 'Overige', ot.mld_typeopdr_omschrijving), NULL) kanaal_opdrachttype,
|
||
ba.prs_bedrijfadres_url kanaal_url,
|
||
ba.prs_bedrijfadres_xsl kanaal_xsl
|
||
FROM prs_v_aanwezigbedrijf b, prs_bedrijfadres ba, mld_typeopdr ot
|
||
WHERE b.prs_bedrijf_key = ba.prs_bedrijf_key(+)
|
||
AND ba.mld_typeopdr_key = ot.mld_typeopdr_key(+);
|
||
|
||
-- SVRZ#83023: Wijzigingbeheer-notificaties in de volgende 5 gevallen:
|
||
-- 981=CUST05=Op hele uur na vullen <20>Specificatie door<6F> naar betreffende RFC-groep (of persoon?).
|
||
-- 982=CUST06=Op hele uur na vullen <20>Impact#<n><3E> naar betreffende RFC-groep.
|
||
-- 983=CUST07=Op hele uur na vullen <20>Accordering door<6F> naar betreffende RFC-groep (of persoon?).
|
||
-- 984=CUST08=Op hele uur na vullen <20>Uitvoering#<n><3E> naar betreffende RFC-groep.
|
||
-- 985=CUST09=Op hele uur na vullen <20>Nazorg door<6F> naar betreffende RFC-groep (of persoon?).
|
||
-- NB. De extra_key (max. 10 posities!) is gevuld met de unieke combinatie van het te notificeren
|
||
-- e-mail adres (laatste 4 posities van key uit Eigen tabel) en de mld_melding_key (laatste 6
|
||
-- posities). Kans is verwaarloosbaar dat 2 of meer te notificeren entries uit Eigen tabellen
|
||
-- op 4 posities gelijk zijn (en voorlopig zitten die entries nog lang niet op >4 posities).
|
||
CREATE OR REPLACE VIEW SVRZ_V_RAP_RFC_REMINDER
|
||
AS
|
||
SELECT 'CUST05' fac_srtnotificatie_code,
|
||
m.mld_melding_key,
|
||
m.mld_melding_onderwerp,
|
||
sm.mld_stdmelding_omschrijving,
|
||
km.mld_kenmerkmelding_aanmaak,
|
||
rfc_gr.fac_usrdata_omschr rfc_gr,
|
||
fac.safe_to_number (SUBSTR (TO_CHAR (rfc_to.fac_usrdata_key), -4) || SUBSTR (TO_CHAR (m.mld_melding_key), -6)) extra_key, -- Moet zo heten!
|
||
rfc_to.fac_usrdata_code rfc_to
|
||
FROM mld_melding m,
|
||
mld_stdmelding sm,
|
||
mld_discipline md,
|
||
(SELECT *
|
||
FROM mld_v_aanwezigkenmerkmelding
|
||
WHERE mld_kenmerk_key = 2320) km, -- Specificatie door
|
||
fac_v_aanwezigusrdata rfc_gr,
|
||
fac_v_aanwezigusrdata rfc_to,
|
||
fac_usrtab rfc_to_ut
|
||
WHERE m.mld_stdmelding_key = 3261 -- Wijziging-Wijzigingenbeheer-RFC
|
||
AND m.mld_stdmelding_key = sm.mld_stdmelding_key
|
||
AND sm.mld_ins_discipline_key = md.ins_discipline_key
|
||
AND m.mld_melding_key = km.mld_melding_key
|
||
--AND km.mld_kenmerkmelding_aanmaak > TRUNC (SYSDATE) -- Vandaag
|
||
AND km.mld_kenmerkmelding_aanmaak > TRUNC (SYSDATE, 'mm') -- Deze maand
|
||
AND fac.safe_to_number (km.mld_kenmerkmelding_waarde) = rfc_gr.fac_usrdata_key
|
||
--AND rfc_gr.fac_usrtab_key = 501 -- RFC-Groep
|
||
AND fac.safe_to_number (km.mld_kenmerkmelding_waarde) = fac.safe_to_number (rfc_to.fac_usrdata_omschr)
|
||
AND rfc_to.fac_usrtab_key = rfc_to_ut.fac_usrtab_key
|
||
AND (rfc_to_ut.fac_usrtab_key BETWEEN 521 AND 540
|
||
OR INSTR (UPPER (rfc_to_ut.fac_usrtab_naam), 'RFC-TO') > 1)
|
||
UNION ALL -- IMPACT#<n>
|
||
SELECT 'CUST06' fac_srtnotificatie_code,
|
||
m.mld_melding_key,
|
||
m.mld_melding_onderwerp,
|
||
sm.mld_stdmelding_omschrijving,
|
||
km.mld_kenmerkmelding_aanmaak,
|
||
rfc_gr.fac_usrdata_omschr rfc_gr,
|
||
fac.safe_to_number (SUBSTR (TO_CHAR (rfc_to.fac_usrdata_key), -4) || SUBSTR (TO_CHAR (m.mld_melding_key), -6)) extra_key, -- Moet zo heten!
|
||
rfc_to.fac_usrdata_code rfc_to
|
||
FROM mld_melding m,
|
||
mld_stdmelding sm,
|
||
mld_discipline md,
|
||
(SELECT *
|
||
FROM mld_v_aanwezigkenmerkmelding
|
||
WHERE mld_kenmerk_key BETWEEN 2321 AND 2328) km, -- Impact#<n>
|
||
fac_v_aanwezigusrdata rfc_gr,
|
||
fac_v_aanwezigusrdata rfc_to,
|
||
fac_usrtab rfc_to_ut
|
||
WHERE m.mld_stdmelding_key = 3261 -- Wijziging-Wijzigingenbeheer-RFC
|
||
AND m.mld_stdmelding_key = sm.mld_stdmelding_key
|
||
AND sm.mld_ins_discipline_key = md.ins_discipline_key
|
||
AND m.mld_melding_key = km.mld_melding_key
|
||
--AND km.mld_kenmerkmelding_aanmaak > TRUNC (SYSDATE) -- Vandaag
|
||
AND km.mld_kenmerkmelding_aanmaak > TRUNC (SYSDATE, 'mm') -- Deze maand
|
||
AND fac.safe_to_number (km.mld_kenmerkmelding_waarde) = rfc_gr.fac_usrdata_key
|
||
--AND rfc_gr.fac_usrtab_key = 501 -- RFC-Groep
|
||
AND fac.safe_to_number (km.mld_kenmerkmelding_waarde) = fac.safe_to_number (rfc_to.fac_usrdata_omschr)
|
||
AND rfc_to.fac_usrtab_key = rfc_to_ut.fac_usrtab_key
|
||
AND (rfc_to_ut.fac_usrtab_key BETWEEN 521 AND 540
|
||
OR INSTR (UPPER (rfc_to_ut.fac_usrtab_naam), 'RFC-TO') > 1)
|
||
UNION ALL -- ACCORDERING DOOR
|
||
SELECT 'CUST07' fac_srtnotificatie_code,
|
||
m.mld_melding_key,
|
||
m.mld_melding_onderwerp,
|
||
sm.mld_stdmelding_omschrijving,
|
||
km.mld_kenmerkmelding_aanmaak,
|
||
rfc_gr.fac_usrdata_omschr rfc_gr,
|
||
fac.safe_to_number (SUBSTR (TO_CHAR (rfc_to.fac_usrdata_key), -4) || SUBSTR (TO_CHAR (m.mld_melding_key), -6)) extra_key, -- Moet zo heten!
|
||
rfc_to.fac_usrdata_code rfc_to
|
||
FROM mld_melding m,
|
||
mld_stdmelding sm,
|
||
mld_discipline md,
|
||
--fac_tracking t,
|
||
(SELECT *
|
||
FROM mld_v_aanwezigkenmerkmelding
|
||
WHERE mld_kenmerk_key = 2303) km, -- Accordering door
|
||
fac_v_aanwezigusrdata rfc_gr,
|
||
fac_v_aanwezigusrdata rfc_to,
|
||
fac_usrtab rfc_to_ut
|
||
WHERE m.mld_stdmelding_key = 3261 -- Wijziging-Wijzigingenbeheer-RFC
|
||
AND m.mld_stdmelding_key = sm.mld_stdmelding_key
|
||
AND sm.mld_ins_discipline_key = md.ins_discipline_key
|
||
AND m.mld_melding_key = km.mld_melding_key
|
||
--AND km.mld_kenmerkmelding_aanmaak > TRUNC (SYSDATE) -- Vandaag
|
||
AND km.mld_kenmerkmelding_aanmaak > TRUNC (SYSDATE, 'mm') -- Deze maand
|
||
AND fac.safe_to_number (km.mld_kenmerkmelding_waarde) = rfc_gr.fac_usrdata_key
|
||
--AND rfc_gr.fac_usrtab_key = 501 -- RFC-Groep
|
||
AND fac.safe_to_number (km.mld_kenmerkmelding_waarde) = fac.safe_to_number (rfc_to.fac_usrdata_omschr)
|
||
AND rfc_to.fac_usrtab_key = rfc_to_ut.fac_usrtab_key
|
||
AND (rfc_to_ut.fac_usrtab_key BETWEEN 521 AND 540
|
||
OR INSTR (UPPER (rfc_to_ut.fac_usrtab_naam), 'RFC-TO') > 1)
|
||
UNION ALL -- UITVOERING#<n>
|
||
SELECT 'CUST08' fac_srtnotificatie_code,
|
||
m.mld_melding_key,
|
||
m.mld_melding_onderwerp,
|
||
sm.mld_stdmelding_omschrijving,
|
||
km.mld_kenmerkmelding_aanmaak,
|
||
rfc_gr.fac_usrdata_omschr rfc_gr,
|
||
fac.safe_to_number (SUBSTR (TO_CHAR (rfc_to.fac_usrdata_key), -4) || SUBSTR (TO_CHAR (m.mld_melding_key), -6)) extra_key, -- Moet zo heten!
|
||
rfc_to.fac_usrdata_code rfc_to
|
||
FROM mld_melding m,
|
||
mld_stdmelding sm,
|
||
mld_discipline md,
|
||
(SELECT *
|
||
FROM mld_v_aanwezigkenmerkmelding
|
||
WHERE mld_kenmerk_key BETWEEN 2311 AND 2318) km, -- Uitvoering#<n>
|
||
fac_v_aanwezigusrdata rfc_gr,
|
||
fac_v_aanwezigusrdata rfc_to,
|
||
fac_usrtab rfc_to_ut
|
||
WHERE m.mld_stdmelding_key = 3261 -- Wijziging-Wijzigingenbeheer-RFC
|
||
AND m.mld_stdmelding_key = sm.mld_stdmelding_key
|
||
AND sm.mld_ins_discipline_key = md.ins_discipline_key
|
||
AND m.mld_melding_key = km.mld_melding_key
|
||
--AND km.mld_kenmerkmelding_aanmaak > TRUNC (SYSDATE) -- Vandaag
|
||
AND km.mld_kenmerkmelding_aanmaak > TRUNC (SYSDATE, 'mm') -- Deze maand
|
||
AND fac.safe_to_number (km.mld_kenmerkmelding_waarde) = rfc_gr.fac_usrdata_key
|
||
--AND rfc_gr.fac_usrtab_key = 501 -- RFC-Groep
|
||
AND fac.safe_to_number (km.mld_kenmerkmelding_waarde) = fac.safe_to_number (rfc_to.fac_usrdata_omschr)
|
||
AND rfc_to.fac_usrtab_key = rfc_to_ut.fac_usrtab_key
|
||
AND (rfc_to_ut.fac_usrtab_key BETWEEN 521 AND 540
|
||
OR INSTR (UPPER (rfc_to_ut.fac_usrtab_naam), 'RFC-TO') > 1)
|
||
UNION ALL -- NAZORG DOOR
|
||
SELECT 'CUST09' fac_srtnotificatie_code,
|
||
m.mld_melding_key,
|
||
m.mld_melding_onderwerp,
|
||
sm.mld_stdmelding_omschrijving,
|
||
km.mld_kenmerkmelding_aanmaak,
|
||
rfc_gr.fac_usrdata_omschr rfc_gr,
|
||
fac.safe_to_number (SUBSTR (TO_CHAR (rfc_to.fac_usrdata_key), -4) || SUBSTR (TO_CHAR (m.mld_melding_key), -6)) extra_key, -- Moet zo heten!
|
||
rfc_to.fac_usrdata_code rfc_to
|
||
FROM mld_melding m,
|
||
mld_stdmelding sm,
|
||
mld_discipline md,
|
||
(SELECT *
|
||
FROM mld_v_aanwezigkenmerkmelding
|
||
WHERE mld_kenmerk_key = 2319) km, -- Nazorg door
|
||
fac_v_aanwezigusrdata rfc_gr,
|
||
fac_v_aanwezigusrdata rfc_to,
|
||
fac_usrtab rfc_to_ut
|
||
WHERE m.mld_stdmelding_key = 3261 -- Wijziging-Wijzigingenbeheer-RFC
|
||
AND m.mld_stdmelding_key = sm.mld_stdmelding_key
|
||
AND sm.mld_ins_discipline_key = md.ins_discipline_key
|
||
AND m.mld_melding_key = km.mld_melding_key
|
||
--AND km.mld_kenmerkmelding_aanmaak > TRUNC (SYSDATE) -- Vandaag
|
||
AND km.mld_kenmerkmelding_aanmaak > TRUNC (SYSDATE, 'mm') -- Deze maand
|
||
AND fac.safe_to_number (km.mld_kenmerkmelding_waarde) = rfc_gr.fac_usrdata_key
|
||
--AND rfc_gr.fac_usrtab_key = 501 -- RFC-Groep
|
||
AND fac.safe_to_number (km.mld_kenmerkmelding_waarde) = fac.safe_to_number (rfc_to.fac_usrdata_omschr)
|
||
AND rfc_to.fac_usrtab_key = rfc_to_ut.fac_usrtab_key
|
||
AND (rfc_to_ut.fac_usrtab_key BETWEEN 521 AND 540
|
||
OR INSTR (UPPER (rfc_to_ut.fac_usrtab_naam), 'RFC-TO') > 1)
|
||
;
|
||
|
||
CREATE OR REPLACE VIEW SVRZ_V_NOTI_RFC_REMINDER
|
||
(
|
||
code,
|
||
sender,
|
||
receiver,
|
||
text,
|
||
key,
|
||
--par1,
|
||
--par2,
|
||
xkey,
|
||
xemail,
|
||
xmobile
|
||
--fac_srtnotificatie_key,
|
||
--attachments,
|
||
--xsender,
|
||
--prs_bedrijfadres_key
|
||
)
|
||
AS -- SPECIFICATIE DOOR
|
||
SELECT x.fac_srtnotificatie_code,
|
||
TO_NUMBER (NULL),
|
||
TO_NUMBER (NULL),
|
||
REPLACE (
|
||
REPLACE (
|
||
REPLACE (
|
||
lcl.x ('fac_srtnotificatie_oms', sn.fac_srtnotificatie_key, sn.fac_srtnotificatie_oms),
|
||
'##KEY##', TO_CHAR (x.mld_melding_key)),
|
||
'##SUBJ##', x.mld_melding_onderwerp),
|
||
'##STDMLD##', x.mld_stdmelding_omschrijving),
|
||
r.fac_usrrap_key,
|
||
--NULL,
|
||
--NULL,
|
||
x.extra_key,
|
||
x.rfc_to,
|
||
NULL
|
||
--TO_NUMBER (NULL),
|
||
--NULL
|
||
--NULL,
|
||
--TO_NUMBER (NULL)
|
||
FROM svrz_v_rap_rfc_reminder x, fac_usrrap r, fac_srtnotificatie sn, fac_notificatie_job nj
|
||
WHERE x.fac_srtnotificatie_code = sn.fac_srtnotificatie_code
|
||
AND UPPER (r.fac_usrrap_view_name) = 'SVRZ_V_RAP_RFC_REMINDER'
|
||
AND nj.fac_notificatie_job_view = 'SVRZ_V_NOTI_RFC_REMINDER'
|
||
AND x.mld_kenmerkmelding_aanmaak > COALESCE (nj.fac_notificatie_job_lastrun, TRUNC (SYSDATE, 'mm'));
|
||
|
||
-- SVRZ#85699: Bezettingsgraad van werkplekken (= reserveringen uit catalogus
|
||
-- 3981=Flexplekken)!
|
||
CREATE OR REPLACE VIEW SVRZ_V_RAP_RES_WP_BZG
|
||
(
|
||
fclt_3d_locatie_key,
|
||
maand,
|
||
catalogus,
|
||
locatie,
|
||
wp_aant_nl,
|
||
wp_aant_loc,
|
||
wp_bzg_nl,
|
||
wp_bzg_loc
|
||
)
|
||
AS
|
||
WITH rescatl -- Per catalogus/locatie de reserveringen van WP-objecten op tot-tijd!
|
||
AS ( SELECT resbes.mnd,
|
||
rd.ins_discipline_omschrijving catalogus,
|
||
l.alg_locatie_key,
|
||
l.alg_locatie_omschrijving locatie_oms,
|
||
SUM (resbez.aant) aantal_reserveringen,
|
||
SUM (ROUND (resbes.uren, 2)) bes_uren,
|
||
SUM (ROUND (resbez.uren, 2)) bez_uren
|
||
FROM (SELECT TO_CHAR (p.mnd, 'yyyy-mm') mnd, -- DISTINCT per definitie!
|
||
rd.res_discipline_key,
|
||
rd.res_deel_key resource_key,
|
||
COALESCE (d.ins_alg_ruimte_key_org, d.ins_alg_ruimte_key) alg_ruimte_key,
|
||
fac.count_work_days (p.mnd - 1, ADD_MONTHS (p.mnd, 1) - 1) * 9 -- = 17-8
|
||
uren
|
||
FROM res_deel rd, ins_deel d,
|
||
(SELECT ADD_MONTHS (TRUNC (SYSDATE, 'mm'), LEVEL - 26) mnd FROM DUAL CONNECT BY LEVEL <= 25) p
|
||
WHERE rd.res_discipline_key = 3981 -- Flexplekken
|
||
AND rd.res_ins_deel_key = d.ins_deel_key
|
||
AND COALESCE (d.ins_alg_ruimte_type_org, d.ins_alg_ruimte_type) = 'R' -- Noodzakelijk?
|
||
AND rd.res_deel_aanmaak < ADD_MONTHS (p.mnd, 1)
|
||
AND (rd.res_deel_verwijder IS NULL OR rd.res_deel_verwijder >= p.mnd)) resbes,
|
||
( SELECT TO_CHAR (rrd.res_rsv_deel_tot, 'yyyy-mm') mnd,
|
||
rd.res_discipline_key,
|
||
rd.res_deel_key resource_key,
|
||
COALESCE (d.ins_alg_ruimte_key_org, d.ins_alg_ruimte_key) alg_ruimte_key,
|
||
COUNT ( * ) aant,
|
||
SUM (LEAST ((rrd.res_rsv_deel_tot - TRUNC (rrd.res_rsv_deel_tot)) * 24, 17)
|
||
- GREATEST ((rrd.res_rsv_deel_van - TRUNC (rrd.res_rsv_deel_van)) * 24, 8))
|
||
uren
|
||
FROM res_rsv_deel rrd, res_rsv_ruimte rrr, res_deel rd, ins_deel d
|
||
WHERE rrd.res_rsv_deel_verwijder IS NULL
|
||
AND rrd.res_rsv_deel_dirtlevel = 0
|
||
AND TRUNC (rrd.res_rsv_deel_van) = TRUNC (rrd.res_rsv_deel_tot) -- Eendaags!
|
||
AND rrd.res_rsv_deel_tot BETWEEN ADD_MONTHS (TRUNC (SYSDATE, 'mm'), -25) AND TRUNC (SYSDATE, 'mm')
|
||
AND TO_CHAR (rrd.res_rsv_deel_tot, 'd') BETWEEN '2' AND '6'
|
||
AND NOT EXISTS (SELECT 1 FROM mld_vrije_dagen WHERE TRUNC (mld_vrije_dagen_datum) = TRUNC (rrd.res_rsv_deel_tot))
|
||
--AND TO_CHAR (rrd.res_rsv_deel_van, 'hh24') < '17'
|
||
--AND TO_CHAR (rrd.res_rsv_deel_tot, 'hh24') > '08'
|
||
--AND rrd.bez_bezoekers_key IS NULL -- Geen parkeerplaatsen!
|
||
AND rrd.res_rsv_ruimte_key = rrr.res_rsv_ruimte_key(+)
|
||
AND rrr.res_status_fo_key(+) IN (1, 2) -- Optie/Definitief
|
||
AND rrd.res_deel_key = rd.res_deel_key
|
||
AND rd.res_discipline_key = 3981 -- Flexplekken
|
||
AND rd.res_ins_deel_key = d.ins_deel_key
|
||
AND COALESCE (d.ins_alg_ruimte_type_org, d.ins_alg_ruimte_type) = 'R' -- Noodzakelijk?
|
||
GROUP BY TO_CHAR (rrd.res_rsv_deel_tot, 'yyyy-mm'),
|
||
rd.res_discipline_key,
|
||
rd.res_deel_key,
|
||
COALESCE (d.ins_alg_ruimte_key_org, d.ins_alg_ruimte_key)
|
||
UNION ALL -- Meerdaagse voorzieningen?
|
||
SELECT TO_CHAR (p.dag, 'yyyy-mm') mnd,
|
||
rd.res_discipline_key,
|
||
rd.res_deel_key resource_key,
|
||
COALESCE (d.ins_alg_ruimte_key_org, d.ins_alg_ruimte_key) alg_ruimte_key,
|
||
COUNT ( * ) aant,
|
||
SUM (DECODE (p.dag,
|
||
TRUNC (rrd.res_rsv_deel_van), 17 - GREATEST ((rrd.res_rsv_deel_van - TRUNC (rrd.res_rsv_deel_van)) * 24, 8),
|
||
TRUNC (rrd.res_rsv_deel_tot), LEAST ((rrd.res_rsv_deel_tot - TRUNC (rrd.res_rsv_deel_tot)) * 24, 17) - 8,
|
||
9)) -- = 17-8
|
||
uren
|
||
FROM res_rsv_deel rrd, res_rsv_ruimte rrr, res_deel rd, ins_deel d,
|
||
(SELECT TRUNC (SYSDATE, 'mm') - LEVEL dag FROM DUAL CONNECT BY LEVEL <= TRUNC (SYSDATE, 'mm') - ADD_MONTHS (TRUNC (SYSDATE, 'mm'), -25)) p
|
||
WHERE rrd.res_rsv_deel_verwijder IS NULL
|
||
AND rrd.res_rsv_deel_dirtlevel = 0
|
||
AND TRUNC (rrd.res_rsv_deel_van) != TRUNC (rrd.res_rsv_deel_tot) -- Meerdaags!
|
||
AND rrd.res_rsv_deel_tot BETWEEN ADD_MONTHS (TRUNC (SYSDATE, 'mm'), -25) AND TRUNC (SYSDATE, 'mm')
|
||
--AND TO_CHAR (rrd.res_rsv_deel_van, 'hh24') < '17'
|
||
--AND TO_CHAR (rrd.res_rsv_deel_tot, 'hh24') > '08'
|
||
--AND rrd.bez_bezoekers_key IS NULL -- Geen parkeerplaatsen!
|
||
AND rrd.res_rsv_ruimte_key = rrr.res_rsv_ruimte_key(+)
|
||
AND rrr.res_status_fo_key(+) IN (1, 2) -- Optie/Definitief
|
||
AND rrd.res_deel_key = rd.res_deel_key
|
||
AND rd.res_discipline_key = 3981 -- Flexplekken
|
||
AND rd.res_ins_deel_key = d.ins_deel_key
|
||
AND COALESCE (d.ins_alg_ruimte_type_org, d.ins_alg_ruimte_type) = 'R' -- Noodzakelijk?
|
||
AND p.dag BETWEEN TRUNC (rrd.res_rsv_deel_van) AND TRUNC (rrd.res_rsv_deel_tot)
|
||
AND TO_CHAR (p.dag, 'd') BETWEEN '2' AND '6'
|
||
AND NOT EXISTS (SELECT 1 FROM mld_vrije_dagen WHERE TRUNC (mld_vrije_dagen_datum) = TRUNC (p.dag))
|
||
GROUP BY TO_CHAR (p.dag, 'yyyy-mm'),
|
||
rd.res_discipline_key,
|
||
rd.res_deel_key,
|
||
COALESCE (d.ins_alg_ruimte_key_org, d.ins_alg_ruimte_key)) resbez,
|
||
res_discipline rd, -- Ook verwijderde catalogi!
|
||
alg_v_onrgoed_boom aob, -- Ook verwijderde ruimten!
|
||
alg_locatie l -- Ook verwijderde locaties!
|
||
WHERE resbes.mnd = resbez.mnd(+)
|
||
AND resbes.res_discipline_key = resbez.res_discipline_key(+)
|
||
AND resbes.resource_key = resbez.resource_key(+)
|
||
AND resbes.alg_ruimte_key = resbez.alg_ruimte_key(+)
|
||
AND resbes.res_discipline_key = rd.ins_discipline_key(+)
|
||
AND resbes.alg_ruimte_key = aob.alg_ruimte_key
|
||
AND aob.alg_locatie_key = l.alg_locatie_key
|
||
AND resbes.uren > 0 -- Soms 0 of zelfs negatief bij vreemde/gelijke begin- en eindtijden (van reserveerbare ruimte = res_ruimte)!
|
||
AND COALESCE (resbez.uren, 1) > 0 -- Soms 0 of zelfs negatief bij vreemde/gelijke begin- en eindtijden (van res_rsv_ruimte/deel)!
|
||
GROUP BY l.alg_locatie_key,
|
||
resbes.mnd,
|
||
rd.ins_discipline_omschrijving,
|
||
l.alg_locatie_omschrijving)
|
||
SELECT loc.alg_locatie_key, nl.mnd, nl.catalogus,
|
||
loc.locatie_oms,
|
||
TO_CHAR (nl.ant_nl, '999990'),
|
||
TO_CHAR (loc.ant_loc, '999990'),
|
||
TO_CHAR (100 * nl.bzg_nl, '990') || '%',
|
||
TO_CHAR (100 * loc.bzg_loc, '990') || '%'
|
||
FROM ( SELECT mnd, catalogus, SUM (aantal_reserveringen) ant_nl, SUM (COALESCE (bez_uren, 0)) / SUM (bes_uren) bzg_nl
|
||
FROM rescatl
|
||
GROUP BY mnd, catalogus) nl
|
||
LEFT JOIN (SELECT mnd, catalogus, alg_locatie_key, locatie_oms, aantal_reserveringen ant_loc, COALESCE (bez_uren, 0) / bes_uren bzg_loc
|
||
FROM rescatl) loc
|
||
ON nl.mnd = loc.mnd AND nl.catalogus = loc.catalogus;
|
||
|
||
CREATE OR REPLACE PACKAGE SVRZ
|
||
AS
|
||
PROCEDURE update_rfc_groep;
|
||
END;
|
||
/
|
||
|
||
CREATE OR REPLACE PACKAGE BODY SVRZ
|
||
AS
|
||
-- SVRZ#83023: Toekennen/afnemen autorisatiegroep 1741='Wijzigingenbeheer
|
||
-- (alles)' volgens Eigen tabellen gelinkt aan Eigen tabel met
|
||
-- key=501 (RFC-Groep).
|
||
PROCEDURE update_rfc_groep
|
||
AS
|
||
c_applname VARCHAR2 (50) := 'UPDATE_RFC_GROEP';
|
||
v_errormsg VARCHAR2 (1000);
|
||
oracle_err_num NUMBER;
|
||
oracle_err_mes VARCHAR2 (200);
|
||
v_count NUMBER;
|
||
|
||
CURSOR c_toekennen
|
||
IS
|
||
SELECT DISTINCT
|
||
'[' || TO_CHAR (p.prs_perslid_key) || '|' || p.prs_perslid_email || '|' || pf.prs_perslid_naam_full || '] '
|
||
aanduiding,
|
||
p.prs_perslid_key
|
||
FROM fac_v_aanwezigusrdata rfc_gr, fac_v_aanwezigusrdata rfc_to, prs_v_aanwezigperslid p, prs_v_perslid_fullnames_all pf
|
||
WHERE rfc_gr.fac_usrtab_key = 501 -- RFC-Groep
|
||
AND rfc_gr.fac_usrdata_key = fac.safe_to_number (rfc_to.fac_usrdata_omschr)
|
||
AND rfc_to.fac_usrdata_upper = UPPER (p.prs_perslid_email)
|
||
AND p.prs_perslid_key = pf.prs_perslid_key
|
||
AND NOT EXISTS
|
||
(SELECT 1
|
||
FROM fac_gebruikersgroep
|
||
WHERE fac_groep_key = 1741 -- Wijzigingenbeheer
|
||
AND prs_perslid_key = p.prs_perslid_key)
|
||
ORDER BY p.prs_perslid_key;
|
||
|
||
CURSOR c_afnemen
|
||
IS
|
||
SELECT '[' || TO_CHAR (p.prs_perslid_key) || '|' || p.prs_perslid_email || '|' || pf.prs_perslid_naam_full || '] '
|
||
aanduiding,
|
||
p.prs_perslid_key
|
||
FROM fac_gebruikersgroep gg, prs_perslid p, prs_v_perslid_fullnames_all pf
|
||
WHERE gg.fac_groep_key = 1741 -- Wijzigingenbeheer
|
||
AND gg.prs_perslid_key = p.prs_perslid_key
|
||
AND p.prs_perslid_key = pf.prs_perslid_key
|
||
AND NOT EXISTS
|
||
(SELECT 1
|
||
FROM fac_v_aanwezigusrdata rfc_gr, fac_v_aanwezigusrdata rfc_to
|
||
WHERE rfc_gr.fac_usrtab_key = 501 -- RFC-Groep
|
||
AND rfc_gr.fac_usrdata_key = fac.safe_to_number (rfc_to.fac_usrdata_omschr)
|
||
AND rfc_to.fac_usrdata_upper = UPPER (p.prs_perslid_email))
|
||
ORDER BY p.prs_perslid_key;
|
||
BEGIN
|
||
v_count := 0;
|
||
v_errormsg := 'Fout toevoegen autorisatiegroep';
|
||
FOR rec IN c_toekennen
|
||
LOOP
|
||
BEGIN
|
||
INSERT INTO fac_gebruikersgroep (fac_groep_key, prs_perslid_key)
|
||
VALUES (1741, rec.prs_perslid_key);
|
||
|
||
v_count := v_count + 1;
|
||
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 (c_applname, 'E', v_errormsg, rec.aanduiding);
|
||
END;
|
||
END LOOP;
|
||
|
||
IF v_count > 0
|
||
THEN
|
||
fac.writelog (c_applname, 'S', 'Autorisatiegroep/#toegekend: ' || TO_CHAR (v_count), '');
|
||
END IF;
|
||
|
||
v_count := 0;
|
||
v_errormsg := 'Fout afnemen autorisatiegroep';
|
||
FOR rec IN c_afnemen
|
||
LOOP
|
||
BEGIN
|
||
DELETE FROM fac_gebruikersgroep
|
||
WHERE fac_groep_key = 1741
|
||
AND prs_perslid_key = rec.prs_perslid_key;
|
||
|
||
v_count := v_count + 1;
|
||
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 (c_applname, 'E', v_errormsg, rec.aanduiding);
|
||
END;
|
||
END LOOP;
|
||
|
||
IF v_count > 0
|
||
THEN
|
||
fac.writelog (c_applname, 'S', 'Autorisatiegroep/#afgenomen: ' || TO_CHAR (v_count), '');
|
||
END IF;
|
||
END update_rfc_groep;
|
||
END;
|
||
/
|
||
|
||
CREATE OR REPLACE PROCEDURE SVRZ_DAILY
|
||
AS
|
||
v_errormsg VARCHAR2 (1000);
|
||
oracle_err_num NUMBER;
|
||
oracle_err_mes VARCHAR2 (200);
|
||
BEGIN
|
||
-- SVRZ#83023: Toekennen/afnemen autorisatiegroep 1741='Wijzigingenbeheer
|
||
-- (alles)' volgens Eigen tabellen gelinkt aan Eigen tabel met
|
||
-- key=501 (RFC-Groep).
|
||
svrz.update_rfc_groep;
|
||
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.writelog ('DAILY', 'E', 'Proces afgebroken!', v_errormsg);
|
||
END SVRZ_DAILY;
|
||
/
|
||
|
||
------ 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
|